Yet Another CPAN Grep

Form-Toolkit ( J/JE/JETEVE/Form-Toolkit-0.008.tar.gz, JETEVE, 2014; MetaCPAN )

Form-Toolkit/lib/Form/Toolkit/Clerk.pm ( view source; MetaCPAN )

rk;
{
  $Form::Toolkit::Clerk::VERSION = '0.008';
}
use Moose;
use DateTime::Format::ISO8601;
use JSON;

has 'source' => ( required => 1 , is => 'ro' );

has '_date_parser' => ( is => 'ro' , default =

Form-Toolkit ( J/JE/JETEVE/Form-Toolkit-0.008.tar.gz, JETEVE, 2014; MetaCPAN )

Form-Toolkit/lib/Form/Toolkit/Form.pm ( view source; MetaCPAN )

use Form::Toolkit::Clerk::Hash;

use Form::Toolkit::Field;
use Form::Toolkit::Field::String;

use JSON;
use MIME::Base64;
use Scalar::Util;


with qw(MooseX::Clone);

=head1 NAME

Form::Toolkit::Form

 for Form implementation

=cut

__PACKAGE__->meta->id_prefix('form_');

has 'jsoner' => ( isa => 'JSON' , is => 'ro', required => 1, lazy_build => 1);

has 'fields' => ( isa => 'ArrayRef[Form::Toolkit

lds

=cut

sub BUILD{
  my ($self) = @_;
  $self->build_fields();
}

sub _build_jsoner{
  my ($self) = @_;
  return JSON->new->ascii(1)->pretty(0);
}


=head2 fast_clone

Returns fast clone of this fo