From ad4f28c627379c4cd5bc7139ad4d54f88f59f3d5 Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <dakkar@thenautilus.net>
Date: Tue, 8 Nov 2011 18:11:07 +0000
Subject: test type constraint

---
 attr.pl | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'attr.pl')

diff --git a/attr.pl b/attr.pl
index 8a53889..18ea6b0 100644
--- a/attr.pl
+++ b/attr.pl
@@ -317,6 +317,9 @@ my $obj = Foo->new();
 p $obj;
 
 say $obj->stuff(2);
+
+eval { say $obj->stuff('wrong') } or say $@;
+
 say $obj->stuff_timed({from=>10,to=>20},5);
 say $obj->stuff_timed({},3);
 
-- 
cgit v1.2.3