version 1.20, 2010/01/18 03:04:48 |
version 1.25, 2010/02/13 23:26:44 |
|
|
package Text::Todo; |
package Text::Todo; |
|
|
# $AFresh1: Todo.pm,v 1.19 2010/01/18 02:46:48 andrew Exp $ |
# $AFresh1: Todo.pm,v 1.24 2010/01/22 18:15:06 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 %list_of, |
my %list_of, |
my %loaded_of, |
my %loaded_of, |
|
my %known_tags_of, |
); |
); |
|
|
sub new { |
sub new { |
|
|
done_file => undef, |
done_file => undef, |
}; |
}; |
|
|
|
$known_tags_of{$ident} = { |
|
context => '@', |
|
project => '+', |
|
}; |
|
|
if ($options) { |
if ($options) { |
if ( ref $options eq 'HASH' ) { |
if ( ref $options eq 'HASH' ) { |
foreach my $opt ( keys %{$options} ) { |
foreach my $opt ( keys %{$options} ) { |
if ( exists $path_of{$ident}{$opt} ) { |
if ( exists $path_of{$ident}{$opt} ) { |
$self->_path_to( $opt, $options->{$opt} ); |
$self->_path_to( $opt, $options->{$opt} ); |
} |
} |
|
elsif ( $opt eq 'tags' ) { |
|
foreach my $tag ( keys %{ $options->{$opt} } ) { |
|
$known_tags_of{$ident}{$tag} |
|
= $options->{$opt}{$tag}; |
|
} |
|
} |
else { |
else { |
|
|
#carp "Invalid option [$opt]"; |
#carp "Invalid option [$opt]"; |
|
|
my $ident = ident($self); |
my $ident = ident($self); |
|
|
if ( !ref $entry ) { |
if ( !ref $entry ) { |
$entry = Text::Todo::Entry->new($entry); |
$entry = Text::Todo::Entry->new( |
|
{ text => $entry, |
|
tags => $self->_known_tags, |
|
} |
|
); |
} |
} |
elsif ( ref $entry ne 'Text::Todo::Entry' ) { |
elsif ( ref $entry ne 'Text::Todo::Entry' ) { |
croak( |
croak( |
|
|
return wantarray ? @tags : \@tags; |
return wantarray ? @tags : \@tags; |
} |
} |
|
|
|
sub _known_tags { |
|
my ($self) = @_; |
|
my $ident = ident($self); |
|
|
|
my @list = $self->list; |
|
|
|
foreach my $e (@list) { |
|
my $kt = $e->known_tags; |
|
foreach my $t ( keys %{$kt} ) { |
|
if ( !exists $known_tags_of{$ident}{$t} ) { |
|
$known_tags_of{$ident}{$t} = $kt->{$t}; |
|
} |
|
} |
|
} |
|
|
|
return $known_tags_of{$ident}; |
|
} |
|
|
|
sub listtags { |
|
my ($self) = @_; |
|
my $ident = ident($self); |
|
|
|
my @list = sort keys %{ $self->_known_tags }; |
|
|
|
return wantarray ? @list : \@list; |
|
} |
|
|
sub archive { |
sub archive { |
my ($self) = @_; |
my ($self) = @_; |
my $ident = ident($self); |
my $ident = ident($self); |
|
|
sub DESTROY { |
sub DESTROY { |
my ($self) = @_; |
my ($self) = @_; |
my $ident = ident $self; |
my $ident = ident $self; |
|
|
foreach my $attr_ref (@attr_refs) { |
foreach my $attr_ref (@attr_refs) { |
delete $attr_ref->{$ident}; |
delete $attr_ref->{$ident}; |
} |
} |
|
|
|
return; |
} |
} |
} |
} |
|
|
|
|
|
|
=head1 NAME |
=head1 NAME |
|
|
Text::Todo - Perl interface to todo_txt files |
Text::Todo - Perl interface to todotxt files |
|
|
|
|
=head1 VERSION |
=head1 VERSION |
|
|
|
|
I think it may become depreciated unless there is demand. |
I think it may become depreciated unless there is demand. |
|
|
=head2 listtag |
=head2 listtags |
|
|
|
Returns a list of the tags known to the list. |
|
|
|
=head2 listtag($tag) |
|
|
Returns tags found in the list sorted by name. |
Returns tags found in the list sorted by name. |
|
|