trAvis - MANAGER

Edit File: 008_RT56837.t

#!/usr/bin/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');