Exporter
file: examples/Groon.pm
1: package Groon;
2: use strict;
3: use warnings;
4: use base 'Exporter';
5: use vars qw(@EXPORT @EXPORT_OK);
6:
7: @EXPORT_OK = qw(kadoonk blorf);
8: @EXPORT = qw(skaplunch);
9:
10: sub kadoonk { print "KADOONK!!\n" }
11: sub blorf { print "blorf..\n" }
12: sub skaplunch { print "SKAPlunch\n" }
13:
14: 1;
file: examples/017_exporter.pl
1: use rlib '.';
2: use Groon ();
3:
4: skaplunch();
~/examples$ perl 017_exporter.pl
Undefined subroutine &main::skaplunch called at 017_exporter.pl line 4.