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

Diff for /todotxt/Text-Todo/lib/Text/Todo/Entry.pm between version 1.18 and 1.24

version 1.18, 2010/01/11 01:30:24 version 1.24, 2010/01/19 18:53:36
Line 1 
Line 1 
 package Text::Todo::Entry;  package Text::Todo::Entry;
   
 # $RedRiver: Entry.pm,v 1.16 2010/01/10 22:49:53 andrew Exp $  # $AFresh1: Entry.pm,v 1.23 2010/01/18 03:04:48 andrew Exp $
   
 use warnings;  use warnings;
 use strict;  use strict;
Line 9 
Line 9 
 use Class::Std::Utils;  use Class::Std::Utils;
 use List::Util qw/ first /;  use List::Util qw/ first /;
   
 use version; our $VERSION = qv('0.0.1');  use version; our $VERSION = qv('0.1.0');
   
 {  {
     my %text_of;  
   
     my %tags_of;      my @attr_refs = \(
     my %priority_of;          my %text_of,
     my %completion_status_of;  
     my %known_tags_of;  
   
           my %tags_of,
           my %priority_of,
           my %completion_status_of,
           my %known_tags_of,
       );
   
     # XXX Should the completion (x) be case sensitive?      # XXX Should the completion (x) be case sensitive?
     my $priority_completion_regex = qr{      my $priority_completion_regex = qr{
         ^ \s*          ^ \s*
Line 172 
Line 175 
         $new =~ s/$priority_completion_regex//xms;          $new =~ s/$priority_completion_regex//xms;
   
         if ( $self->done ) {          if ( $self->done ) {
             if ($self->done !~ /^x/ixms) {              if ( $self->done !~ /^x/ixms ) {
                 push @new, 'x';                  push @new, 'x';
             }              }
             push @new, $self->done;              push @new, $self->done;
Line 219 
Line 222 
         return $completion_status_of{$ident};          return $completion_status_of{$ident};
     }      }
   
       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.18  
changed lines
  Added in v.1.24
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>