Select Code to Download

package Name; {
  use Object::InsideOut;
...
}

1;

package Age; {
  use Object::InsideOut;
...
}

1;

use Name;
use Age;
...
}

1;

#!/usr/bin/perl
use Person;
...
my $person = Person->new( name => 'Bob', age => 32 );
print "Person's name is ", $person->name();
print " and age is ", $person->age(), "\n";