1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
#!/usr/bin/perl
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
use Test::More;
# Skip if doing a regular install
unless ( $ENV{AUTOMATED_TESTING} ) {
plan( skip_all => "Author tests not required for installation" );
}
# Load the testing modules if we can
eval "use Test::Pod 1.00";
if ( $@ ) {
plan( skip_all => "Test::Pod not available for testing" );
}
all_pod_files_ok();
exit(0);
#####################################################################
# WARNING: INSANE BLACK MAGIC
#####################################################################
# Hack Pod::Simple::BlackBox to ignore the Test::Inline
# "Extended Begin" syntax.
# For example, "=begin has more than one word errors"
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];
}
# Continue as normal
push @$para, @words;
return &$begin(@_);
}
SCOPE: {
local $^W = 0;
if ( $Test::Pod::VERSION ) {
*Pod::Simple::BlackBox::_ponder_begin = \&mybegin;
}
}
#####################################################################
# END BLACK MAGIC
#####################################################################
|
