Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Private method variations

by adrianh (Chancellor)
on Mar 01, 2004 at 00:42 UTC ( #332744=perlmeditation: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    package Foo;
    
    ...
        # we can use lexically scoped subs
        $self->$_private();
    };
    
  2. or download this
    package Foo;
    
    ...
        my $self = shift;
        $self->Foo::private::method { ... };
    };
    
  3. or download this
    sub Foo::MY::method { ... };
    
    ...
        my $self = shift;
        $self->MY::method();
    };
    
  4. or download this
    package MY;
    
    ...
        my $method = caller() . "::$AUTOLOAD";
        $self->$method(@_);
    };
    
  5. or download this
    sub MY::method { ... };
    
  6. or download this
    sub MyLongPackageName::MY::method { ... };
    
  7. or download this
    package MY;
    use strict;
    ...
    FILTER_ONLY code => sub { s/(\w+::)*MY::/${Imported_from}::MY::/gs };
    
    1;
    
  8. or download this
    package Foo;
    use MY;
    ...
    sub MY::greet_world {
        print "A new Bar has entered the world\n";
    };
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlmeditation [id://332744]
Approved by TStanley
Front-paged by broquaint
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (10)
As of 2014-10-22 07:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (114 votes), past polls