Branch Coverage

blib/lib/App/DuckPAN/Perl.pm
Criterion Covered Total %
branch 3 48 6.2


line true false branch
32 0 2 unless eval { do { my $m = 'Module::Data'->new($module); $m->require; $v = $m->version; 1 } }
45 0 2 unless (defined $v)
46 0 0 if ($module eq 'App::DuckPAN' or $module eq 'DDG')
54 2 0 unless ref $v
75 0 0 if ($reinstall_latest eq 'reinstall') { }
0 0 elsif ($reinstall_latest eq 'latest') { }
88 0 0 unless $module
103 0 0 if $pinned_version
106 0 0 if ($installed_version == $self->app->dev_version)
112 0 0 if ($reinstall or $latest or not $installed_version) { }
0 0 elsif ($pinned_version) { }
0 0 elsif ($installed_version == $latest_version) { }
0 0 elsif ($installed_version > $latest_version) { }
116 0 0 unless $latest
119 0 0 if ($version != $latest_version)
120 0 0 unless ($duckpan_module_url = $self->find_previous_url($module, $version))
124 0 0 $reinstall ? :
130 0 0 if ($pinned_version != $installed_version) { }
133 0 0 if ($pinned_version == $latest_version or $duckpan_module_url = $self->find_previous_url($module, $pinned_version)) { }
142 0 0 $pinned_version == $latest_version ? :
159 0 0 if $install_it and not &first(sub { $_ eq $duckpan_module_url; } , @to_install)
162 0 0 if (@to_install)
163 0 0 if $reinstall
164 0 0 if (system "cpanm @to_install")