fixed test suite

[html-element-library.git] / lib / HTML / Element / Library.pm

diff --git a/lib/HTML/Element/Library.pm b/lib/HTML/Element/Library.pm
index 7c6cf7557808cc42dc40b5c89fa4b55a27dc470f..60c7a4a19b91218ce357d8851a36a17284882e74 100644 (file)
--- a/lib/HTML/Element/Library.pm
+++ b/lib/HTML/Element/Library.pm
@@ -43,16 +43,27 @@ sub HTML::Element::hash_map {
     my %p = validate(@_, {
                          hash => { type => HASHREF },
                          to_attr => 1,
-                         excluding => { type => ARRAYREF },
+                         excluding => { type => ARRAYREF , default => [] },
                          debug => { default => 0 },
                         });
 
-    my @same_as = $container->look_down('_attr' => $p{to_attr});
+    warn 'The container tag is ', $container->tag if $p{debug} ;
+    warn 'hash' . Dumper($p{hash}) if $p{debug} ;
+    warn 'at_under' . Dumper(\@_);
+
+    my @same_as = $container->look_down( $p{to_attr} => qr/.+/ ) ;
+
+    warn 'Found ' . scalar(@same_as) . ' nodes' if $p{debug} ;
+
 
     for my $same_as (@same_as) {
-       next if first { $same_as->attr($p{to_attr})  eq $_ } @{$p{excluding}} ;
-       my $hash_key =  $same_as->attr($p{to_attr}) ;
-       $same_as->replace_content( $p{hash}->{$hash_key} ) ;
+       my $attr_val = $same_as->attr($p{to_attr}) ;
+       if (first { $attr_val eq $_ } @{$p{excluding}}) {
+           warn "excluding $attr_val" if $p{debug} ;
+           next;
+       }
+       warn "processing $attr_val" if $p{debug} ;
+       $same_as->replace_content( $p{hash}->{$attr_val} ) ;
     }
 
 }