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

Return to Entry.pm CVS log

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

version 1.4, 2009/07/11 16:58:50

version 1.6, 2009/07/13 18:50:37

Line 1

package Text::Todo::Entry;

# $RedRiver: Entry.pm,v 1.3 2009/07/10 22:52:08 andrew Exp $

# $RedRiver: Entry.pm,v 1.5 2009/07/11 16:02:18 andrew Exp $

use warnings;

use strict;

Line 59

foreach my $tag ( keys %tags ) {

my $symbol = quotemeta $tags{$tag};

$tags_of{$ident}{$tag}

$tags_of{$ident}{$tag} = { map { $_ => q{} }

= { map { $_ => q{} } $text =~ / $symbol (\S+)/gxms };

$text =~ / (?:^|\s) $symbol (\S+)/gxms };

}

( $priority_of{$ident} ) = $text =~ /^ \s* $ ([A-Z]) $/ixms;

Line 76

}

sub _is_in {

my ( $self, $type, $item ) = @_;

my ( $self, $tags, $item ) = @_;

my $ident = ident($self);

return defined first { $_ eq $item } $self->$tags;

return defined first { $_ eq $item } $self->$type;

}

sub text {