| version 1.4, 2010/01/23 07:04:43 |
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.3 2010/01/19 03:20:14 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'; |
| |
|
|
|
| sub render_list { |
sub render_list { |
| my ( $self, $format, $input ) = @_; |
my ( $self, $format, $input ) = @_; |
| |
|
| return if ! defined $input; |
return if !defined $input; |
| |
|
| my @input = $input; |
my @input = $input; |
| if (ref $input eq 'ARRAY') { |
if ( ref $input eq 'ARRAY' ) { |
| @input = @{ $input }; |
@input = @{$input}; |
| } |
} |
| |
|
| 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 |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to md5.pm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / todotxt / Text-Todo-REST-API / lib / Text / Todo / REST / API / Representations