# Foo package Foo ; require Exporter ; our @ISA = qw( Exporter ) ; our @EXPORT_OK = qw( saySomethingElse ) ; # Add this method and it breaks # sub import { # my $this = shift ; # $this->SUPER::import( @_ ) ; # } sub saySomethingElse { print "Bye World!\n" ; } 1 ; #### # main use Foo qw ( saySomethingElse ) ; saySomethingElse() ;