1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!perl
# This test is contributed by Sanko Robinson.
# https://rt.cpan.org/Public/Bug/Display.html?id=56837
# "Role application to instance with init_arg'd attributes"
use strict;
use Test::More tests => 2;
{
package Admin;
use Mouse::Role;
sub shutdown {1}
}
{
package User;
use Mouse;
has 'name' =>
(isa => 'Str', is => 'ro', init_arg => 'Name', required => 1);
}
package main;
my $tim = User->new(Name => 'Tim');
Admin->meta->apply($tim);
ok($tim->can('shutdown'),
'The role was successfully composed at the object level');
is($tim->name, 'Tim',
'... attribute with init_arg was re-initialized correctly');
|
