Help for this page

Select Code to Download


  1. or download this
    sub MY::makefile    { return "# removed" }
    
  2. or download this
    package MY;
            sub c_o {
    ...
                $inherited =~ s/old text/new text/;
                $inherited;
            }
    
  3. or download this
    
     sub MY::c_o {
    ...
         return $inherited_text; # a return of a scalar whose value is jus
    +t a
                                 # (probably multi-line) string.
     }