Branch Coverage

blib/lib/App/Dochazka/REST/Shared.pm
Criterion Covered Total %
branch 0 138 0.0


line true false branch
144 0 0 if (uc $key eq 'AID') { }
0 0 elsif ($key eq 'code') { }
0 0 elsif (uc $key eq 'CID') { }
0 0 elsif ($key eq 'path') { }
0 0 elsif (uc $key eq 'EID') { }
0 0 elsif ($key eq 'nick') { }
0 0 elsif ($key eq 'sec_id') { }
0 0 elsif (uc $key eq 'IID') { }
0 0 elsif (uc $key eq 'LID') { }
0 0 elsif (uc $key eq 'PHID') { }
0 0 elsif (uc $key eq 'SHID') { }
0 0 elsif (uc $key eq 'SID') { }
0 0 elsif ($key eq 'scode') { }
187 0 0 if ($status->level eq 'NOTICE' and $status->code eq 'DISPATCH_NO_RECORDS_FOUND')
194 0 0 if ($status->not_ok)
216 0 0 unless ($entity)
222 0 0 if (ref $entity ne 'HASH')
229 0 0 unless ($entity->{$p})
251 0 0 unless (acl_check_is_my_report($d_obj, lc $key, $value) or acl_check_is_me($d_obj, lc $key, $value))
263 0 0 unless $emp
278 0 0 if ($pass == 1)
311 0 0 if (ref $over ne 'HASH')
316 0 0 if ($over == {})
327 0 0 if pre_update_comparison($emp, $over)
386 0 0 if exists $over->{'sid'}
387 0 0 if exists $over->{'schedule'}
388 0 0 if (pre_update_comparison($sched, $over))
414 0 0 if ($context->{'components'}[0] eq 'priv') { }
0 0 elsif ($context->{'components'}[0] eq 'schedule') { }
446 0 0 if (defined(my $nick = $mapping->{'nick'})) { }
0 0 elsif (defined(my $eid = $mapping->{'eid'})) { }
485 0 0 if ($pass == 1)
489 0 0 unless (acl_check_is_me($d_obj, lc $key, $value))
497 0 0 unless $emp
520 0 0 if (ref $return_value ne 'App::CELL::Status')
522 0 0 if ($return_value and $t eq 'schedule')
529 0 0 if ($ts) { }
530 0 0 unless ($return_value)
538 0 0 if ('PRIV' eq uc $t) { }
0 0 elsif ('SCHEDULE' eq uc $t) { }
555 0 0 unless ($return_value)
563 0 0 if ('PRIV' eq uc $t) { }
0 0 elsif ('SCHEDULE' eq uc $t) { }
601 0 0 unless (defined $this_emp)
602 0 0 if ($cp ne 'admin')
611 0 0 if ($cp eq 'admin') { }
614 0 0 if ($this_emp->eid == $context->{'current'}{'eid'})
640 0 0 if ($cp eq 'admin') { }
0 0 elsif ($cp =~ /^(inactive)|(active)$/i) { }
647 0 0 if exists $lut{$prop}
686 0 0 if exists $over->{'aid'}
687 0 0 if pre_update_comparison($act, $over)
708 0 0 if exists $over->{'cid'}
709 0 0 if (pre_update_comparison($comp, $over))
711 0 0 unless $status->level eq 'ERR' and $status->code eq 'DOCHAZKA_MALFORMED_400'
733 0 0 if exists $over->{'eid'}
734 0 0 if pre_update_comparison($obj, $over)
797 0 0 unless $status->level eq 'ERR' and $status->code eq 'DOCHAZKA_MALFORMED_400'
856 0 0 if ($intlock eq 'Interval') { }
0 0 elsif ($intlock eq 'Lock') { }
890 0 0 if ($class eq 'App::Dochazka::REST::Model::Interval') { }
0 0 elsif ($class eq 'App::Dochazka::REST::Model::Lock') { }
899 0 0 if exists $over->{$idv}
903 0 0 if pre_update_comparison($int, $over)
927 0 0 if ($t =~ /^$prop=/)
938 0 0 unless $status->ok
945 0 0 unless ($pl{$prop} =~ /$well_formed{$prop}/)
950 0 0 unless $status->ok
951 0 0 %pl ? :