Commit | Line | Data |
---|---|---|
5fa003bf | 1 | #!/usr/bin/env perl |
2 | use strict; | |
3 | use warnings; | |
4 | use Test::More tests => 1; | |
5 | use Test::Exception; | |
6 | ||
7 | TODO: { | |
8 | local $TODO = "Mouse does not support parameterized types yet"; | |
9 | ||
10 | eval { | |
11 | package Foo; | |
12 | use Mouse; | |
13 | ||
14 | has foo => ( | |
15 | is => 'ro', | |
16 | isa => 'HashRef[Int]', | |
17 | ); | |
18 | }; | |
19 | ||
20 | ok(Foo->meta->has_attribute('foo')); | |
21 | }; | |
22 |