?????????? ????????? - ??????????????? - /home/.cpan/build/AppConfig-1.71-0/t/99_author.t
???????
#!/usr/bin/perl -w 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" ); } # Can we run the POD tests? eval "use Test::Pod 1.00"; if ( $@ ) { plan( skip_all => "Test::Pod 1.00 required for testing POD" ); } ##################################################################### # 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 = \&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; *Pod::Simple::BlackBox::_ponder_begin = \&mybegin; } ##################################################################### # END BLACK MAGIC ##################################################################### # Test POD all_pod_files_ok();
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0.07 |
proxy
|
phpinfo
|
???????????