=================================================================== RCS file: /cvs/todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Representations.pm,v retrieving revision 1.1 retrieving revision 1.3 diff -u -r1.1 -r1.3 --- todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Representations.pm 2010/01/19 03:18:34 1.1 +++ todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Representations.pm 2010/01/26 06:03:11 1.3 @@ -1,21 +1,17 @@ package Text::Todo::REST::API::Representations; -# $AFresh1$ +# $AFresh1: Representations.pm,v 1.2 2010/01/23 07:04:43 andrew Exp $ use warnings; use strict; use Carp; use Class::Std::Utils; -use Data::Dumper; use version; our $VERSION = qv('0.0.1'); - { - my @attr_refs = \( - my %todo_of, - ); + my @attr_refs = \(); sub new { my ( $class, $options ) = @_; @@ -26,10 +22,10 @@ return $self; } - sub content_type { return } - sub can_format { return } + sub content_type {return} + sub can_render {return} - sub fail { + sub _fail { my ( $self, @message ) = @_; croak(@message); }