Branch Coverage

blib/lib/Pinto/Util.pm
Criterion Covered Total %
branch 43 78 55.1


line true false branch
77 42 67 if itis($error, 'Pinto::Exception')
93 6958 0 unless $ENV{'PINTO_DEBUG'}
95 0 0 if ref $it eq 'CODE'
108 0 10 if ($ENV{'DEBUG'})
147 103 0 if ($path =~ s[^ (?:.*/authors/id/)? (.*) $][$1]mx)
174 0 161 unless $file
175 0 161 unless -e $file
186 0 161 unless $file
187 0 161 unless -e $file
201 0 443 unless $file
202 0 443 unless -e $file
216 1 268 unless $prop_name =~ /$Pinto::Util::PINTO_PROPERTY_NAME_REGEX/
227 0 0 unless $stack_name =~ /$Pinto::Util::PINTO_STACK_NAME_REGEX/
238 4 515 if defined $Pinto::Globals::current_utc_time
250 1 75 if defined $Pinto::Globals::current_time_offset
265 76 9 if defined $Pinto::Globals::current_username
270 9 0 unless $username
281 20 0 if defined $Pinto::Globals::current_author_id
285 0 0 if $author_id
299 78 0 if defined $Pinto::Globals::is_interactive
333 12 2 $nl < 0 ? :
343 3 2 if $nl < 0 or $nl == length $string
353 0 2 unless $max_length
354 2 0 if length $string <= $max_length
356 0 0 unless defined $elipses
369 0 378 unless defined $string
382 0 3 unless $spaces
383 0 3 unless $string
399 0 253 unless symlink $to, $from
410 0 0 unless $string
428 5 1 unless $palette
439 0 74 unless $string
440 72 2 if $string =~ / \S /x
470 0 0 unless $uri
487 11 9 if (my $style = $ENV{'PINTO_DIFF_STYLE'})
489 0 11 unless DiffStyle()->check($style)
503 35 161 if itis($it, 'URI')
506 161 0 if itis($it, 'Path::Class::File')
509 0 0 if -e $it