- or download this
package Foo;
my $dbh;
...
# Set up cache
...
};
- or download this
sub frobnicate {
my( $self, %options )= @_;
...
DBI->connect( $self->{dbi_parameters} );
};
};
- or download this
package Module::MagicInit;
use strict;
...
$callback->( @args ) or die "Init failed for $package.";
};
};
- or download this
package Foo;
use Module::MagicInit;
...
};
1;
- or download this
#!perl -w
use strict;
...
...
Module::MagicInit::init();