Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
                    map ({ MIDRANGE::->new($_) }   'OUTBACK', 'TEXAS R
+OADHOUSE', 'CHILIS'  ) );
print "-- Restaurants --\n";
$_->Print() for @restaurants;
  2. or download this
    --- Teams ---
I am a NFL named JETS of type NFL
...
I am a MIDRANGE named OUTBACK of type MIDRANGE
I am a MIDRANGE named TEXAS ROADHOUSE of type MIDRANGE
I am a MIDRANGE named CHILIS of type MIDRANGE