- or download this
DBIx::MyMod
DBIx::MyMod::db
DBIx::MyMod::st
- or download this
use DBIx::MyMod qw(MYMOD_CONSTANT);
# connect in the root
my $h = DBIx::MyMod->connect(x,y, {XXX => MYMOD_CONSTANT});
- or download this
fred.pl
use MyMod; # assuming all constants in EXPORT
MyMod::db->fred();
- or download this
use strict;
use warnings;
...
our @EXPORT = qw(MYMOD_DEFAULT);
1;
- or download this
use strict;
use warnings;
...
print "hello" if (MYMOD_DEFAULT);
}
1;