An object oriented module
 previous slidetable of contentsnext slide

Movie.pm
package Movie;

sub new {              # Constructor
  my $class = shift;

  my $self = { @_ };

  return(bless($self, $class));
}


sub actors {
  my $self = shift;
  return join(', ', @{$self->{actors}});
}

1;