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

Return to md5.pm CVS log

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

version 1.3, 2010/01/19 03:20:14

version 1.6, 2010/02/13 22:29:44

Line 1

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

# $AFresh1: md5.pm,v 1.2 2010/01/19 03:18:34 andrew Exp $

# $AFresh1: md5.pm,v 1.5 2010/01/26 06:03:11 andrew Exp $

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

Line 14

sub content_type { return 'text/plain' }

sub can_format {

sub can_render {

my ( $class, $format ) = @_;

return if !defined $format;

Line 25

return exists $handled_formats{$format};

}

sub dump_list {

sub render_list {

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

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

return if !defined $input;

my @input = $input;

if ( ref $input eq 'ARRAY' ) {

@input = @{$input};

}

my $output;

foreach my $o (@input) {

foreach my $i (@input) {

$output .= "MD5 ($o->{text}) = $o->{md5}\n";

$output .= "MD5 ($i->{text}) = $i->{md5}\n";

}

return $output;

}

sub dump_entry {

sub render_entry { render_list(@_) }

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

return $self->dump_list(@args);

}

1; # Magic true value required at end of module