Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- sub AUTOLOAD {
- my $self = shift;
- our $AUTOLOAD;
- (my $method = $AUTOLOAD) =~ s/.*:://s; # remove package name
- $method =~ s/_/./g;
- return if $method =~ /DESTROY/;
- perform_rpc_call( $self, $method, @_ );
- }
- $obj->user_delete( $username );
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement