| version 1.13, 2010/01/26 04:30:13 |
version 1.14, 2010/01/26 05:05:00 |
|
|
| package Text::Todo::REST::API; |
package Text::Todo::REST::API; |
| |
|
| # $AFresh1: API.pm,v 1.12 2010/01/26 03:51:49 andrew Exp $ |
# $AFresh1: API.pm,v 1.13 2010/01/26 04:30:13 andrew Exp $ |
| |
|
| use warnings; |
use warnings; |
| use strict; |
use strict; |
|
|
| |
|
| $options{list} |
$options{list} |
| = defined $options{list} ? $options{list} : 'todo_file'; |
= defined $options{list} ? $options{list} : 'todo_file'; |
| |
|
| |
if ($options{list} !~ /\Q $options{suffix} \E$/xms) { |
| |
$options{list} .= $options{suffix}; |
| |
} |
| |
|
| if ( $options{format} ) { |
if ( $options{format} ) { |
| $format_of{ ident $self } = $options{format}; |
$format_of{ ident $self } = $options{format}; |
|
|
| |
|
| if ( $options{list} ) { |
if ( $options{list} ) { |
| $options{action} ||= 'list'; |
$options{action} ||= 'list'; |
| |
|
| my $suffix = $self->_suffix; |
|
| |
|
| if ( ( lc $options{list} ) eq 'files' ) { |
if ( ( lc $options{list} ) eq 'files' ) { |
| $options{action} = lc $options{list}; |
$options{action} = lc $options{list}; |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to API.pm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / todotxt / Text-Todo-REST-API / lib / Text / Todo / REST