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 /
version /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
00impl-pp.t
514
B
-r--r--r--
2014-12-27 11:48
01base.t
1.42
KB
-r--r--r--
2014-12-27 11:48
02derived.t
2.91
KB
-r--r--r--
2014-12-27 11:48
03require.t
751
B
-r--r--r--
2014-12-27 11:48
04strict_lax.t
1.98
KB
-r--r--r--
2014-12-27 11:48
05sigdie.t
439
B
-r--r--r--
2014-12-27 11:48
06noop.t
1.29
KB
-r--r--r--
2014-12-27 11:48
07locale.t
3.66
KB
-r--r--r--
2014-12-27 11:48
08_corelist.t
700
B
-r--r--r--
2014-12-27 11:48
09_list_util.t
827
B
-r--r--r--
2014-12-27 11:48
coretests.pm
21.72
KB
-r--r--r--
2014-12-27 11:48
Save
Rename
#! /usr/local/perl -w # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### use Test::More qw/no_plan/; BEGIN { use_ok('version', 0.9909); } my $v1 = version->new('1.2'); eval {$v1 = $v1 + 1}; like $@, qr/operation not supported with version object/, 'No math ops with version objects'; eval {$v1 = $v1 - 1}; like $@, qr/operation not supported with version object/, 'No math ops with version objects'; eval {$v1 = $v1 / 1}; like $@, qr/operation not supported with version object/, 'No math ops with version objects'; eval {$v1 = $v1 * 1}; like $@, qr/operation not supported with version object/, 'No math ops with version objects'; eval {$v1 = abs($v1)}; like $@, qr/operation not supported with version object/, 'No math ops with version objects'; eval {$v1 += 1}; like $@, qr/operation not supported with version object/, 'No math ops with version objects'; eval {$v1 -= 1}; like $@, qr/operation not supported with version object/, 'No math ops with version objects'; eval {$v1 /= 1}; like $@, qr/operation not supported with version object/, 'No math ops with version objects'; eval {$v1 *= 1}; like $@, qr/operation not supported with version object/, 'No math ops with version objects';