[BACK]Return to Entry.pm CVS log [TXT][DIR] Up to [local] / todotxt / Text-Todo / lib / Text / Todo

Diff for /todotxt/Text-Todo/lib/Text/Todo/Entry.pm between version 1.9 and 1.11

version 1.9, 2010/01/08 17:41:56 version 1.11, 2010/01/09 07:08:45
Line 1 
Line 1 
 package Text::Todo::Entry;  package Text::Todo::Entry;
   
 # $RedRiver: Entry.pm,v 1.8 2010/01/08 04:50:41 andrew Exp $  # $RedRiver: Entry.pm,v 1.9 2010/01/08 17:41:56 andrew Exp $
   
 use warnings;  use warnings;
 use strict;  use strict;
Line 46 
Line 46 
         };          };
     }      }
   
     # Aliases  
     sub change  { _update_entry(@_) }  
     sub depri   { _set_priority( @_, '' ) }  
     sub pri     { priority(@_) }  
     sub replace { _update_entry(@_) }      sub replace { _update_entry(@_) }
   
     sub new {      sub new {
Line 102 
Line 98 
         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);
   
Line 119 
Line 117 
         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};
     }      }
   
Line 134 
Line 128 
   
         $new =~ s/$priority_completion_regex//xms;          $new =~ s/$priority_completion_regex//xms;
   
         if ( $self->done) {          if ( $self->done ) {
             push @new, $self->done;              push @new, $self->done;
         }          }
   
Line 158 
Line 152 
         my ($self) = @_;          my ($self) = @_;
         my $ident = ident($self);          my $ident = ident($self);
   
         if ( $self->done) {          if ( $self->done ) {
             return 1;              return 1;
         }          }
   
Line 227 
Line 221 
   
 =head2 in_project  =head2 in_project
   
 =head2 change  =head2 replace
   
 =head2 prepend  =head2 prepend
   
Line 237 
Line 231 
   
 =head2 done  =head2 done
   
   =head2 pri
   
   =head2 depri
   
 =head1 DIAGNOSTICS  =head1 DIAGNOSTICS
   
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.11
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>