June 2001 Making a Module Back Slide 11 Forward

The Barest of Modules

package Sample::Module;
use strict;

BEGIN{
  use Exporter ();
  use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
  $VERSION     = 0.01;
  @ISA         = qw (Exporter);
  @EXPORT      = qw ();
  @EXPORT_OK   = qw ();
  %EXPORT_TAGS = ();
}

#Everything else goes here

1;
__END__

  • This is where you put the variables, functions, and methods of the module. If it did not do anything, why write a module in the first place?


Copyright © 2001 R. Geoffrey Avery Back Contents Forward