C:\Documents and Settings\Owner\Desktop\>perl objdesmonks.pl
in myObj new
in cObj new
in fakeptr new
in myObj new
in cObj new
in fakeptr new
myObj=HASH(0x18f7974)myObj destroyed
$VAR1 = bless( {
                 'cobj' => bless( {
                                    'data' => 'value'
                                  }, 'cObj' ),
                 'fakeptr' => bless( do{\(my $o = 999000999)}, 'fakeptr' ),
                 'cobj2' => 'not created yet'
               }, 'myObj' );
fakeptr destroyed
cObj destroyed
$VAR1 = bless( {
                 'cobj' => bless( {
                                    'data' => 'value'
                                  }, 'cObj' ),
                 'fakeptr' => bless( do{\(my $o = 999000999)}, 'fakeptr' ),
                 'cobj2' => 'not created yet'
               }, 'myObj' );
in cObj2 new
Undefined subroutine &main::uhdsfsd called at objdesmonks.pl line 124.
myobj end
fakeptr end
cObj2 end
cObj end
main end
$o is myObj=HASH(0x182a50c)
$VAR1 = bless( {
                 'cobj' => bless( {
                                    'data' => 'value'
                                  }, 'cObj' ),
                 'fakeptr' => bless( do{\(my $o = 999000999)}, 'fakeptr' ),
                 'cobj2' => bless( {
                                     'data2' => 'value2'
                                   }, 'cObj2' )
               }, 'myObj' );
printing object
 $VAR1 = bless( {
                 'cobj' => bless( {
                                    'data' => 'value'
                                  }, 'cObj' ),
                 'fakeptr' => bless( do{\(my $o = 999000999)}, 'fakeptr' ),
                 'cobj2' => bless( {
                                     'data2' => 'value2'
                                   }, 'cObj2' )
               }, 'myObj' );
cObj2 destroyed
fakeptr destroyed
cObj destroyed
myObj destroyed
$VAR1 = bless( {
                 'cobj' => undef,
                 'fakeptr' => undef,
                 'cobj2' => undef
               }, 'myObj' );

C:\Documents and Settings\Owner\Desktop\>