Branch Coverage

blib/lib/PerlPoint/Backend.pm
Criterion Covered Total %
branch 113 218 51.8


line true false branch
277 0 110 if @pars % 2
281 0 110 unless $class
282 0 110 unless exists $pars{'name'}
291 110 0 defined $pars{'trace'} ? :
292 110 0 defined $pars{'display'} ? :
293 0 110 defined $pars{'vispro'} && !($$me{'display'} & &DISPLAY_NOINFO) && !($$me{'trace'} > 0) && -t STDERR ? :
299 0 110 exists $pars{'generator'} ? :
434 0 686 unless $me
435 0 686 unless ref $me and ref $me eq 'PerlPoint::Backend'
436 0 686 unless defined $directive
437 0 686 unless $directive <= 24
438 0 686 unless $handler
439 0 686 unless ref $handler and ref $handler eq 'CODE'
442 0 686 if $$me{'trace'} & 32 and exists $$me{'handler'}{$directive}
446 0 686 if $$me{'trace'} & 32
505 0 41 unless $me
506 0 41 unless ref $me and ref $me eq 'PerlPoint::Backend'
507 0 41 unless $mode
508 0 41 unless $mode eq 2 or $mode eq 3
511 2 39 if (not defined $$me{'data'}) { }
38 1 elsif ($$me{'stream'} == 2 and $mode == 3) { }
1 0 elsif ($$me{'stream'} == 3 and $mode == 2) { }
0 0 elsif ($$me{'stream'} == $mode) { }
597 0 45 unless $me
598 0 45 unless ref $me and ref $me eq 'PerlPoint::Backend'
599 0 45 unless $stream
600 0 45 unless ref $stream and ref $stream eq 'ARRAY' and $$stream[0] eq '__PerlPoint_stream__'
603 0 45 unless $$me{'display'} & 1
615 2 3002 unless $me->_next($stream)
622 0 0 $$me{'vis'} ? :
0 45 unless $$me{'display'} & 1
679 0 102 unless $me
680 0 102 unless ref $me and ref $me eq 'PerlPoint::Backend'
683 0 102 unless defined $$me{'data'}
701 0 3661 if $$me{'flags'}{'_nextInvokation'} > 1
708 3478 183 if ($$me{'stream'} == 2 or $$me{'stream'} == 3 and $$me{'processingHeadline'}) { }
183 0 elsif ($$me{'stream'} == 3) { }
715 3 3475 if $$me{'streamControl'}{'tokenIndex'} == $#{$$stream[2];}
724 36 147 if $$me{'streamControl'}{'headlineIndex'} == $#{$$stream[3];}
742 0 3622 if ($$me{'hide'} or @{$$me{'ignoredDirectives'};})
745 0 0 if (ref $token)
749 0 0 if $$me{'hide'} and $$token[0]{'nr'} == $$me{'hide'}
750 0 0 if @{$$me{'ignoredDirectives'};} and $$token[0]{'nr'} == $$me{'ignoredDirectives'}[-1]
754 0 0 if $$me{'hide'}
758 1792 1830 if (not ref $token) { }
761 0 1792 if $$me{'trace'} & 32
764 1789 3 unless ($token eq '__DUMMY__TOKEN__')
767 1789 0 if (exists $$me{'handler'}{24}) { }
770 0 1789 if $$me{'trace'} & 32
773 0 1789 $$me{'generator'} ? :
778 0 0 if $$me{'trace'} & 32
788 0 1830 if $$me{'trace'} & 32
791 0 1830 if exists $$token[0]{'ignore'}
793 0 1830 if exists $$token[0]{'hide'}
797 492 1338 if ($$token[1] == 10)
799 250 242 if ($$token[2] == 1) { }
802 103 147 if $$me{'stream'} == 2
805 250 0 if $$token[1] == 10
808 0 250 if $$me{'vis'} and not $$me{'statistics'}{&DIRECTIVE_HEADLINE} % $$me{'vis'}
822 0 0 $$me{'generator'} ? :
0 1830 if exists $$me{'handler'}{0}
825 1764 66 if (exists $$me{'handler'}{$$token[1]}) { }
828 0 1764 if $$me{'trace'} & 32
831 0 1764 $$me{'generator'} ? :
836 0 66 if $$me{'trace'} & 32
894 0 123 unless $me
895 0 123 unless ref $me and ref $me eq 'PerlPoint::Backend'
896 0 123 unless $stream
897 0 123 unless ref $stream and ref $stream eq 'ARRAY' and $$stream[0] eq '__PerlPoint_stream__'
942 0 48 unless $me
943 0 48 unless ref $me and ref $me eq 'PerlPoint::Backend'
985 0 171 unless $me
986 0 171 unless ref $me and ref $me eq 'PerlPoint::Backend'
989 171 0 if defined $$me{'data'}
1030 0 57 unless $me
1031 0 57 unless ref $me and ref $me eq 'PerlPoint::Backend'
1032 0 57 unless defined $$me{'data'}
1033 0 57 unless $chapter
1034 0 57 unless $chapter =~ /^\d+$/
1035 0 57 unless $chapter > 0 and $chapter <= @{$$me{'data'}[3];}
1084 0 1 unless $me
1085 0 1 unless ref $me and ref $me eq 'PerlPoint::Backend'
1088 1 0 defined $$me{'data'} ? :
1126 0 0 unless $me
1127 0 0 unless ref $me and ref $me eq 'PerlPoint::Backend'
1128 0 0 unless $ids
1129 0 0 unless ref $ids and ref $ids eq 'ARRAY'
1132 0 0 unless defined $$me{'data'}
1141 0 0 unless $id =~ /^\d+$/ and $id > 0 and $id <= @{$$me{'data'}[3];}
1185 0 6 unless $me
1186 0 6 unless ref $me and ref $me eq 'PerlPoint::Backend'
1190 6 0 defined $$me{'data'} ? :
1244 0 41 unless $me
1245 0 41 unless ref $me and ref $me eq 'PerlPoint::Backend'
1246 0 41 unless defined $$me{'data'}
1247 0 41 if defined $start and not $start =~ /^\d+$/
1248 0 41 if defined $start and $start > @{$$me{'data'}[3];}
1249 0 41 if $depth and not $depth =~ /^\d+$/
1252 39 2 unless $start
1256 5 36 unless @{$$me{'data'}[3];} and $start < scalar @{$$me{'data'}[3];}
1262 2 34 $start ? :
1280 143 135 if ($mode == 1)
1283 2 141 if ($level <= $startupLevel) { }
6 135 elsif ($depth and $level > $startupLevel + $depth) { }
1292 0 6 if ($ccn == @{$$me{'data'}[3];}) { }
1364 0 1 unless $me
1365 0 1 unless ref $me and ref $me eq 'PerlPoint::Backend'
1366 0 1 unless defined $$me{'data'}
1372 1 0 wantarray ? :