From 879e23c4370bce79027f602a077eea53bb23d6ed Mon Sep 17 00:00:00 2001 From: Paul Johnson Date: Thu, 25 Apr 2024 15:36:08 +0200 Subject: [PATCH] Update golden results --- test_output/cover/accessor.5.012000 | 17 +-- test_output/cover/alias1.5.012000 | 10 +- .../{cond_or.5.037005 => cond_or.5.038000} | 0 test_output/cover/dbm_cond.5.012000 | 105 ------------------ test_output/cover/dbm_cond.5.022000 | 105 ------------------ test_output/cover/module1.5.012000 | 16 +-- test_output/cover/module2.5.012000 | 16 +-- test_output/cover/module_import.5.012000 | 2 +- test_output/cover/module_relative.5.012000 | 2 +- test_output/cover/moo_cond.5.012000 | 77 ------------- test_output/cover/moo_cond.5.022000 | 77 ------------- test_output/cover/moose_basic.5.012000 | 47 -------- test_output/cover/moose_cond.5.012000 | 84 -------------- test_output/cover/moose_constraint.5.012000 | 66 ----------- test_output/cover/moose_constraint.5.016000 | 62 ----------- ...bool2.5.037001 => overload_bool2.5.038000} | 0 16 files changed, 32 insertions(+), 654 deletions(-) rename test_output/cover/{cond_or.5.037005 => cond_or.5.038000} (100%) delete mode 100644 test_output/cover/dbm_cond.5.012000 delete mode 100644 test_output/cover/dbm_cond.5.022000 delete mode 100644 test_output/cover/moo_cond.5.012000 delete mode 100644 test_output/cover/moo_cond.5.022000 delete mode 100644 test_output/cover/moose_basic.5.012000 delete mode 100644 test_output/cover/moose_cond.5.012000 delete mode 100644 test_output/cover/moose_constraint.5.012000 delete mode 100644 test_output/cover/moose_constraint.5.016000 rename test_output/cover/{overload_bool2.5.037001 => overload_bool2.5.038000} (100%) diff --git a/test_output/cover/accessor.5.012000 b/test_output/cover/accessor.5.012000 index c747e549..5a9e7f0f 100644 --- a/test_output/cover/accessor.5.012000 +++ b/test_output/cover/accessor.5.012000 @@ -20,15 +20,16 @@ tests/Accessor_maker.pm line err stmt bran cond sub code 1 package Accessor_maker; -2 sub import { -3 1 1 no strict 'refs'; +2 +3 sub import { +4 1 1 no strict 'refs'; 1 1 -4 4 4 *{ caller() . '::' . 'foo' } = sub { $_[0]->{ 'foo' } }; +5 4 4 *{ caller() . '::' . 'foo' } = sub { $_[0]->{'foo'} }; 1 1 1 -5 } -6 1; +6 } +7 1; Covered Subroutines @@ -36,9 +37,9 @@ Covered Subroutines Subroutine Count Location ---------- ----- ------------------------- -BEGIN 1 tests/Accessor_maker.pm:3 -__ANON__ 4 tests/Accessor_maker.pm:4 -import 1 tests/Accessor_maker.pm:4 +BEGIN 1 tests/Accessor_maker.pm:4 +__ANON__ 4 tests/Accessor_maker.pm:5 +import 1 tests/Accessor_maker.pm:5 tests/accessor diff --git a/test_output/cover/alias1.5.012000 b/test_output/cover/alias1.5.012000 index 265131a7..fc8b5335 100644 --- a/test_output/cover/alias1.5.012000 +++ b/test_output/cover/alias1.5.012000 @@ -39,14 +39,14 @@ line err stmt bran cond sub code 1 1 14 -15 our @ISA = qw(Exporter); +15 our @ISA = qw(Exporter); 16 our @EXPORT = qw(is_3digits); 17 18 sub is_3digits { -19 2 2 my $val = shift; -20 2 my $retval = undef; -21 2 100 $retval=1 if $val =~ /^\d{3}$/; -22 2 return $retval; +19 2 2 my $val = shift; +20 2 my $retval = undef; +21 2 100 $retval = 1 if $val =~ /^\d{3}$/; +22 2 return $retval; 23 } 24 25 1; diff --git a/test_output/cover/cond_or.5.037005 b/test_output/cover/cond_or.5.038000 similarity index 100% rename from test_output/cover/cond_or.5.037005 rename to test_output/cover/cond_or.5.038000 diff --git a/test_output/cover/dbm_cond.5.012000 b/test_output/cover/dbm_cond.5.012000 deleted file mode 100644 index 3a0d9233..00000000 --- a/test_output/cover/dbm_cond.5.012000 +++ /dev/null @@ -1,105 +0,0 @@ -Reading database from ... - - --------------- ------ ------ ------ ------ ------ -File stmt bran cond sub total --------------- ------ ------ ------ ------ ------ -tests/dbm_cond 100.0 100.0 n/a 100.0 100.0 -Total 100.0 100.0 n/a 100.0 100.0 --------------- ------ ------ ------ ------ ------ - - -Run: ... -Perl version: ... -OS: ... -Start: ... -Finish: ... - -tests/dbm_cond - -line err stmt bran cond sub code -1 #!/usr/bin/perl -2 -3 # Copyright 2012-2024, Paul Johnson (paul@pjcj.net) -4 -5 # This software is free. It is licensed under the same terms as Perl itself. -6 -7 # The latest version of this software should be available from my homepage: -8 # http://www.pjcj.net -9 -10 # __COVER__ skip_test $] < 5.008005 || !(eval "use DBM::Deep; 23") -11 # __COVER__ skip_reason DBM::Deep not available -12 -13 1 1 use strict; - 1 - 1 -14 1 1 use warnings; - 1 - 1 -15 -16 1 1 use Test::More; - 1 - 1 -17 -18 1 1 use DBM::Deep; - 1 - 1 -19 -20 1 my $db = DBM::Deep->new( "temp.db" ); -21 1 $db->{1} = 1; -22 -23 1 my $h = { 1 => 1 }; -24 -25 sub testdbm { -26 2 2 my ( $p ) = @_; -27 -28 2 100 if( exists $db->{$p} ) { -29 1 return "dbm: exists"; -30 } else { -31 1 return "dbm: does not exist"; -32 } -33 } -34 -35 sub testh { -36 2 2 my ( $p ) = @_; -37 -38 2 100 if( exists $h->{$p} ) { -39 1 return "h: exists"; -40 } else { -41 1 return "h: does not exist"; -42 } -43 } -44 -45 1 is( testdbm( 1 ), "dbm: exists", "key exists in dbm" ); -46 1 is( testdbm( 2 ), "dbm: does not exist", "key does not exist in dbm" ); -47 -48 1 is( testh( 1 ), "h: exists", "key exists in h" ); -49 1 is( testh( 2 ), "h: does not exist", "key does not exist in h" ); -50 -51 1 unlink "temp.db"; -52 -53 1 done_testing(); - - -Branches --------- - -line err % true false branch ------ --- ------ ------ ------ ------ -28 100 1 1 if (exists $$db{$p}) { } -38 100 1 1 if (exists $$h{$p}) { } - - -Covered Subroutines -------------------- - -Subroutine Count Location ----------- ----- ----------------- -BEGIN 1 tests/dbm_cond:13 -BEGIN 1 tests/dbm_cond:14 -BEGIN 1 tests/dbm_cond:16 -BEGIN 1 tests/dbm_cond:18 -testdbm 2 tests/dbm_cond:26 -testh 2 tests/dbm_cond:36 - - diff --git a/test_output/cover/dbm_cond.5.022000 b/test_output/cover/dbm_cond.5.022000 deleted file mode 100644 index 56478de3..00000000 --- a/test_output/cover/dbm_cond.5.022000 +++ /dev/null @@ -1,105 +0,0 @@ -Reading database from ... - - --------------- ------ ------ ------ ------ ------ -File stmt bran cond sub total --------------- ------ ------ ------ ------ ------ -tests/dbm_cond 100.0 100.0 n/a 100.0 100.0 -Total 100.0 100.0 n/a 100.0 100.0 --------------- ------ ------ ------ ------ ------ - - -Run: ... -Perl version: ... -OS: ... -Start: ... -Finish: ... - -tests/dbm_cond - -line err stmt bran cond sub code -1 #!/usr/bin/perl -2 -3 # Copyright 2012-2024, Paul Johnson (paul@pjcj.net) -4 -5 # This software is free. It is licensed under the same terms as Perl itself. -6 -7 # The latest version of this software should be available from my homepage: -8 # http://www.pjcj.net -9 -10 # __COVER__ skip_test $] < 5.008005 || !(eval "use DBM::Deep; 23") -11 # __COVER__ skip_reason DBM::Deep not available -12 -13 1 1 use strict; - 1 - 1 -14 1 1 use warnings; - 1 - 1 -15 -16 1 1 use Test::More; - 1 - 1 -17 -18 1 1 use DBM::Deep; - 1 - 1 -19 -20 1 my $db = DBM::Deep->new( "temp.db" ); -21 1 $db->{1} = 1; -22 -23 1 my $h = { 1 => 1 }; -24 -25 sub testdbm { -26 2 2 my ( $p ) = @_; -27 -28 2 100 if( exists $db->{$p} ) { -29 1 return "dbm: exists"; -30 } else { -31 1 return "dbm: does not exist"; -32 } -33 } -34 -35 sub testh { -36 2 2 my ( $p ) = @_; -37 -38 2 100 if( exists $h->{$p} ) { -39 1 return "h: exists"; -40 } else { -41 1 return "h: does not exist"; -42 } -43 } -44 -45 1 is( testdbm( 1 ), "dbm: exists", "key exists in dbm" ); -46 1 is( testdbm( 2 ), "dbm: does not exist", "key does not exist in dbm" ); -47 -48 1 is( testh( 1 ), "h: exists", "key exists in h" ); -49 1 is( testh( 2 ), "h: does not exist", "key does not exist in h" ); -50 -51 1 unlink "temp.db"; -52 -53 1 done_testing(); - - -Branches --------- - -line err % true false branch ------ --- ------ ------ ------ ------ -28 100 1 1 if (exists $db->{$p}) { } -38 100 1 1 if (exists $h->{$p}) { } - - -Covered Subroutines -------------------- - -Subroutine Count Location ----------- ----- ----------------- -BEGIN 1 tests/dbm_cond:13 -BEGIN 1 tests/dbm_cond:14 -BEGIN 1 tests/dbm_cond:16 -BEGIN 1 tests/dbm_cond:18 -testdbm 2 tests/dbm_cond:26 -testh 2 tests/dbm_cond:36 - - diff --git a/test_output/cover/module1.5.012000 b/test_output/cover/module1.5.012000 index 8253f6dd..69ef41fe 100644 --- a/test_output/cover/module1.5.012000 +++ b/test_output/cover/module1.5.012000 @@ -32,23 +32,23 @@ line err stmt bran cond sub code 11 $y++; 12 13 sub _aa { -14 *** *0 *0 $y++; -15 *** *0 die; -16 *** *0 die; +14 *** *0 *0 $y++; +15 *** *0 die; +16 *** *0 die; 17 } 18 19 sub xx { -20 *** *0 *0 $y++; -21 *** *0 die; +20 *** *0 *0 $y++; +21 *** *0 die; 22 } 23 24 sub yy { -25 *** *0 *0 $y++; +25 *** *0 *0 $y++; 26 } 27 28 sub zz { -29 11 11 my $x = shift; -30 11 $x++; +29 11 11 my $x = shift; +30 11 $x++; 31 } 32 33 1 diff --git a/test_output/cover/module2.5.012000 b/test_output/cover/module2.5.012000 index ae55224b..84febeff 100644 --- a/test_output/cover/module2.5.012000 +++ b/test_output/cover/module2.5.012000 @@ -32,23 +32,23 @@ line err stmt bran cond sub code 11 $y++; 12 13 sub _aa { -14 *** *0 *0 $y++; -15 *** *0 die; -16 *** *0 die; +14 *** *0 *0 $y++; +15 *** *0 die; +16 *** *0 die; 17 } 18 19 sub _xx { -20 *** *0 *0 $y++; -21 *** *0 die; +20 *** *0 *0 $y++; +21 *** *0 die; 22 } 23 24 sub yy { -25 *** *0 *0 $y++; +25 *** *0 *0 $y++; 26 } 27 28 sub zz { -29 11 11 my $x = shift; -30 11 $x++; +29 11 11 my $x = shift; +30 11 $x++; 31 } 32 33 1 diff --git a/test_output/cover/module_import.5.012000 b/test_output/cover/module_import.5.012000 index a6ff5c82..7e5d2904 100644 --- a/test_output/cover/module_import.5.012000 +++ b/test_output/cover/module_import.5.012000 @@ -29,7 +29,7 @@ line err stmt bran cond sub code 8 package Module_import; 9 10 sub import { -11 1 1 print "Module_import\n"; +11 1 1 print "Module_import\n"; 12 } 13 14 1 diff --git a/test_output/cover/module_relative.5.012000 b/test_output/cover/module_relative.5.012000 index bce869d3..489bba21 100644 --- a/test_output/cover/module_relative.5.012000 +++ b/test_output/cover/module_relative.5.012000 @@ -29,7 +29,7 @@ line err stmt bran cond sub code 8 package Module_import; 9 10 sub import { -11 1 1 print "Module_import\n"; +11 1 1 print "Module_import\n"; 12 } 13 14 1 diff --git a/test_output/cover/moo_cond.5.012000 b/test_output/cover/moo_cond.5.012000 deleted file mode 100644 index e900927a..00000000 --- a/test_output/cover/moo_cond.5.012000 +++ /dev/null @@ -1,77 +0,0 @@ -Reading database from ... - - --------------- ------ ------ ------ ------ ------ -File stmt bran cond sub total --------------- ------ ------ ------ ------ ------ -tests/moo_cond 100.0 100.0 n/a 100.0 100.0 -Total 100.0 100.0 n/a 100.0 100.0 --------------- ------ ------ ------ ------ ------ - - -Run: ... -Perl version: ... -OS: ... -Start: ... -Finish: ... - -tests/moo_cond - -line err stmt bran cond sub code -1 #!/usr/bin/perl -2 -3 # Copyright 2012-2024, Paul Johnson (paul@pjcj.net) -4 -5 # This software is free. It is licensed under the same terms as Perl itself. -6 -7 # The latest version of this software should be available from my homepage: -8 # http://www.pjcj.net -9 -10 # __COVER__ skip_test $] < 5.008002 || !(eval "use Moo 1.000003; 23") -11 # __COVER__ skip_reason Moo not available -12 -13 1 1 use strict; - 1 - 1 -14 1 1 use warnings; - 1 - 1 -15 -16 package Cover_branch_bug_Moo; -17 -18 1 1 use Moo; - 1 - 1 -19 -20 1 has config => ( is => 'lazy' ); -21 1 has config2 => ( is => 'ro' ); -22 -23 1 __PACKAGE__->new( config => {}, config2 => {} )->trigger; -24 1 __PACKAGE__->new( config => {debug => 1}, config2 => {debug => 1} )->trigger; -25 -26 sub trigger { -27 2 100 2 1 if $_[0]->config->{debug}; -28 2 100 1 if $_[0]->config2->{debug}; -29 } - - -Branches --------- - -line err % true false branch ------ --- ------ ------ ------ ------ -27 100 1 1 if $_[0]->config->{"debug"} -28 100 1 1 if $_[0]->config2->{"debug"} - - -Covered Subroutines -------------------- - -Subroutine Count Location ----------- ----- ----------------- -BEGIN 1 tests/moo_cond:13 -BEGIN 1 tests/moo_cond:14 -BEGIN 1 tests/moo_cond:18 -trigger 2 tests/moo_cond:27 - - diff --git a/test_output/cover/moo_cond.5.022000 b/test_output/cover/moo_cond.5.022000 deleted file mode 100644 index 00f4b57d..00000000 --- a/test_output/cover/moo_cond.5.022000 +++ /dev/null @@ -1,77 +0,0 @@ -Reading database from ... - - --------------- ------ ------ ------ ------ ------ -File stmt bran cond sub total --------------- ------ ------ ------ ------ ------ -tests/moo_cond 100.0 100.0 n/a 100.0 100.0 -Total 100.0 100.0 n/a 100.0 100.0 --------------- ------ ------ ------ ------ ------ - - -Run: ... -Perl version: ... -OS: ... -Start: ... -Finish: ... - -tests/moo_cond - -line err stmt bran cond sub code -1 #!/usr/bin/perl -2 -3 # Copyright 2012-2024, Paul Johnson (paul@pjcj.net) -4 -5 # This software is free. It is licensed under the same terms as Perl itself. -6 -7 # The latest version of this software should be available from my homepage: -8 # http://www.pjcj.net -9 -10 # __COVER__ skip_test $] < 5.008002 || !(eval "use Moo 1.000003; 23") -11 # __COVER__ skip_reason Moo not available -12 -13 1 1 use strict; - 1 - 1 -14 1 1 use warnings; - 1 - 1 -15 -16 package Cover_branch_bug_Moo; -17 -18 1 1 use Moo; - 1 - 1 -19 -20 1 has config => ( is => 'lazy' ); -21 1 has config2 => ( is => 'ro' ); -22 -23 1 __PACKAGE__->new( config => {}, config2 => {} )->trigger; -24 1 __PACKAGE__->new( config => {debug => 1}, config2 => {debug => 1} )->trigger; -25 -26 sub trigger { -27 2 100 2 1 if $_[0]->config->{debug}; -28 2 100 1 if $_[0]->config2->{debug}; -29 } - - -Branches --------- - -line err % true false branch ------ --- ------ ------ ------ ------ -27 100 1 1 if $_[0]->config->{'debug'} -28 100 1 1 if $_[0]->config2->{'debug'} - - -Covered Subroutines -------------------- - -Subroutine Count Location ----------- ----- ----------------- -BEGIN 1 tests/moo_cond:13 -BEGIN 1 tests/moo_cond:14 -BEGIN 1 tests/moo_cond:18 -trigger 2 tests/moo_cond:27 - - diff --git a/test_output/cover/moose_basic.5.012000 b/test_output/cover/moose_basic.5.012000 deleted file mode 100644 index 7eb83dd1..00000000 --- a/test_output/cover/moose_basic.5.012000 +++ /dev/null @@ -1,47 +0,0 @@ -Reading database from ... - - ------------------ ------ ------ ------ ------ ------ -File stmt bran cond sub total ------------------ ------ ------ ------ ------ ------ -tests/moose_basic 100.0 n/a n/a 100.0 100.0 -Total 100.0 n/a n/a 100.0 100.0 ------------------ ------ ------ ------ ------ ------ - - -Run: ... -Perl version: ... -OS: ... -Start: ... -Finish: ... - -tests/moose_basic - -line err stmt bran cond sub code -1 #!/usr/bin/perl -2 -3 # Copyright 2011-2024, Paul Johnson (paul@pjcj.net) -4 -5 # This software is free. It is licensed under the same terms as Perl itself. -6 -7 # The latest version of this software should be available from my homepage: -8 # http://www.pjcj.net -9 -10 # __COVER__ skip_test $] < 5.010 || !(eval "use Moose; 23") -11 # __COVER__ skip_reason Moose not available or unreliable with Devel::Cover -12 -13 package Foo; -14 1 1 use Moose; - 1 - 1 -15 1 __PACKAGE__->meta->make_immutable; - - -Covered Subroutines -------------------- - -Subroutine Count Location ----------- ----- -------------------- -BEGIN 1 tests/moose_basic:14 - - diff --git a/test_output/cover/moose_cond.5.012000 b/test_output/cover/moose_cond.5.012000 deleted file mode 100644 index f368079c..00000000 --- a/test_output/cover/moose_cond.5.012000 +++ /dev/null @@ -1,84 +0,0 @@ -Reading database from ... - - ----------------- ------ ------ ------ ------ ------ -File stmt bran cond sub total ----------------- ------ ------ ------ ------ ------ -tests/moose_cond 100.0 n/a 75.0 100.0 96.1 -Total 100.0 n/a 75.0 100.0 96.1 ----------------- ------ ------ ------ ------ ------ - - -Run: ... -Perl version: ... -OS: ... -Start: ... -Finish: ... - -tests/moose_cond - -line err stmt bran cond sub code -1 #!/usr/bin/perl -2 -3 # Copyright 2011-2024, Paul Johnson (paul@pjcj.net) -4 -5 # This software is free. It is licensed under the same terms as Perl itself. -6 -7 # The latest version of this software should be available from my homepage: -8 # http://www.pjcj.net -9 -10 # __COVER__ skip_test $] < 5.010 || !(eval "use Moose 2; 23") -11 # __COVER__ skip_reason Moose 2 not available or unreliable with Devel::Cover -12 -13 1 1 use strict; - 1 - 1 -14 1 1 use warnings; - 1 - 1 -15 -16 package Cover_branch_bug; -17 -18 1 1 use Moose; - 1 - 1 -19 1 has meep => ( isa => 'HashRef', is => 'rw' ); -20 -21 1 my $self = __PACKAGE__->new; -22 -23 1 $self->meep( { marp => 0 } ); -24 1 print "meep contains " . $self->wagh . "\n"; -25 -26 1 $self->meep( { marp => 1 } ); -27 1 print "meep contains " . $self->wagh . "\n"; -28 -29 sub wagh { -30 2 2 my ( $self ) = @_; -31 *** 2 * 50 my $x = $self || 0; -32 2 100 return $self->meep->{marp} || 0; -33 # return $self || 0; -34 } - - -Conditions ----------- - -or 2 conditions - -line err % l !l expr ------ --- ------ ------ ------ ---- -31 *** 50 2 0 $self || 0 -32 100 1 1 $self->meep->{'marp'} || 0 - - -Covered Subroutines -------------------- - -Subroutine Count Location ----------- ----- ------------------- -BEGIN 1 tests/moose_cond:13 -BEGIN 1 tests/moose_cond:14 -BEGIN 1 tests/moose_cond:18 -wagh 2 tests/moose_cond:30 - - diff --git a/test_output/cover/moose_constraint.5.012000 b/test_output/cover/moose_constraint.5.012000 deleted file mode 100644 index f48f8fb1..00000000 --- a/test_output/cover/moose_constraint.5.012000 +++ /dev/null @@ -1,66 +0,0 @@ -Reading database from ... - - ----------------------- ------ ------ ------ ------ ------ -File stmt bran cond sub total ----------------------- ------ ------ ------ ------ ------ -tests/moose_constraint 100.0 n/a n/a 100.0 100.0 -Total 100.0 n/a n/a 100.0 100.0 ----------------------- ------ ------ ------ ------ ------ - - -Run: ... -Perl version: ... -OS: ... -Start: ... -Finish: ... - -tests/moose_constraint - -line err stmt bran cond sub code -1 #!/usr/bin/perl -2 -3 # Copyright 2011-2024, Paul Johnson (paul@pjcj.net) -4 -5 # This software is free. It is licensed under the same terms as Perl itself. -6 -7 # The latest version of this software should be available from my homepage: -8 # http://www.pjcj.net -9 -10 # __COVER__ skip_test $] < 5.010 || !(eval "use Moose; 23") -11 # __COVER__ skip_reason Moose not available or unreliable with Devel::Cover -12 -13 1 1 use 5.010; - 1 1 - 1 - 1 - 1 -14 -15 package Foo; -16 -17 1 1 use Moose; - 1 - 1 -18 -19 1 has bar => ( -20 is => 'rw', -21 isa => 'Maybe[Str]', -22 ); -23 -24 package main; -25 -26 1 my $example = Foo->new(); -27 1 $example->bar('whatever'); -28 1 say $example->bar(); - - -Covered Subroutines -------------------- - -Subroutine Count Location ----------- ----- ------------------------- -BEGIN 1 tests/moose_constraint:13 -BEGIN 1 tests/moose_constraint:13 -BEGIN 1 tests/moose_constraint:17 - - diff --git a/test_output/cover/moose_constraint.5.016000 b/test_output/cover/moose_constraint.5.016000 deleted file mode 100644 index a42b3b6d..00000000 --- a/test_output/cover/moose_constraint.5.016000 +++ /dev/null @@ -1,62 +0,0 @@ -Reading database from ... - - ----------------------- ------ ------ ------ ------ ------ -File stmt bran cond sub total ----------------------- ------ ------ ------ ------ ------ -tests/moose_constraint 100.0 n/a n/a 100.0 100.0 -Total 100.0 n/a n/a 100.0 100.0 ----------------------- ------ ------ ------ ------ ------ - - -Run: ... -Perl version: ... -OS: ... -Start: ... -Finish: ... - -tests/moose_constraint - -line err stmt bran cond sub code -1 #!/usr/bin/perl -2 -3 # Copyright 2011-2024, Paul Johnson (paul@pjcj.net) -4 -5 # This software is free. It is licensed under the same terms as Perl itself. -6 -7 # The latest version of this software should be available from my homepage: -8 # http://www.pjcj.net -9 -10 # __COVER__ skip_test $] < 5.010 || !(eval "use Moose; 23") -11 # __COVER__ skip_reason Moose not available or unreliable with Devel::Cover -12 -13 1 1 use 5.010; - 1 -14 -15 package Foo; -16 -17 1 1 use Moose; - 1 - 1 -18 -19 1 has bar => ( -20 is => 'rw', -21 isa => 'Maybe[Str]', -22 ); -23 -24 package main; -25 -26 1 my $example = Foo->new(); -27 1 $example->bar('whatever'); -28 1 say $example->bar(); - - -Covered Subroutines -------------------- - -Subroutine Count Location ----------- ----- ------------------------- -BEGIN 1 tests/moose_constraint:13 -BEGIN 1 tests/moose_constraint:17 - - diff --git a/test_output/cover/overload_bool2.5.037001 b/test_output/cover/overload_bool2.5.038000 similarity index 100% rename from test_output/cover/overload_bool2.5.037001 rename to test_output/cover/overload_bool2.5.038000