version 1.6, 2010/01/09 05:15:20 |
version 1.7, 2010/01/09 05:26:51 |
|
|
package Text::Todo; |
package Text::Todo; |
|
|
# $RedRiver: Todo.pm,v 1.5 2010/01/09 05:00:21 andrew Exp $ |
# $RedRiver: Todo.pm,v 1.6 2010/01/09 05:15:20 andrew Exp $ |
|
|
use warnings; |
use warnings; |
use strict; |
use strict; |
|
|
return wantarray ? @projects : \@projects; |
return wantarray ? @projects : \@projects; |
} |
} |
|
|
sub archive { carp "unsupported\n"; return } |
sub archive { carp 'unsupported'; return } |
sub addto { carp "unsupported\n"; return } |
sub addto { carp 'unsupported'; return } |
sub listfile { carp "unsupported\n"; return } |
sub listfile { carp 'unsupported'; return } |
|
|
sub _find_entry_id { |
sub _find_entry_id { |
my ( $self, $entry ) = @_; |
my ( $self, $entry ) = @_; |