157 |
} elsif ($line =~ m/^$/) { |
} elsif ($line =~ m/^$/) { |
158 |
$in_text = 1; |
$in_text = 1; |
159 |
next; |
next; |
160 |
} elsif ($line =~ m/^(.+)=(.+)$/) { |
} elsif ($line =~ m/^(.+)=(.*)$/) { |
161 |
$self->{attrs}->{ $1 } = $2; |
$self->{attrs}->{ $1 } = $2; |
162 |
next; |
next; |
163 |
} |
} |
164 |
|
|
165 |
warn "draft ignored: $line\n"; |
warn "draft ignored: '$line'\n"; |
166 |
} |
} |
167 |
} |
} |
168 |
|
|
735 |
return $self->{hints}->{$key}; |
return $self->{hints}->{$key}; |
736 |
} |
} |
737 |
|
|
738 |
|
=head2 hints |
739 |
|
|
740 |
|
More perlish version of C<hint>. This one returns hash. |
741 |
|
|
742 |
|
my %hints = $rec->hints; |
743 |
|
|
744 |
|
=cut |
745 |
|
|
746 |
|
sub hints { |
747 |
|
my $self = shift; |
748 |
|
return $self->{hints}; |
749 |
|
} |
750 |
|
|
751 |
package Search::Estraier::Node; |
package Search::Estraier::Node; |
752 |
|
|