version 1.18, 2010/01/18 00:19:55 |
version 1.20, 2010/01/18 03:04:48 |
|
|
package Text::Todo; |
package Text::Todo; |
|
|
# $AFresh1: Todo.pm,v 1.17 2010/01/12 20:09:02 andrew Exp $ |
# $AFresh1: Todo.pm,v 1.19 2010/01/18 02:46:48 andrew Exp $ |
|
|
use warnings; |
use warnings; |
use strict; |
use strict; |
use Carp; |
use Carp; |
|
|
use Class::Std; |
use Class::Std::Utils; |
use Text::Todo::Entry; |
use Text::Todo::Entry; |
use File::Spec; |
use File::Spec; |
|
|
use version; our $VERSION = qv('0.0.1'); |
use version; our $VERSION = qv('0.0.1'); |
|
|
{ |
{ |
my ( %path_of, %list_of, %loaded_of, ) : ATTR; |
|
|
|
sub BUILD { |
my @attr_refs = \( |
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} = { |
$path_of{$ident} = { |
todo_dir => undef, |
todo_dir => undef, |
todo_file => 'todo.txt', |
todo_file => 'todo.txt', |
|
|
open my $fh, '<', $file or croak "Couldn't open [$file]: $!"; |
open my $fh, '<', $file or croak "Couldn't open [$file]: $!"; |
while (<$fh>) { |
while (<$fh>) { |
s/\r?\n$//xms; |
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]: $!"; |
close $fh or croak "Couldn't close [$file]: $!"; |
|
|
|
|
my $ident = ident($self); |
my $ident = ident($self); |
|
|
if ( !ref $entry ) { |
if ( !ref $entry ) { |
$entry = Text::Todo::Entry->new({ text => $entry }); |
$entry = Text::Todo::Entry->new($entry); |
} |
} |
elsif ( ref $entry ne 'Text::Todo::Entry' ) { |
elsif ( ref $entry ne 'Text::Todo::Entry' ) { |
croak( |
croak( |
|
|
|
|
croak "Invalid entry [$entry]!"; |
croak "Invalid entry [$entry]!"; |
} |
} |
|
|
|
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 |
1; # Magic true value required at end of module |
|
|
|
|
=head1 INTERFACE |
=head1 INTERFACE |
|
|
=head2 BUILD |
=head2 new |
|
|
new({ |
new({ |
[ todo_dir => 'directory', ] |
[ todo_dir => 'directory', ] |
|
|
|
|
Allows you to set each item individually. todo_file defaults to todo.txt. |
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' |
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 |
If you what you set matches (.*)todo(.*).txt it will automatically set |
done_file to $1done$2.txt |
done_file to $1done$2.txt |
and |
and |
|
|
|
|
=head1 DEPENDENCIES |
=head1 DEPENDENCIES |
|
|
Class::Std |
Class::Std::Utils |
File::Spec |
File::Spec |
version |
version |
|
|