#!/usr/bin/perl
BEGIN {
$| = 1;
$^W = 1;
}
unless
(
$ENV
{AUTOMATED_TESTING} ) {
plan(
skip_all
=>
"Author tests not required for installation"
);
}
eval
"use Test::Pod 1.00"
;
if
( $@ ) {
plan(
skip_all
=>
"Test::Pod not available for testing"
);
}
all_pod_files_ok();
exit
(0);
my
$begin
;
if
(
$Test::Pod::VERSION
) {
$begin
= \
&Pod::Simple::BlackBox::_ponder_begin
;
}
sub
mybegin {
my
$para
=
$_
[1];
my
$content
=
join
' '
,
splice
@$para
, 2;
$content
=~ s/^\s+//s;
$content
=~ s/\s+$//s;
my
@words
=
split
/\s+/,
$content
;
if
(
$words
[0] =~ /^test(?:ing)?\z/s ) {
foreach
( 2 ..
$#$para
) {
$para
->[
$_
] =
''
;
}
$para
->[2] =
$words
[0];
}
push
@$para
,
@words
;
return
&$begin
(
@_
);
}
SCOPE: {
local
$^W = 0;
if
(
$Test::Pod::VERSION
) {
*Pod::Simple::BlackBox::_ponder_begin
= \
&mybegin
;
}
}