todotxt/Text-Todo/lib/Text/Todo.pm - diff

Return to Todo.pm CVS log

Up to [local] / todotxt / Text-Todo / lib / Text

version 1.16, 2010/01/12 19:40:52

version 1.17, 2010/01/12 20:09:02

Line 1

package Text::Todo;

# $AFresh1: Todo.pm,v 1.15 2010/01/11 19:52:06 andrew Exp $

# $AFresh1: Todo.pm,v 1.16 2010/01/12 19:40:52 andrew Exp $

use warnings;

use strict;

Line 203

if ($pri) {

$pri = uc $pri;

if ( $pri !~ /^[A-Z]$/xms ) {

croak "PRIORITY must a single letter from A to Z.";

croak 'PRIORITY must a single letter from A to Z.';

}

@list = grep { defined $_->priority && $_->priority eq $pri }

$self->list;

Line 260

}

sub listproj {

my ( $self ) = @_;

my ($self) = @_;

return $self->listtag('project');

}

sub listcon {

my ( $self ) = @_;

my ($self) = @_;

return $self->listtag('context');

}

sub listtag {

my ( $self, $tag ) = @_;

my $ident = ident($self);

my $accessor = $tag . 's';

my %available;

Line 284

my @tags = sort keys %available;

return wantarray ? @tags: \@tags;

return wantarray ? @tags : \@tags;

}

sub archive {