todotxt/Text-Todo/lib/Text/Todo/Entry.pm - diff

Return to Entry.pm CVS log

Up to [local] / todotxt / Text-Todo / lib / Text / Todo

version 1.14, 2010/01/10 01:41:40

version 1.16, 2010/01/10 22:49:53

Line 1

package Text::Todo::Entry;

# $RedRiver: Entry.pm,v 1.13 2010/01/10 01:03:02 andrew Exp $

# $RedRiver: Entry.pm,v 1.15 2010/01/10 01:45:52 andrew Exp $

use warnings;

use strict;

Line 22

# XXX Should the completion (x) be case sensitive?

my $priority_completion_regex = qr{

^ \s*

(?i: (x) \s+)?

(?i: (x) \s*)?

(?i:$ ([A-Z]) $ \s+)?

(?i:$ ([A-Z]) $ \s*)?

}xms;

sub new {

Line 87

foreach my $tag ( keys %{ $known_tags_of{$ident} } ) {

my $symbol = quotemeta $known_tags_of{$ident}{$tag};

$tags_of{$ident}{$tag} = { map { $_ => q{} }

$text =~ / (?:^|\s) $symbol (\S+)/gxms };

$text =~ / (?:^|\s) $symbol (\S*)/gxms };

}

( $completion_status_of{$ident}, $priority_of{$ident} )

= $text =~ / $priority_completion_regex /xms;