Inheritance (cont)
 previous slidetable of contentsnext slide

ucMovie.pm
package ucMovie;

require Movie;

use vars qw(@ISA);

@ISA = qw(Movie);

sub actors {
  my $self = shift;

  return(uc($self->SUPER::actors()));
}

1;
print $ucm->actors()
HELEN MIRREN, KYRA SEDGWICK, BEAU BRIDGES