%+ = ( 'package' => 'package Fee;' ); at Fi_01.t line 44. %+ = ( 'subroutine' => 'sub one { say __PACKAGE__.q{::one}; }' ); at Fi_01.t line 44. %+ = ( 'package' => 'package Fi;' ); at Fi_01.t line 44. %+ = ( 'subroutine' => 'sub two { say __PACKAGE__.q{::two}; }' ); at Fi_01.t line 44. %+ = ( # A BLOCK complete with its package/subroutine declarations 'block' => '{ package Foo; sub three { say __PACKAGE__.q{::three}; }; }' ); at Fi_01.t line 44. %+ = ( 'subroutine' => 'sub four { say __PACKAGE__.q{:four}; }' ); at Fi_01.t line 44.