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.5, 2009/07/11 17:02:18

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

Line 1

package Text::Todo::Entry;

# $RedRiver: Entry.pm,v 1.4 2009/07/11 15:58:50 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;