=================================================================== RCS file: /cvs/todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Representations.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- 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/23 07:04:43 1.2 @@ -1,20 +1,17 @@ package Text::Todo::REST::API::Representations; -# $AFresh1$ +# $AFresh1: Representations.pm,v 1.1 2010/01/19 03:18:34 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, ); sub new { @@ -27,9 +24,9 @@ } sub content_type { return } - sub can_format { return } + sub can_render { return } - sub fail { + sub _fail { my ( $self, @message ) = @_; croak(@message); }