File Coverage

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

Criterion	Covered	Total	%
statement	9	17	52.9
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	2	2	100.0
total	14	24	58.3

package IRC::Indexer::Output::Dumper;

use strict;
use warnings;

use Data::Dumper;

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

sub dump {
  my ($self) = @_;
  my $input = $self->{Input};
  $self->{Output} = Dumper($input);
  $self->SUPER::dump();
}

sub write {
  my ($self, $path) = @_;
  my $input = $self->{Input};
  $self->{Output} = Dumper($input);
  $self->SUPER::write($path);
}

1;
__END__