/usr/share/perl5/SOAP/Lite/Utils.pm is in libsoap-lite-perl 1.09-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 | package SOAP::Lite::Utils;
use strict;
sub import {
my $caller = caller();
no strict qw(refs);
*{ "$caller\::__mk_accessors" } = \&__mk_accessors;
}
sub __mk_accessors {
my ($class, @method_from) = @_;
no strict 'refs';
for my $method ( @method_from ) {
my $field = '_' . $method;
*{ "$class\::$method" } = sub {
my $self = ref $_[0] ? shift : shift->new();
if (@_) {
$self->{$field} = shift;
return $self
}
return $self->{$field};
}
}
}
1;
__END__
|