Branch Coverage

blib/lib/Dancer2/Plugin/WebService.pm
Criterion Covered Total %
branch 0 212 0.0


line true false branch
85 0 0 if $plugin->{'app'}{'config'}{'charset'} eq ''
98 0 0 unless __MKDIR($plugin->dir_session)
102 0 0 unless (-d $module_dir)
112 0 0 unless $plugin->config->{'Authentication method'}{$_}{'Active'} =~ /(?i)yes/
114 0 0 unless (-f $plugin->config->{'Authentication method'}{$_}{'Command'})
115 0 0 unless (-x $plugin->config->{'Authentication method'}{$_}{'Command'})
122 0 0 if ('' eq $plugin->Authentication_method)
131 0 0 unless opendir __SESSIONDIR, $_
134 0 0 if (-f "$_/$session")
136 0 0 if (-f "$_/$session/__clientip" and -f "$_/$session/__lastaccess" and -f "$_/$session/__logintime" and -f "$_/$session/__user") { }
139 0 0 if (time - $lastaccess > $plugin->config->{'Session idle timout'}) { }
146 0 0 unless Storable::lock_store(\time, "$_/$session/__lastaccess")
170 0 0 unless exists $plugin->config->{'Routes'}{$plugin->route_name}
173 0 0 unless ($plugin->from =~ $plugin->formats_regex)
174 0 0 unless ($plugin->to =~ $plugin->formats_regex)
179 0 0 if ($plugin->app->request->body)
183 0 0 if ($plugin->error)
187 0 0 if $plugin->error
195 0 0 defined $plugin->app->request->address ? :
0 0 defined $plugin->app->request->env->{'HTTP_X_REAL_IP'} ? :
197 0 0 if 'public' eq $plugin->config->{'Routes'}{$plugin->route_name}
202 0 0 unless (exists $plugin->data_user->{'SessionID'})
204 0 0 unless (-d $_)
207 0 0 if (time - $lastaccess > $plugin->config->{'Session idle timout'}) { }
233 0 0 if ($app->request->param('what') =~ /(?i)v/) { }
0 0 elsif ($app->request->param('what') =~ /(?i)cl/) { }
238 0 0 if (open FILE, '/etc/issue')
321 0 0 if ($plugin->ClientIP =~ /$plugin->rules_compiled->[$i]/)
329 0 0 if ($plugin->error)
335 0 0 unless (exists $plugin->data_user->{$_})
336 0 0 if ($plugin->data_user->{'user'} =~ /^\s*$/)
337 0 0 if ($plugin->data_user->{'password'} eq '')
338 0 0 if (0 == @{$plugin->groups;})
350 0 0 if $plugin->config->{'Authentication method'}{$plugin->Authentication_method}{'Use sudo'} =~ /(?i)y/
356 0 0 unless open SHELL, '-|', "$command 2> /dev/null"
362 0 0 if $plugin->auth_result
364 0 0 if ($plugin->auth_result) { }
365 0 0 if $plugin->auth_message eq ''
366 0 0 unless @{$plugin->auth_member_of;}
369 0 0 if $plugin->auth_message eq ''
373 0 0 $plugin->auth_result == 0 ? :
375 0 0 if $plugin->error
381 0 0 if (-e $plugin->dir_session . "/$SessionID")
387 0 0 unless (mkdir $plugin->dir_session . "/$SessionID")
477 0 0 if (not defined $obj->{'data_from'} or $obj->{'data_from'} =~ /^\s*$/)
485 0 0 if ($obj->{'from'} eq 'json') { }
0 0 elsif ($obj->{'from'} eq 'xml') { }
0 0 elsif ($obj->{'from'} eq 'yaml') { }
0 0 elsif ($obj->{'from'} eq 'perl') { }
0 0 elsif ($obj->{'from'} eq 'human') { }
493 0 0 unless @array
495 0 0 if (@array % 2 == 0) { }
503 0 0 1 == scalar @{$arrayref;} ? :
507 0 0 if ($@)
530 0 0 if ($obj->{'to'} eq 'json') { }
0 0 elsif ($obj->{'to'} eq 'xml') { }
0 0 elsif ($obj->{'to'} eq 'yaml') { }
0 0 elsif ($obj->{'to'} eq 'perl') { }
0 0 elsif ($obj->{'to'} eq 'human') { }
537 0 0 if ($@)
562 0 0 if (@_) { }
564 0 0 if (1 == @_) { }
566 0 0 if ('DATA_USER_SEND' eq $_[0] or 'DATA_USER_ALL' eq $_[0]) { }
570 0 0 exists $plugin->data_user->{$_[0]} ? :
580 0 0 exists $plugin->data_user->{'description'} ? :
583 0 0 if ($plugin->error)
587 0 0 if $plugin->error
612 0 0 if ('HASH' eq ref $_[0]) { }
0 0 elsif ('DATA_USER_ALL' eq $_[0]) { }
0 0 elsif ('DATA_USER_SEND' eq $_[0]) { }
629 0 0 if ($plugin->from eq $plugin->to) { }
650 0 0 unless @Mkdir
651 0 0 if $Mkdir[0] eq '' and scalar @Mkdir > 0
655 0 0 if -d join('/', @Mkdir[0 .. $i])
659 0 0 unless mkdir join('/', @Mkdir[0 .. $j])
671 0 0 if (-d $dir)
673 0 0 if ($exit_code)
687 0 0 if (@_) { }
688 0 0 exists $plugin->data_user->{$_} ? :
708 0 0 if (@_)
710 0 0 if (1 == @_ and 'HASH' eq ref $_[0])
732 0 0 if (@_) { }
735 0 0 if exists $plugin->data_user->{$_}
753 0 0 unless (exists $plugin->data_user->{'SessionID'})
756 0 0 unless (-d $dir)
760 0 0 if (@_) { }
764 0 0 unless (-f "$dir/$_")
766 0 0 if ($hash{$_} = Storable::retrieve("$dir/$_")) { }
768 0 0 if 'SCALAR' eq ref $hash{$_}
786 0 0 if -d "$dir/$_"
788 0 0 if ($hash{$_} = Storable::retrieve("$dir/$_")) { }
790 0 0 if 'SCALAR' eq ref $hash{$_}
818 0 0 unless (exists $plugin->data_user->{'SessionID'})
821 0 0 unless (-d $dir)
823 0 0 if (1 == @_ and 'HASH' eq ref $_[0])
828 0 0 unless ref $data
830 0 0 unless (Storable::lock_store($data, "$dir/$_[$i]"))
851 0 0 unless (exists $plugin->data_user->{'SessionID'})
854 0 0 unless (-d $dir)
856 0 0 if (@_) { }
859 0 0 if /^__logintime|__lastaccess|__user|__clientip$/
860 0 0 unless -f "$dir/$_"
861 0 0 unless (unlink "$dir/$_")
868 0 0 if /^__logintime|__lastaccess|__user|__clientip$/
869 0 0 unless -f "$dir/$_"
870 0 0 unless (unlink "$dir/$_")