#!perl -T
-package Dongs;
+package NotEmpty;
sub new;
skip "$_: $skip" => 8 if eval $skip;
{
+ local $_ = $_;
+ s/Pkg/Empty/g;
+
try "return; $prefix; use indirect; $_";
is $@, '', "use indirect: $_";
is @warns, 0, 'no reports';
{
local $_ = $_;
- s/Hlagh/Dongs/g;
+ s/Pkg/NotEmpty/g;
try "return; $prefix; use indirect; $_";
is $@, '', "use indirect, defined: $_";
__DATA__
-$obj = Hlagh->new;
+$obj = Pkg->new;
####
-$obj = Hlagh->new();
+$obj = Pkg->new();
####
-$obj = Hlagh->new(1);
+$obj = Pkg->new(1);
####
-$obj = Hlagh->new(q{foo}, bar => $obj);
+$obj = Pkg->new(q{foo}, bar => $obj);
####
-$obj = Hlagh -> new ;
+$obj = Pkg -> new ;
####
-$obj = Hlagh -> new ( ) ;
+$obj = Pkg -> new ( ) ;
####
-$obj = Hlagh -> new ( 1 ) ;
+$obj = Pkg -> new ( 1 ) ;
####
-$obj = Hlagh -> new ( 'foo' , bar => $obj );
+$obj = Pkg -> new ( 'foo' , bar => $obj );
####
-$obj = Hlagh
+$obj = Pkg
->
new ;
####
-$obj = Hlagh
+$obj = Pkg
->
new (
) ;
####
-$obj = Hlagh
+$obj = Pkg
-> new (
1 ) ;
####
-$obj = Hlagh ->
+$obj = Pkg ->
new ( "foo"
, bar
=> $obj );
####
$obj = newnew->new;
####
-$obj = Hlagh->$cb;
+$obj = Pkg->$cb;
####
-$obj = Hlagh->$cb();
+$obj = Pkg->$cb();
####
-$obj = Hlagh->$cb($pkg);
+$obj = Pkg->$cb($pkg);
####
-$obj = Hlagh->$cb(sub { 'foo' }, bar => $obj);
+$obj = Pkg->$cb(sub { 'foo' }, bar => $obj);
####
-$obj = Hlagh->$meth;
+$obj = Pkg->$meth;
####
-$obj = Hlagh
+$obj = Pkg
->
$meth ( 1, 2 );
####
####
print $y;
####
-print $y "dongs\n";
+print $y "hello thar\n";
#### "$]" < 5.010 # use feature 'state'; state $z
print $z;
#### "$]" < 5.010 # use feature 'state'; state $z
-print $z "hlagh\n";
+print $z "lolno\n";
####
print STDOUT "bananananananana\n";
####
####
$obj = "apple @{[$y->$meth]} pear"
#### # local $_ = "foo";
-s/foo/return; Hlagh->new/e;
+s/foo/return; Pkg->new/e;
#### # local $_ = "bar";
-s/foo/return; Hlagh->new/e;
+s/foo/return; Pkg->new/e;
#### # local $_ = "foo";
-s/foo/return; Hlagh->$cb/e;
+s/foo/return; Pkg->$cb/e;
#### # local $_ = "bar";
-s/foo/return; Hlagh->$cb/e;
+s/foo/return; Pkg->$cb/e;
#### # local $_ = "foo";
-s/foo/return; Hlagh->$meth/e;
+s/foo/return; Pkg->$meth/e;
#### # local $_ = "bar";
-s/foo/return; Hlagh->$meth/e;
+s/foo/return; Pkg->$meth/e;
#### # local $_ = "foo";
s/foo/return; $x->new/e;
#### # local $_ = "bar";
#### # local $_ = "bar";
s/foo/return; $y->$meth/e;
####
-"foo" =~ /(?{Hlagh->new})/;
+"foo" =~ /(?{Pkg->new})/;
####
-"foo" =~ /(?{Hlagh->$cb})/;
+"foo" =~ /(?{Pkg->$cb})/;
####
-"foo" =~ /(?{Hlagh->$meth})/;
+"foo" =~ /(?{Pkg->$meth})/;
####
"foo" =~ /(?{$x->new})/;
####
####
zap { zap { }; 1; };
####
-my @stuff = sort Hlagh
+my @stuff = sort Pkg
->new;
####
-my @stuff = sort Hlagh
+my @stuff = sort Pkg
->new;
####
-my @stuff = sort Hlagh
+my @stuff = sort Pkg
->new;
####
-my @stuff = sort Hlagh
+my @stuff = sort Pkg
->new;
####
-my @stuff = sort Hlagh
+my @stuff = sort Pkg
->new;
####
-my @stuff = sort Hlagh
+my @stuff = sort Pkg
->new;
####
-my @stuff = sort Hlagh
+my @stuff = sort Pkg
->new;
####
-my @stuff = sort Hlagh
+my @stuff = sort Pkg
->new;
####
sub {
#!perl -T
-package Dongs;
+package NotEmpty;
sub new;
SKIP:
{
- my ($code, $expected) = split /^-{4,}$/m, $_, 2;
- my @expected = expect($expected);
-
- skip "$_: $skip" => 3 * (4 + @expected) if eval $skip;
+ if (do { local $@; eval $skip }) {
+ my ($code, $expected) = split /^-{4,}$/m, $_, 2;
+ my @expected = expect($expected);
+ skip "$_: $skip" => 3 * (4 + @expected);
+ }
{
+ local $_ = $_;
+ s/Pkg/Empty/g;
+ my ($code, $expected) = split /^-{4,}$/m, $_, 2;
+ my @expected = expect($expected);
+
try "return; $prefix; use indirect; $code";
is $@, '', "use indirect: $code";
is @warns, 0, 'correct number of reports';
{
local $_ = $_;
- s/Hlagh/Dongs/g;
+ s/Pkg/NotEmpty/g;
my ($code, $expected) = split /^-{4,}$/m, $_, 2;
my @expected = expect($expected);
SKIP:
{
+ local $_ = $_;
+ s/Pkg/Empty/g;
+ my ($code, $expected) = split /^-{4,}$/m, $_, 2;
+ my @expected = expect($expected);
skip 'No space tests on perl 5.11' => 4 + @expected
if "$]" >= 5.011 and "$]" < 5.012;
- my $code = $code;
$code =~ s/\$/\$ \n\t /g;
try "return; $prefix; use indirect; $code";
my @warns;
{
local $SIG{__WARN__} = sub { push @warns, @_ };
- eval "return; no indirect 'hlagh'; \$obj = new Hlagh1;";
+ eval "return; no indirect 'whatever'; \$obj = new Pkg1;";
}
- is $@, '', 'no indirect "hlagh" didn\'t croak';
+ is $@, '', 'no indirect "whatever" didn\'t croak';
is @warns, 1, 'only one warning';
my $warn = shift @warns;
- like $warn, qr/^Indirect call of method "new" on object "Hlagh1"/,
- 'no indirect "hlagh" enables the pragma';
+ like $warn, qr/^Indirect call of method "new" on object "Pkg1"/,
+ 'no indirect "whatever" enables the pragma';
is_deeply \@warns, [ ], 'nothing more';
}
__DATA__
-$obj = new Hlagh;
+$obj = new Pkg;
----
-[ 'new', 'Hlagh' ]
+[ 'new', 'Pkg' ]
####
-$obj = new Hlagh if 0;
+$obj = new Pkg if 0;
----
-[ 'new', 'Hlagh' ]
+[ 'new', 'Pkg' ]
####
-$obj = new Hlagh();
+$obj = new Pkg();
----
-[ 'new', 'Hlagh' ]
+[ 'new', 'Pkg' ]
####
-$obj = new Hlagh(1);
+$obj = new Pkg(1);
----
-[ 'new', 'Hlagh' ]
+[ 'new', 'Pkg' ]
####
-$obj = new Hlagh(1, 2);
+$obj = new Pkg(1, 2);
----
-[ 'new', 'Hlagh' ]
+[ 'new', 'Pkg' ]
####
-$obj = new Hlagh ;
+$obj = new Pkg ;
----
-[ 'new', 'Hlagh' ]
+[ 'new', 'Pkg' ]
####
-$obj = new Hlagh ( ) ;
+$obj = new Pkg ( ) ;
----
-[ 'new', 'Hlagh' ]
+[ 'new', 'Pkg' ]
####
-$obj = new Hlagh ( 1 ) ;
+$obj = new Pkg ( 1 ) ;
----
-[ 'new', 'Hlagh' ]
+[ 'new', 'Pkg' ]
####
-$obj = new Hlagh ( 1 , 2 ) ;
+$obj = new Pkg ( 1 , 2 ) ;
----
-[ 'new', 'Hlagh' ]
+[ 'new', 'Pkg' ]
####
$obj = new
- Hlagh
+ Pkg
;
----
-[ 'new', 'Hlagh' ]
+[ 'new', 'Pkg' ]
####
$obj = new
- Hlagh (
+ Pkg (
) ;
----
-[ 'new', 'Hlagh' ]
+[ 'new', 'Pkg' ]
####
$obj =
new
- Hlagh ( 1
+ Pkg ( 1
) ;
----
-[ 'new', 'Hlagh' ]
+[ 'new', 'Pkg' ]
####
$obj =
new
-Hlagh
+Pkg
( 1 ,
2 ) ;
----
-[ 'new', 'Hlagh' ]
+[ 'new', 'Pkg' ]
####
$obj = new $x;
----
----
[ 'meh', '$sploosh::sploosh' ]
####
-new Hlagh->wut;
+new Pkg->wut;
----
-[ 'new', 'Hlagh' ]
+[ 'new', 'Pkg' ]
####
-new Hlagh->wut();
+new Pkg->wut();
----
-[ 'new', 'Hlagh' ]
+[ 'new', 'Pkg' ]
####
-new Hlagh->wut, "Wut";
+new Pkg->wut, "Wut";
----
-[ 'new', 'Hlagh' ]
+[ 'new', 'Pkg' ]
####
-$obj = HlaghHlagh Hlagh;
+$obj = PkgPkg Pkg;
----
-[ 'HlaghHlagh', 'Hlagh' ]
+[ 'PkgPkg', 'Pkg' ]
####
-$obj = HlaghHlagh Hlagh; # HlaghHlagh Hlagh
+$obj = PkgPkg Pkg; # PkgPkg Pkg
----
-[ 'HlaghHlagh', 'Hlagh' ]
+[ 'PkgPkg', 'Pkg' ]
####
$obj = new newnew;
----
----
[ 'feh', 'feh' ]
####
-new Hlagh (meh $x)
+new Pkg (meh $x)
----
-[ 'meh', '$x' ], [ 'new', 'Hlagh' ]
+[ 'meh', '$x' ], [ 'new', 'Pkg' ]
####
-Hlagh->new(meh $x)
+Pkg->new(meh $x)
----
[ 'meh', '$x' ]
####
-$obj = "apple ${\(new Hlagh)} pear"
+$obj = "apple ${\(new Pkg)} pear"
----
-[ 'new', 'Hlagh' ]
+[ 'new', 'Pkg' ]
####
-$obj = "apple @{[new Hlagh]} pear"
+$obj = "apple @{[new Pkg]} pear"
----
-[ 'new', 'Hlagh' ]
+[ 'new', 'Pkg' ]
####
$obj = "apple ${\(new $x)} pear"
----
----
[ 'stuff', '$y' ], [ 'new', '$x' ]
#### # local $_ = "foo";
-s/foo/return; new Hlagh/e;
+s/foo/return; new Pkg/e;
----
-[ 'new', 'Hlagh' ]
+[ 'new', 'Pkg' ]
#### # local $_ = "bar";
-s/foo/return; new Hlagh/e;
+s/foo/return; new Pkg/e;
----
-[ 'new', 'Hlagh' ]
+[ 'new', 'Pkg' ]
#### # local $_ = "foo";
s/foo/return; new $x/e;
----
----
[ 'new', '$y' ]
####
-"foo" =~ /(?{new Hlagh})/;
+"foo" =~ /(?{new Pkg})/;
----
-[ 'new', 'Hlagh' ]
+[ 'new', 'Pkg' ]
####
"foo" =~ /(?{new $x})/;
----
----
[ 'new', '$y' ]
####
-"foo" =~ /(??{new Hlagh})/;
+"foo" =~ /(??{new Pkg})/;
----
-[ 'new', 'Hlagh' ]
+[ 'new', 'Pkg' ]
####
"foo" =~ /(??{new $x})/;
----
----
[ 'meh', '{' ]
####
-meh { new Hlagh; 1; };
+meh { new Pkg; 1; };
----
-[ 'new', 'Hlagh' ], [ 'meh', '{' ]
+[ 'new', 'Pkg' ], [ 'meh', '{' ]
####
meh { feh $x; 1; };
----
[ 'feh', '$x' ], [ 'meh', '{' ]
####
-meh { feh $x; use indirect; new Hlagh; 1; };
+meh { feh $x; use indirect; new Pkg; 1; };
----
[ 'feh', '$x' ], [ 'meh', '{' ]
####
----
[ 'feh', '$y' ], [ 'meh', '{' ]
####
-meh { feh $x; 1; } new Hlagh, feh $y;
+meh { feh $x; 1; } new Pkg, feh $y;
----
-[ 'feh', '$x' ], [ 'new', 'Hlagh' ], [ 'feh', '$y' ], [ 'meh', '{' ]
+[ 'feh', '$x' ], [ 'new', 'Pkg' ], [ 'feh', '$y' ], [ 'meh', '{' ]
####
$obj = "apple @{[new { feh $x; meh $y; 1 }]} pear"
----
#!perl -T
-package Dongs;
+package NotEmpty;
sub new;
SKIP:
{
- skip "$_: $skip" => 9 if eval $skip;
+ skip "$_: $skip" => 9 if do { local $@; eval $skip };
{
+ local $_ = $_;
+ s/Pkg/Empty/g;
+
try "return; $prefix; use indirect; $_";
is $@, '', "use indirect: $_";
is @warns, 0, 'correct number of reports';
{
local $_ = $_;
- s/Hlagh/Dongs/g;
+ s/Pkg/NotEmpty/g;
try "return; $prefix; use indirect; $_";
is $@, '', "use indirect, defined: $_";
try "return; $prefix; no indirect; $_";
is $@, '', "use indirect, defined: $_";
is @warns, 1, 'correct number of reports';
- like $warns[0], qr/^Indirect call of method "meh" on object "Dongs" at \(eval \d+\) line \d+/, 'report 0 is correct';
+ like $warns[0], qr/^Indirect call of method "meh" on object "NotEmpty" at \(eval \d+\) line \d+/, 'report 0 is correct';
}
}
}
__DATA__
-meh Hlagh->new;
+meh Pkg->new;
####
-meh Hlagh->new();
+meh Pkg->new();
####
-meh Hlagh->new, "Wut";
+meh Pkg->new, "Wut";