File Coverage

blib/lib/HTML/Tested/JavaScript/Variable.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

use strict;
use warnings FATAL => 'all';

package HTML::Tested::JavaScript::Variable;
use base 'HTML::Tested::Value';
use HTML::Tested::JavaScript::Serializer;
use JSON::XS;

sub encode_value {
	my ($self, $val) = @_;
	no warnings 'numeric';
	my $d = $val + 0;
	return JSON::XS->new->allow_nonref->encode($val eq $d ? $d + 0 : $val);
}

sub value_to_string {
	my ($self, $name, $val) = @_;
	return HTML::Tested::JavaScript::Serializer::Wrap($name, $val);
}

1;