view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

# =========================================================================
# THIS FILE IS AUTOMATICALLY GENERATED BY MINILLA.
# DO NOT EDIT DIRECTLY.
# =========================================================================

use 5.008_001;

use strict;
use warnings;
use utf8;

use Module::Build;
use File::Basename;
use File::Spec;
use CPAN::Meta;
use CPAN::Meta::Prereqs;

my %args = (
    license              => 'perl',
    dynamic_config       => 0,

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

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

1;
__END__

=encoding utf-8

=head1 NAME

Acme::OnePiece - substitute strings in a file into 'one piece'-ed.

=head1 SYNOPSIS

    use Acme::OnePiece;

    my $one = Acme::OnePiece->new($filename);