#!/usr/bin/perl -w use strict; use warnings; use Test::More; use English qw(-no_match_vars); plan( skip_all => 'Author test. Set TEST_AUTHOR env var to a true value to run.' ) if !$ENV{TEST_AUTHOR}; eval( 'use Test::Pod' ); plan( skip_all => 'Test::Pod required for testing POD' ) if $EVAL_ERROR; all_pod_files_ok();