Branch Coverage

blib/lib/Web/Passwd.pm
Criterion Covered Total %
branch 0 78 0.0


line true false branch
47 0 0 if (-e $self->param('act_config')->{'_'}{'tmpl_path'} . 'index.tmpl') { }
57 0 0 if ($key ne '_')
85 0 0 if (-e $self->param('act_config')->{'_'}{'tmpl_path'} . 'view.tmpl') { }
116 0 0 if (-d $self->param('act_config')->{'_'}{'tmpl_path'} . 'status.tmpl') { }
124 0 0 $mode eq 'deluser' ? :
0 0 $mode eq 'changepw' ? :
0 0 $mode eq 'adduser' ? :
130 0 0 $mode eq 'deluser' && $#users > 0 ? :
0 0 $mode eq 'deluser' && $#users == 0 ? :
0 0 $mode eq 'changepw' ? :
0 0 $mode eq 'adduser' ? :
160 0 0 if ($user_mode eq 'adduser' or $user_mode eq 'changepw')
161 0 0 if ($query_obj->param('pass') ne $query_obj->param('pass_confirm'))
171 0 0 if ($user_mode eq 'adduser' or $user_mode eq 'changepw') { }
0 0 elsif ($user_mode eq 'deluser') { }
203 0 0 unless (defined $conf_file)
208 0 0 -e "/etc/$CONFIG_FILENAME" ? :
0 0 -e "../$CONFIG_FILENAME" ? :
0 0 -e "./$CONFIG_FILENAME" ? :
214 0 0 unless (defined $conf_file)
220 0 0 unless my $config_obj = 'Config::Tiny'->read($conf_file)
223 0 0 unless (exists $$config_obj{'_'}{'htpasswd_command'})
229 0 0 unless (exists $$config_obj{'_'}{'tmpl_path'})
234 0 0 if (substr($$config_obj{'_'}{'tmpl_path'}, -1) ne '/')
239 0 0 if (not exists $$config_obj{'_'}{'form_method'} or uc $$config_obj{'_'}{'form_method'} ne 'GET')
246 0 0 if ($section ne '_')
249 0 0 if (not defined $file_path or $file_path =~ /\A\s*\z/ or not -e $file_path)
257 0 0 unless ($pass_alg =~ /\s*(?:crypt|md5|sha|plain)\s*/i)
277 0 0 unless open my $HTFILE, '<', $htfile
296 0 0 $algorithm eq 'crypt' ? :
0 0 $algorithm eq 'sha' ? :
0 0 $algorithm eq 'md5' ? :
0 0 $algorithm eq 'plain' ? :
311 0 0 if (system($command) != 0)
330 0 0 if (system($command) == 0) { }
336 0 0 unless open my $HTIN, '<', $htfile
344 0 0 if ($file[$ln] =~ /\A$user\:/)
351 0 0 unless open my $HTOUT, '>', $htfile
356 0 0 $deleted ? :