version 1.16, 2010/01/12 19:40:52 |
version 1.24, 2010/01/22 18:15:06 |
|
|
package Text::Todo; |
package Text::Todo; |
|
|
# $AFresh1: Todo.pm,v 1.15 2010/01/11 19:52:06 andrew Exp $ |
# $AFresh1: Todo.pm,v 1.23 2010/01/22 01:30:45 andrew Exp $ |
|
|
use warnings; |
use warnings; |
use strict; |
use strict; |
|
|
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.1.1'); |
|
|
{ |
{ |
|
|
my %path_of; |
my @attr_refs = \( |
my %list_of; |
my %path_of, |
my %loaded_of; |
|
|
|
|
my %list_of, |
|
my %loaded_of, |
|
); |
|
|
sub new { |
sub new { |
my ( $class, $options ) = @_; |
my ( $class, $options ) = @_; |
|
|
|
|
if ($pri) { |
if ($pri) { |
$pri = uc $pri; |
$pri = uc $pri; |
if ( $pri !~ /^[A-Z]$/xms ) { |
if ( $pri !~ /^[A-Z]$/xms ) { |
croak "PRIORITY must a single letter from A to Z."; |
croak 'PRIORITY must a single letter from A to Z.'; |
} |
} |
@list = grep { defined $_->priority && $_->priority eq $pri } |
@list = grep { defined $_->priority && $_->priority eq $pri } |
$self->list; |
$self->list; |
|
|
} |
} |
|
|
sub listproj { |
sub listproj { |
my ( $self ) = @_; |
my ($self) = @_; |
return $self->listtag('project'); |
return $self->listtag('project'); |
} |
} |
|
|
sub listcon { |
sub listcon { |
my ( $self ) = @_; |
my ($self) = @_; |
return $self->listtag('context'); |
return $self->listtag('context'); |
} |
} |
|
|
sub listtag { |
sub listtag { |
my ( $self, $tag ) = @_; |
my ( $self, $tag ) = @_; |
my $ident = ident($self); |
my $ident = ident($self); |
|
|
my $accessor = $tag . 's'; |
my $accessor = $tag . 's'; |
|
|
my %available; |
my %available; |
|
|
|
|
my @tags = sort keys %available; |
my @tags = sort keys %available; |
|
|
return wantarray ? @tags: \@tags; |
return wantarray ? @tags : \@tags; |
} |
} |
|
|
sub archive { |
sub archive { |
|
|
|
|
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}; |
|
} |
|
|
|
return; |
|
} |
} |
} |
|
|
1; # Magic true value required at end of module |
1; # Magic true value required at end of module |
|
|
|
|
=head1 NAME |
=head1 NAME |
|
|
Text::Todo - Perl interface to todo_txt files |
Text::Todo - Perl interface to todotxt files |
|
|
|
|
=head1 VERSION |
=head1 VERSION |