Hey guys,
Thanks for the reply but I managed to resolve this.
I removed '__END__' from the end of the code and it works fine. Not sure if this statement is supported on the ActivePerl version I'm using? Who knows.
Sorry guys,
Let me re-post the code in a more readable format:
package GUI::DB;
use strict;
use DBI;
use vars qw(@ISA @EXPORT);
use Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(dbConnect query);
# dbConnect - connect to the database, get the database handle
sub dbConnect {...
Hey everyone,
I am very new to Perl and I am having an issue with the following code:
**************************************************************
package GUI::DB;
use strict;
use DBI;
use vars qw(@ISA @EXPORT);
use Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(dbConnect query);
#...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.