version 1.6, 2010/02/13 22:24:15 |
version 1.7, 2010/02/16 04:10:38 |
|
|
package Text::Todo::REST::API::Representations::text; |
package Text::Todo::REST::API::Representations::text; |
|
|
# $AFresh1: text.pm,v 1.5 2010/02/13 21:46:59 andrew Exp $ |
# $AFresh1: text.pm,v 1.6 2010/02/13 22:24:15 andrew Exp $ |
|
|
use base 'Text::Todo::REST::API::Representations'; |
use base 'Text::Todo::REST::API::Representations'; |
|
|
|
|
return $output; |
return $output; |
} |
} |
sub render_files { _render(@_) } |
sub render_files { _render(@_) } |
sub render_tags { _render(@_) } |
|
|
sub render_tags { |
|
my ( $self, $format, $data ) = @_; |
|
|
|
if (ref $data eq 'HASH') { |
|
my $output = ''; |
|
foreach my $k (sort keys %{ $data }) { |
|
$output .= $k . ': ' . $data->{$k} . "\n"; |
|
} |
|
return $output; |
|
} |
|
|
|
return $self->_render($format, $data); |
|
} |
|
|
sub render_list { |
sub render_list { |
my ( $self, $format, $input ) = @_; |
my ( $self, $format, $input ) = @_; |