use utf8;
use 5.008_005;
our $VERSION = '0.02';
use Moose;
use Types::Standard qw< :types >;
use JSON::MaybeXS;
use Path::Tiny;
use List::Util qw< first >;
use namespace::autoclean;
=encoding utf-8
In a controller action
#
my $vega = $c->view('Vega');
$vega->specfile('patient-chart.json');
$vega->bind_data({
"patient" => [{
id => $patient->id,
clone(@args);
}
=head1 ATTRIBUTES
=head2 json
Read-only. Object with C<encode> and C<decode> methods for reading and writing
JSON. Defaults to:
JSON::MaybeXS->new->utf8->convert_blessed->can