—
—

              
package  HTML::FormHandler::Moose;
use Moose;
use Moose::Exporter;
use Moose::Util::MetaRole;
use HTML::FormHandler::Meta::Role;
HideShow 21 lines of Pod
=head1 NAME
HTML::FormHandler::Moose - to add FormHandler sugar
=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;
    
=cut
Moose::Exporter->setup_import_methods(
   with_caller => [ 'has_field' ],
   also        => 'Moose',
);
sub init_meta {
   my $class = shift;
   my %options = @_;
   Moose->init_meta( %options );
   my $meta = Moose::Util::MetaRole::apply_metaclass_roles(
      for_class   => $options{for_class},
      metaclass_roles => ['HTML::FormHandler::Meta::Role'],
   );
   return $meta;
}
sub has_field
{
   my ( $class, $name, %options ) = @_;
   my $value = $class->meta->field_list || [];
   push @{$value}, ($name => \%options); 
   $class->meta->field_list($value);
}
HideShow 11 lines of Pod
=head1 AUTHOR
Gerda Shank, gshank@cpan.org
=head1 COPYRIGHT
This library is free software, you can redistribute it and/or modify it under
the same terms as Perl itself.
=cut
1;