Inheritance (cont)
previous slidetable of contentsnext slide

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