One Hat Cyber Team

Your IP : 216.73.216.240

Server IP : 162.240.106.28

Server : Linux server.ganesand.com 3.10.0-1160.80.1.el7.x86_64 #1 SMP Tue Nov 8 15:48:59 UTC 2022 x86_64

Server Software : Apache

PHP Version : 7.1.33

Buat File | Buat Folder

Dir : ~/usr/share/doc/perl-Data-Dump-1.22/t/

View File Name : vstring.t

#!/usr/bin/perl -w

BEGIN {
    if ($] < 5.010) {
	print "1..0 # Skipped: perl-5.10 required\n";
	exit;
    }
}

use strict;
use Test;
plan tests => 9;

use Data::Dump 'dump';

ok(dump(v10), q{v10});
ok(dump(v5.10.1), q{v5.10.1});
ok(dump(5.10.1), q{v5.10.1});
ok(dump(500.400.300.200.100), q{v500.400.300.200.100});

ok(dump(\5.10.1), q{\v5.10.1});
ok(dump(\v10), q{\v10});
ok(dump(\\v10), q{\\\\v10});
ok(dump([v10, v20, v30]), q{[v10, v20, v30]});
ok(dump({ version => v6.0.0 }), q({ version => v6.0.0 }));