version 1.2, 2009/07/10 23:26:14 |
version 1.3, 2010/01/06 19:54:56 |
|
|
package Text::Todo; |
package Text::Todo; |
|
|
# $RedRiver: Todo.pm,v 1.1.1.1 2009/07/09 18:21:34 andrew Exp $ |
# $RedRiver: Todo.pm,v 1.2 2009/07/10 22:26:14 andrew Exp $ |
|
|
use warnings; |
use warnings; |
use strict; |
use strict; |
|
|
my $self = bless anon_scalar(), $class; |
my $self = bless anon_scalar(), $class; |
my $ident = ident($self); |
my $ident = ident($self); |
|
|
$file_of{$ident} = $file; |
if ($file) { $self->load($file); } |
|
|
if ($file) { |
|
$self->load; |
|
} |
|
|
|
return $self; |
return $self; |
} |
} |
|
|
sub load { |
sub file { |
my ( $self, $file ) = @_; |
my ( $self, $file ) = @_; |
my $ident = ident($self); |
my $ident = ident($self); |
|
|
if ($file) { |
if ($file) { |
$file_of{$ident} = $file; |
$file_of{$ident} = $file; |
} |
} |
else { |
|
$file = $file_of{$ident}; |
|
} |
|
|
|
croak 'load requires a filename' if !$file; |
return $file_of{$ident}; |
|
} |
|
|
|
sub load { |
|
my ( $self, $file ) = @_; |
|
my $ident = ident($self); |
|
|
|
$file = $self->file($file) || croak 'load requires a filename'; |
|
|
my @list; |
my @list; |
open my $fh, '<', $file or croak "Couldn't open [$file]: $!"; |
open my $fh, '<', $file or croak "Couldn't open [$file]: $!"; |
while (<$fh>) { |
while (<$fh>) { |
|
|
my ( $self, $file ) = @_; |
my ( $self, $file ) = @_; |
my $ident = ident($self); |
my $ident = ident($self); |
|
|
if ($file) { |
$file = $self->file($file) || croak 'save requires a filename'; |
$file_of{$ident} = $file; |
|
} |
|
else { |
|
$file = $file_of{$ident}; |
|
} |
|
|
|
croak 'save requires a filename' if !$file; |
|
|
|
open my $fh, '>', $file or croak "Couldn't open [$file]: $!"; |
open my $fh, '>', $file or croak "Couldn't open [$file]: $!"; |
foreach my $e ( @{ $list_of{$ident} } ) { |
foreach my $e ( @{ $list_of{$ident} } ) { |
print $e->text . "\n" or croak "Couldn't print to [$file]: $!"; |
print {$fh} $e->text . "\n" |
|
or croak "Couldn't print to [$file]: $!"; |
} |
} |
close $fh or croak "Couldn't close [$file]: $!"; |
close $fh or croak "Couldn't close [$file]: $!"; |
|
|
|
|
} |
} |
|
|
sub list { |
sub list { |
my ($self) = shift; |
my ($self) = @_; |
my $ident = ident($self); |
my $ident = ident($self); |
return if !$list_of{$ident}; |
return if !$list_of{$ident}; |
|
|
|
|
#return \@list; |
#return \@list; |
} |
} |
|
|
|
sub add { |
|
my ( $self, $entry ) = @_; |
|
my $ident = ident($self); |
|
|
|
if ( ref $entry ) { |
|
if ( ref $entry ne 'Text::Todo::Entry' ) { |
|
croak( 'entry is a ' |
|
. ref($entry) |
|
. ' not a Text::Todo::Entry!' ); |
|
} |
|
} |
|
else { |
|
$entry = Text::Todo::Entry->new($entry); |
|
} |
|
|
|
push @{ $list_of{$ident} }, $entry; |
|
|
|
return $entry; |
|
} |
} |
} |
|
|
1; # Magic true value required at end of module |
1; # Magic true value required at end of module |
|
|
|
|
=head2 save |
=head2 save |
|
|
|
=head2 file |
|
|
=head2 list |
=head2 list |
|
|
|
=head2 add |
|
|
=head1 DIAGNOSTICS |
=head1 DIAGNOSTICS |
|
|