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-2017, 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