File Coverage

blib/lib/Net/Todoist.pm

Criterion	Covered	Total	%
statement	31	264	11.7
branch	5	228	2.1
condition	1	14	7.1
subroutine	8	31	25.8
pod	23	25	92.0
total	68	562	12.1

package Net::Todoist;
$Net::Todoist::VERSION = '0.06';

# ABSTRACT: interface to the API for Todoist (a to-do list service)

use strict;
use warnings;
use LWP::UserAgent;
use JSON::XS;
use Carp 'croak';
use vars qw/$errstr/;

sub new {
    my $class = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    unless ( $args->{ua} ) {
        my $ua_args = delete $args->{ua_args} || {};
        $args->{ua} = LWP::UserAgent->new(%$ua_args);
    }
    unless ( $args->{json} ) {
        $args->{json} = JSON::XS->new->utf8->allow_nonref;
    }

    bless $args, $class;
}

sub errstr { $errstr }

sub login {
    my ( $self, $email, $pass ) = @_;

    my $resp = $self->{ua}->post(
        'https://todoist.com/API/login',
        [
            email    => $email,
            password => $pass
        ]
    );
    unless ( $resp->is_success ) {
        $errstr = $resp->status_line;
        return;
    }
    if ( $resp->content =~ 'LOGIN_ERROR' ) {
        $errstr = $resp->content;
        return;
    }

    my $data = $self->{json}->decode( $resp->content );
    $self->{token} = $data->{api_token};
    return $data;
}

sub getTimezones {
    my ($self) = @_;

    my $resp = $self->{ua}->get('http://todoist.com/API/getTimezones');
    unless ( $resp->is_success ) {
        $errstr = $resp->status_line;
        return;
    }

    my $data = $self->{json}->decode( $resp->content );
    return wantarray ? @$data : $data;
}

sub register {
    my $self = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    my $resp = $self->{ua}->post(
        'https://todoist.com/API/register',
        [
            email     => $args->{email},
            full_name => $args->{full_name},
            password  => $args->{password} || $args->{pass},
            timezone  => $args->{timezone}
        ]
    );
    unless ( $resp->is_success ) {
        $errstr = $resp->status_line;
        return;
    }
    unless ( $resp->content =~ 'api_token' ) {
        $errstr = $resp->content;
        return;
    }

    my $data = $self->{json}->decode( $resp->content );
    $self->{token} = $data->{api_token};
    return $data;
}

sub updateUser {
    my $self = shift;

    # validate
    defined $self->{token}
      or croak
      'token must be passed to ->new, or call ->login, ->register before this.';

    my $args = scalar @_ % 2 ? shift : {@_};

    my $resp = $self->{ua}->post(
        'https://todoist.com/API/updateUser',
        [
            token     => $self->{token},
            email     => $args->{email},
            full_name => $args->{full_name},
            password  => $args->{password} || $args->{pass},
            timezone  => $args->{timezone}
        ]
    );
    unless ( $resp->is_success ) {
        $errstr = $resp->status_line;
        return;
    }
    unless ( $resp->content =~ 'api_token' ) {
        $errstr = $resp->content;
        return;
    }

    my $data = $self->{json}->decode( $resp->content );
    return $data;
}

sub getProjects {
    my $self = shift;

    # validate
    defined $self->{token}
      or croak
      'token must be passed to ->new, or call ->login, ->register before this.';

    my $resp = $self->{ua}
      ->get("http://todoist.com/API/getProjects?token=$self->{token}");
    unless ( $resp->is_success ) {
        $errstr = $resp->status_line;
        return;
    }

    my $data = $self->{json}->decode( $resp->content );
    return wantarray ? @$data : $data;
}

sub getProject {
    my ( $self, $project_id ) = @_;

    # validate
    defined $self->{token}
      or croak
      'token must be passed to ->new, or call ->login, ->register before this.';

    my $resp =
      $self->{ua}->get(
"http://todoist.com/API/getProject?token=$self->{token}&project_id=$project_id"
      );
    unless ( $resp->is_success ) {
        $errstr = $resp->status_line;
        return;
    }

    my $data = $self->{json}->decode( $resp->content );
    return $data;
}

