Branch Coverage

lib/App/TimeTracker/Command/Core.pm
Criterion Covered Total %
branch 36 110 32.7


line true false branch
23 1 4 unless ($self->has_current_project)
45 3 6 unless ($task)
46 3 0 if $dont_exit
69 1 5 if ($task->stop < $task->start)
77 1 0 if $what_you_meant > $task->start
79 1 0 if ($what_you_meant ne $task->start) { }
102 1 1 if (my $task = 'App::TimeTracker::Data::Task'->current($self->home)) { }
1 0 elsif (my $prev = 'App::TimeTracker::Data::Task'->previous($self->home)) { }
128 0 1 if (my $task = 'App::TimeTracker::Data::Task'->current($self->home)) { }
1 0 elsif (my $prev = 'App::TimeTracker::Data::Task'->previous($self->home)) { }
152 0 0 if (my $task = 'App::TimeTracker::Data::Task'->current($self->home)) { }
0 0 elsif (my $prev = 'App::TimeTracker::Data::Task'->previous($self->home)) { }
215 0 0 $self->output ? :
0 0 $self->detail ? :
231 0 0 if $fields{'project'}
232 0 0 if $fields{'tag'}
233 0 0 if $fields{'duration'}
234 0 0 if $fields{'start'}
235 0 0 if $fields{'stop'}
236 0 0 if $fields{'time'}
237 0 0 if $fields{'seconds'}
238 0 0 if $fields{'description'}
239 0 0 if $fields{'file'}
272 0 5 if ($time >= 28800)
280 0 5 if ($self->group eq 'week')
285 0 0 unless ($report->{$week_num}{'_start'})
295 5 0 if ($self->group eq 'project')
298 0 5 if (my $level = $self->detail)
301 0 0 if ($tags and @$tags) { }
312 0 0 if (my $desc = $detail->{'desc'})
317 0 0 if index($report->{$project}{$tags->[0]}{'desc'}, $desc) == -1
328 2 0 if ($self->group eq 'project')
339 0 3 if @ancestors
340 3 0 unless @ancestors
352 0 2 if ($self->group eq 'week')
381 0 3 if ($parent)
400 3 0 if $data->{'_total'}
401 0 3 if $data->{'_kids'}
402 0 3 unless $sum
411 0 3 if (my $detail = $self->detail)
414 0 0 if $data->{'_untagged'}
422 0 0 if ($detail eq 'description') { }
0 0 elsif ($detail eq 'tag') { }
444 0 0 unless (-e $file)
446 0 0 if ($+{'year'} and $+{'month'})
448 0 0 unless (-e $file)
468 0 2 if (-e $cwd->file('.tracker.json'))
486 2 0 if (-e $projects_file)
503 0 0 unless -f $file
504 0 0 if $file->basename eq 'Core.pm'
523 125 28 unless $method =~ /^cmd_/
530 0 2 if ($self->can('autocomplete') and $self->autocomplete) { }
709 3 3 if (my $last = $self->last) { }
3 0 elsif (my $this = $self->this) { }
723 6 0 if (my $date = $self->this || $self->last) { }