1package autoclass_031::chain::c2;
2use base qw(autoclass_031::chain::c1);
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}},'c2');
9  $self->SUPER::new(@_);
10 }
11
12sub _init_self {
13   my($self,$class,$args)=@_;
14   push(@{$self->{init_self_history}},'c2');
15 }
161;
17