Searched defs:D3 (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/base/t/
H A Dfields-base.t49 package D3; package
54 use base 'D3';
80 package D3; package
115 D3 => [(undef,undef,undef,
153 my B2 $obj1 = D3->new;
155 my D3 $obj2 = $obj1;
156 $obj2->{b1} = "D3";
159 eval q(my D3 $obj3 = $obj2; $obj3->{notthere} = "");
162 qr/^No such pseudo-hash field "notthere" in variable \$obj3 of type D3/;

Completed in 20 milliseconds