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.21, 2010/01/18 00:19:55

version 1.22, 2010/01/18 02:46:48

Line 6

use strict;

use Carp;

use Class::Std;

use Class::Std::Utils;

use List::Util qw/ first /;

use version; our $VERSION = qv('0.0.1');

{

my ( %text_of, %tags_of, %priority_of, %completion_status_of,

my %text_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?

my $priority_completion_regex = qr{

^ \s*

Line 22

Line 26

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

}xms;

sub BUILD {

sub new {

my ( $self, $ident, $options ) = @_;

my ( $class, $options ) = @_;

my $self = bless anon_scalar(), $class;

my $ident = ident($self);

if ( !ref $options ) {

$options = { text => $options };

}

Line 252

Line 259

=head1 INTERFACE

=head2 BUILD

=head2 new

Creates an entry that can be manipulated.