Select Code to Download

Select or download this

mysql> use test;
Database changed
...
| bday  | date         | YES  |     | NULL    |       |
+-------+--------------+------+-----+---------+-------+
3 rows in set (0.00 sec)

Select or download this

package IsfdbMaypole;
use strict;
...
IsfdbMaypole->config->pass("ZZZZZZZZZZZZ");
IsfdbMaypole->setup("dbi:mysql:test");
1;

Select or download this

#!/usr/bin/perl
use strict;
...
use lib qw(/home/hossman/.perllib/lib/perl5/site_perl);
use IsfdbMaypole;
IsfdbMaypole->run();

Select or download this

Can't locate object method "set_db" via package "IsfdbMaypole::People"
+ at /home/hossman/.perllib/lib/perl5/site_perl/5.8.5/Class/DBI/Loader
+/Generic.pm line 173.
Compilation failed in require at /home/hossman/public_html/maypole/ind
+ex.cgi line 5.
BEGIN failed--compilation aborted at /home/hossman/public_html/maypole
+/index.cgi line 5.