implement and test crunch method

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

diff --git a/lib/HTML/Element/Library.pm b/lib/HTML/Element/Library.pm
index fa037657ea21e95eda9f5800418f99e31d306215..6e7006a31cc892b5e8c538b53325e3b3c44880dd 100644 (file)
--- a/lib/HTML/Element/Library.pm
+++ b/lib/HTML/Element/Library.pm
@@ -72,6 +72,24 @@ sub HTML::Element::defmap {
 
 }
 
+sub HTML::Element::crunch {
+    my $container = shift;
+
+    my %p = validate(@_, {
+                         look_down => { type => ARRAYREF },
+                         leave => { default => 1 },
+                        });
+
+    my @look_down = @{$p{look_down}} ;
+    my @elem = $container->look_down( @look_down ) ;
+    
+    my $left;
+    
+    for my $elem (@elem) {
+       $elem->detach if $left++ >= $p{leave} ;
+    }
+
+}
 
 sub HTML::Element::hash_map {
     my $container = shift;