Branch Coverage

perllib/Arch/FileHighlighter.pm
Criterion Covered Total %
branch 31 56 55.3


line true false branch
27 0 0 -x '/usr/bin/enscript' ? :
48 0 6 unless defined $str
59 0 0 unless defined $str
73 3 3 unless defined $content
74 3 3 ref $content eq 'SCALAR' ? :
76 0 6 if -B $file_name
82 4 4 if ($filter =~ /(.*)\((.*)\)/)
85 0 8 /^(.+?)=(.*)$/ ? :
89 0 8 unless ($self->can($method))
94 6 2 if $html_ref
106 0 0 if ($content_ref)
109 0 0 unless $file_name =~ m[^(.*/|^)([^/]+)$]
115 0 0 unless $args{'mono'}
118 0 0 unless $html
121 0 0 unless $args{'asis'} or $html =~ /
124 0 0 $_ == 3 ? :
148 2 6 if $value and $file_name =~ /\.$ext(\.in)?$/i
162 2 3 if (%args)
163 0 2 if (exists $args{':xml'})
167 1 1 unless _match_file_extension $file_name, \%args
170 0 4 if $ENV{'DEBUG'} and ("$ENV{'DEBUG'}" & "\cA") ne "\000"
176 2 2 if ($file_name =~ /\.(ac|am|conf|m4|pl|pm|po|py|rb|sh|sql)$/ or $html =~ /^#!/)
179 0 4 if ($file_name =~ /\.(lisp|lsp|scm|scheme)$/)
182 2 2 if ($file_name =~ /\.(c|cc|cpp|cxx|c\+\+|h|hpp|idl|php|xpm|l|y)$/)
186 0 4 if ($file_name =~ /(^configure(\.ac)?|\.m4)$/)
191 0 4 if ($file_name =~ /\.($xml_extension_regexp)$/)
205 2 1 if (%args)
206 1 1 unless _match_file_extension $file_name, \%args