The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

GSHANK / HTML-FormHandler-0.40068 / lib / HTML / FormHandler / Moose.pm 

            

              
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
96
97
98
99
100
101
102
103
104
105
106
107

              
package  HTML::FormHandler::Moose;
# ABSTRACT: to add FormHandler sugar
$HTML::FormHandler::Moose::VERSION = '0.40068';
use Moose;
use Moose::Exporter;
use Moose::Util::MetaRole;
use HTML::FormHandler::Meta::Role;
Moose::Exporter->setup_import_methods(
    with_meta => [ 'has_field', 'has_page', 'has_block', 'apply' ],
    also        => 'Moose',
);
sub init_meta {
    my $class = shift;
    my %options = @_;
    Moose->init_meta(%options);
    my $meta = Moose::Util::MetaRole::apply_metaroles(
        for             => $options{for_class},
        class_metaroles => {
            class => [ 'HTML::FormHandler::Meta::Role' ]
        }
    );
    return $meta;
}
sub has_field {
    my ( $meta, $name, %options ) = @_;
    my $names = ( ref($name) eq 'ARRAY' ) ? $name : [ ($name) ];
    unless ($meta->found_hfh) {
        my @linearized_isa = $meta->linearized_isa;
        if( grep { $_ eq 'HTML::FormHandler' || $_ eq 'HTML::FormHandler::Field' } @linearized_isa ) {
            $meta->found_hfh(1);
        }
        else {
            die "Package '" . $linearized_isa[0] . "' uses HTML::FormHandler::Moose without extending HTML::FormHandler[::Field]";
        }
    }
    $meta->add_to_field_list( { name => $_, %options } ) for @$names;
}
sub has_page {
    my ( $meta, $name, %options ) = @_;
    my $names = ( ref($name) eq 'ARRAY' ) ? $name : [ ($name) ];
    $meta->add_to_page_list( { name => $_, %options } ) for @$names;
}
sub has_block {
    my ( $meta, $name, %options ) = @_;
    $meta->add_to_block_list( { name => $name, %options } );
}
sub apply {
    my ( $meta, $arrayref ) = @_;
    $meta->add_to_apply_list( @{$arrayref} );
}
use namespace::autoclean;
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
HTML::FormHandler::Moose - to add FormHandler sugar
=head1 VERSION
version 0.40068
=head1 SYNOPSIS
Enables the use of field specification sugar (has_field).
Use this module instead of C< use Moose; >
   package MyApp::Form::Foo;
   use HTML::FormHandler::Moose;
   extends 'HTML::FormHandler';
   has_field 'username' => ( type => 'Text', ... );
   has_field 'something_else' => ( ... );
   no HTML::FormHandler::Moose;
   1;
=head1 AUTHOR
FormHandler Contributors - see HTML::FormHandler
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2017 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