/usr/share/perl5/Object/Remote/GlobProxy.pm is in libobject-remote-perl 0.004000-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | use strictures 1;
package Object::Remote::GlobProxy;
require Tie::Handle;
our @ISA = qw( Tie::Handle );
sub TIEHANDLE {
my ($class, $glob_container) = @_;
return bless { container => $glob_container }, $class;
}
my @_delegate = (
[READLINE => sub { wantarray ? $_[0]->getlines : $_[0]->getline }],
(map { [uc($_), lc($_)] } qw(
write
print
printf
read
getc
close
open
binmode
eof
tell
seek
)),
);
for my $delegation (@_delegate) {
my ($from, $to) = @$delegation;
no strict 'refs';
*{join '::', __PACKAGE__, $from} = sub {
$_[0]->{container}->$to(@_[1 .. $#_]);
};
}
1;
|