One Hat Cyber Team

Your IP: 216.73.216.177
Server IP: 50.6.168.112
Server: Linux server-617809.webnetzimbabwe.com 5.14.0-570.25.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 9 04:57:09 EDT 2025 x86_64
Server Software: Apache
PHP Version: 8.4.10
Buat File | Buat Folder

Dir : ~/home/.cpan/build/AppConfig-1.71-0/t/

View File Name : 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();