andlerX::Field::JSON;
# ABSTRACT: a script tag which sets a var using JSON C<data>, encoded from perl data supplied via field for L<HTML::FormHandler>.
$HTML::FormHandlerX::Field::JSON::VERSION = '0.004';
use Moose;
extends 'HTML::FormHandler::Field::NoValue';
use namespace::autoclean;
use JSON::MaybeXS;
use JavaScript::Minifier::XS qw();
has 'data_key' => ( is => 'rw', isa => 'Str', builder =>($self);
return $result;
}
sub wrap_data {
my $self = shift;
my $json = $self->deflator( @_ > 1 ? [@_] : $_[0] );
chomp $json;
my $data_key = $self->data_key;
my $javascript = '';
if ( $dat:Field::JSONmulti;
# ABSTRACT: a script tag which sets multiple vars using JSON 'data', encoded from list of perl data supplied via field for HTML::FormHandler.
$HTML::FormHandlerX::Field::JSONmulti::VERSION = '0.004';
use Moose;
extends 'HTML::FormHandlerX::Field::JSON';
use namespace::autoclean;
use JavaScript::Minifier::XS qw();
sub wrap_data {
my $self = shift;
my @data_args = @_;
le list bit seems a bit pointless right now, why not just create and array ref and assign the one json object?
## The plan is to allow different data_key for each list element, but sensible implement