| Server IP : 164.138.27.172 / Your IP : 216.73.216.143 Web Server : nginx/1.27.4 System : Linux cookingdream 6.8.0-124-generic #124-Ubuntu SMP PREEMPT_DYNAMIC Tue May 26 13:00:45 UTC 2026 x86_64 User : www-adm ( 1001) PHP Version : 8.3.32 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : OFF Directory : /home/jonasn/.cpan/build/Test-Deep-1.130-0/t/ |
Upload File : |
use strict;
use warnings;
use Test::More 0.88;
use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
use Test::Deep qw( cmp_deeply descend render_stack methods deep_diag );
{
my $a = [];
my $base = Test::Deep::_td_reftype($a);
is($base, "ARRAY", "_td_reftype base ref");
}
{
my $a = bless [], "A::Class";
my $base = Test::Deep::_td_reftype($a);
is($base, "ARRAY", "_td_reftype base obj");
}
{
my $a = qr/a/;
my $base = Test::Deep::_td_reftype($a);
is($base, ($] < 5.011 ? "Regexp" : "REGEXP"), "class_base base regexp");
}
done_testing;