sub addProject {
    my $self = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    # validate
    defined $self->{token}
      or croak
      'token must be passed to ->new, or call ->login, ->register before this.';
    defined $args->{name} or croak 'name is required.';

    my $resp = $self->{ua}->post(
        'https://todoist.com/API/addProject',
        [
            token => $self->{token},
            name  => $args->{name},
            $args->{color}  ? ( color  => $args->{color} )  : (),
            $args->{indent} ? ( indent => $args->{indent} ) : (),
            $args->{order}  ? ( order  => $args->{order} )  : (),
        ]
    );
    unless ( $resp->is_success ) {
        $errstr = $resp->status_line;
        return;
    }
    if ( $resp->content =~ 'ERROR_NAME_IS_EMPTY' ) {
        $errstr = $resp->content;
        return;
    }

    my $data = $self->{json}->decode( $resp->content );
    return $data;
}

sub updateProject {
    my $self = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    # validate
    defined $self->{token}
      or croak
      'token must be passed to ->new, or call ->login, ->register before this.';
    defined $args->{project_id} or croak 'project_id is required.';

    my $resp = $self->{ua}->post(
        'https://todoist.com/API/updateProject',
        [
            token      => $self->{token},
            project_id => $args->{project_id},
            $args->{name}   ? ( order  => $args->{name} )   : (),
            $args->{color}  ? ( color  => $args->{color} )  : (),
            $args->{indent} ? ( indent => $args->{indent} ) : (),
        ]
    );
    unless ( $resp->is_success ) {
        $errstr = $resp->status_line;
        return;
    }
    if ( $resp->content =~ 'ERROR_PROJECT_NOT_FOUND' ) {
        $errstr = $resp->content;
        return;
    }

    my $data = $self->{json}->decode( $resp->content );
    return $data;
}

sub deleteProject {
    my ( $self, $project_id ) = @_;

    # validate
    defined $self->{token}
      or croak
      'token must be passed to ->new, or call ->login, ->register before this.';

    my $resp =
      $self->{ua}->get(
"http://todoist.com/API/deleteProject?token=$self->{token}&project_id=$project_id"
      );
    unless ( $resp->is_success ) {
        $errstr = $resp->status_line;
        return;
    }

    return ( $resp->content =~ /ok/i ) ? 1 : 0;
}

sub getLabels {
    my $self = shift;

    # validate
    defined $self->{token}
      or croak
      'token must be passed to ->new, or call ->login, ->register before this.';

    my $resp =
      $self->{ua}->get("http://todoist.com/API/getLabels?token=$self->{token}");
    unless ( $resp->is_success ) {
        $errstr = $resp->status_line;
        return;
    }

    my $data = $self->{json}->decode( $resp->content );
    return wantarray ? @$data : $data;
}

sub updateLabel {
    my $self = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    # validate
    defined $self->{token}
      or croak
      'token must be passed to ->new, or call ->login, ->register before this.';
    defined $args->{old_name} or croak 'old_name is required.';
    defined $args->{new_name} or croak 'new_name is required.';

    my $resp = $self->{ua}->post(
        'https://todoist.com/API/updateLabel',
        [
            token    => $self->{token},
            old_name => $args->{old_name},
            new_name => $args->{new_name},
        ]
    );
    unless ( $resp->is_success ) {
        $errstr = $resp->status_line;
        return;
    }

    return ( $resp->content =~ /ok/i ) ? 1 : 0;
}

sub deleteLabel {
    my ( $self, $name ) = @_;

    # validate
    defined $self->{token}
      or croak
      'token must be passed to ->new, or call ->login, ->register before this.';

    my $resp = $self->{ua}->get(
        "http://todoist.com/API/deleteLabel?token=$self->{token}&name=$name");
    unless ( $resp->is_success ) {
        $errstr = $resp->status_line;
        return;
    }

    return ( $resp->content =~ /ok/i ) ? 1 : 0;
}

