| version 1.4, 2010/02/14 06:14:57 |
version 1.5, 2010/02/16 04:09:53 |
|
|
| 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.4 2010/02/14 06:14:57 andrew Exp $ |
| |
|
| use warnings; |
use warnings; |
| use strict; |
use strict; |
|
|
| $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