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
33
34
35
36
37
38
39
40
41
42
43
|
#!/usr/bin/perl
use v5.18;
use warnings;
use Test2::V0;
use Object::Pad 0.800 ':experimental(mop)';
{
package ARole {
BEGIN {
Object::Pad->import_into( "ARole" );
my $rolemeta = Object::Pad::MOP::Class->begin_role( "ARole" );
$rolemeta->add_field( '$field',
param => "role_field",
reader => "get_role_field",
);
$rolemeta->add_required_method( 'some_method' );
}
}
}
{
class AClass {
apply ARole;
method some_method {}
}
my $obj = AClass->new( role_field => "the field value" );
is( $obj->get_role_field, "the field value", 'instance field accessible via role' );
}
{
ok( !eval "class BClass { apply ARole; }", 'BClass does not compile' );
like( $@, qr/^Class BClass does not provide a required method named 'some_method' at /,
'message from failure to compile BClass' );
}
done_testing;
|
