Branch Coverage

blib/lib/MooX/Purple/G.pm
Criterion Covered Total %
branch 79 88 89.7


line true false branch
84 26 79 if ($lib) { }
89 26 0 if $makes{'class'}
201 9 2 unless $PREFIX
202 1 10 if ($args{'-author'})
208 1 10 if $args{'-version'}
210 4 7 $args{'-module'} ? :
235 0 11 unless ($lib)
248 5 72 unless (-d $path)
249 0 5 unless mkdir $path
260 0 26 unless open FH, '>', $f
302 1 3 if ($args{'pre'} eq '~') { }
1 2 elsif ($args{'pre'} eq '=') { }
335 3 21 $+{'array'} ? :
346 24 1 defined $hak->{'sub'} ? :
361 8 16 unless $spec[0]{'string'}
364 22 2 $spec[0]{'string'} =~ /[\'\"\s]+(ro|rw)[\'\"\s]+/ ? :
369 3 1 $spec[0]{'ident'} eq 'undef' ? :
4 20 if $spec[0]{'ident'}
370 9 15 $spec[0]{'hash'} ? :
371 22 2 if ($spec[0] and keys %{$spec[0];})
372 1 18 $spec[0]{'sub'} ? :
19 3 !$attrHash && $oc <= 3 ? :
373 4 18 if $spec[0]
381 16 3512 if $_
404 8 16 if ($h{'match'} =~ /=head1 NAME\n*([^\s]+)/)
412 18 8 unless ($POD{$class})
441 26 0 if ($POD{$class})
442 18 8 unless ($POD{$class}{'PARSED'})
540 32 5764 if $_
568 4 752 if $_
570 2 0 $attrs{'allow'} ? :
587 19 0 if ($args{'pod'})
598 11 8 if $args{'generate_pod'}
628 1 16 if ($_ =~ /\s*use\s*((?!qw)(?&PerlQualifiedIdentifier))\s*((?&PerlList)) $PPR::GRAMMAR/msx)
634 8 8 unless @list
640 16 96 if $attrs{$o}
647 2 24 if ($attrs{'allow'})
651 5 21 $attrs{'is'} ? :
657 6 8 unless ($l =~ s/^\s*\-/${last}::/)
660 2 12 if ($l =~ s/^\s*\~//)
661 2 0 $PREFIX ? :
665 6 20 $attrs{'with'} ? :
667 1 25 $attrs{'use'} ? :
694 0 26 if ($error)