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
|
use strict;
use warnings;
use Test::More;
use Test::Moose::More;
use Test::Requires {
'MooseX::SemiAffordanceAccessor' => 0,
};
{
package AAA;
use Moose;
use MooseX::AttributeShortcuts;
use MooseX::SemiAffordanceAccessor;
has rw => (is => 'rw');
has rwp => (is => 'rwp');
has _pvt_rw => (is => 'rw');
has _pvt_rwp => (is => 'rwp');
}
validate_class AAA => (
attributes => [
rw => { reader => 'rw', writer => 'set_rw' },
rwp => { reader => 'rwp', writer => '_set_rwp' },
_pvt_rw => { reader => '_pvt_rw', writer => '_set_pvt_rw' },
_pvt_rwp => { reader => '_pvt_rwp', writer => '_set_pvt_rwp' },
],
methods => [ qw{
rw set_rw
rwp _set_rwp
_pvt_rw _set_pvt_rw
_pvt_rwp _set_pvt_rwp
} ],
);
done_testing;
|
