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
83
84
85
86
87
88
|
package HTML::FormHandler::Field::Result;
# ABSTRACT: result class for fields
use Moose;
with 'HTML::FormHandler::Result::Role';
has 'value' => (
is => 'ro',
writer => '_set_value',
clearer => '_clear_value',
predicate => 'has_value',
);
has 'field_def' => (
is => 'ro',
isa => 'HTML::FormHandler::Field',
writer => '_set_field_def',
);
has 'missing' => ( is => 'rw', isa => 'Bool' );
sub fif {
my $self = shift;
return $self->field_def->fif($self);
}
sub fields_fif {
my ( $self, $prefix ) = @_;
return $self->field_def->fields_fif( $self, $prefix );
}
sub render {
my $self = shift;
return $self->field_def->render($self);
}
sub peek {
my ( $self, $indent ) = @_;
$indent ||= '';
my $name = $self->field_def ? $self->field_def->full_name : $self->name;
my $type = $self->field_def ? $self->field_def->type : 'unknown';
my $string = $indent . "result " . $name . " type: " . $type . "\n";
$string .= $indent . "....value => " . $self->value . "\n" if $self->has_value;
if( $self->has_results ) {
$indent .= ' ';
foreach my $res ( $self->results ) {
$string .= $res->peek( $indent );
}
}
return $string;
}
__PACKAGE__->meta->make_immutable;
use namespace::autoclean;
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
HTML::FormHandler::Field::Result - result class for fields
=head1 VERSION
version 0.40057
=head1 SYNOPSIS
Result class for L<HTML::FormHandler::Field>
=head1 AUTHOR
FormHandler Contributors - see HTML::FormHandler
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2014 by Gerda Shank.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|
