[BACK]Return to text.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/text.pm between version 1.2 and 1.7

version 1.2, 2010/01/19 03:18:34 version 1.7, 2010/02/16 04:10:38
Line 1 
Line 1 
 package Text::Todo::REST::API::Representations::text;  package Text::Todo::REST::API::Representations::text;
   
 # $AFresh1: text.pm,v 1.1 2010/01/18 03:51:40 andrew Exp $  # $AFresh1: text.pm,v 1.6 2010/02/13 22:24:15 andrew Exp $
   
 use base 'Text::Todo::REST::API::Representations';  use base 'Text::Todo::REST::API::Representations';
   
Line 13 
Line 13 
 {  {
     sub content_type { return 'text/plain' }      sub content_type { return 'text/plain' }
   
     sub can_format {      sub can_render {
         my ( $class, $format ) = @_;          my ( $class, $format ) = @_;
         return if !defined $format;          return if !defined $format;
   
Line 25 
Line 25 
         return exists $handled_formats{$format};          return exists $handled_formats{$format};
     }      }
   
     sub dump_files {      sub _render {
         my ( $self, $format, @input ) = @_;          my ( $self, $format, $data ) = @_;
   
           $data ||= [];
   
         my $output;          my $output;
         foreach my $line (@input) {          foreach my $line ( @{$data} ) {
             $output .= "$line\n";              $output .= "$line\n";
         }          }
         return $output;          return $output;
     }      }
       sub render_files { _render(@_) }
   
     sub dump_list {      sub render_tags  {
         my ( $self, $format, @input ) = @_;          my ( $self, $format, $data ) = @_;
   
         my $output;          if (ref $data eq 'HASH') {
         foreach my $o (@input) {              my $output = '';
             $output .= "$o->{text}\n";              foreach my $k (sort keys %{ $data }) {
                    $output .= $k . ': ' . $data->{$k} . "\n";
               }
               return $output;
         }          }
         return $output;  
           return $self->_render($format, $data);
     }      }
   
     sub dump_entry {      sub render_list {
         my ( $self, @args ) = @_;          my ( $self, $format, $input ) = @_;
         return $self->dump_list(@args);  
           return if !defined $input;
   
           if ( ref $input ne 'ARRAY' ) {
               $input = [$input];
           }
   
           return $self->_render($format, [ map "$_->{text}", @{ $input } ]);
     }      }
   
       sub render_entry { render_list(@_) }
 }  }
   
 1;    # Magic true value required at end of module  1;    # Magic true value required at end of module
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.7
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>