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
89
90
91
92
93
94
95
|
package HTML::FormHandler::Pages;
# ABSTRACT: used in Wizard
use Moose::Role;
has 'pages' => (
traits => ['Array'],
isa => 'ArrayRef[HTML::FormHandler::Page]',
is => 'rw',
default => sub { [] },
auto_deref => 1,
handles => {
all_pages => 'elements',
clear_pages => 'clear',
push_page => 'push',
num_pages => 'count',
has_pages => 'count',
set_page_at => 'set',
get_page => 'get',
}
);
has 'page_name_space' => (
isa => 'Str|ArrayRef[Str]|Undef',
is => 'rw',
lazy => 1,
builder => 'build_page_name_space',
);
sub build_page_name_space { '' }
sub page_index {
my ( $self, $name ) = @_;
my $index = 0;
for my $page ( $self->all_pages ) {
return $index if $page->name eq $name;
$index++;
}
return;
}
sub page {
my ( $self, $name, $die ) = @_;
my $index;
# if this is a full_name for a compound page
# walk through the pages to get to it
return undef unless ( defined $name );
if ( $name =~ /\./ ) {
my @names = split /\./, $name;
my $f = $self->form || $self;
foreach my $pname (@names) {
$f = $f->page($pname);
return unless $f;
}
return $f;
}
else # not a compound name
{
for my $page ( $self->all_pages ) {
return $page if ( $page->name eq $name );
}
}
return unless $die;
die "Page '$name' not found in '$self'";
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
HTML::FormHandler::Pages - used in Wizard
=head1 VERSION
version 0.40057
=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
|
