package StringyEval;
use strict;
use warnings 'once';
sub foo {
my($unused_param) = @_;
my $unused_var;
eval q{ $unused_param++; $unused_var++ };
return;
}
1;
package StringyEval;
use strict;
use warnings 'once';
sub foo {
my($unused_param) = @_;
my $unused_var;
eval q{ $unused_param++; $unused_var++ };
return;
}
1;