=================================================================== RCS file: /cvs/todotxt/Text-Todo/lib/Text/Todo.pm,v retrieving revision 1.18 retrieving revision 1.19 diff -u -r1.18 -r1.19 --- todotxt/Text-Todo/lib/Text/Todo.pm 2010/01/18 00:19:55 1.18 +++ todotxt/Text-Todo/lib/Text/Todo.pm 2010/01/18 02:46:48 1.19 @@ -6,18 +6,24 @@ use strict; use Carp; -use Class::Std; +use Class::Std::Utils; use Text::Todo::Entry; use File::Spec; use version; our $VERSION = qv('0.0.1'); { - my ( %path_of, %list_of, %loaded_of, ) : ATTR; - sub BUILD { - my ( $self, $ident, $options ) = @_; + my %path_of; + my %list_of; + my %loaded_of; + sub new { + my ( $class, $options ) = @_; + + my $self = bless anon_scalar(), $class; + my $ident = ident($self); + $path_of{$ident} = { todo_dir => undef, todo_file => 'todo.txt', @@ -154,7 +160,7 @@ open my $fh, '<', $file or croak "Couldn't open [$file]: $!"; while (<$fh>) { s/\r?\n$//xms; - push @list, Text::Todo::Entry->new({ text => $_ }); + push @list, Text::Todo::Entry->new($_); } close $fh or croak "Couldn't close [$file]: $!"; @@ -214,7 +220,7 @@ my $ident = ident($self); if ( !ref $entry ) { - $entry = Text::Todo::Entry->new({ text => $entry }); + $entry = Text::Todo::Entry->new($entry); } elsif ( ref $entry ne 'Text::Todo::Entry' ) { croak( @@ -391,7 +397,7 @@ Since the $VERSION can't be automatically included, here is the RCS Id instead, you'll have to look up $VERSION. - $Id: Todo.pm,v 1.18 2010/01/18 00:19:55 andrew Exp $ + $Id: Todo.pm,v 1.19 2010/01/18 02:46:48 andrew Exp $ =head1 SYNOPSIS @@ -422,7 +428,7 @@ =head1 INTERFACE -=head2 BUILD +=head2 new new({ [ todo_dir => 'directory', ] @@ -433,10 +439,15 @@ Allows you to set each item individually. todo_file defaults to todo.txt. - new({ todo_file => 'path/to/todo.txt'); + new('path/to/todo.txt'); Automatically sets todo_dir to 'path/to', todo_file to 'todo.txt' + new('path/to') + +If you pass an existing directory to new, it will set todo_dir. + + If you what you set matches (.*)todo(.*).txt it will automatically set done_file to $1done$2.txt and @@ -592,7 +603,7 @@ =head1 DEPENDENCIES -Class::Std +Class::Std::Utils File::Spec version