File Coverage

blib/lib/Taskwarrior/Kusarigama/Task.pm

Criterion	Covered	Total	%
statement	44	44	100.0
branch	7	10	70.0
condition	2	5	40.0
subroutine	11	11	100.0
pod	2	5	40.0
total	66	75	88.0

package Taskwarrior::Kusarigama::Task;
our $AUTHORITY = 'cpan:YANICK';
# ABSTRACT: per-task Taskwarrior::Kusarigama::Wrapper
$Taskwarrior::Kusarigama::Task::VERSION = '0.11.0';
use strict;

use experimental 'postderef';

use Clone;


sub new {
    my $class = shift;
    $class = ref $class if ref $class;

    my $data = pop;

    $data->{_wrapper} = shift if @_;

    bless $data, $class;
}

sub add_note {
    my ( $self, $note ) = @_;

    $self->{annotations} ||= [];

    require DateTime::Functions;
    my $now = DateTime::Functions::now();

    my $timestamp = $now->ymd("") . 'T' . $now->hms("") . "Z";

    push $self->{annotations}->@*, {
        entry => $timestamp,
        description => $note,
    };
}


sub clone {
    my $self = shift;

    my $cloned = Clone::clone($self);

    delete $cloned->{$_} for qw/ id uuid entry modified end urgency status /;

    return $self->new( $self->{_wrapper}, $cloned );
}

sub data {
    my $self = shift;
    require List::Util;
    return { List::Util::pairgrep( sub { $a !~ /^_/ }, %$self ) }
}

sub save {
    my $self = shift;

    my $new = $self->{_wrapper}->save($self->data);

    %$self = %$new;
    # delete $self->{$_} for keys %$self;
    # $self->{$_} = $new->{$_} for keys %$new;

    return  $self;
}


sub AUTOLOAD {
    my $self = shift;

    (my $meth = our $AUTOLOAD) =~ s/.+:://;
    return if $meth eq 'DESTROY';

    $meth =~ tr/_/-/;

    $self->{_wrapper} ||= Taskwarrior::Kusarigama::Wrapper->new;

    unshift @_, [] unless 'ARRAY' eq ref $_[0];

    use Carp;
    my $uuid = $self->{uuid}
        or croak "task doesn't have an uuid\n";

    push $_[0]->@*, { uuid => $uuid };

    return $self->{_wrapper}->RUN($meth, @_);
}


1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Taskwarrior::Kusarigama::Task - per-task Taskwarrior::Kusarigama::Wrapper

=head1 VERSION

version 0.11.0

=head1 SYNOPSIS

    use Taskwarrior::Kusarigama::Wrapper;
    use Taskwarrior::Kusarigama::Task;

    my $tw = Taskwarrior::Kusarigama::Wrapper->new;

    my ( $task ) = $tw->export;

    say $task->info;

=head1 DESCRIPTION

Thin wrapper around the task hashrefs that calls L<Taskwarrior::Kusarigama::Wrapper>.

Unless specified otherwise, the task must have
an C<uuid> to be acted upon.

=head1 METHODS

=head2 new

    my $task = Taskwarrior::Kusarigama::Task->new( \%data );

    my $task = Taskwarrior::Kusarigama::Task->new( $wrapper, \%data );

Constructor. Takes in a raw hashref of the task's
attributes as would be give by C<task export>, and
an optional C<$wrapper>, which is the
L<Taskwarrior::Kusarigama::Wrapper>
object to use. The wrapper object can also
be passed via a C<_wrapper> attribute.

    # equivalent to the two-argument 'new'
    my $task = Taskwarrior::Kusarigama::Task->new(
        { _wrapper => $wrapper, %data }
    );

=head2 clone

Clone the current task. All attributes are copied, except for
C<id>, C<uuid>, C<urgency>, C<status>, C<entry> and C<modified>.

=head1 AUTHOR

Yanick Champoux <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2018, 2017 by Yanick Champoux.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut