lfast
New User
Aug 3, 2011, 4:34 PM
Post #1 of 2
(2874 views)
|
|
XML::Lite unblessed reference
|
Can't Post
|
|
Hi Gurus,
Does anyone have a guess why this code generates an unblessed reference error? Code and output below. The output of Data::Dump seems to show that $nodes is blessed however I get the unblessed error at the end of the listing.
Thanks,
Larry
use strict "vars";
use strict "subs";
use XML::DOM::Lite qw(Parser :constants XPath);
use XML::DOM::Lite::NodeList;
use Data::Dumper;
my $xml = q|
<perldata>
<hello>
</hello>
</perldata>
|;
my $doc = Parser->parse($xml);
my $nodes = $doc->selectNodes('/perldata/hello');
$Data::Dumper::Maxdepth=3;
print Data::Dumper->Dump($nodes);
my $len = $nodes->length;
--------------------------------
node dump
$VAR1 = bless( {
'nodeType' => 1,
'childNodes' => bless( [
'XML::DOM::Lite::Node=HASH(0x1f43be4)'
], 'XML::DOM::Lite::NodeList' ),
'ownerDocument' => bless( {
'nodeType' => 9,
'elements' => 'HASH(0x1f432a4)',
'childNodes' => 'XML::DOM::Lite::NodeList=ARRAY(0x1f434d4)',
'nodeName' => '#document',
'documentElement' => 'XML::DOM::Lite::Node=HASH(0x1f439e4)',
'attributes' => 'XML::DOM::Lite::NodeList=ARRAY(0x1f43524)'
}, 'XML::DOM::Lite::Document' ),
'nodeName' => 'hello',
'attributes' => bless( [], 'XML::DOM::Lite::NodeList' ),
'parentNode' => $VAR1->{'ownerDocument'}{'documentElement'},
'tagName' => 'hello'
}, 'XML::DOM::Lite::Node' );
Can't call method "length" on unblessed reference at test.pl line 22.
|
MAIN
SEARCH
WHO'S 
LOG 