From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

RJBS / perl-5.36.0 / Porting / podtidy 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

              
#!perl
use strict;
use warnings;
use Pod::Tidy 0.10;
# Reformat pod using Pod::Tidy
my $filename = shift || die "Usage podtidy [filename]";
Pod::Tidy::tidy_files(
    files    => [$filename],
    verbose  => 1,
    inplace  => 1,
    nobackup => 1,
    columns => 72, # 72 is what fmt defaults to
);