Select Code to Download

#!/usr/bin/perl -w

...
    &testbaz ;
} ;
warn $@ if $@ ;

package Foo ;
use base qw(Class::DBI) ;
...
sub testfoo {
    print "It works\n" ;
}

package Goo ;
use base qw(Class::DBI) ;
...
}

1 ;

package Biz ;
use base qw(CGI) ;
...
}

1 ;

package Baz ;
use base qw(CGI) ;
...
}

1 ;

$ perl test.pl
It works
It works
Undefined subroutine &main::testbiz called at test.pl line 19.
It works

[mcdave@maia ~]$ uname -a
Linux maia 2.6.18-164.el5 #1 SMP Tue Aug 18 15:51:48 EDT 2009 x86_64 x
+86_64 x86_64 GNU/Linux
...
It works
Undefined subroutine &main::testbiz called at test.pl line 19.
It works

[mcdave@trowel ~]$ uname -a
Linux trowel 2.6.18-164.el5 #1 SMP Tue Aug 18 15:51:48 EDT 2009 x86_64
+ x86_64 x86_64 GNU/Linux
...
It works
Undefined subroutine &main::testbiz called at test.pl line 19.
It works