File Coverage

blib/lib/App/JobLog/Command/done.pm

Criterion	Covered	Total	%
statement	9	18	50.0
branch	0	2	0.0
condition	0	3	0.0
subroutine	3	6	50.0
pod	3	3	100.0
total	15	32	46.8

package App::JobLog::Command::done;
$App::JobLog::Command::done::VERSION = '1.041';
# ABSTRACT: close last open event

use App::JobLog -command;
use Modern::Perl;
use Class::Autouse 'App::JobLog::Log';

sub execute {
    my ( $self, $opt, $args ) = @_;
    $self->simple_command_check($args);

    my $log = App::JobLog::Log->new;
    my ($last) = $log->last_event;
    if ( $last && $last->is_open ) {
        $log->append_event( done => 1 );
    }
    else {
        say 'No currently open event in log.';
    }
}

sub usage_desc { '%c ' . __PACKAGE__->name }

sub abstract { 'mark current task as done' }

1;

__END__