Branch Coverage

blib/lib/LibZip/InitLib.pm
Criterion Covered Total %
branch 14 64 21.8


line true false branch
15 0 2 if not $INC{'LibZip/InitLib.pm'}
45 1 2 if $CALL_BEGIN
48 0 2 if (-d './lib')
62 0 0 unless ($@)
63 0 0 unless ($LIBZIP =~ m[^(?:\w+:/|/)])
68 0 0 unless ($LIBTMP =~ m[^(?:\w+:/|/)])
74 0 0 if ref $INC_i
75 0 0 if ($INC_i eq $LIBTMP) { }
0 0 elsif ($INC_i =~ m[^\Q$LIBTMP\E[\\/](.*)]) { }
82 0 0 unless ($FILETMP =~ m[^(?:\w+:/|/)])
87 0 0 unless ($^X =~ m[^(?:\w+:/|/)])
95 0 0 if (-d $fix_lib)
98 0 0 if ($^O =~ /(msw|win|dos)/i and not $^X =~ /\.exe$/ and -e "$^X.exe")
100 0 0 if (LibZip::lib_has_dynaLoader())
106 0 0 if defined &LibZip::check_pack_dep
115 0 0 if (ref $INC_i) { }
118 0 0 unless $inc_ok{$INC_i}++
138 0 24 if ($find_lib_i =~ m[[\\/]site$]i and $find_lib_i =~ /perl/)
140 0 0 unless (-d $tmp_lib)
141 0 0 if (-d $tmp_lib and -r $tmp_lib and -w $tmp_lib)
145 2 0 if ($libtmp eq '')
147 0 24 if ($find_lib_i =~ m[[\\/]lib$]i and $find_lib_i =~ /perl/)
149 0 0 unless (-d $tmp_lib)
150 0 0 if (-d $tmp_lib and -r $tmp_lib and -w $tmp_lib)
155 2 0 if ($libtmp eq '')
157 0 2 if (-d $tmp)
163 2 0 if ($libtmp eq '')
187 0 2 if (-e $file)
189 2 0 unless ($_[1])
202 2 0 unless @INC_ORG
206 0 2 unless ($^X =~ m[(?:^|[\\/])perl(?:\.\w+)?$]i)
211 0 0 if -d $exec_path