From: Vincent Pit <vince@profvince.com>
Date: Tue, 6 Aug 2013 14:36:58 +0000 (-0300)
Subject: Factor the 'target' type constraint outside of L::T::M::TC::A->new
X-Git-Tag: rt87282~3
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=c3b268a795d0378bc3b2a73f8755af80df78b542;p=perl%2Fmodules%2FLaTeX-TikZ.git

Factor the 'target' type constraint outside of L::T::M::TC::A->new
---

diff --git a/lib/LaTeX/TikZ/Meta/TypeConstraint/Autocoerce.pm b/lib/LaTeX/TikZ/Meta/TypeConstraint/Autocoerce.pm
index 25f3879..00fbbf4 100644
--- a/lib/LaTeX/TikZ/Meta/TypeConstraint/Autocoerce.pm
+++ b/lib/LaTeX/TikZ/Meta/TypeConstraint/Autocoerce.pm
@@ -137,6 +137,9 @@ has 'target' => (
  required => 1,
 );
 
+my $target_tc = __PACKAGE__->meta->find_attribute_by_name('target')
+                                 ->type_constraint;
+
 =head2 C<user_constraint>
 
 An optional user defined code reference which predates checking the target for validity.
@@ -169,8 +172,7 @@ around 'new' => sub {
   $target = LaTeX::TikZ::Tools::type_constraint($target) if defined $target;
   Carp::confess("No meta object for $target_name")   unless defined $target;
  }
- __PACKAGE__->meta->find_attribute_by_name('target')
-                  ->type_constraint->assert_valid($target);
+ $target_tc->assert_valid($target);
  $args{target} = $target;
 
  if (any_moose() eq 'Moose') {