[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.19 and 1.21

version 1.19, 2010/01/11 19:52:06 version 1.21, 2010/01/18 00:19:55
Line 1 
Line 1 
 package Text::Todo::Entry;  package Text::Todo::Entry;
   
 # $AFresh1: Entry.pm,v 1.18 2010/01/11 01:30:24 andrew Exp $  # $AFresh1: Entry.pm,v 1.20 2010/01/12 20:09:02 andrew Exp $
   
 use warnings;  use warnings;
 use strict;  use strict;
 use Carp;  use Carp;
   
 use Class::Std::Utils;  use Class::Std;
 use List::Util qw/ first /;  use List::Util qw/ first /;
   
 use version; our $VERSION = qv('0.0.1');  use version; our $VERSION = qv('0.0.1');
   
 {  {
     my %text_of;      my ( %text_of, %tags_of, %priority_of, %completion_status_of,
           %known_tags_of, ) : ATTR;
   
     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 26 
Line 22 
         (?i:\( ([A-Z]) \)   \s*)?          (?i:\( ([A-Z]) \)   \s*)?
     }xms;      }xms;
   
     sub new {      sub BUILD {
         my ( $class, $options ) = @_;          my ( $self, $ident, $options ) = @_;
   
         my $self = bless anon_scalar(), $class;  
         my $ident = ident($self);  
   
         if ( !ref $options ) {          if ( !ref $options ) {
             $options = { text => $options };              $options = { text => $options };
         }          }
Line 172 
Line 165 
         $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 259 
Line 252 
   
 =head1 INTERFACE  =head1 INTERFACE
   
 =head2 new  =head2 BUILD
   
 Creates an entry that can be manipulated.  Creates an entry that can be manipulated.
   
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.21
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>