Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
$test->doPrint();
$one->doPrint();
$two->doPrint();
  2. or download this
    Test (Top): var3 => Top set var3
Test (Top): var1 => Top set var1
...
Test (Top::Extend2): var1 => Top set var1
Test (Top::Extend2): passed1 => this is copied
Test (Top::Extend2): something => extra