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.20, 2010/01/12 20:09:02

version 1.23, 2010/01/18 03:04:48

Line 1

package Text::Todo::Entry;

# $AFresh1: Entry.pm,v 1.19 2010/01/11 19:52:06 andrew Exp $

# $AFresh1: Entry.pm,v 1.22 2010/01/18 02:46:48 andrew Exp $

use warnings;

use strict;

Line 12

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

{

my %text_of;

my %tags_of;

my @attr_refs = \(

my %priority_of;

my %text_of,

my %completion_status_of;

my %known_tags_of;

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 219

Line 222

return $completion_status_of{$ident};

}

sub DESTROY {

my ($self) = @_;

my $ident = ident $self;

foreach my $attr_ref (@attr_refs) {

delete $attr_ref->{$ident};

}

1; # Magic true value required at end of module

__END__