munge-mojo-json.pl

use Mojo::JSON;

my $json = Mojo::JSON->new;

my $str = '{"some":"json","more":"stuff"}';

my $obj = $json->decode($str);
$obj->{some} = 'changed';
$obj->{new} = 'brand new!';
delete $obj->{more}; # remove that nonsense

$str = $json->encode($obj); # or, $self->render(json => $obj);

print $str; # {"new":"brand new!","some":"changed"}

nice!

Thanks for this, tianon