===================================================================
RCS file: /cvs/todotxt/Text-Todo/bin/dudelicious.pl,v
retrieving revision 1.6
retrieving revision 1.8
diff -u -r1.6 -r1.8
--- todotxt/Text-Todo/bin/dudelicious.pl	2010/04/30 07:18:33	1.6
+++ todotxt/Text-Todo/bin/dudelicious.pl	2010/04/30 18:17:40	1.8
@@ -1,4 +1,4 @@
-#!/usr/bin/env perl
+#!/usr/bin/perl
 
 package Dudelicious;
 
@@ -8,7 +8,7 @@
 BEGIN {
     use FindBin;
     use lib "$FindBin::Bin/../lib";
-    use lib "$FindBin::Bin/mojo/lib";
+    use lib "$FindBin::Bin/../mojo/lib";
 }
 
 use Carp qw/ carp croak /;
@@ -40,32 +40,27 @@
     my $self   = shift;
     my $file   = $self->stash('file') . '.txt';
     my $format = $self->stash('format') || 'html';
+    my $list   = _get_list( $self, $file );
 
     if ( $format eq 'json' ) {
-        $self->render_json( _get_list( $self, $file ) );
+        $self->render_json($list);
     }
     else {
-        $self->render(
-            list   => _get_list( $self, $file ),
-            layout => 'todotxt'
-        );
+        $self->render( list => $list, layout => 'todotxt' );
     }
 } => 'list';
 
 get '/l/:file/e/:line' => sub {
     my $self   = shift;
     my $file   = $self->stash('file') . '.txt';
-    my $entry  = $self->stash('line') - 1;
     my $format = $self->stash('format') || 'html';
+    my $entry  = _get_list( $self, $file )->[ $self->stash('line') - 1 ];
 
     if ( $format eq 'json' ) {
-        $self->render_json( _get_list( $self, $file )->[$entry] );
+        $self->render_json($entry);
     }
     else {
-        $self->render(
-            entry  => _get_list( $self, $file )->[$entry],
-            layout => 'todotxt'
-        );
+        $self->render( entry => $entry, layout => 'todotxt' );
     }
 } => 'entry';
 
@@ -145,7 +140,7 @@
 Since the $VERSION can't be automatically included, 
 here is the RCS Id instead, you'll have to look up $VERSION.
 
-    $Id: dudelicious.pl,v 1.6 2010/04/30 06:18:33 andrew Exp $
+    $Id: dudelicious.pl,v 1.8 2010/04/30 17:17:40 andrew Exp $
 
 =head1 SYNOPSIS