sub getUncompletedItems {
    my ( $self, $project_id, $js_date ) = @_;

    # validate
    defined $self->{token}
      or croak
      'token must be passed to ->new, or call ->login, ->register before this.';

    my $url =
"http://todoist.com/API/getUncompletedItems?token=$self->{token}&project_id=$project_id";
    $url .= '&js_date=1' if $js_date;
    my $resp = $self->{ua}->get($url);
    unless ( $resp->is_success ) {
        $errstr = $resp->status_line;
        return;
    }

    my $data = $self->{json}->decode( $resp->content );
    return wantarray ? @$data : $data;
}

sub getCompletedItems {
    my ( $self, $project_id, $js_date ) = @_;

    # validate
    defined $self->{token}
      or croak
      'token must be passed to ->new, or call ->login, ->register before this.';

    my $url =
"http://todoist.com/API/getCompletedItems?token=$self->{token}&project_id=$project_id";
    $url .= '&js_date=1' if $js_date;
    my $resp = $self->{ua}->get($url);
    unless ( $resp->is_success ) {
        $errstr = $resp->status_line;
        return;
    }

    my $data = $self->{json}->decode( $resp->content );
    return wantarray ? @$data : $data;
}

sub getItemsById {
    my ( $self, $item_ids, $js_date ) = @_;

    # validate
    defined $self->{token}
      or croak
      'token must be passed to ->new, or call ->login, ->register before this.';

    $item_ids = [$item_ids] unless ref $item_ids eq 'ARRAY';

    my $url = "http://todoist.com/API/getItemsById?token=$self->{token}&ids="
      . join( ',', @$item_ids );
    $url .= '&js_date=1' if $js_date;
    my $resp = $self->{ua}->get($url);
    unless ( $resp->is_success ) {
        $errstr = $resp->status_line;
        return;
    }

    my $data = $self->{json}->decode( $resp->content );
    return wantarray ? @$data : $data;
}

sub addItem {
    my $self = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    # validate
    defined $self->{token}
      or croak
      'token must be passed to ->new, or call ->login, ->register before this.';
    defined $args->{project_id} or croak 'project_id is required.';
    defined $args->{content}    or croak 'content is required.';

    my $resp = $self->{ua}->post(
        'https://todoist.com/API/addItem',
        [
            token      => $self->{token},
            project_id => $args->{project_id},
            content    => $args->{content},
            $args->{date_string} ? ( date_string => $args->{date_string} ) : (),
            $args->{priority}    ? ( priority    => $args->{priority} )    : (),
            $args->{js_date}     ? ( js_date     => $args->{js_date} )     : (),
        ]
    );
    unless ( $resp->is_success ) {
        $errstr = $resp->status_line;
        return;
    }
    unless ( $resp->content =~ 'id' ) {
        $errstr = $resp->content;
        return;
    }

    my $data = $self->{json}->decode( $resp->content );
    return $data;
}

sub updateItem {
    my $self = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    # validate
    defined $self->{token}
      or croak
      'token must be passed to ->new, or call ->login, ->register before this.';
    defined $args->{id} or croak 'id is required.';

    my $resp = $self->{ua}->post(
        'https://todoist.com/API/updateItem',
        [
            token => $self->{token},
            id    => $args->{id},
            $args->{content}     ? ( content     => $args->{content} )     : (),
            $args->{date_string} ? ( date_string => $args->{date_string} ) : (),
            $args->{priority}    ? ( priority    => $args->{priority} )    : (),
            $args->{indent}      ? ( indent      => $args->{indent} )      : (),
            $args->{item_order}  ? ( item_order  => $args->{item_order} )  : (),
            $args->{js_date}     ? ( js_date     => $args->{js_date} )     : (),
        ]
    );
    unless ( $resp->is_success ) {
        $errstr = $resp->status_line;
        return;
    }
    unless ( $resp->content =~ 'id' ) {
        $errstr = $resp->content;
        return;
    }

    my $data = $self->{json}->decode( $resp->content );
    return $data;
}

