File Coverage

blib/lib/Acme/OnePiece.pm

Criterion	Covered	Total	%
statement	12	27	44.4
branch	0	2	0.0
condition			n/a
subroutine	4	7	57.1
pod	0	2	0.0
total	16	38	42.1

package Acme::OnePiece;
use 5.008005;
use strict;
use warnings;

use IO::File;

our $VERSION = "0.02";

sub _options {
  return {}
}

sub new {
  my $class = shift;
  my $file = shift;
  my $options = $class->_options;

  my $io = IO::File->new($file, 'r') or die "Usage: Acme::OnePiece->new(\$filename)\n" . $!;
  my @lines = $io->getlines;
  my $contents = join('',@lines);
  $options->{contents} = $contents;

  my $self = bless $options, $class;
  return $self;
}

sub onepiece {
  my ($self) = @_;
  my $contents = $self->{contents};
  $contents =~ s/(\n+|\s+)/-/g;
  $contents =~ s/-+/-/g;
  return $contents;
}

1;
__END__