use strict;
use warnings;

BEGIN{
    package Team {
        sub new{
             my ($class, $type, $name) = @_;
             #print "IN ",  __PACKAGE__ , " Creating a $type named $na
+me (Class=$class)\n";
             return bless{TYPE=>$type, NAME=>$name}, $class;
        }
        sub name{return $_[0]->{NAME}};
        sub type{return $_[0]->{TYPE}};
        sub Print{my ($o)=@_; print qq|I am a |, ref($o), qq| named |,
+ $o->name(), qq| of type |,$o->type(),qq|\n|;};
        1;
    }
    # Create derived packages for "Team"
    for my $t(qw|NFL NBA MLB|){
        eval  << "          __TEAMS__";
            package $t  {
             use base "Team";
             sub new {bless Team::->new('$t',\$_[1]), "$t" }
            1;
            }
          __TEAMS__
          $@ and print "Eval err(package $t):$@\n";
    }

    package Restaurant{
        sub new{
             my ($class, $type, $name) = @_;
             #print "IN ",  __PACKAGE__ , " Creating a $type named $na
+me (Class=$class)\n";
             return bless{TYPE=>$type, NAME=>$name}, $class;
        }
        sub name{return $_[0]->{NAME}};
        sub type{return $_[0]->{TYPE}};
        sub Print{my ($o)=@_; print qq|I am a |, ref($o), qq| named |,
+ $o->name(), qq| of type |,$o->type(),qq|\n|;};
    }
    # Create derived packages for "Restaurant"
    for my $t(qw|FASTFOOD FINEDINING MIDRANGE|){
        eval  << "          __TEAMS__";
            package $t  {
             use base "Restaurant";
             sub new {bless Restaurant::->new('$t',\$_[1]), "$t" }
            1;
            }
          __TEAMS__
          $@ and print "Eval err(package $t):$@\n";
    }    
}

my @teams = (map ({ NFL::->new($_) } qw|JETS PATRIOTS GIANTS| ),
             map ({ MLB::->new($_) } qw|YANKEES METS CARDINALS| ),
             map ({ NBA::->new($_) } qw|SIXERS CELTICS LAKERS| ) );
print "--- Teams ---\n";
$_->Print() for @teams;

my @restaurants = ( map ({ FASTFOOD::->new($_) }   qw|WENDYS MCDONALDS
+ BURGER KING| ),
                    map ({ FINEDINING::->new($_) } 'GRILL 23' , 'CAPIT
+AL GRILL' , 'MORTONS' ),
                    map ({ MIDRANGE::->new($_) }   'OUTBACK', 'TEXAS R
+OADHOUSE', 'CHILIS'  ) );
print "-- Restaurants --\n";
$_->Print() for @restaurants;
[download]