NAME

WebApp::Helpers::JsonEncoder - Simple role for en/decoding JSON

SYNOPSIS

package MyTunes::Resource::CD;

use Moo;
with 'WebApp::Helpers::JsonEncoder';

has title      => (is => 'rw');
has artist     => (is => 'rw');
has genre      => (is => 'rw');
has is_touring => (is => 'rw');

sub to_json {
    my ($self) = @_;
    return $self->encode_json( {
        title      => $self->title,
        artist     => $self->artist,
        genre      => $self->genre,
        is_touring => $self->json_bool( $self->is_touring ),
    } );
}

sub from_json {
    my ($self, $request) = @_;
    my $data = $self->decode_json($request);
    for my $field (qw(title artist genre is_touring)) {
        $self->$field( $data->{ $field } );
    }

    return;
}

DESCRIPTION

WebApp::Helpers::JsonEncoder is simple role that adds JSON-handling methods to the consuming object. It's dead simple, but since I've copied-and-pasted this about a thousand times, it's time for it to go to CPAN!

This role holds a JSON encoder/decoder object. utf8 support is turned on by default.

METHODS

encode_json( $perl_struct )

Produces the JSON representation of $perl_struct.

decode_json( $json_string )

Turns a valid JSON string into a perl data structure.

json_bool( $value )

Returns the truthiness of $value as a JSON boolean.

LICENSE

Copyright (C) Fitz Elliott.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

frew: Arthur Axel "fREW" Schmidt <frioux+cpan@gmail.com>

CONTRIBUTORS

felliott: Fitz Elliott <felliott@fiskur.org>