|
|
|
require Video;
my $m = new Video (
title => 'Losing Chase',
director => 'Kevin Bacon',
actors => [ 'Helen Mirren', 'Kyra Sedgwick', 'Beau Bridges' ],
category => 'Chick Flick'
);
print $m, "\n";
Video=HASH(0xbaa900)
print $m->category(), "\n";
Chick Flick
print $m->actors(), "\n";
Helen Mirren, Kyra Sedgwick, Beau Bridges |
|
|
|
|
