| version 1.4, 2010/02/14 06:14:57 |
version 1.6, 2010/02/18 05:34:31 |
|
|
| package Text::Todo::REST::API::Actions::GET; |
package Text::Todo::REST::API::Actions::GET; |
| |
|
| # $AFresh1: GET.pm,v 1.3 2010/02/13 21:48:28 andrew Exp $ |
# $AFresh1: GET.pm,v 1.5 2010/02/16 04:09:53 andrew Exp $ |
| |
|
| use warnings; |
use warnings; |
| use strict; |
use strict; |
|
|
| line => $line++, |
line => $line++, |
| md5 => md5_hex( $_->text ), |
md5 => md5_hex( $_->text ), |
| text => $_->text, |
text => $_->text, |
| |
done => $_->done, |
| }, |
}, |
| $todo->list ); |
$todo->list ); |
| return \@list; |
return \@list; |
|
|
| $key = $key->[0]; |
$key = $key->[0]; |
| } |
} |
| elsif ( ref $key eq 'HASH' ) { |
elsif ( ref $key eq 'HASH' ) { |
| if ( exists $key->{$type} ) { |
$key = $key->{$type}; |
| $key = $key->{$type}; |
|
| } |
|
| else { |
|
| return $self->_fail( |
|
| caller() . ' requires key [' . $type . ']' ); |
|
| } |
|
| } |
} |
| |
|
| return $key; |
return $key; |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to GET.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 / API / Actions