File: MockTreeBuilder.pm

package info (click to toggle)
libwww-mechanize-treebuilder-perl 1.10002-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 184 kB
  • ctags: 115
  • sloc: perl: 1,269; makefile: 2
file content (23 lines) | stat: -rw-r--r-- 411 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
package #
  MockTreeBuilder;

use base 'HTML::TreeBuilder';

sub new {
  my $self = shift->SUPER::new(@_);
  $self->{_element_class} = 'MockTreeBuilderEle';
  return $self;
}

$WWW::Mechanize::TreeBuilder::ELEMENT_CLASS_MAPPING{"@{[__PACKAGE__]}"} = 'MockTreeBuilderEle';

package #
  MockTreeBuilderEle;

use base 'HTML::Element';

sub some_other_method { "I exist in " . Scalar::Util::blessed($_[0]) };



1;