File Coverage

blib/lib/JSON/ReadPath.pm

Criterion	Covered	Total	%
statement	29	35	82.8
branch	3	10	30.0
condition	1	3	33.3
subroutine	8	8	100.0
pod	0	2	0.0
total	41	58	70.6

package JSON::ReadPath;
$JSON::ReadPath::VERSION = '2';
use strict;
use warnings;
use JSON::XS qw( encode_json decode_json );
use Mouse;
use Template;

=head1 NAME

JSON::ReadPath - In Jenkins grep payload json data and assign to an environment
variable.

=head1 USAGE

Let's say Bitbucket pushed a payload '{"commits":{ "branch": "FooBar" }}'

And we want to grab the branch name from the payload.

 BRANCH=$(read_json.pl --env payload --path commits.branch)

=cut

has file => (
    is  => "ro",
    isa => "Str",
);

has string => (
    is  => "ro",
    isa => "Str",
);

has config => (
    is         => "ro",
    isa        => "HashRef",
    lazy_build => 1,
);

sub _build_config {
    my $self = shift;
    my $json_str = $self->from_file || $self->string
        or die "No data";
    return decode_json($json_str);
}

sub from_file {
    my $self = shift;
    my $file = $self->file
        or return;
    return if !-f $file;
    open my $FH, "<", $file
        or return;
    local $/;
    my $string = <$FH>;
    close $FH;
    return $string;
}

sub get {
    my $self   = shift;
    my $config = $self->config;
    my $path   = shift
        or return $config;
    my $tt    = Template->new;
    my $value = q{};

    $config->{json}        = \&encode_json;
    $config->{decode_json} = \&decode_json;

    $tt->process( \"[%$path%]", $config, \$value );
    return $value;
}

1;