1package autoclass_033::ragged::r30; 2use base qw(Class::AutoClass autoclass_033::ragged::r20); 3 4sub new { 5 my $self_or_class=shift; 6 my $class=ref($self_or_class) || $self_or_class; 7 my $self=ref($self_or_class)? $self_or_class: bless {},$class; 8 push(@{$self->{new_history}},'r30'); 9 $self->SUPER::new(@_); 10 } 11 12sub _init_self { 13 my($self,$class,$args)=@_; 14 push(@{$self->{init_self_history}},'r30'); 15 } 161; 17