Gecko [ www.blackthorn-inc.com ]

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

Name	Size	Permission	Date
lib	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
base-open-chunk.t	368 B	-r--r--r--	2014-12-27 11:48
base-open-line.t	357 B	-r--r--r--	2014-12-27 11:48
base.t	2.73 KB	-r--r--r--	2014-12-27 11:48
compile-time.t	1.11 KB	-r--r--r--	2014-12-27 11:48
core-global.t	337 B	-r--r--r--	2014-12-27 11:48
fields-5_6_0.t	4.75 KB	-r--r--r--	2014-12-27 11:48
fields-5_8_0.t	5.27 KB	-r--r--r--	2014-12-27 11:48
fields-base.t	6.03 KB	-r--r--r--	2014-12-27 11:48
fields.t	2.59 KB	-r--r--r--	2014-12-27 11:48
isa.t	364 B	-r--r--r--	2014-12-27 11:48
sigdie.t	509 B	-r--r--r--	2014-12-27 11:48
version.t	265 B	-r--r--r--	2014-12-27 11:48
warnings.t	409 B	-r--r--r--	2014-12-27 11:48

Rename

#!/usr/bin/perl -w

use strict;
use Test::More tests => 3;

my $Has_PH = $] < 5.009;
my $Field = $Has_PH ? "pseudo-hash field" : "class field";

{
    package Parent;
    use fields qw(this that);
    sub new { fields::new(shift) }
}

{
    package Child;
    use base qw(Parent);
}

my Child $obj = Child->new;

eval q(return; my Child $obj3 = $obj; $obj3->{notthere} = "");
like $@, 
    qr/^No such .*field "notthere" in variable \$obj3 of type Child/,
    "Compile failure of undeclared fields (helem)";

# Slices
# We should get compile time failures field name typos
SKIP: {
    skip("Pseudo-hashes do not support compile-time slice checks", 2)
        if $Has_PH;

eval q(return; my Child $obj3 = $obj; my $k; @$obj3{$k,'notthere'} = ());
    like $@, 
        qr/^No such .*field "notthere" in variable \$obj3 of type Child/,
        "Compile failure of undeclared fields (hslice)";

eval q(return; my Child $obj3 = $obj; my $k; @{$obj3}{$k,'notthere'} = ());
    like 
        $@, qr/^No such .*field "notthere" in variable \$obj3 of type Child/,
        "Compile failure of undeclared fields (hslice (block form))";
}