Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
my $tv_horse = Horse->named("Mr. Ed");
print $tv_horse->name, " is ",$tv_horse->name,"\n";
$tv_horse->set_name("Mister Ed");
  2. or download this
      DB<7> x $object
0  Horse=REF(0x13080)
   -> HASH(0x191d8d0)
         'Color' => 'brown'
         'Name' => 'Mr. Ed'