297 |
${$_[1]}->{body}; |
${$_[1]}->{body}; |
298 |
} else { |
} else { |
299 |
${$_[1]}->{body} = $_[0]->_parse_value (${$_[1]}->{name} => ${$_[1]}->{body}, |
${$_[1]}->{body} = $_[0]->_parse_value (${$_[1]}->{name} => ${$_[1]}->{body}, |
300 |
ns => ${$_[1]}->{ns}); |
ns => ${$_[1]}->{ns}) if $_[2]->{parse}; |
301 |
${$_[1]}->{body}; |
${$_[1]}->{body}; |
302 |
} |
} |
303 |
} |
} |
595 |
$self if defined wantarray; |
$self if defined wantarray; |
596 |
} |
} |
597 |
|
|
598 |
|
sub resent_item ($$$;%) { |
599 |
|
my $self = shift; |
600 |
|
my ($index, $item_name, %option) = @_; |
601 |
|
## TODO: implement this |
602 |
|
} |
603 |
|
|
604 |
=item $self->scan(\&doit) |
=item $self->scan(\&doit) |
605 |
|
|