package Catalyst::View::JSON;
use strict;
use warnings;
our $VERSION = '0.37';
use 5.008_001;
use base qw( Catalyst::View );
use Encode ();
use MRO::Compat;
use Catalyst::Exception;
__PACKAGE__->mk
_accessors(qw(
allow_callback callback_param expose_stash
encoding json_dumper no_x_json_header json_encoder_args
use_force_bom));
sub new {
my($class, $c, $arguments) = @_;
my $self =
=~ /^catalyst/;
# no longer supported
warn('json_driver is no longer supported'), next if $field eq 'json_driver';
if ($self->can($field)) {
$self->$fiel