Take a look at the embedded package in the OP code.
I'm saying that coded this way:
#! perl -sl
use strict;
use warnings;
X::test();
{
package X;
$FRED = 'fred';
sub test {
print 'This is package:', __PACKAGE__;
}
1;
}
The strict & warnings affect that embedded package: C:\test>perl -c test.pl
Global symbol "$FRED" requires explicit package name at test.pl line 1
+0.
test.pl had compilation errors.
But coded this way: #! perl -sl
{
package X;
$FRED = 'fred';
sub test {
print 'This is package:', __PACKAGE__;
}
1;
}
use strict;
use warnings;
X::test();
They do not: C:\test>perl -c test.pl
test.pl syntax OK
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
In the absence of evidence, opinion is indistinguishable from prejudice.
|