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 /
CPAN /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
01loadme.t
175
B
-r--r--r--
2014-12-27 11:48
02nox.t
1.05
KB
-r--r--r--
2014-12-27 11:48
03pkgs.t
954
B
-r--r--r--
2014-12-27 11:48
10version.t
2.63
KB
-r--r--r--
2014-12-27 11:48
11mirroredby.t
763
B
-r--r--r--
2014-12-27 11:48
Save
Rename
#!/usr/bin/perl -w BEGIN { if ($ENV{PERL_CORE}) { chdir 't' if -d 't'; unshift @INC, '../lib'; } } use strict; use lib "BUNDLE"; use Test::More tests => 6; use_ok( 'CPAN::FirstTime' ); can_ok( 'CPAN::Mirrored::By', 'new', 'continent', 'country', 'url' ); my $cmb = CPAN::Mirrored::By->new( { continent => "continent", country => "country", http => "http", ftp => "ftp", } ); isa_ok( $cmb, 'CPAN::Mirrored::By' ); is( $cmb->continent(), 'continent', 'continent() should return continent entry' ); is( $cmb->country(), 'country', 'country() should return country entry' ); is( $cmb->url(), 'http', 'url() should return best url entry' ); __END__ # Local Variables: # mode: cperl # cperl-indent-level: 4 # End: