Branch Coverage

blib/lib/Text/KwikiFormatish.pm
Criterion Covered Total %
branch 41 60 68.3


line true false branch
82 0 5 if exists $args{'prefix'}
148 6 6 if @_
154 0 168 unless $self->can($method)
157 0 977 if (ref $chunk eq 'ARRAY') { }
161 545 432 if (ref $chunk) { }
176 28 21 ref $chunk ? :
0 49 ref $chunk eq 'ARRAY' ? :
223 27 280 $i++ % 2 ? :
265 5 0 $self->_isa_function($method) ? :
272 5 0 if defined {map({$_, 1;} $self->user_functions)}->{$function}
289 20 0 if length $text
303 0 2 if ($datum =~ s/^<<(\S+)$//)
308 0 0 if ($line eq "$marker\n")
314 0 0 if (length $marker)
333 1 0 if @$_ > $cols
340 0 2 if ($i == $#{$row;} and $cols - $i > 1)
344 0 2 if $cell =~ /\n/
346 0 2 unless length $cell
444 1 1 if ($text =~ /^http.*\.(?i:jpg|gif|jpeg|png)$/) { }
490 0 1 $text =~ s/\.$// ? :
511 1 1 if $text =~ s/(.*?) +//
533 1 0 if ($text =~ /(.*)((?:https?|ftp|irc):.*)/)
641 2 13 if ($switch++ % 2)
647 1 3 $1 =~ /0/ ? :
648 2 2 if ($new_level > $level) { }
0 2 elsif ($new_level < $level) { }
692 16 5 unless ($switch++ % 2)
707 7 9 if $text =~ /^[\s\n]*$/
708 2 7 if $text =~ /^<(o|u)l>/i
828 1 1 @title ? :