Replying to my own post to provide a full example.

### Name.pm ###

package Name; {
  use Object::InsideOut;
  my @name :Field 
           :All(name);
}

1;
[download]

### Age.pm ###

package Age; {
  use Object::InsideOut;
  my @age :Field 
          :All(age)
          :Type(numeric);
}

1;
[download]

### Person.pm ###

use Name;
use Age;

package Person; {
  use Object::InsideOut qw(Name Age);
}

1;
[download]

### main ###

#!/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";
[download]