Select Code to Download

package Obj;

...
my $t = new Test;

$t->test;

#$Name = "Testing"; TO
our $Name = "Testing";

#$Name = "Testing"; TO
$SUPER::Name = "Testing";

#$Name = "Testing"; TO
$Obj::Name = "Testing";