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.14, 2010/01/26 05:05:00

version 1.16, 2010/01/26 06:03:11

Line 1

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

# $AFresh1: API.pm,v 1.13 2010/01/26 04:30:13 andrew Exp $

# $AFresh1: API.pm,v 1.15 2010/01/26 05:47:30 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 ($options{list} !~ /\Q $options{suffix} \E$/xms) {

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

$options{list} .= $options{suffix};

$list .= $suffix;

}

$options{list} = $list;

if ( $options{format} ) {

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

delete $options{format};

Line 179

Line 181

if ( $options{list} ) {

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

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' ) {