t/043-parameterized-type.t

   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