> PPI::Statement::Sub                  :  > sub zero { say __PACKAGE__.q{::z
 > PPI::Statement::Package              :  > package Fee;
 > PPI::Statement::Sub                  :  > sub one { say __PACKAGE__.q{::on
 > PPI::Statement::Package              :  > package Fi;
 > PPI::Statement::Sub                  :  > sub two { say __PACKAGE__.q{::tw
 > PPI::Statement::Compound             :  > { package Fo; sub three { say __
 >  > PPI::Structure::Block             :  >  > { package Fo; sub three { say __
 >  >  > PPI::Statement::Package        :  >  >  > package Fo;
 >  >  > PPI::Statement::Sub            :  >  >  > sub three { say __PACKAGE__.q{::
 > PPI::Statement                       :  > {; say "This block introduces no
 > PPI::Statement::Sub                  :  > sub Fum::four { say __PACKAGE__.
 > PPI::Statement::Sub                  :  > sub four { say __PACKAGE__.q{:fo
 > PPI::Statement::Package              :  > package I_smell_the_blood_of_an_
 >  > PPI::Token::Word                  :  >  > package
 >  > PPI::Token::Word                  :  >  > I_smell_the_blood_of_an_Englishm
 >  > PPI::Structure::Block             :  >  > { sub five { say qq{Fee-fi-fo-fu
 >  >  > PPI::Statement::Sub            :  >  >  > sub five { say qq{Fee-fi-fo-fum,
$sub_href = \{
    'Fee' => {
      'one' => 'sub one { say __PACKAGE__.q{::one}; }'
    },
    'Fi' => {
      'four' => 'sub four { say __PACKAGE__.q{:four}; }',
      'two' => 'sub two { say __PACKAGE__.q{::two}; }'
    },
    'Fo' => {
      'three' => 'sub three { say __PACKAGE__.q{::three}; }'
    },
    'Fum' => {
      'four' => 'sub Fum::four { say __PACKAGE__.q{:four}; }'
    },
    'I_smell_the_blood_of_an_Englishman' => {
      'five' => 'sub five { 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' => 'sub zero { say __PACKAGE__.q{::zero}; }'
    }
  };
  at PPI_03.t line 104, <DATA> line 1.