init III

Perl OTRS/Kernel/cpan-lib/SOAP/Lite/Utils.pm

@@ -0,0 +1,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__