The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
my $t; use lib ($t = -e 't' ? 't' : 'test'), 'inc';

use TestpQuery tests => 2;

use pQuery;

$pQuery::document = "$t/document2.html";
# $pQuery::document = 'index.html';

my $pquery;

# $pquery = pQuery('table:eq(1) tr');
$pquery = pQuery->find("table:eq(1) tr");

is $pquery->length, 89, ':eq works';

$pQuery::document = "$t/document3.html";

$pquery = pQuery("$t/document3.html")->find('table:eq(1) tr');

is $pquery->length, 2, '* works';