ok, never realized all subtitlies (quibbles?) of using.. and in the import of Modern::Perl there is something i dont understand but i can replicate.
While i suggest following wiser adivice you can play with:
package FirmaTest {
print "welcome to FirmaTest\n";
sub import
{
use feature ();
feature->import ('say');
}
use strict; #strictures are imported
# while warnings are not
#use warnings; seems not enough..
$^W=1; # but setting $^W seems ok!
$ENV{'FirmaTest'} = 1;#it works
use POSIX qw (strftime);
}
1;
It seems to do the right think you want (notice the windows quotation..):
perl -MFirmaTest -e " print qq(warnings: $^W\n); print qq(ENV: $ENV{'F
+irmaTest'}\n); say qw(saying: aa)
my $str = POSIX::strftime( '%B %d, %Y',0, 0, 0, 12, 11, 115, 2 );say
+qq(POSIX::strftime: $str) "
#output:
welcome to FirmaTest
warnings: 1
ENV: 1
saying:aa
POSIX::strftime: dicembre 12, 2015
HtH L*
There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.
|