t/001_mouse/070-inherit-role-attr.t

   1 #!perl -w
   2 use strict;
   3 use Test::More;
   4 {
   5     package Role;
   6     use Mouse::Role;
   7
   8     has foo => (
   9         is       => 'bare',
  10         init_arg => undef,
  11     );
  12
  13     package Class;
  14     use Mouse;
  15     with 'Role';
  16
  17     has "+foo" => (
  18         default => 'bar',
  19     );
  20
  21     ::ok( __PACKAGE__->meta->find_attribute_by_name('foo')->has_default );
  22 }
  23
  24 my $foo = Class->meta->get_attribute('foo');
  25 ok $foo;
  26 is $foo->name, 'foo';
  27 is $foo->init_arg, undef;
  28 is $foo->default, 'bar';
  29
  30 done_testing;
  31