mirror of
https://github.com/Telecominfraproject/OpenCellular.git
synced 2025-12-24 16:57:21 +00:00
35 lines
665 B
Perl
35 lines
665 B
Perl
# Copyright (c) 2017-present, Facebook, Inc.
|
|
# All rights reserved.
|
|
#
|
|
# This source code is licensed under the BSD-style license found in the
|
|
# LICENSE file in the root directory of this source tree. An additional grant
|
|
# of patent rights can be found in the PATENTS file in the same directory.
|
|
|
|
package mods::Logio;
|
|
|
|
sub TIEHANDLE {
|
|
my $class = shift;
|
|
my $outfhs = [ @_ ];
|
|
return bless $outfhs, $class;
|
|
}
|
|
|
|
sub PRINT {
|
|
my $fhs = shift;
|
|
my $sh = $fhs->[1];
|
|
my $lh = $fhs->[0];
|
|
print $sh @_;
|
|
print $lh '<c ', @_;
|
|
}
|
|
|
|
sub READLINE {
|
|
my $fhs = shift;
|
|
my $rh = $fhs->[1];
|
|
my $lh = $fhs->[0];
|
|
|
|
my $line = <$rh>;
|
|
print $lh '>c ' . $line;
|
|
return $line;
|
|
}
|
|
|
|
1;
|