view release on metacpan or  search on metacpan

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

		}
		@lines = @newlines;
	}
	$_ = join "\n", @lines;
}

return $_;
}

sub pad_line {
	return join '',map{"$_ "}split //, shift;
}

__END__

=head1 NAME

Acme::Goatse - On-demand goatse

=head1 SYNOPSIS