Next The Perl Hardware Store DC.pm Version 11

A Module That Exports a Function

         package Cookout;
         # Always export `grill':
         sub import {
           # Get name of calling package
           my $caller = caller;  
           *{$caller . '::grill} = \&grill;
         }
        use Cookout;
        grill('corn', 'burgers', 'kebabs');


Next Copyright © 2003 M. J. Dominus