version 1.5, 2010/01/26 06:03:11 |
version 1.6, 2010/02/13 22:29:44 |
|
|
package Text::Todo::REST::API::Representations::md5; |
package Text::Todo::REST::API::Representations::md5; |
|
|
# $AFresh1: md5.pm,v 1.4 2010/01/23 07:04:43 andrew Exp $ |
# $AFresh1: md5.pm,v 1.5 2010/01/26 06:03:11 andrew Exp $ |
|
|
use base 'Text::Todo::REST::API::Representations'; |
use base 'Text::Todo::REST::API::Representations'; |
|
|
|
|
} |
} |
|
|
my $output; |
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; |
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 |
1; # Magic true value required at end of module |