Help for this page

Select Code to Download


  1. or download this
    package My::Class;
use vars qw( $VERSION );
BEGIN { $VERSION= 1.001 }
...
    utilityFunction( $self, @args );
    # ...
}
  2. or download this
        # Calling a class method via an object:
    my $obj2= $obj1->new();

...

    # Using my utility function:
    $obj->utilityFunction();
  3. or download this
        *My::Class::_object::new= \&My::Class::new;
  4. or download this
    package My::Class;
use vars qw( $VERSION );
BEGIN { $VERSION= 1.001 }
...

package My::Class;
My::Class::_internal->import( ":DEFAULT" );
  5. or download this
        package My::Class;
    use My::Class::_internal;