File Coverage

blib/lib/App/bif/work.pm

Criterion	Covered	Total	%
statement	18	45	40.0
branch	0	14	0.0
condition	0	6	0.0
subroutine	6	6	100.0
pod	1	1	100.0
total	25	72	34.7

package App::bif::work;
use strict;
use warnings;
use Bif::Mo;
use DBIx::ThinSQL qw/concat coalesce qv/;
use IO::Prompt::Tiny qw/prompt/;

our $VERSION = '0.1.5_5';
extends 'App::bif';

sub run {
    my $self = shift;
    my $opts = $self->opts;
    my $work = $self->current_work;
    my $dbw  = $self->dbw;

    # Nothing specified, just display the status
    if ( !exists $opts->{id} ) {
        if ($work) {
            printf "working %s %s %s (since %s)\n", $work->{kind},
              $work->{path},
              $self->s2hm( time - $work->{start} ),
              scalar localtime( $work->{start} );
            return $self->ok('Working');
        }
        print "Not currently working a node.\n";
        return $self->ok('NoWork');
    }

    my $epoch = $self->datetime2s( $opts->{at} );

    # Stop work
    if ( $opts->{id} eq '-' ) {

        # But only if we were actually working
        if ($work) {
            $self->stop_work(
                stop         => $epoch,
                stop_comment => $opts->{comment},
            );
            printf "stopped working %s %s after %s\n", $work->{kind},
              $work->{path},
              $self->s2hm( $epoch - $work->{start} );
            return $self->ok('StopWork');
        }

        print "Not currently working a node.\n";
        return $self->ok('NoWork');
    }

    # Check validity of ID
    my $info = $self->get_node( $opts->{id} );
    $opts->{id} = $info->{id};

    # Maybe complain if we are working something else
    if ($work) {
        return $self->err( 'WorkOther', "working %s %s [%s] since %s",
            $work->{kind}, $work->{node_id}, $work->{path},
            scalar localtime( $work->{start} ) )
          unless $opts->{force};

        $opts->{comment} ||= prompt( 'Comment:', '' );
        $self->stop_work( stop => $epoch - 1 );
        printf "stopped working %s %s after %s\n", $work->{kind},
          $work->{path},
          $self->s2hm( $epoch - $work->{start} );
    }
    else {
        $opts->{comment} ||= prompt( 'Comment:', '' );
    }

    # Finally, start the new work
    $self->start_work(
        node_id       => $info->{id},
        start         => $epoch,
        start_comment => $opts->{comment},
        billable      => $opts->{not_billable} ? 0 : 1,
    );

    $work = $self->current_work;

    printf "working %s %s since %s\n", $work->{kind},
      $work->{path},
      scalar localtime( $work->{start} );

    return $self->ok('StartWork');
}

1;
__END__