Changeset 35735 for lang/perl/HTML-StickyQuery-DoCoMoGUID

Timestamp:

10/27/09 01:00:55 (4 years ago)

Author:

hidek

Message:

add test for abs support

Location:

lang/perl/HTML-StickyQuery-DoCoMoGUID/trunk

Files:

• lib/HTML/StickyQuery/DoCoMoGUID.pm (modified) (1 diff)
• t/07_abs.t (added)

lang/perl/HTML-StickyQuery-DoCoMoGUID/trunk/lib/HTML/StickyQuery/DoCoMoGUID.pm

@@ -8 +8 @@
 
 sub new {
-    my $class = shift;
+    my ($class, %args) = @_;
     bless {
-        sticky => HTML::StickyQuery->new( regexp => qr/./ ),
+        sticky => HTML::StickyQuery->new( regexp => qr/./, %args ),
     }, $class;
 }