Select Code to Download

void
get_end_subs( pkg )
...
        }
      }
    }

  my $packname = 'foo::bar' ;

...
  }

  undef_end_subs($packname) ;

use B;

...
I'll go get my coat ...
main: Right, I'm outta here
foo: this will be followed by ... another END block