Lines Matching defs:D3
50 package D3;
55 use base 'D3';
81 package D3;
116 D3 => [(undef,undef,undef,
154 my B2 $obj1 = D3->new;
156 my D3 $obj2 = $obj1;
157 $obj2->{b1} = "D3";
160 eval q(return; my D3 $obj3 = $obj2; $obj3->{notthere} = "");
162 qr/^No such $Field "notthere" in variable \$obj3 of type D3/,
169 eval q(return; my D3 $obj3 = $obj2; my $k; @$obj3{$k,'notthere'} = ());
171 qr/^No such $Field "notthere" in variable \$obj3 of type D3/,
173 eval q(return; my D3 $obj3 = $obj2; my $k; @{$obj3}{$k,'notthere'} = ());
175 $@, qr/^No such $Field "notthere" in variable \$obj3 of type D3/,