version 1.1, 2010/01/18 03:51:40 |
version 1.4, 2010/01/26 06:03:11 |
|
|
package Text::Todo::REST::API::Representations::text; |
package Text::Todo::REST::API::Representations::text; |
|
|
# $AFresh1: text.pm,v 1.3 2010/01/18 00:30:55 andrew Exp $ |
# $AFresh1: text.pm,v 1.3 2010/01/23 07:04:43 andrew Exp $ |
|
|
use base 'Text::Todo::REST::API'; |
use base 'Text::Todo::REST::API::Representations'; |
|
|
use warnings; |
use warnings; |
use strict; |
use strict; |
|
|
use version; our $VERSION = qv('0.0.1'); |
use version; our $VERSION = qv('0.0.1'); |
|
|
{ |
{ |
my %handled_formats = map { $_ => 1 } qw( |
sub content_type { return 'text/plain' } |
text |
|
txt |
|
); |
|
|
|
sub content_type { return 'text/plain' }; |
sub can_render { |
|
my ( $class, $format ) = @_; |
|
return if !defined $format; |
|
|
sub _handles { |
my %handled_formats = map { $_ => 1 } qw( |
my ($class, $format) = @_; |
text |
|
txt |
|
); |
|
|
return exists $handled_formats{$format}; |
return exists $handled_formats{$format}; |
} |
} |
|
|
|
sub render_files { |
|
my ( $self, $format, $data ) = @_; |
|
|
sub Dump { |
$data ||= []; |
my ($self, @output) = @_; |
|
my $action = $self->_action; |
|
|
|
my $output; |
my $output; |
if ($action eq 'files') { |
foreach my $line ( @{$data} ) { |
foreach my $o (@output) { |
$output .= "$line\n"; |
$output .= "$o\n"; |
|
} |
|
} |
} |
elsif ($action eq 'list' || $action eq 'entry') { |
return $output; |
foreach my $o (@output) { |
} |
$output .= "$o->{text}\n"; |
|
} |
sub render_list { |
|
my ( $self, $format, $input ) = @_; |
|
|
|
return if !defined $input; |
|
|
|
my @input = $input; |
|
if ( ref $input eq 'ARRAY' ) { |
|
@input = @{$input}; |
} |
} |
else { |
|
$output .= $self->SUPER::Dump(@output); |
my $output; |
|
foreach my $o (@input) { |
|
$output .= "$o->{text}\n"; |
} |
} |
return $output; |
return $output; |
} |
} |
|
|
|
sub render_entry { |
|
my ( $self, @args ) = @_; |
|
return $self->render_list(@args); |
|
} |
} |
} |
|
|
1; # Magic true value required at end of module |
1; # Magic true value required at end of module |
__END__ |
__END__ |
|
|
=head1 NAME |
=head1 NAME |