Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
use My::ProcessA( "DataType" ); # Defines: process_a() method
print DataType->process_a;
  2. or download this
    package My::ProcessA;
use strict;
use ExportTo( [ qw( process_a ) ] );
...
    "Do Stuff";
}
1;
  3. or download this
    package ExportTo;
use strict;
sub import {
...
    *{$caller."::import"}= $import;
}
1;
  4. or download this
    use My::ProcessA qw( DataType process_a revert_a );
# or even
use My::ProcessA( DataType=>[qw( process_a revert_a )] );