version 1.28, 2010/02/14 00:50:56 |
version 1.29, 2010/02/14 06:08:07 |
|
|
package Text::Todo::Entry; |
package Text::Todo::Entry; |
|
|
# $AFresh1: Entry.pm,v 1.27 2010/02/13 23:06:34 andrew Exp $ |
# $AFresh1: Entry.pm,v 1.28 2010/02/14 00:50:56 andrew Exp $ |
|
|
use warnings; |
use warnings; |
use strict; |
use strict; |
|
|
); |
); |
|
|
if ( exists $options->{tags} && ref $options->{tags} eq 'HASH' ) { |
if ( exists $options->{tags} && ref $options->{tags} eq 'HASH' ) { |
foreach my $k ( keys %{ $options->{tags} } ) { |
%tags = ( %tags, %{ $options->{tags} } ); |
$tags{$k} = $options->{tags}->{$k}; |
|
} |
|
} |
} |
|
|
for my $tag ( keys %tags ) { |
for my $tag ( keys %tags ) { |