File Coverage

blib/lib/IRC/Indexer/Output.pm

Criterion	Covered	Total	%
statement	25	36	69.4
branch	0	8	0.0
condition	1	3	33.3
subroutine	7	8	87.5
pod	3	3	100.0
total	36	58	62.0

package IRC::Indexer::Output;

use 5.10.1;
use strict;
use warnings;
use Carp;

use Scalar::Util qw/openhandle/;

sub new {
  my $class = shift;
  my $self  = {};
  bless $self, $class;

  my %args = @_;

  $args{lc $_} = delete $args{$_} for keys %args;

  $self->{Input} = delete $args{input}
    || croak "No input specified in new" ;

  return $self
}

sub dump {
  my ($self) = @_;
  my $output = $self->{Output};
  return $output
}

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

  unless ($path) {
    croak "write() called but no path specified" ;
  }

  my $out;
  unless ($out = $self->{Output}) {
    croak "write() called but no Output to write" ;
  }

  if ( openhandle($path) ) {
    print $path $out;
  } else {
    open my $fh, '>:encoding(utf8)', $path
      or croak "open failed in write(): $!";
    print $fh $out;
    close $fh;
  }
}

1;
__END__