{
   package Your::Parser;

   my @parsers;

   sub register {
      push @parsers, $_[0];
   }
}
{
   package Your::Sub::Parser;
   our @ISA qw(Your::Parser);
   __PACKAGE__->register();
}