todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Representations/text.pm - diff

Return to text.pm CVS log

Up to [local] / todotxt / Text-Todo-REST-API / lib / Text / Todo / REST / API / Representations

version 1.4, 2010/01/26 06:03:11

version 1.6, 2010/02/13 22:24:15

Line 1

package Text::Todo::REST::API::Representations::text;

# $AFresh1: text.pm,v 1.3 2010/01/23 07:04:43 andrew Exp $

# $AFresh1: text.pm,v 1.5 2010/02/13 21:46:59 andrew Exp $

use base 'Text::Todo::REST::API::Representations';

Line 25

return exists $handled_formats{$format};

}

sub render_files {

sub _render {

my ( $self, $format, $data ) = @_;

$data ||= [];

Line 36

}

return $output;

}

sub render_files { _render(@_) }

sub render_tags { _render(@_) }

sub render_list {

my ( $self, $format, $input ) = @_;

return if !defined $input;

my @input = $input;

if ( ref $input ne 'ARRAY' ) {

if ( ref $input eq 'ARRAY' ) {

$input = [$input];

@input = @{$input};

}

my $output;

return $self->_render($format, [ map "$_->{text}", @{ $input } ]);

foreach my $o (@input) {

$output .= "$o->{text}\n";

}

return $output;

}

sub render_entry {

sub render_entry { render_list(@_) }

my ( $self, @args ) = @_;

return $self->render_list(@args);

}

1; # Magic true value required at end of module