One Hat Cyber Team

Your IP: 216.73.216.177
Server IP: 50.6.168.112
Server: Linux server-617809.webnetzimbabwe.com 5.14.0-570.25.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 9 04:57:09 EDT 2025 x86_64
Server Software: Apache
PHP Version: 8.4.10
Buat File | Buat Folder

Dir : ~/home/.cpan/build/Test-Deep-1.204-0/t/

View File Name : no-clobber-globals.t

use strict;
use warnings;
use lib 't/lib';

use Test::Deep;
use Test::More 0.88;

{
  $@ = 'hello';
  any(123);
  is($@, 'hello', q{dynamically loaded test doesn't overwrite $@} );
}

{
  $! = 11;
  all(123);
  is( 0 + $!, 11, q{dynamically loaded test doesn't overwrite $!} );
}

{
  $^E = 11;
  re(qr{a});
  is( 0 + $^E, 11, q{dynamically loaded test doesn't overwrite $^E} );
}

{
  $@ = 'hello';
  cmp_deeply(
    'hello',
    str($@),
    'when passing $@ to str() it is not localized away from new'
  );
}

done_testing;