1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
Description: remove use of Class::MOP::load_class and make Moose's new "is a class loaded?" test happy
Author: Gianni Ceccarelli <dakkar@thenautilus.net>
Bug: https://github.com/ashb/WWW-Mechanize-TreeBuilder/pull/4/files
--- a/lib/WWW/Mechanize/TreeBuilder.pm
+++ b/lib/WWW/Mechanize/TreeBuilder.pm
@@ -82,11 +82,12 @@
use MooseX::Role::Parameterized;
use Moose::Util::TypeConstraints;
+use Class::Load 'load_class';
#use HTML::TreeBuilder;
subtype 'WWW.Mechanize.TreeBuilder.LoadClass'
=> as 'Str'
- => where { Class::MOP::load_class($_) }
+ => where { load_class($_) }
=> message { "Cannot load class $_" };
subtype 'WWW.Mechanize.TreeBuilder.TreeClass'
--- a/t/lib/MockTreeBuilder.pm
+++ b/t/lib/MockTreeBuilder.pm
@@ -13,7 +13,7 @@
package #
MockTreeBuilderEle;
-
+$INC{'MockTreeBuilderEle.pm'}=1; # help stricter Moose checking
use base 'HTML::Element';
sub some_other_method { "I exist in " . Scalar::Util::blessed($_[0]) };
|
