Select Code to Download

package My::Class;
use vars qw( $VERSION );
BEGIN { $VERSION= 1.001 }
...
    utilityFunction( $self, @args );
    # ...
}

    # Calling a class method via an object:
    my $obj2= $obj1->new();

...

    # Using my utility function:
    $obj->utilityFunction();

package My::Class;
use vars qw( $VERSION );
BEGIN { $VERSION= 1.001 }
...

package My::Class;
My::Class::_internal->import( ":DEFAULT" );

    package My::Class;
    use My::Class::_internal;