[BACK]Return to GET.pm CVS log [TXT][DIR] Up to [local] / todotxt / Text-Todo-REST-API / lib / Text / Todo / REST / API / Actions

Diff for /todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Actions/GET.pm between version 1.1 and 1.2

version 1.1, 2010/01/26 04:30:13 version 1.2, 2010/01/31 03:10:39
Line 1 
Line 1 
 package Text::Todo::REST::API::Actions::GET;  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 warnings;
 use strict;  use strict;
Line 34 
Line 34 
         my ( $self, $todo, $key ) = @_;          my ( $self, $todo, $key ) = @_;
   
         if ( !$key ) {          if ( !$key ) {
             return $self->fail("get_entry requires arguments");              return $self->_fail("get_entry requires arguments");
         }          }
         elsif ( ref $key eq 'ARRAY' ) {          elsif ( ref $key eq 'ARRAY' ) {
             return self->get_entry( $_->[0] );              return self->get_entry( $_->[0] );
Line 44 
Line 44 
                 $key = $key->{entry};                  $key = $key->{entry};
             }              }
             else {              else {
                 return $self->fail('get_entry requires key [entry]');                  return $self->_fail('get_entry requires key [entry]');
             }              }
         }          }
   
Line 63 
Line 63 
             return $list->[ $key - 1 ];              return $list->[ $key - 1 ];
         }          }
   
         return $self->fail("Unable to find entry!");          return $self->_fail("Unable to find entry [$key]!");
     }      }
   
     sub get_list {      sub get_list {
Line 84 
Line 84 
         my $dir = $todo->file('todo_dir');          my $dir = $todo->file('todo_dir');
   
         if ( !$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};          my $file_regex = $options->{file_regex};
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>