Select Code to Download

package Object;
{
...

}
1;

use Object
Object::pow( 2, 2 );

use Object 'pow';
pow( 2,2 );

Object->pow(2,2);

...
$obj->pow(2,2);

pow(2,2); # Exported or internal method call

    sub rmvObjRef
    {
...
        return @_;

    }

shift if ref $_[0] eq __PACKAGE || $_[0] eq __PACKAGE__;

@_ = rmvObjRef( __PACKAGE__, @_ );

package NumObject;

...
   return NumObject + NumObject;

}

my $num1 = NumObject->new();
my $num2 = NumObject->new();
NumObject::addObjects( $num1, $num2  );