#!perl
use strict;
use warnings;
use Pod::Tidy;

# Reformat pod using Pod::Tidy

# 72 is what fmt defaults to
$Text::Wrap::columns = 72;

my $filename = shift || die "Usage podtidy [filename]";

Pod::Tidy::tidy_files(
    files    => [$filename],
    verbose  => 1,
    inplace  => 1,
    nobackup => 1,
);
