=================================================================== RCS file: /cvs/todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Representations/text.pm,v retrieving revision 1.3 retrieving revision 1.5 diff -u -r1.3 -r1.5 --- todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Representations/text.pm 2010/01/23 07:04:43 1.3 +++ todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Representations/text.pm 2010/02/13 21:46:59 1.5 @@ -1,6 +1,6 @@ package Text::Todo::REST::API::Representations::text; -# $AFresh1: text.pm,v 1.2 2010/01/19 03:18:34 andrew Exp $ +# $AFresh1: text.pm,v 1.4 2010/01/26 06:03:11 andrew Exp $ use base 'Text::Todo::REST::API::Representations'; @@ -31,20 +31,22 @@ $data ||= []; my $output; - foreach my $line (@{ $data }) { + foreach my $line ( @{$data} ) { $output .= "$line\n"; } return $output; } + sub render_tags { return render_files(@_) } + sub render_list { my ( $self, $format, $input ) = @_; - return if ! defined $input; + return if !defined $input; my @input = $input; - if (ref $input eq 'ARRAY') { - @input = @{ $input }; + if ( ref $input eq 'ARRAY' ) { + @input = @{$input}; } my $output;