[BACK]Return to md5.pm CVS log [TXT][DIR] Up to [local] / todotxt / Text-Todo-REST-API / lib / Text / Todo / REST / API / Representations

Diff for /todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Representations/md5.pm between version 1.1 and 1.5

version 1.1, 2010/01/18 03:51:40 version 1.5, 2010/01/26 06:03:11
Line 1 
Line 1 
 package Text::Todo::REST::API::Representations::md5;  package Text::Todo::REST::API::Representations::md5;
   
 # $AFresh1: md5.pm,v 1.3 2010/01/18 00:30:55 andrew Exp $  # $AFresh1: md5.pm,v 1.4 2010/01/23 07:04:43 andrew Exp $
   
 use base 'Text::Todo::REST::API';  use base 'Text::Todo::REST::API::Representations';
   
 use warnings;  use warnings;
 use strict;  use strict;
Line 11 
Line 11 
 use version; our $VERSION = qv('0.0.1');  use version; our $VERSION = qv('0.0.1');
   
 {  {
     my %handled_formats = map { $_ => 1 } qw(  
         md5  
     );  
   
     sub content_type { return 'text/plain' };      sub content_type { return 'text/plain' }
   
     sub _handles {      sub can_render {
         my ($class, $format) = @_;          my ( $class, $format ) = @_;
           return if !defined $format;
   
           my %handled_formats = map { $_ => 1 } qw(
               md5
           );
   
         return exists $handled_formats{$format};          return exists $handled_formats{$format};
     }      }
   
     sub Dump {      sub render_list {
         my ($self, @output) = @_;          my ( $self, $format, $input ) = @_;
         my $action = $self->_action;  
   
           return if !defined $input;
   
           my @input = $input;
           if ( ref $input eq 'ARRAY' ) {
               @input = @{$input};
           }
   
         my $output;          my $output;
         if ($action eq 'files') {          foreach my $o (@input) {
             $output .= $self->SUPER::Dump(@output);              $output .= "MD5 ($o->{text}) = $o->{md5}\n";
             #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;          return $output;
     }      }
   
       sub render_entry {
           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
 __END__  __END__
   
 =head1 NAME  =head1 NAME
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.5
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>