Select Code to Download

package My::Class::SubClass;
require My::Class::Base;
...
    _utilSub( _timestamp() );
    ...
}

package My::Class::Base;
use vars qw( $VERSION );
...
    shift @_;
    return _timestamp();
}