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

Return to Todo.pm CVS log

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

version 1.17, 2010/01/12 20:09:02

version 1.22, 2010/01/19 18:53:36

Line 1

package Text::Todo;

# $AFresh1: Todo.pm,v 1.16 2010/01/12 19:40:52 andrew Exp $

# $AFresh1: Todo.pm,v 1.21 2010/01/19 18:45:53 andrew Exp $

use warnings;

use strict;

Line 10

use Text::Todo::Entry;

use File::Spec;

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

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

{

my %path_of;

my @attr_refs = \(

my %list_of;

my %path_of,

my %loaded_of;

my %list_of,

my %loaded_of,

);

sub new {

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

Line 381

Line 384

}

croak "Invalid entry [$entry]!";

}

sub DESTROY {

my ($self) = @_;

my $ident = ident $self;

foreach my $attr_ref (@attr_refs) {

delete $attr_ref->{$ident};

}

return;

}