todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API.pm - diff

Return to API.pm CVS log

Up to [local] / todotxt / Text-Todo-REST-API / lib / Text / Todo / REST

version 1.13, 2010/01/26 04:30:13

version 1.15, 2010/01/26 05:47:30

Line 1

package Text::Todo::REST::API;

# $AFresh1: API.pm,v 1.12 2010/01/26 03:51:49 andrew Exp $

# $AFresh1: API.pm,v 1.14 2010/01/26 05:05:00 andrew Exp $

use warnings;

use strict;

Line 112

push @{ $options{args} }, @args;

$options{list}

my $list = $self->_todo->file( $options{list} );

= defined $options{list} ? $options{list} : 'todo_file';

my $suffix = $self->_suffix || q{};

if ($list !~ / \Q$suffix\E $/ixms) {

$list .= $suffix;

}

$options{list} = $list;

if ( $options{format} ) {

$format_of{ ident $self } = $options{format};

delete $options{format};

Line 175

Line 181

if ( $options{list} ) {

$options{action} ||= 'list';

my $suffix = $self->_suffix;

my $list = $options{list};

if ( ( lc $options{list} ) eq 'files' ) {

$options{action} = lc $options{list};

$options{action} = lc $list;

$options{list} = q{};

$list = q{};

}

elsif ( $self->_todo->file( $options{list} ) ) {

$options{list} = $self->_todo->file( $options{list} );

$options{list} = $list;

}

if ( @{ $options{args} } && ( lc $options{args}[0] ) eq 'entry' ) {