Searched defs:B2 (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.t30 package B2; package
50 use base 'B2';
61 use base qw(M B2);
65 eval { 'base'->import(qw(B2 M B3)); };
81 use base 'B2';
114 B2 => [qw(_b1 b1 _b2 b2)],
153 my B2 $obj1 = D3->new;
154 $obj1->{b1} = "B2";

Completed in 15 milliseconds