use 5.010;

use strict;
use warnings;

sub Base::set_id {$_[0]{id} = $_[1]; $_[0]}
sub Base::id {$_[0]{id}}
sub Name::set_name {$_[0]{name} = $_[1]; $_[0]}
sub Name::name {$_[0]{name}}
sub Age::set_age {$_[0]{age} = $_[1]; $_[0]}
sub Age::age {$_[0]{age}}

sub gimme_object {
    state $class = "MyClass00000";
    $class++;
    no strict 'refs';
    @{"${class}::ISA"} = (Base => @_);
    bless {}, $class;
}


my $obj1 = gimme_object qw[Name];
my $obj2 = gimme_object qw[Age];
my $obj3 = gimme_object qw[Age Name];

$obj1->set_id(1)->set_name("Foo");
$obj2->set_id(2)->set_age(42);
$obj3->set_id(3)->set_name("Bar")->set_age(15);

printf "Object %d has name %s\n", $obj1->id, $obj1->name;
printf "Object %d has age %d\n", $obj2->id, $obj2->age;
printf "Object %d has name %s and age %d\n", $obj3->id, $obj3->name, $obj3->age;

__END__
Object 1 has name Foo
Object 2 has age 42
Object 3 has name Bar and age 15