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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
BEGIN {
use FindBin;
use lib $FindBin::Bin . "/myapp/lib";
}
use Test::More;
SKIP: {
eval { require 'Class/Method/Modifiers.pm' };
$@
? plan skip_all => 'Class::Method::Modifiers is not installed.'
: eval <<'CLASS';
package TestClass::Modified;
use Validation::Class;
use Class::Method::Modifiers;
fld name => {
required => 1
};
has log => 0;
after validate => sub {
my ($self) = @_;
$self->log($self->error_count ? 1 : 0);
};
mth change_log => {
input => ['name'],
using => sub {
shift->log('thank you')
}
};
after change_log => sub {
my ($self) = @_;
$self->log($self->log eq 'thank you' ? 1 : 0);
};
CLASS
package main;
my $class = "TestClass::Modified";
my $self = $class->new;
ok $class eq ref $self, "$class instantiated";
$self->validate('name');
ok $self->log, "validate() modifier setting log attribute as expected";
$self->name('iamlegend');
$self->validate('name');
ok !$self->log, "validate() modifier setting log attribute as expected";
ok $self->change_log, "change_log() validates as expected";
ok $self->log, "change_log() modifier setting log attribute as expected";
$self->name('');
$self->change_log;
ok !$self->log, "change_log() modifier setting log attribute as expected";
}
done_testing;
|
