Help for this page

Select Code to Download


  1. or download this
    my $guy = Person->new({name => 'Bubba'});
print "name: ", $guy->get_name, "\n";
...
    return;  
  }
}
  2. or download this
    
my $guy = Person->new({name => 'Bubba'});
...
{
  my %name_of : ATTR(init_arg => 'name',  get => 'name', set => 'name'
+);
}
  3. or download this
    Can't locate object method "get_name" via package "Person" at ./oop.pl
+ line 4
  4. or download this
    :init_arg<name> :get<name> :set<name>