version 1.14, 2010/01/10 01:41:40 |
version 1.15, 2010/01/10 01:45:52 |
|
|
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.14 2010/01/10 01:41:40 andrew Exp $ |
|
|
use warnings; |
use warnings; |
use strict; |
use strict; |
|
|
# 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*)? |
(?i:\( ([A-Z]) \) \s+)? |
(?i:\( ([A-Z]) \) \s*)? |
}xms; |
}xms; |
|
|
sub new { |
sub new { |