Attempt at pretty printing JSON in a Mojolicious::Lite app

ixhash_version.pl

use Mojolicious::Lite;
use Tie::IxHash;
use JSON::XS;

use strict;
use warnings;

helper pretty_json => sub {
    my ($self, $ref) = @_;
    my $json = JSON::XS->new;
    $json->pretty(1);
    return $json->encode( $ref );
};

get '/' => sub {
    my $c = shift;
    
    tie(my %j, 'Tie::IxHash');
    
    $j{result} = { counter => "123" }; 
    $j{number} = { num => '55' };
    
    my $pretty_json = $c->pretty_json(\%j);
    $c->render(text => $pretty_json);
};
 
app->start;