App-ArticleWrap

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "ExtUtils::MakeMaker" : "0"
         }
      },
      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "6.52"
         }
      },
      "runtime" : {
         "requires" : {
            "Modern::Perl" : "1.20180701",
            "perl" : "5.026000"
         }
      }
   },
   "release_status" : "stable",
   "resources" : {
      "repository" : {
         "type" : "git",
         "url" : "https://src.alexschroeder.ch/article-wrap.git",
         "web" : "https://src.alexschroeder.ch/article-wrap.git"

META.yml  view on Meta::CPAN

license: open_source
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: App-ArticleWrap
no_index:
  directory:
    - t
    - inc
requires:
  Modern::Perl: '1.20180701'
  perl: '5.026000'
resources:
  repository: https://src.alexschroeder.ch/article-wrap.git
version: 1.03
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

Makefile.PL  view on Meta::CPAN

use 5.008004;
use ExtUtils::MakeMaker;

WriteMakefile(
  NAME             => 'App::ArticleWrap',
  VERSION_FROM     => 'lib/App/ArticleWrap.pm',
  ABSTRACT_FROM    => 'lib/App/ArticleWrap.pm',
  AUTHOR           => 'Alex Schroeder',
  LICENSE          => 'agpl_3',
  MIN_PERL_VERSION => '5.26.0', # Modern::Perl '2018'
  EXE_FILES        => [
    'script/article-wrap',
  ],
  PREREQ_PM => {
    'Modern::Perl' => 1.20180701, # for '2018'
  },
  CONFIGURE_REQUIRES => {
    'ExtUtils::MakeMaker' => '6.52',
  },
  META_MERGE => {
    'meta-spec' => { version => 2 },
    resources => {
      repository => {
	type => 'git',
	url  => 'https://src.alexschroeder.ch/article-wrap.git',

script/article-wrap  view on Meta::CPAN

Wrap news articles or mail files. That is to say, don't wrap the header lines at
the top but do wrap the rest of the file. Also don't wrap "source code" which is
fenced by Markdown code fences: trible backticks. Don't wrap short lines (10
characters or less). Don't wrap lines with whitespace at the end. Don't wrap
empty lines.

This is useful when post-processing a message written using ed for posting using
tin, for example.
=cut
use Modern::Perl;
die "This filter wraps news posts.\n" if @ARGV;
binmode(STDIN, ':utf8');
binmode(STDOUT, ':utf8');
# headers
while (<STDIN>) {
  chomp;
  last if not $_; # end of headers
  say; # header line
}
print "\n"; # empty line after headers