sub updateOrders {
    my ( $self, $project_id, $item_ids ) = @_;

    # validate
    defined $self->{token}
      or croak
      'token must be passed to ->new, or call ->login, ->register before this.';
    defined $project_id or croak 'project_id is required.';

    $item_ids = [$item_ids] unless ref $item_ids eq 'ARRAY';

    my $url =
"http://todoist.com/API/updateOrders?token=$self->{token}&project_id=$project_id&item_id_list=["
      . join( ',', @$item_ids ) . ']';
    my $resp = $self->{ua}->get($url);
    unless ( $resp->is_success ) {
        $errstr = $resp->status_line;
        return;
    }

    return ( $resp->content =~ /ok/i ) ? 1 : 0;
}

sub updateRecurringDate {
    my ( $self, $item_ids, $js_date ) = @_;

    # validate
    defined $self->{token}
      or croak
      'token must be passed to ->new, or call ->login, ->register before this.';

    $item_ids = [$item_ids] unless ref $item_ids eq 'ARRAY';

    my $url =
      "http://todoist.com/API/updateRecurringDate?token=$self->{token}&ids=["
      . join( ',', @$item_ids ) . ']';
    $url .= '&js_date=1' if $js_date;
    my $resp = $self->{ua}->get($url);
    unless ( $resp->is_success ) {
        $errstr = $resp->status_line;
        return;
    }

    my $data = $self->{json}->decode( $resp->content );
    return wantarray ? @$data : $data;
}

sub deleteItems {
    my ( $self, @item_ids ) = @_;

    # validate
    defined $self->{token}
      or croak
      'token must be passed to ->new, or call ->login, ->register before this.';
    @item_ids = @{ $item_ids[0] }
      if scalar(@item_ids) == 1 and ref $item_ids[0] eq 'ARRAY';

    my $url = "http://todoist.com/API/deleteItems?token=$self->{token}&ids=["
      . join( ',', @item_ids ) . ']';
    my $resp = $self->{ua}->get($url);
    unless ( $resp->is_success ) {
        $errstr = $resp->status_line;
        return;
    }

    return ( $resp->content =~ /ok/i ) ? 1 : 0;
}

sub completeItems {
    my ( $self, $item_ids, $in_history ) = @_;

    # validate
    defined $self->{token}
      or croak
      'token must be passed to ->new, or call ->login, ->register before this.';
    $item_ids = [$item_ids] unless ref $item_ids eq 'ARRAY';

    my $url = "http://todoist.com/API/completeItems?token=$self->{token}&ids=["
      . join( ',', @$item_ids ) . ']';
    $url .= '&in_history=1' if $in_history;
    my $resp = $self->{ua}->get($url);
    unless ( $resp->is_success ) {
        $errstr = $resp->status_line;
        return;
    }

    return ( $resp->content =~ /ok/i ) ? 1 : 0;
}

sub uncompleteItems {
    my ( $self, @item_ids ) = @_;

    # validate
    defined $self->{token}
      or croak
      'token must be passed to ->new, or call ->login, ->register before this.';
    @item_ids = @{ $item_ids[0] }
      if scalar(@item_ids) == 1 and ref $item_ids[0] eq 'ARRAY';

    my $url =
      "http://todoist.com/API/uncompleteItems?token=$self->{token}&ids=["
      . join( ',', @item_ids ) . ']';
    my $resp = $self->{ua}->get($url);
    unless ( $resp->is_success ) {
        $errstr = $resp->status_line;
        return;
    }

    return ( $resp->content =~ /ok/i ) ? 1 : 0;
}

sub query {
    my $self = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    # validate
    defined $self->{token}
      or croak
      'token must be passed to ->new, or call ->login, ->register before this.';
    defined $args->{queries} or croak 'queries is required.';
    my $queries = $args->{queries};
    $queries = [$queries] unless ref $queries eq 'ARRAY';

    my $resp = $self->{ua}->post(
        'https://todoist.com/API/query',
        [
            token   => $self->{token},
            queries => '[' . join( ',', @$queries ) . ']',
            $args->{as_count} ? ( as_count => $args->{as_count} ) : (),
            $args->{js_date}  ? ( js_date  => $args->{js_date} )  : (),
        ]
    );
    unless ( $resp->is_success ) {
        $errstr = $resp->status_line;
        return;
    }

    my $data = $self->{json}->decode( $resp->content );
    return wantarray ? @$data : $data;
}

1;

__END__