===================================================================
RCS file: /cvs/todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Actions/GET.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/Actions/GET.pm	2010/01/26 04:30:13	1.1
+++ todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Actions/GET.pm	2010/01/31 03:10:39	1.2
@@ -1,6 +1,6 @@
 package Text::Todo::REST::API::Actions::GET;
 
-# $AFresh1: Representations.pm,v 1.2 2010/01/23 07:04:43 andrew Exp $
+# $AFresh1: GET.pm,v 1.1 2010/01/26 04:30:13 andrew Exp $
 
 use warnings;
 use strict;
@@ -34,7 +34,7 @@
         my ( $self, $todo, $key ) = @_;
 
         if ( !$key ) {
-            return $self->fail("get_entry requires arguments");
+            return $self->_fail("get_entry requires arguments");
         }
         elsif ( ref $key eq 'ARRAY' ) {
             return self->get_entry( $_->[0] );
@@ -44,7 +44,7 @@
                 $key = $key->{entry};
             }
             else {
-                return $self->fail('get_entry requires key [entry]');
+                return $self->_fail('get_entry requires key [entry]');
             }
         }
 
@@ -63,7 +63,7 @@
             return $list->[ $key - 1 ];
         }
 
-        return $self->fail("Unable to find entry!");
+        return $self->_fail("Unable to find entry [$key]!");
     }
 
     sub get_list {
@@ -84,7 +84,7 @@
         my $dir = $todo->file('todo_dir');
 
         if ( !$dir ) {
-            return $self->fail('Unable to find todo_dir');
+            return $self->_fail('Unable to find todo_dir');
         }
 
         my $file_regex = $options->{file_regex};