File Coverage

blib/lib/App/Codeowners/Formatter/JSON.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	2	4	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	32	34	94.1

package App::Codeowners::Formatter::JSON;
# ABSTRACT: Format codeowners output as JSON


use warnings;
use strict;

our $VERSION = '0.51'; # VERSION

use parent 'App::Codeowners::Formatter';

use App::Codeowners::Util qw(zip);


sub finish {
    my $self    = shift;
    my $results = shift;

    eval { require JSON::MaybeXS } or die "Missing dependency: JSON::MaybeXS\n";

    my %options;
    $options{pretty} = 1 if lc($self->format) eq 'pretty';

    my $json = JSON::MaybeXS->new(canonical => 1, %options);

    my $columns = $self->columns;
    $results = [map { +{zip @$columns, @$_} } @$results];
    print { $self->handle } $json->encode($results);
}

1;

__END__