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

Return to md5.pm CVS log

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

-version 1.1.1.1, 2010/01/16 16:01:07
+version 1.3, 2010/01/18 00:30:55
 Line 1
 Line 1
 Line 1
  package Text::Todo::REST::API::md5;
- # $RedRiver$
+ # $AFresh1: md5.pm,v 1.2 2010/01/17 23:15:00 andrew Exp $
+ use base 'Text::Todo::REST::API';
+ &Text::Todo::REST::API::RegisterFormatHandler(__PACKAGE__, 'md5');
  use warnings;
  use strict;
  use Carp;
  use version; our $VERSION = qv('0.0.1');
- # Other recommended modules (uncomment to use):
+ {
- #  use IO::Prompt;
+     sub content_type { return 'text/plain' };
- #  use Perl6::Export;
- #  use Perl6::Slurp;
- #  use Perl6::Say;
+     sub Dump {
+         my ($self, @output) = @_;
+         my $action = $self->_action;
- # Module implementation here
+         my $output;
+         if ($action eq 'files') {
+             $output .= $self->SUPER::Dump(@output);
+             #foreach my $o (@output) {
+             #}
+         }
+         elsif ($action eq 'list' || $action eq 'entry') {
+             foreach my $o (@output) {
+                 $output .= "MD5 ($o->{text}) = $o->{md5}\n";
+             }
+         }
+         else {
+             $output .= $self->SUPER::Dump(@output);
+         }
+         return $output;
+     }
+ }
 ; # Magic true value required at end of module
  __END__