in reply to Template to create modules
Thank you both for suggestions.
Btw I've read some man pages and I found perlmod and it has one template:
$ man perlmod |sed -n "/package Some::Module/,/^ \+1; /{p}" package Some::Module; # assumes Some/Module.pm use strict; use warnings; BEGIN { require Exporter; # set the version for version checking our $VERSION = 1.00; # Inherit from Exporter to export functions and variabl +es our @ISA = qw(Exporter); # Functions and variables which are exported by default our @EXPORT = qw(func1 func2); # Functions and variables which can be optionally expor +ted our @EXPORT_OK = qw($Var1 %Hashit func3); } # exported package globals go here our $Var1 = ''; our %Hashit = (); # non-exported package globals go here # (they are still accessible as $Some::Module::stuff) our @more = (); our $stuff = ''; # file-private lexicals go here, before any functions which + use them my $priv_var = ''; my %secret_hash = (); # here's a file-private function as a closure, # callable as $priv_func->(); my $priv_func = sub { ... }; # make all your functions, whether exported or not; # remember to put something interesting in the {} stubs sub func1 { ... } sub func2 { ... } # this one isn't exported, but could be called directly # as Some::Module::func3() sub func3 { ... } END { ... } # module clean-up code here (global destr +uctor) 1; # don't forget to return a true value from the file
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Template to create modules
by guiwp (Sexton) on Jun 15, 2016 at 00:04 UTC | |
by choroba (Cardinal) on Jun 15, 2016 at 07:56 UTC |