v0.04

git-svn-id: http://svn.kwiki.org/kwiki/trunk/src/ingy/pQuery@354 4b3b33bc-d223-0410-9309-b363ae52eedd

Changes

@@ -1,3 +1,10 @@
+---
+version: 0.04
+date:    Sat Mar 15 02:53:57 GMT 2008
+changes:
+- Bugs in MANIFEST
+- More porting
+
 ---
 version: 0.03
 date:    Thu Mar 13 04:14:09 GMT 2008

MANIFEST

@@ -25,6 +25,10 @@ t/contructors.t
 t/document1.html
 t/dom.t
 t/each.t
+t/end.t
 t/find.t
 t/html.t
+t/ideas
+t/misc.t
+t/TestpQuery.pm
 t/text.t

README

@@ -213,8 +213,8 @@ METHODS
     If this method is passed an integer, it will return that specific
     element from the array of elements in the pQuery object.
 
-    This method will fetch the HTML content of the URL and return a
-    HTML::Response object.
+    Givn a URL, this method will fetch the HTML content of the URL and
+    return a HTML::Response object.
 
         my $html = pQuery.get("http://google.com")->content;
 

lib/pQuery.pm

@@ -8,7 +8,7 @@ use pQuery::DOM;
 
 use base 'Exporter';
 
-our $VERSION = '0.03';
+our $VERSION = '0.04';
 
 our @EXPORT = qw(pQuery PQUERY);
 
@@ -216,15 +216,15 @@ sub end {
 }
 
 # XXX - Not really ported yet.
-# sub find {
-#     my $this = shift;
-#     my $selector = shift or return;
-#     my $elems = [];
-#     $this->each(sub {
-#         _find_elems($_, $selector, $elems);
-#     });
-#     return $this->pushStack($elems);
-# }
+sub find {
+    my $this = shift;
+    my $selector = shift or return;
+    my $elems = [];
+    $this->each(sub {
+        _find_elems($_, $selector, $elems);
+    });
+    return $this->pushStack($elems);
+}
 
 # sub find {
 #     my ($this, $selector) = @_;

t/dom.t

@@ -1,6 +1,4 @@
-use Test::More tests => 33;
-use strict;
-use warnings;
+use t::TestpQuery tests => 33;
 
 use pQuery::DOM;
 

t/each.t

@@ -1,6 +1,4 @@
-use Test::More tests => 1;
-use strict;
-use warnings;
+use t::TestpQuery tests => 1;
 
 use pQuery;
 

t/find.t

@@ -1,6 +1,4 @@
-use Test::More tests => 2;
-use strict;
-use warnings;
+use t::TestpQuery tests => 2;
 
 use pQuery;
 

t/html.t

@@ -1,6 +1,4 @@
-use Test::More tests => 7;
-use strict;
-use warnings;
+use t::TestpQuery tests => 7;
 
 use pQuery;
 

t/text.t

@@ -1,6 +1,4 @@
-use Test::More tests => 1;
-use strict;
-use warnings;
+use t::TestpQuery tests => 1;
 
 use pQuery;