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
29
30
31
32
|
use strictures 2;
#use if !(-e 'META.yml'), "Test::InDistDir";
use Test::More;
BEGIN {
package MainRole;
use Mu::Role;
use Test::More;
ro "roletest";
ok( MainRole->can( $_ ), "role can do $_" ) for qw( ro lazy rwp rw );
}
use Mu;
ro "test";
ok( main->can( $_ ), "class can do $_" ) for qw( ro lazy rwp rw );
with "MainRole";
run();
done_testing;
exit;
sub run {
my $s = main->new( test => 3, roletest => 3 );
is eval { $s->test( 2 ); 1 }, undef, "test is indeed ro";
is $s->test, 3, "reading test works";
is eval { $s->roletest( 2 ); 1 }, undef, "roletest is indeed ro";
is $s->roletest, 3, "reading roletest works";
return;
}
|
