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

Diff for /todotxt/Text-Todo/lib/Text/Todo.pm between version 1.16 and 1.21

version 1.16, 2010/01/12 19:40:52 version 1.21, 2010/01/19 18:45:53
Line 1 
Line 1 
 package Text::Todo;  package Text::Todo;
   
 # $AFresh1: Todo.pm,v 1.15 2010/01/11 19:52:06 andrew Exp $  # $AFresh1: Todo.pm,v 1.20 2010/01/18 03:04:48 andrew Exp $
   
 use warnings;  use warnings;
 use strict;  use strict;
Line 14 
Line 14 
   
 {  {
   
     my %path_of;      my @attr_refs = \(
     my %list_of;          my %path_of,
     my %loaded_of;  
   
           my %list_of,
           my %loaded_of,
       );
   
     sub new {      sub new {
         my ( $class, $options ) = @_;          my ( $class, $options ) = @_;
   
Line 203 
Line 206 
         if ($pri) {          if ($pri) {
             $pri = uc $pri;              $pri = uc $pri;
             if ( $pri !~ /^[A-Z]$/xms ) {              if ( $pri !~ /^[A-Z]$/xms ) {
                 croak "PRIORITY must a single letter from A to Z.";                  croak 'PRIORITY must a single letter from A to Z.';
             }              }
             @list = grep { defined $_->priority && $_->priority eq $pri }              @list = grep { defined $_->priority && $_->priority eq $pri }
                 $self->list;                  $self->list;
Line 260 
Line 263 
     }      }
   
     sub listproj {      sub listproj {
         my ( $self ) = @_;          my ($self) = @_;
         return $self->listtag('project');          return $self->listtag('project');
     }      }
   
     sub listcon {      sub listcon {
         my ( $self ) = @_;          my ($self) = @_;
         return $self->listtag('context');          return $self->listtag('context');
     }      }
   
     sub listtag {      sub listtag {
         my ( $self, $tag ) = @_;          my ( $self, $tag ) = @_;
         my $ident = ident($self);          my $ident = ident($self);
   
         my $accessor = $tag . 's';          my $accessor = $tag . 's';
   
         my %available;          my %available;
Line 284 
Line 287 
   
         my @tags = sort keys %available;          my @tags = sort keys %available;
   
         return wantarray ? @tags: \@tags;          return wantarray ? @tags : \@tags;
     }      }
   
     sub archive {      sub archive {
Line 381 
Line 384 
         }          }
   
         croak "Invalid entry [$entry]!";          croak "Invalid entry [$entry]!";
       }
   
       sub DESTROY {
           my ($self) = @_;
           my $ident = ident $self;
   
           foreach my $attr_ref (@attr_refs) {
               delete $attr_ref->{$ident};
           }
   
           return;
     }      }
 }  }
   
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.21
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>