File remove-use-of-Class::MOP::load_class.patch of Package perl-WWW-Mechanize-TreeBuilder

Overview Repositories Revisions Requests Users Attributes Meta

File remove-use-of-Class::MOP::load_class.patch of Package perl-WWW-Mechanize-TreeBuilder

From 6633ca3caf58f21df7b69f0c59c481c755ff31f2 Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com>
Date: Tue, 14 Jan 2014 11:01:42 +0000
Subject: [PATCH] remove use of Class::MOP::load_class

also, make Moose's new "is a class loaded?" test happy
---
 lib/WWW/Mechanize/TreeBuilder.pm | 3 ++-
 t/lib/MockTreeBuilder.pm         | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/WWW/Mechanize/TreeBuilder.pm b/lib/WWW/Mechanize/TreeBuilder.pm
index 0b1fb93..84705e8 100644
--- a/lib/WWW/Mechanize/TreeBuilder.pm
+++ b/lib/WWW/Mechanize/TreeBuilder.pm
@@ -82,11 +82,12 @@ element_class when C<tree_class> is "HTML::TreeBuilder" or
 
 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'
diff --git a/t/lib/MockTreeBuilder.pm b/t/lib/MockTreeBuilder.pm
index d1fb5e8..8e1a676 100644
--- a/t/lib/MockTreeBuilder.pm
+++ b/t/lib/MockTreeBuilder.pm
@@ -13,7 +13,7 @@ $WWW::Mechanize::TreeBuilder::ELEMENT_CLASS_MAPPING{"@{[__PACKAGE__]}"} = 'MockT
 
 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]) };
-- 
2.0.3

Places

File remove-use-of-Class::MOP::load_class.patch of Package perl-WWW-Mechanize-TreeBuilder

Places