| version 1.10, 2010/01/09 07:07:31 |
version 1.11, 2010/01/09 07:08:45 |
|
|
| } |
} |
| |
|
| sub replace { _update_entry(@_) } |
sub replace { _update_entry(@_) } |
| sub depri { _set_priority( @_, '' ) } |
|
| sub pri { _set_priority(@_) } |
|
| |
|
| sub new { |
sub new { |
| my ( $class, $text ) = @_; |
my ( $class, $text ) = @_; |
|
|
| 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); |
| |
|
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to Entry.pm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / todotxt / Text-Todo / lib / Text / Todo