my ($tests, $reports);
BEGIN {
- $tests = 60;
- $reports = 68;
+ $tests = 61;
+ $reports = 69;
}
use Test::More tests => 3 * (4 * $tests + $reports) + 2;
@warns = ();
{
- local $SIG{__WARN__} = sub { push @warns, join(' ', @_) };
+ local $SIG{__WARN__} = sub { push @warns, @_ };
eval $code;
}
}
----
[ 'new', 'Hlagh' ]
####
+$obj = new Hlagh if 0;
+----
+[ 'new', 'Hlagh' ]
+####
$obj = new Hlagh();
----
[ 'new', 'Hlagh' ]