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.1, 2010/01/23 07:04:43

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

Line 1

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

# $AFresh1$

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

use warnings;

use strict;

Line 51

sub _handle_representation {

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

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

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

my $format = $self->_format;

my $format = $self->format;

if ( $options->{format} ) {

$format = $options->{format};

}

Line 62

if ( $class->can_render($format)

&& $class->can($method) )

{

return $class->$method( $format, $self->_data );

return $class->$method( $format, $self->data );

}

Line 83

croak(@message);

}

sub _format { my ($self) = @_; return $format_of{ ident $self}; }

sub format { my ($self) = @_; return $format_of{ ident $self}; }

sub _type { my ($self) = @_; return $type_of{ ident $self}; }

sub type { my ($self) = @_; return $type_of{ ident $self}; }

sub _data { my ($self) = @_; return $data_of{ ident $self}; }

sub data { my ($self) = @_; return $data_of{ ident $self}; }

sub DESTROY {

my ($self) = @_;