$ends = Manip::END->new;
# now remove some END blocks
$ends->remove_class("Test::Cmd"); # only those in Test::Cmd
$ends->remove_isa("Test::Cmd"); # in Test::Cmd and any subclasses
$ends->remove_pat('^Test::Cmd(::.*)?$'); # any END blocks from Test::Cmd and Test::Cmd::Whatever