[libmoox-late-perl] 06/11: debugging
Intrigeri
intrigeri at moszumanska.debian.org
Thu Aug 14 11:13:47 UTC 2014
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
More information about the Pkg-perl-cvs-commits
mailing list