Hi all
Im busy experimenting with perl modules, and I keep getting this message,
Undefined subroutine &main::labels called at /home/world/public_html/index.pl
Below is my code for my test index.pl, and below that is my module.
If someone would be kind as to overlook and share some tips, I would be most
grateful
Kind Regards
Brent Clark
-------------------------------------------------------------
#!/usr/bin/perl -w
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use header;
use body;
my $html = new CGI;
print $html->header();
print &world_header;
print &world_body_top;
print &labels;
print &world_footer;
exit;
-------------------------------------------------------------------
my modules code below
-------------------------------------------------------------------
package body;
BEGIN {
use Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
$VERSION = 0.1;
@ISA = qw(Exporter);
@EXPORT = qw(
$html
&world_body_top
&labels;
);
%EXPORT_TAGS = ();
@EXPORT_OK = qw();
use vars qw( $html );
}
use Carp 'croak';
use strict;
use CGI;
my $html = new CGI;
sub world_body_top {
return "HELLO";
}
sub labels {
return "hello";
}
1;
-------------------------------------------------
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
