#!/usr/bin/perl -wT

package DynamicMammals;

use strict;
use warnings;

use lib '.';

my %style_of
    = (
       Cat => {
           talks => q(meow),
           walks => q(in beauty, like the night),
       },
       Dog => {
           talks => q(woof),
       },
       FrankenMammal => {
           ## empty hash
       },
       );

my $package_str = q();
foreach my $mammal (keys %style_of) {
    $package_str .= qq(
                       package Dynamic$mammal;
                       use base qw(StaticMammal);
                       );
    my $action_href = $style_of{ $mammal };
    foreach my $action (keys %$action_href) {
        $package_str
            .= sprintf q(
                         sub %s_how {
                             return q(%s);
                         }
                         ), $action, $action_href->{ $action};
    }
}

eval $package_str;
if (my $msg = $@) {
    die "Eval error: $msg\nwhile trying to eval:\n$package_str";
}


1;
__END__