package child_class;

use strict;
use warnings;
use Class::Std::Utils;
use base qw(class_insideout);
{
  my %num_ID;

  sub new {
    my ($class, %args) = @_;

    my $new_object = $class->SUPER::new(%args);
    warn("I'm in the ".__PACKAGE__." new\n");
    warn("my super is @child_class::ISA \n");
    $num_ID{ident $new_object} = $args{id};
    return $new_object;
 }
  sub write {
    my ($self) = @_;

    print "id: ". $num_ID{ident $self} ."\n";
    $self->SUPER::write();

    return;
  }
}
1;