Yet Another CPAN Grep

HTML-Formhandler-Role-ToJSON ( J/JJ/JJNAPIORK/HTML-Formhandler-Role-ToJSON-0.002.tar.gz, JJNAPIORK, 2015; MetaCPAN )

HTML-Formhandler-Role-ToJSON/lib/HTML/Formhandler/Role/ToJSON.pm ( view source; MetaCPAN )

package HTML::Formhandler::Role::ToJSON;

use Moose::Role;

our $VERSION = '0.002';

sub prepare_error_response {  
  return +{
    form_errors => $_[0]->form_errors,
    error_by_field => $_[0]->erro



sub TO_JSON {
  return $_[0]->is_valid ?
    $_[0]->prepare_valid_response :
      $_[0]->prepare_error_response;
}

1;

=head1 NAME

HTML::Formhandler::Role::ToJSON - Adds a basic 'TO_JSON' method

 HTML::FormHandler::Moose;

    extends 'HTML::FormHandler';
    with 'HTML::Formhandler::Role::ToJSON';

    has_field 'email' => (
      type=>'Email',
      size => 96,
      required => 1);

    h