|
|
|
require Movie;
my $m = new Movie (
title => 'Losing Chase',
director => 'Kevin Bacon',
actors => [ 'Helen Mirren', 'Kyra Sedgwick', 'Beau Bridges' ]
);
print $m, "\n";
Movie=HASH(0xba7e60)
print $m->{title}, "\n";
Losing Chase
print $m->actors(), "\n";
Helen Mirren, Kyra Sedgwick, Beau Bridges |
|
|
|
|
