A Module That Exports a Function

August 1999

Perl Hardware Store

Slide #12

         # If you subclass this package, it will
         # export the overriden `foo' from the
         # subclass, if there is one.

         sub import {
           my $package = shift;
           my $caller = caller;
           *{$caller . '::foo'} = $package->can('foo');
         }