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
|
use FindBin;
use Test::More;
use utf8;
use strict;
use warnings;
{
package TestClass::ProxyMethods;
use Validation::Class;
package main;
my $class = "TestClass::ProxyMethods";
my $self = $class->new;
ok $class eq ref $self, "$class instantiated";
my @meths = (qw(
class
clear_queue
error
error_count
error_fields
errors
errors_to_string
get_errors
get_fields
get_hash
get_params
get_values
fields
filtering
ignore_failure
ignore_unknown
param
params
plugin
queue
report_failure
report_unknown
reset_errors
reset_fields
reset_params
set_errors
set_fields
set_params
stash
),
# wrapped
qw(
validate
validates
validate_method
method_validates
validate_profile
profile_validates
));
for my $m (@meths) {
ok $self->can($m),
"$class can access the prototype method $m directly by proxy"
}
}
done_testing;
|
