| line |
true |
false |
branch |
|
101
|
0 |
6 |
if $App::Dochazka::CLI::Commands::Employee::debug_mode |
|
105
|
6 |
0 |
if $ts eq 'PARSE_TEST' |
|
109
|
0 |
0 |
unless $status->ok |
|
124
|
0 |
0 |
if $App::Dochazka::CLI::Commands::Employee::debug_mode |
|
128
|
0 |
0 |
if $ts eq 'PARSE_TEST' |
|
132
|
0 |
0 |
if (my $spec = $th->{'EMPLOYEE_SPEC'}) { } |
|
142
|
0 |
0 |
unless $status->ok |
|
151
|
0 |
0 |
$emp->fullname ? : |
|
153
|
0 |
0 |
$emp->sec_id ? : |
|
155
|
0 |
0 |
if ($App::Dochazka::CLI::Commands::Employee::current_priv eq 'admin') |
|
158
|
0 |
0 |
if ($status->level eq 'OK' and $status->code eq 'DOCHAZKA_EMPLOYEE_MINIMAL') { } |
|
179
|
0 |
0 |
if $App::Dochazka::CLI::Commands::Employee::debug_mode |
|
183
|
0 |
0 |
if $ts eq 'PARSE_TEST' |
|
190
|
0 |
0 |
if ($status->level eq 'OK' and $status->code eq 'DOCHAZKA_CUD_OK') { } |
|
209
|
0 |
0 |
if $ts eq 'PARSE_TEST' |
|
212
|
0 |
0 |
($priv = $th->{'_TERM'}) ? : |
|
218
|
0 |
0 |
unless $status->ok |
|
236
|
0 |
0 |
if $ts eq 'PARSE_TEST' |
|
240
|
0 |
0 |
unless $status->ok |
|
245
|
0 |
0 |
$eid == $App::Dochazka::CLI::Commands::Employee::current_emp->eid ? : |
|
248
|
0 |
0 |
unless $status->ok |
|
252
|
0 |
0 |
$status->payload ? : |
|
270
|
2 |
0 |
if $ts eq 'PARSE_TEST' |
|
290
|
2 |
0 |
if $ts eq 'PARSE_TEST' |
|
310
|
2 |
0 |
if $ts eq 'PARSE_TEST' |
|
330
|
2 |
0 |
if $ts eq 'PARSE_TEST' |
|
353
|
0 |
0 |
if $ts eq 'PARSE_TEST' |
|
372
|
0 |
0 |
if $App::Dochazka::CLI::Commands::Employee::debug_mode |
|
376
|
0 |
0 |
if $ts eq 'PARSE_TEST' |
|
379
|
0 |
0 |
unless $status->ok |
|
399
|
0 |
0 |
if $App::Dochazka::CLI::Commands::Employee::debug_mode |
|
403
|
0 |
0 |
if $ts eq 'PARSE_TEST' |
|
407
|
0 |
0 |
unless $status->ok |
|
413
|
0 |
0 |
unless $status->ok |
|
421
|
0 |
0 |
unless $status->ok |
|
445
|
0 |
0 |
unless ref $emp eq 'App::Dochazka::REST::Model::Employee' |
|
446
|
0 |
0 |
unless $emp->eid and $emp->nick |
|
450
|
0 |
0 |
if ($status->not_ok) |
|
470
|
0 |
0 |
if (my $supervisor_eid = $emp->supervisor) |
|
472
|
0 |
0 |
if ($status->ok) { } |
|
492
|
0 |
0 |
if (my $e_spec = $PROPLIST{'emp_spec'}) { } |
|
|
0 |
0 |
elsif ($emp_obj = $PROPLIST{'emp_obj'}) { } |
|
494
|
0 |
0 |
unless $status->ok |
|
507
|
0 |
0 |
unless $status->ok |
|
536
|
0 |
0 |
unless ($newpass) |
|
548
|
0 |
0 |
unless $newpass eq $confirm |
|
555
|
0 |
0 |
unless $status->ok |
|
575
|
0 |
0 |
$emp->fullname ? : |
|
578
|
0 |
0 |
$emp->sec_id ? : |