[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.14 and 1.17

version 1.14, 2010/01/10 01:41:40 version 1.17, 2010/01/11 01:08:35
Line 1 
Line 1 
 package Text::Todo::Entry;  package Text::Todo::Entry;
   
 # $RedRiver: Entry.pm,v 1.13 2010/01/10 01:03:02 andrew Exp $  # $RedRiver: Entry.pm,v 1.16 2010/01/10 22:49:53 andrew Exp $
   
 use warnings;  use warnings;
 use strict;  use strict;
Line 22 
Line 22 
     # 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*
         (?i:   (x)        \s+)?          (?i:(x \s* [\d-]* ) \s*)?
         (?i:\( ([A-Z]) \) \s+)?          (?i:\( ([A-Z]) \)   \s*)?
     }xms;      }xms;
   
     sub new {      sub new {
Line 87 
Line 87 
         foreach my $tag ( keys %{ $known_tags_of{$ident} } ) {          foreach my $tag ( keys %{ $known_tags_of{$ident} } ) {
             my $symbol = quotemeta $known_tags_of{$ident}{$tag};              my $symbol = quotemeta $known_tags_of{$ident}{$tag};
             $tags_of{$ident}{$tag} = { map { $_ => q{} }              $tags_of{$ident}{$tag} = { map { $_ => q{} }
                     $text =~ / (?:^|\s) $symbol  (\S+)/gxms };                      $text =~ / (?:^|\s) $symbol  (\S*)/gxms };
         }          }
         ( $completion_status_of{$ident}, $priority_of{$ident} )          my ( $completed, $priority )
             = $text =~ / $priority_completion_regex /xms;              = $text =~ / $priority_completion_regex /xms;
   
           $completion_status_of{$ident} = _clean_completed($completed);
           $priority_of{$ident} = $priority;
   
         return 1;          return 1;
       }
   
       sub _clean_completed {
           my ($completed) = @_;
   
           $completed ||= q{};
           $completed =~ s/^\s+|\s+$//gxms;
   
           if (!$completed) {
               return;
           }
   
           if ($completed =~ s/(x)\s*//ixms) {
               my $status = $1;
               if ($completed) {
                   return $completed;
               }
               else {
                   return $status;
               }
           }
   
           return;
     }      }
   
     sub _tags {      sub _tags {
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.17
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>