This pragma usage is lexically scoped, too. Sent from my iPhone
On May 4, 2013, at 5:01 PM, Jordan Adler <[email protected]> wrote: > Design issues aside, > > no warnings 'once'; > > Sent from my iPhone > > On May 4, 2013, at 3:47 PM, "Greg London" <[email protected]> wrote: > >>> is there a way to suppress this warning from inside testpackage.pm somehow? >> >> I've tried a bunch of things and still haven't found a solution. >> >> Is this not possible to do in per? >> Or is it so obvious I can't see it? >> >> Greg >> >> >>> >>> package file testpackage.pm: >>> >>> package testpackage; >>> use warnings; >>> use strict; >>> use Data::Dumper; >>> use Exporter 'import'; >>> our @EXPORT = qw ( somesub ); >>> sub somesub{ >>> my ($name)=@_; >>> my @caller=caller(0); >>> my $package=$caller[0]; >>> my $evalstr = '$'.$package.'::'.$name.' = 42;'; >>> eval($evalstr); >>> } >>> 1; >>> >>> >>> script file testscript.pl: >>> >>> #!/usr/bin/env perl >>> use warnings; >>> use strict; >>> use testpackage; >>> somesub('tricky'); >>> print "hello, tricky is '$main::tricky'\n"; >>> >>> >>> When I run this script, I get the warning: >>> Name "main::tricky" used only once: possible typo at ./testscript.pl >>> >>> >>> is there a way to suppress this error from inside testpackage.pm somehow? >>> >>> >>> >>> >>> >>> >>> >>> >>> _______________________________________________ >>> Boston-pm mailing list >>> [email protected] >>> http://mail.pm.org/mailman/listinfo/boston-pm >> >> >> -- >> >> >> >> _______________________________________________ >> Boston-pm mailing list >> [email protected] >> http://mail.pm.org/mailman/listinfo/boston-pm _______________________________________________ Boston-pm mailing list [email protected] http://mail.pm.org/mailman/listinfo/boston-pm
