view release on metacpan or  search on metacpan

lib/Acme/OnePiece.pm  view on Meta::CPAN

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;
}