Help for this page

Select Code to Download


  1. or download this
        if ( ref($self) eq 'person') { $self->tellName(); }
        if ( ref($self) eq 'child')  {$self->SUPER::tellName();}
    
  2. or download this
    Hello, I'm Alice.
    
    Hi, I'm Billy The Kid.
    Can't locate object method "tellName" via package "person" at ./classt
    +est line 25.
    Here's my mom: Hello, I'm
    
  3. or download this
    #!/usr/bin/perl
    use strict;
    ...
    
    my $son = new child();
    $son->introduce();