===================================================================
RCS file: /cvs/todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Response.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/Response.pm	2010/01/23 07:04:43	1.1
+++ todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Response.pm	2010/01/24 04:17:39	1.2
@@ -1,6 +1,6 @@
 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;
@@ -51,9 +51,9 @@
     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};
         }
@@ -62,7 +62,7 @@
             if (   $class->can_render($format)
                 && $class->can($method) )
             {
-                return $class->$method( $format, $self->_data );
+                return $class->$method( $format, $self->data );
             }
         }
 
@@ -83,9 +83,9 @@
         croak(@message);
     }
 
-    sub _format { my ($self) = @_; return $format_of{ ident $self}; }
-    sub _type   { my ($self) = @_; return $type_of{ ident $self}; }
-    sub _data   { my ($self) = @_; return $data_of{ ident $self}; }
+    sub format { my ($self) = @_; return $format_of{ ident $self}; }
+    sub type   { my ($self) = @_; return $type_of{ ident $self}; }
+    sub data   { my ($self) = @_; return $data_of{ ident $self}; }
 
     sub DESTROY {
         my ($self) = @_;