Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
10_base.t	1018 B	-r--r--r--	2014-12-27 11:48
20_plv56.t	3.06 KB	-r--r--r--	2014-12-27 11:48
21_plv58.t	3.67 KB	-r--r--r--	2014-12-27 11:48
22_plv510.t	2.31 KB	-r--r--r--	2014-12-27 11:48
23_plv512.t	3.44 KB	-r--r--r--	2014-12-27 11:48
24_plv514.t	3.53 KB	-r--r--r--	2014-12-27 11:48
25_plv516.t	3.58 KB	-r--r--r--	2014-12-27 11:48
25_plv5162.t	7.12 KB	-r--r--r--	2014-12-27 11:48
26_plv518.t	4.47 KB	-r--r--r--	2014-12-27 11:48
26_plv5182.t	4.46 KB	-r--r--r--	2014-12-27 11:48
27_plv5200.t	5.01 KB	-r--r--r--	2014-12-27 11:48

Rename

#!/pro/bin/perl

use strict;
use warnings;

BEGIN {
    use Test::More;
    my $tests = 9;
    unless ($ENV{PERL_CORE}) {
	require Test::NoWarnings;
	Test::NoWarnings->import ();
	$tests++;
	}

plan tests => $tests;

use_ok ("Config::Perl::V");
    }

ok (my $conf = Config::Perl::V::myconfig,	"Read config");
ok (exists $conf->{$_},	"Has $_ entry") for qw( build environment config inc );
is (lc $conf->{build}{osname}, lc $conf->{config}{osname}, "osname");

SKIP: {
    # Test that the code that shells out to perl -V and parses the output
    # gives the same results as the code that calls Config::* routines directly.
    defined &Config::compile_date or
	skip "This perl doesn't provide perl -V in the Config module", 2;
    eval q{no warnings "redefine"; sub Config::compile_date { return undef }};
    is (Config::compile_date (), undef, "Successfully overriden compile_date");
    is_deeply (Config::Perl::V::myconfig, $conf,
	"perl -V parsing code produces same result as the Config module");
    }