ヤミRoot VoidGate

Viewing: pod_coverage.t

#!perl
#===============================================================================
#
# t/pod_coverage.t
#
# DESCRIPTION
#   Test script to check POD coverage.
#
# COPYRIGHT
#   Copyright (C) 2014, 2015 Steve Hay.  All rights reserved.
#
# LICENCE
#   This script is free software; you can redistribute it and/or modify it under
#   the same terms as Perl itself, i.e. under the terms of either the GNU
#   General Public License or the Artistic License, as specified in the LICENCE
#   file.
#
#===============================================================================

use 5.008001;

use strict;
use warnings;

use Test::More;

#===============================================================================
# MAIN PROGRAM
#===============================================================================

MAIN: {
    plan skip_all => 'Author testing only' unless $ENV{AUTHOR_TESTING};

    my $ok = eval {
        require Test::Pod::Coverage;
        Test::Pod::Coverage->import();
        1;
    };

    if (not $ok) {
        plan skip_all => 'Test::Pod::Coverage required to test POD coverage';
    }
    elsif ($Test::Pod::Coverage::VERSION < 0.08) {
        plan skip_all => 'Test::Pod::Coverage 0.08 or higher required to test POD coverage';
    }
    else {
        plan tests => 12;
        my $params = { coverage_class => qw(Pod::Coverage::CountParents) };
        pod_coverage_ok('Net::Cmd', {
            %$params,
            also_private => [qw(toascii toebcdic set_status)]
        });
        pod_coverage_ok('Net::Config', {
            %$params,
            also_private => [qw(is_external)]
        });
        pod_coverage_ok('Net::Domain', $params);
        pod_coverage_ok('Net::FTP',  {
            %$params,
            also_private => [qw(authorise lsl ebcdic byte cmd)]
        });
        pod_coverage_ok('Net::Netrc', $params);
        pod_coverage_ok('Net::NNTP', $params);
        pod_coverage_ok('Net::POP3', $params);
        pod_coverage_ok('Net::SMTP', {
            %$params,
            also_private => [qw(datafh supports)]
        });
        pod_coverage_ok('Net::Time', $params);
        pod_coverage_ok('Net::FTP::A', $params);
        pod_coverage_ok('Net::FTP::dataconn', {
            %$params,
            also_private => [qw(can_read can_write cmd reading)]
        });
        pod_coverage_ok('Net::FTP::I', $params);
    }
}

#===============================================================================
User / IP	: 216.73.216.2
Host / Server	: 146.88.233.70 / dev.loger.cm
System	: Linux hybrid1120.fr.ns.planethoster.net 3.10.0-957.21.2.el7.x86_64 #1 SMP Wed Jun 5 14:26:44 UTC 2019 x86_64