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.4, 2010/01/23 07:04:43

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.3 2010/01/19 03:20:14 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) {

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

Line 35

Line 42

return $output;

}

sub dump_entry {

sub render_entry {

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

return $self->dump_list(@args);

return $self->render_list(@args);

}