File Coverage

blib/lib/HTML/FormHandler/Moose/Role.pm

Criterion	Covered	Total	%
statement	18	21	85.7
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod	0	4	0.0
total	24	32	75.0

package HTML::FormHandler::Moose::Role;
# ABSTRACT: to add sugar to roles
$HTML::FormHandler::Moose::Role::VERSION = '0.40067';
use Moose::Role;
use Moose::Exporter;


Moose::Exporter->setup_import_methods(
    with_caller => [ 'has_field', 'has_block', 'apply' ],
    also        => 'Moose::Role',
);

sub init_meta {
    my $class = shift;

    my %options = @_;
    Moose::Role->init_meta(%options);
    my $meta = Moose::Util::MetaRole::apply_metaroles(
        for            => $options{for_class},
        role_metaroles => { role => ['HTML::FormHandler::Meta::Role'] }
    );

    return $meta;
}

sub has_field {
    my ( $class, $name, %options ) = @_;

    $class->meta->add_to_field_list( { name => $name, %options } );
}

sub has_block {
    my ( $class, $name, %options ) = @_;
    $class->meta->add_to_block_list( { name => $name, %options } );
}

sub apply {
    my ( $class, $arrayref ) = @_;
    $class->meta->add_to_apply_list( @{$arrayref} );
}

use namespace::autoclean;
1;

__END__

=pod

=encoding UTF-8

=head1 NAME

HTML::FormHandler::Moose::Role - to add sugar to roles

=head1 VERSION

version 0.40067

=head1 SYNOPSIS

Enables the use of field specification sugar (has_field) in roles.
Use this module instead of C< use Moose::Role; >

   package MyApp::Form::Foo;
   use HTML::FormHandler::Moose::Role;

   has_field 'username' => ( type => 'Text', ... );
   has_field 'something_else' => ( ... );

   no HTML::FormHandler::Moose::Role;
   1;

=head1 AUTHOR

FormHandler Contributors - see HTML::FormHandler

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2016 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