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

Diff for /todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API.pm between version 1.4 and 1.7

version 1.4, 2010/01/18 00:30:42 version 1.7, 2010/01/18 13:47:53
Line 1 
Line 1 
 package Text::Todo::REST::API;  package Text::Todo::REST::API;
   
 # $AFresh1: API.pm,v 1.3 2010/01/17 23:48:06 andrew Exp $  # $AFresh1: API.pm,v 1.6 2010/01/18 03:51:40 andrew Exp $
   
 use warnings;  use warnings;
 use strict;  use strict;
Line 9 
Line 9 
 use Data::Dumper;  use Data::Dumper;
 use Text::Todo;  use Text::Todo;
   
 use Class::Std;  use Class::Std::Utils;
   use Module::Pluggable
       require     => 1,
       search_path => __PACKAGE__ . '::Representations',
       sub_name    => 'representations';
 use Digest::MD5 qw/ md5_hex /;  use Digest::MD5 qw/ md5_hex /;
 use File::Spec;  
   
 use version; our $VERSION = qv('0.0.1');  use version; our $VERSION = qv('0.0.1');
   
Line 24 
Line 27 
 );  );
   
 {  {
     my (%todo_of,         %basedir_of,    %subdir_of,      my @attr_refs = \(
         %suffix_of,       %file_regex_of, %user_of,          my %todo_of,
         %list_of,         %action_of,     %args_of,  
         %action_handlers, %format_handlers,  
     ) : ATTRS;  
   
     sub BUILD {          my %suffix_of,
         my ( $self, $ident, $options ) = @_;          my %file_regex_of,
   
           my %user_of,
           my %list_of,
           my %action_of,
           my %args_of,
   
           my %action_handlers,
       );
   
       sub new {
           my ( $class, $options ) = @_;
   
         my $format = $options->{default_format};          my $format = $options->{default_format};
         if ( $options->{format} ) {          if ( $options->{format} ) {
             $format = $options->{format};              $format = $options->{format};
Line 43 
Line 54 
             $format = $1;              $format = $1;
         }          }
   
           my $self = bless anon_scalar(), $class;
           my $ident = ident($self);
   
         if ( ref $self eq __PACKAGE__ && $format ) {          if ( ref $self eq __PACKAGE__ && $format ) {
             if ( $format_handlers{$format} ) {              my $found_handler = 0;
                 bless $self, $format_handlers{$format};          REP: foreach my $rep ( $self->representations ) {
                   if ( $rep->_handles($format) ) {
                       $self          = $rep->new($options);
                       $found_handler = 1;
                       last REP;
                   }
             }              }
             else {              if ( !$found_handler ) {
                 croak("Unable to find handler for [$format]\n");                  croak("Unable to find handler for [$format]\n");
             }              }
         }          }
   
         $basedir_of{$ident} = $options->{basedir};  
         $subdir_of{$ident}  = $options->{subdir};  
         $suffix_of{$ident}  = $options->{suffix} || '.txt';          $suffix_of{$ident}  = $options->{suffix} || '.txt';
   
         $file_regex_of{$ident} = $options->{file_regex} || qr{          $file_regex_of{$ident} = $options->{file_regex} || qr{
Line 64 
Line 81 
             $              $
         }ixms;          }ixms;
   
         if ( !$basedir_of{$ident} ) {  
             return $self->fail('Required option [basedir]');  
         }  
   
         $options->{path_info} ||= q{};          $options->{path_info} ||= q{};
         $options->{path_info} =~ s{^/}{}xms;          $options->{path_info} =~ s{^/}{}xms;
         (   $user_of{$ident},   $list_of{$ident},          (   $list_of{$ident}, $action_of{$ident}, @{ $args_of{$ident} },
             $action_of{$ident}, @{ $args_of{$ident} },  
         ) = split '/', $options->{path_info};          ) = split '/', $options->{path_info};
   
         if ( $list_of{$ident} ) {          if ( $list_of{$ident} ) {
             $action_of{$ident} ||= 'list';              $action_of{$ident} ||= 'list';
         }          }
         elsif ( $user_of{$ident} ) {          else {
             $action_of{$ident} = 'files';              $action_of{$ident} = 'files';
         }          }
   
         my @todo_dir = $basedir_of{$ident};          eval { $todo_of{$ident} = Text::Todo->new(
               {   todo_dir  => $options->{todo_dir},
         my $todo_dir;                  todo_file => $options->{todo_file},
         if ( $user_of{$ident} ) {  
             push @todo_dir, $user_of{$ident};  
             if ( $subdir_of{$ident} ) {  
                 push @todo_dir, $subdir_of{$ident};  
             }              }
           ) };
             $todo_dir = File::Spec->catdir(@todo_dir);          if ($@) {
               $self->fail('Unable to create Text::Todo object' . $@);
         }          }
   
         my $todo_file;  
         if ( $list_of{$ident} ) {  
             $todo_file = $list_of{$ident} . $suffix_of{$ident};  
         }  
   
         $todo_of{$ident} = Text::Todo->new(  
             {   todo_dir  => $todo_dir,  
                 todo_file => $todo_file,  
             }  
         ) or $self->fail('Unable to create Text::Todo object');  
   
         $todo_of{$ident}->load('todo_file')          $todo_of{$ident}->load('todo_file')
             or $self->fail('Unable to create Text::Todo object');              or $self->fail('Unable to load todo_file in Text::Todo object');
   
         return;          return $self;
     }      }
   
     sub RegisterFormatHandler {  
         my ( $handler, @types ) = @_;  
   
         foreach my $type (@types) {  
             $format_handlers{$type} = $handler;  
         }  
   
         return 1;  
     }  
   
     sub RegisterActionHandler {      sub RegisterActionHandler {
         my ( $handler, @types ) = @_;          my ( $handler, @types ) = @_;
   
Line 130 
Line 118 
         return 1;          return 1;
     }      }
   
     sub content_type { return };      sub content_type {return}
   
     sub Dump {      sub Dump {
         my ($self) = @_;          my ($self) = @_;
Line 233 
Line 221 
         return $todo_of{$ident}->listtag($tag);          return $todo_of{$ident}->listtag($tag);
     }      }
   
     sub POST   {      sub POST {
         my ( $self, @args ) = @_;          my ( $self, @args ) = @_;
         return $self->_handle_action( 'POST', @args );          return $self->_handle_action( 'POST', @args );
     }      }
   
     sub PUT    {      sub PUT {
         my ( $self, @args ) = @_;          my ( $self, @args ) = @_;
         return $self->_handle_action( 'PUT', @args );          return $self->_handle_action( 'PUT', @args );
     }      }
Line 254 
Line 242 
     }      }
   
     sub _todo       { my ($self) = @_; return $todo_of{ ident $self }; }      sub _todo       { my ($self) = @_; return $todo_of{ ident $self }; }
     sub _basedir    { my ($self) = @_; return $basedir_of{ ident $self}; }  
     sub _subdir     { my ($self) = @_; return $subdir_of{ ident $self}; }  
     sub _suffix     { my ($self) = @_; return $suffix_of{ ident $self}; }      sub _suffix     { my ($self) = @_; return $suffix_of{ ident $self}; }
     sub _file_regex { my ($self) = @_; return $file_regex_of{ ident $self}; }      sub _file_regex { my ($self) = @_; return $file_regex_of{ ident $self}; }
     sub _user       { my ($self) = @_; return $user_of{ ident $self}; }      sub _user       { my ($self) = @_; return $user_of{ ident $self}; }
Line 263 
Line 249 
     sub _action     { my ($self) = @_; return $action_of{ ident $self}; }      sub _action     { my ($self) = @_; return $action_of{ ident $self}; }
     sub _args       { my ($self) = @_; return $args_of{ ident $self}; }      sub _args       { my ($self) = @_; return $args_of{ ident $self}; }
   
       sub DESTROY {
           my ($self) = @_;
           my $ident = ident $self;
           foreach my $attr_ref (@attr_refs) {
               delete $attr_ref->{$ident};
           }
       }
 }  }
 1;    # Magic true value required at end of module  1;    # Magic true value required at end of module
 __END__  __END__
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.7
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>