File Coverage

blib/lib/IRC/Indexer/Output/JSON.pm

Criterion	Covered	Total	%
statement	12	15	80.0
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod	2	2	100.0
total	18	22	81.8

package IRC::Indexer::Output::JSON;

use strict;
use warnings;
use JSON::XS;

require IRC::Indexer::Output;
our @ISA = qw/IRC::Indexer::Output/;

sub dump {
  my ($self) = @_;
  $self->{Output} = JSON::XS->new->utf8(1)->indent->encode(
    $self->{Input}
  );
  $self->SUPER::dump();
}

sub write {
  my ($self, $path) = @_;

  $self->{Output} = JSON::XS->new->utf8(1)->indent->encode(
    $self->{Input}
  ) . "\n" ;

  $self->SUPER::write($path);
}

1;
__END__