[libmoox-late-perl] 06/11: debugging

[Intrigeri]

This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to tag 0.012
in repository libmoox-late-perl.

commit 37d610df495875557279ab3fb014673e97ed4ef6
Author: Toby Inkster <mail at tobyinkster.co.uk>
Date:   Tue Jun 25 14:42:33 2013 +0100

    debugging
---
 t/02inflation.t | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/t/02inflation.t b/t/02inflation.t
index ff78a8e..2d4c4cb 100644
--- a/t/02inflation.t
+++ b/t/02inflation.t
@@ -27,14 +27,19 @@ BEGIN {
 	has foo => (is => 'ro', isa => 'Str', default => 'foo');
 };
 
+my $isa = "Moo"->_constructor_maker_for("Local::Class")->all_attribute_specs->{foo}{isa};
+note explain($isa);
+
 ok not eval {
-	my $obj = Local::Class->new(foo => [])
+	my $obj = "Local::Class"->new(foo => [])
 };
 
 eval {
 	require Moose;
 	
-	my $foo = Local::Class->meta->get_attribute('foo');
+	my $foo = "Local::Class"->meta->get_attribute('foo');
+	note explain($foo->type_constraint);
+	
 	is(
 		$foo->type_constraint->name,
 		'Str',

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmoox-late-perl.git