From 57d1fb144c7288216e33842337a21394703170b5 Mon Sep 17 00:00:00 2001 From: Rafael Kitover Date: Wed, 4 Aug 2010 23:09:54 -0400 Subject: support class_has with no isa, with test --- t/01-basic.t | 2 ++ 1 file changed, 2 insertions(+) (limited to 't') diff --git a/t/01-basic.t b/t/01-basic.t index b203699..f6d017f 100644 --- a/t/01-basic.t +++ b/t/01-basic.t @@ -28,6 +28,8 @@ use Test::NoWarnings; has uncoerced_attr => (is => 'rw', isa => 'Uncoerced'); class_has uncoerced_class_attr => (is => 'rw', isa => 'Uncoerced'); + + class_has untyped_class_attr => (is => 'rw'); } ok( (my $instance = MyClass->new), 'instance' ); -- cgit v1.2.3-54-g00ecf