1package autoclass_035::ragged::r4; 2use base qw(autoclass_035::ragged::r20 autoclass_035::ragged::r21 autoclass_035::ragged::r22 autoclass_035::ragged::r30 autoclass_035::ragged::r31 autoclass_035::ragged::r32 autoclass_035::external::ext4); 3 4sub _init_self { 5 my($self,$class,$args)=@_; 6 push(@{$self->{init_self_history}},'r4'); 7 } 81; 9