A Module That Exports a Function

August 1999

Perl Hardware Store

Slide #11

         package Foo;

         # Always export `foo':
         sub import {
           # Get name of calling package
           my $caller = caller;

           *{$caller . '::foo'} = \&foo;
         }