Select Code to Download

use 5.032001;
use warnings;

...
            say qq{Fee-fi-fo-fum,\nI smell the blood of an Englishman,
+\nBe he alive, or be he dead\nI'll grind his bones to make my bread.}
+;
            };
        };

main::zero
Fee::one
...
Fum::four
Fi::four
I_smell_the_blood_of_an_Englishman::five

#!/usr/bin/env perl

# To paraphrase Voltaire who wrote
...
            };
        };

 > PPI::Statement::Sub                  :  > sub zero { say __PACKAGE_
+_.q{::z
 > PPI::Statement::Package              :  > package Fee;
...
    }
  };
  at PPI_03.t line 104, <DATA> line 1.