Branch Coverage

blib/lib/App/Dochazka/CLI/Commands/Schedule.pm
Criterion Covered Total %
branch 22 98 22.4


line true false branch
128 0 0 if $App::Dochazka::CLI::Commands::Schedule::debug_mode
132 0 0 if $ts eq 'PARSE_TEST'
148 0 2 if $App::Dochazka::CLI::Commands::Schedule::debug_mode
152 2 0 if $ts eq 'PARSE_TEST'
167 0 3 if $App::Dochazka::CLI::Commands::Schedule::debug_mode
171 3 0 if $ts eq 'PARSE_TEST'
176 0 0 if (exists $$memsched{"$date_begin $time_begin"}) { }
178 0 0 unless grep {$_ eq "$date_end $time_end";} @{$$memsched{"$date_begin $time_begin"};}
183 0 0 if $App::Dochazka::CLI::Commands::Schedule::debug_mode
198 0 1 if $App::Dochazka::CLI::Commands::Schedule::debug_mode
202 1 0 if $ts eq 'PARSE_TEST'
220 0 1 if $App::Dochazka::CLI::Commands::Schedule::debug_mode
224 1 0 if $ts eq 'PARSE_TEST'
242 0 2 if $App::Dochazka::CLI::Commands::Schedule::debug_mode
246 2 0 if $ts eq 'PARSE_TEST'
249 0 0 $th->{'DISABLED'} ? :
251 0 0 if ($status->ok)
279 0 2 if $App::Dochazka::CLI::Commands::Schedule::debug_mode
283 2 0 if $ts eq 'PARSE_TEST'
287 0 0 if ($memsched_scode)
302 0 0 $pl ? :
317 0 1 if $App::Dochazka::CLI::Commands::Schedule::debug_mode
321 1 0 if $ts eq 'PARSE_TEST'
326 0 0 unless ($memsched)
338 0 0 if $memsched_scode
342 0 0 if ($status->ok)
345 0 0 if (my $http_status = $status->{'http_status'})
369 0 1 if $App::Dochazka::CLI::Commands::Schedule::debug_mode
373 1 0 if $ts eq 'PARSE_TEST'
389 0 2 if $App::Dochazka::CLI::Commands::Schedule::debug_mode
393 2 0 if $ts eq 'PARSE_TEST'
398 0 0 if ($key_spec =~ /^sco/iu) { }
0 0 elsif ($key_spec =~ /^sid/u) { }
403 0 0 defined $key_spec ? :
406 0 0 if ($status->ok)
423 0 2 if $App::Dochazka::CLI::Commands::Schedule::debug_mode
427 2 0 if $ts eq 'PARSE_TEST'
434 0 0 if ($key_spec =~ /^sco/iu) { }
0 0 elsif ($key_spec =~ /^sid/u) { }
443 0 0 defined $key_spec ? :
446 0 0 if ($status->level eq 'OK' and $status->code eq 'DOCHAZKA_CUD_OK')
462 0 2 if $App::Dochazka::CLI::Commands::Schedule::debug_mode
466 2 0 if $ts eq 'PARSE_TEST'
472 0 0 if ($key_spec =~ /^sco/iu) { }
0 0 elsif ($key_spec =~ /^sid/u) { }
481 0 0 defined $key_spec ? :
484 0 0 if ($status->level eq 'OK' and $status->code eq 'DOCHAZKA_CUD_OK')
509 0 0 if $App::Dochazka::CLI::Commands::Schedule::debug_mode
514 0 0 if ($th->{'_TIMERANGE'}) { }