BEGIN {
   require Example::Error;
   foreach my $method (qw/asplode/) {
     warn "Example::Error->$method already defined."
       if Example::Error->can($method);
   }
   push @Example::Error::ISA, __PACKAGE__;
 }