| version 1.3, 2010/01/26 05:05:34 |
version 1.4, 2010/01/26 06:03:11 |
|
|
| package Text::Todo::REST::API::Response; |
package Text::Todo::REST::API::Response; |
| |
|
| # $AFresh1: Response.pm,v 1.2 2010/01/24 04:17:39 andrew Exp $ |
# $AFresh1: Response.pm,v 1.3 2010/01/26 05:05:34 andrew Exp $ |
| |
|
| use warnings; |
use warnings; |
| use strict; |
use strict; |
|
|
| my $ident = ident($self); |
my $ident = ident($self); |
| |
|
| $format_of{$ident} = $options->{format} || ''; |
$format_of{$ident} = $options->{format} || ''; |
| $data_of{$ident} = $options->{data}; |
$data_of{$ident} = $options->{data}; |
| |
|
| if ( $options->{type} ) { |
if ( $options->{type} ) { |
| $type_of{$ident} = $options->{type}; |
$type_of{$ident} = $options->{type}; |
|
|
| sub _handle_representation { |
sub _handle_representation { |
| my ( $self, $method, $options ) = @_; |
my ( $self, $method, $options ) = @_; |
| |
|
| if ($method ne 'content_type') { |
if ( $method ne 'content_type' ) { |
| $method = join q{_}, $method, $self->type; |
$method = join q{_}, $method, $self->type; |
| } |
} |
| |
|
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to Response.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