use strict;
use warnings;
-use Test::More;
+use Test::More 0.88;
use Devel::Declare ();
use strict;
use warnings;
-use Test::More;
+use Test::More 0.88;
sub method :lvalue {my $sv;}
}
-use Test::More;
+use Test::More 0.88;
my $o = DeclareTest->new(attr => "value");
use strict;
use warnings;
-use Test::More;
+use Test::More 0.88;
BEGIN {
if($] eq "5.011002") {
use strict;
use warnings;
-use Test::More;
+use Test::More 0.88;
sub method {
my ($usepack, $name, $inpack, $sub) = @_;
use strict;
use warnings;
-use Test::More;
+use Test::More 0.88;
use Devel::Declare::MethodInstaller::Simple;
BEGIN {
use strict;
use warnings;
-use Test::More;
+use Test::More 0.88;
my $Have_Devel_BeginLift;
BEGIN {
}
-use Test::More;
+use Test::More 0.88;
my $o = DeclareTest->new(attr => "value");
}
-use Test::More;
+use Test::More 0.88;
my $o = DeclareTest->new(attr => "value");
use strict;
use warnings;
use Devel::Declare ();
-use Test::More;
+use Test::More 0.88;
{
package FoomHandlers;
use strict;
use warnings;
-use Test::More;
+use Test::More 0.88;
our $i;
BEGIN { $i = 0 };
use strict;
use warnings;
-use Test::More;
+use Test::More 0.88;
sub class { $_[0]->(); }
use strict;
use warnings;
-use Test::More;
+use Test::More 0.88;
sub action (&) { return shift; }
use strict;
use warnings;
-use Test::More;
+use Test::More 0.88;
sub fun :lvalue { return my $sv; }
use strict;
use warnings;
-use Test::More;
+use Test::More 0.88;
sub method {
my ($usepack, $name, $inpack, $sub) = @_;
use strict;
use warnings;
use Devel::Declare ();
-use Test::More;
+use Test::More 0.88;
{
package FoomHandlers;
}
-use Test::More;
+use Test::More 0.88;
my $o = DeclareTest->new(attr => "value");