|
|
|
package Movie;
sub actors {
my $self = shift;
return join(', ', @{$self->{actors}});
}
my $m = {
title => 'Losing Chase',
director => 'Kevin Bacon',
actors => [ 'Helen Mirren', 'Kyra Sedgwick', 'Beau Bridges' ]
};
bless($m);
print $m, "\n";
Movie=HASH(0xba5d88)
print $m->{title}, "\n";
Losing Chase
print $m->actors(), "\n";
Helen Mirren, Kyra Sedgwick, Beau Bridges |
|
|
|
|
