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;
|