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 81 82
|
package HTML::FormFu::Processor;
use Moose;
use MooseX::Attribute::Chained;
with 'HTML::FormFu::Role::NestedHashUtils',
'HTML::FormFu::Role::HasParent',
'HTML::FormFu::Role::Populate';
use HTML::FormFu::Attribute qw(
mk_output_accessors
mk_inherited_accessors
);
use HTML::FormFu::ObjectUtil qw(
form
name nested_name
nested_names parent );
use Scalar::Util qw( refaddr reftype );
use Carp qw( croak );
has type => ( is => 'rw', traits => ['Chained'] );
__PACKAGE__->mk_output_accessors(qw( message ));
__PACKAGE__->mk_inherited_accessors(qw( locale ));
*field = \&parent;
sub localize_args {
my $self = shift;
if (@_) {
# user's passing their own args - save them
if ( @_ == 1 ) {
$self->{localize_args} = $_[0];
}
else {
$self->{localize_args} = [@_];
}
return $self;
}
# if the user passed a value, use that - even if it's undef
if ( exists $self->{localize_args} ) {
return $self->{localize_args};
}
# do we have a method to build our own args?
if ( my $method = $self->can('_localize_args') ) {
return $self->$method;
}
return;
}
sub clone {
my ($self) = @_;
my %new = %$self;
return bless \%new, ref $self;
}
1;
__END__
=head1 NAME
HTML::FormFu::Processor - base class for constraints
=head1 AUTHOR
Carl Franks, C<cfranks@cpan.org>
=head1 LICENSE
This library is free software, you can redistribute it and/or modify it under
the same terms as Perl itself.
=cut
|