t/q

   1 # I am trying to run this code:
   2
   3 $t1 = HTML::TreeBuilder->new_from_content ( $html ) ;
   4
   5 my $found= $t1->look_down(id => 'findme');
   6
   7 warn "blessed as: $found";
   8 bless $found, 'HTML::Element::Library';
   9 warn "blessed as: $found";
  10
  11 my @found = $found->position;
  12 warn "@found";
  13
  14 # But I get this error (it is part of a test suite):
  15
  16 blessed as: HTML::Element=HASH(0x81632d8) at t/position.t line 31.
  17 blessed as: HTML::Element::Library=HASH(0x81632d8) at t/position.t line 33.
  18 Can't locate object method "addr" via package "HTML::Element" at /home/terry/perl/hax/HTML-Element-Library/blib/lib/HTML/Element/Library.pm line 66.
  19
  20 # What I don't understand is why it says it can't locate the method "addr"
  21 # in package HTML::Element when the method was reblessed as
  22 # HTML::Element::Library and sub addr is right here in the package
  23 # HTML::Element::Library