Select Code to Download

use person;

...
$foo->name("Stefan");
$foo->age(20);
$foo->exclaim();

$bar = Person->new();
$bar->name("Yoda");
$bar->age(900);
$bar->exclaim();

$foo->name("Stefan");

Person::name( $foo , "Stefan” );

my $ref1 = { “name” => “Stefan”,
           “age” => 20 };
my $ref2 = { “name” => “Yoda”,
           “age” => 900 };

$ref1 = bless $ref1 “Person”;
$ref2 = bless $ref2 “Person”;

package Person;
require 5.004;
...
}

return 1;

#!/usr/bin/perl

...

# See, it's still here
$foo->exclaim();

my $foo->new( “Stephan”, 20 );
$foo->exclaim();
my $bar->new( “Yoda”, 900 );
$bar->exclaim();