-our $VERSION = '4.3';
+
$self;
}
+sub HTML::Element::newchild {
+ my ($lol, $parent_label, @newchild)=@_;
+
+ use Data::Rmap qw(rmap_array);
+
+ my ($mapresult) = rmap_array {
+
+
+ if ($_->[0] eq $parent_label) {
+ $_ = [ $parent_label => @newchild ];
+ Data::Rmap::cut($_);
+ } else {
+ $_;
+ }
+
+ } $lol;
+
+ $mapresult;
+
+}
sub HTML::Element::crunch {
my $container = shift;