#Snippet

69      print Data::Dumper->Dump([$self,$new,$parent,$self->{$parent}, $new->getID()]);
70      if ( $new->getID() != $self->{$parent} )
71      {
 
#Output

$VAR1 = bless( {
                 'link' => '2',
                 'id' => '3'
               }, 'Mirror' );
$VAR2 = bless( {
                 'package' => '2'
               }, 'Link' );
$VAR3 = 'link';
$VAR4 = '2';
$VAR5 = '2';
 
#Use of uninitialized value in string ne at C:/Users/Besitzer/Desktop/testbox/workspace/stuff/Child.pm line 70.