my $packname = 'foo::bar' ;

  foreach my $end_i ( get_end_subs($packname) ) {
    eval{ &$end_i() if $end_i ; } ;
  }

  undef_end_subs($packname) ;