Mytest.pm (772B)
1 package Mytest; 2 3 use 5.008008; 4 use strict; 5 use warnings; 6 7 require Exporter; 8 9 our @ISA = qw(Exporter); 10 11 # Items to export into callers namespace by default. Note: do not export 12 # names by default without a very good reason. Use EXPORT_OK instead. 13 # Do not simply export all your public functions/methods/constants. 14 15 # This allows declaration use Mytest ':all'; 16 # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK 17 # will save memory. 18 our %EXPORT_TAGS = ( 'all' => [ qw( 19 20 ) ] ); 21 22 our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 23 24 our @EXPORT = qw( 25 26 ); 27 28 our $VERSION = '0.01'; 29 30 require XSLoader; 31 XSLoader::load('Mytest', $VERSION); 32 33 # Preloaded methods go here. 34 35 1; 36 __END__ 37 # Below is stub documentation for your module. You'd better edit it! 38 39 40 41 =cut