version 1.8, 2010/01/08 04:50:41 |
version 1.11, 2010/01/09 07:08:45 |
|
|
package Text::Todo::Entry; |
package Text::Todo::Entry; |
|
|
# $RedRiver: Entry.pm,v 1.7 2009/07/13 18:05:50 andrew Exp $ |
# $RedRiver: Entry.pm,v 1.9 2010/01/08 17:41:56 andrew Exp $ |
|
|
use warnings; |
use warnings; |
use strict; |
use strict; |
|
|
}; |
}; |
} |
} |
|
|
# Aliases |
|
sub app { append(@_) } |
|
sub change { _update_entry(@_) } |
|
sub depri { _set_priority( @_, '' ) } |
|
sub do { complete(@_) } |
|
sub done { completed(@_) } |
|
sub dp { depri(@_) } |
|
sub p { priority(@_) } |
|
sub prep { prepend(@_) } |
|
sub pri { priority(@_) } |
|
sub replace { _update_entry(@_) } |
sub replace { _update_entry(@_) } |
|
|
sub new { |
sub new { |
|
|
return $text_of{$ident}; |
return $text_of{$ident}; |
} |
} |
|
|
sub _set_priority { |
sub depri { pri( @_, '' ) } |
|
|
|
sub pri { |
my ( $self, $new_pri ) = @_; |
my ( $self, $new_pri ) = @_; |
my $ident = ident($self); |
my $ident = ident($self); |
|
|
|
|
my ( $self, $new_pri ) = @_; |
my ( $self, $new_pri ) = @_; |
my $ident = ident($self); |
my $ident = ident($self); |
|
|
if ($new_pri) { |
|
return $self->_set_priority($new_pri); |
|
} |
|
|
|
return $priority_of{$ident}; |
return $priority_of{$ident}; |
} |
} |
|
|
sub completed { |
|
my ($self) = @_; |
|
my $ident = ident($self); |
|
|
|
return $completion_status_of{$ident}; |
|
} |
|
|
|
sub prepend { |
sub prepend { |
my ( $self, $addition ) = @_; |
my ( $self, $addition ) = @_; |
|
|
|
|
|
|
$new =~ s/$priority_completion_regex//xms; |
$new =~ s/$priority_completion_regex//xms; |
|
|
if ( $self->completed ) { |
if ( $self->done ) { |
push @new, $self->completed; |
push @new, $self->done; |
} |
} |
|
|
if ( $self->priority ) { |
if ( $self->priority ) { |
|
|
return $self->_update_entry( join q{ }, $self->text, $addition ); |
return $self->_update_entry( join q{ }, $self->text, $addition ); |
} |
} |
|
|
sub complete { |
sub do { |
my ($self) = @_; |
my ($self) = @_; |
my $ident = ident($self); |
my $ident = ident($self); |
|
|
if ( $self->completed ) { |
if ( $self->done ) { |
return 1; |
return 1; |
} |
} |
|
|
|
|
return $self->prepend(); |
return $self->prepend(); |
} |
} |
|
|
|
sub done { |
|
my ($self) = @_; |
|
my $ident = ident($self); |
|
|
|
return $completion_status_of{$ident}; |
|
} |
|
|
} |
} |
1; # Magic true value required at end of module |
1; # Magic true value required at end of module |
__END__ |
__END__ |
|
|
|
|
=head2 in_project |
=head2 in_project |
|
|
=head2 change |
=head2 replace |
|
|
=head2 prepend |
=head2 prepend |
|
|
=head2 append |
=head2 append |
|
|
=head2 complete |
=head2 do |
|
|
=head2 completed |
=head2 done |
|
|
|
=head2 pri |
|
|
|
=head2 depri |
|
|
=head1 DIAGNOSTICS |
=head1 DIAGNOSTICS |
|
|