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; |