############################################################################# # # # WHO: John L. Moreland # # # # WHAT: Module2.pm # # # # WHY: Demonstrates a simple module imported using use. # # # # WHERE: Opus Software # # # # WHEN: Sun Sep 27 18:36:01 PDT 1998 # # # # HOW: PERL # # # ############################################################################# package Module2; require Exporter; @ISA = qw(Exporter); @EXPORT = qw(bar blat); sub bar { print "Hello $_[0]\n" } sub blat { print "World $_[0]\n" } sub splat { print "Not $_[0]\n" } # Not exported! 1;