Select Code to Download

use Person;
my $p = Person->new(age => 10);
print "Person has age ", $p->age();

package Person;

...
              isa => 'AdmissibleAge');

1;

package Types;

...
  => where {$_ >= 0 and $_ <= 99};
  
1;