Changeset 1139

Timestamp:

11/05/07 15:25:43 (6 years ago)

Author:

miyagawa

Message:

r5477@rock (orig r1993): miyagawa | 2006-10-02 09:33:02 -0700
fixed SYNOPSIS. Added functional interface. Added test using H::TB::XPath

Location:

lang/perl/HTML-Selector-XPath/trunk

Files:

• MANIFEST (modified) (1 diff)
• lib/HTML/Selector/XPath.pm (modified) (3 diffs)
• t/02_html.t (added)

lang/perl/HTML-Selector-XPath/trunk/MANIFEST

@@ -23 +23 @@
 t/00_compile.t
 t/01_xpath.t
+t/02_html.t
 t/99_pod.t

lang/perl/HTML-Selector-XPath/trunk/lib/HTML/Selector/XPath.pm

@@ -3 +3 @@
 use strict;
 our $VERSION = '0.01';
+
+require Exporter;
+our @EXPORT_OK = qw(selector_to_xpath);
+*import = \&Exporter::import;
+
+sub selector_to_xpath {
+    __PACKAGE__->new(shift)->to_xpath;
+}
 
 my $reg = {
@@ -147 +155 @@
   use HTML::Selector::XPath;
 
-  my $selector = HTML::Selector::XPath->new("li.main");
+  my $selector = HTML::Selector::XPath->new("li#main");
   $selector->to_xpath; # //li[@id='main']
+
+  # functional interface
+  use HTML::Selector::Xpath 'selector_to_xpath';
+  my $xpath = selector_to_xpath('div.foo');
 
 =head1 DESCRIPTION
@@ -182 +194 @@
 =head1 SEE ALSO
 
+L<http://www.w3.org/TR/REC-CSS2/selector.html>
 L<http://use.perl.org/~miyagawa/journal/31090>