File Coverage

blib/lib/Data/Section/Pluggable/Plugin/Json.pm

Criterion	Covered	Total	%
statement	27	33	81.8
branch			n/a
condition			n/a
subroutine	8	9	88.8
pod	0	3	0.0
total	35	45	77.7

use warnings;
use 5.020;
use true;
use experimental qw( signatures );

package Data::Section::Pluggable::Plugin::Json 0.08 {

    # ABSTRACT: Data::Section::Pluggable Plugin for JSON


    use Role::Tiny::With;
    use JSON::MaybeXS ();

    with 'Data::Section::Pluggable::Role::ContentProcessorPlugin';
    if(eval { require Data::Section::Pluggable::Role::FormatContentPlugin }) {
        with 'Data::Section::Pluggable::Role::FormatContentPlugin';
    }

    sub extensions ($class) {
        return ('json');
    }

    sub process_content ($class, $dsp, $content) {
        JSON::MaybeXS::decode_json($content);
    }

    sub format_content ($class, $dsw, $content) {
        JSON::MaybeXS->new->pretty->canonical->encode($content);
    }
}

__END__