diff options
| author | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-08 18:11:07 +0000 |
|---|---|---|
| committer | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-08 18:11:07 +0000 |
| commit | ad4f28c627379c4cd5bc7139ad4d54f88f59f3d5 (patch) | |
| tree | d913f5951cbb80b4fe6e9186a59dfec6e8196d76 /attr.pl | |
| parent | first stab! (diff) | |
| download | data-multivalued-ad4f28c627379c4cd5bc7139ad4d54f88f59f3d5.tar.gz data-multivalued-ad4f28c627379c4cd5bc7139ad4d54f88f59f3d5.tar.bz2 data-multivalued-ad4f28c627379c4cd5bc7139ad4d54f88f59f3d5.zip | |
test type constraint
Diffstat (limited to 'attr.pl')
| -rw-r--r-- | attr.pl | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -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); |