todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Response.pm - diff

Return to Response.pm CVS log

Up to [local] / todotxt / Text-Todo-REST-API / lib / Text / Todo / REST / API

version 1.2, 2010/01/24 04:17:39

version 1.3, 2010/01/26 05:05:34

Line 1

package Text::Todo::REST::API::Response;

# $AFresh1: Response.pm,v 1.1 2010/01/23 07:04:43 andrew Exp $

# $AFresh1: Response.pm,v 1.2 2010/01/24 04:17:39 andrew Exp $

use warnings;

use strict;

Line 42

return $self;

}

#sub content_type {

sub content_type {

#my ($self) = shift;

my ($self) = shift;

#my $ident = ident($self);

return $self->_handle_representation('content_type');

#return defined $content_type_of{$ident}

}

sub _handle_representation {

my ( $self, $method, $options ) = @_;

$method = join q{_}, $method, $self->type;

if ($method ne 'content_type') {

$method = join q{_}, $method, $self->type;

}

my $format = $self->format;

if ( $options->{format} ) {