Re^2: recursive creation of attached objects?

[NetWallah]

in reply to Re: recursive creation of attached objects?
in thread recursive creation of attached objects?

Added "depth_test" to your code, and added more lines to main code to make a more interesting structure.

The "value" can track the origination of each node.

use strict;
use warnings;

{
package bin_tree;
use strict;
use warnings;

sub new{
    my $class=shift;
    my $self={value=>shift, a=>undef, b=>undef};
    $self->{value}||=0;
    bless $self, $class; 
    return $self; 
}
sub a{
  my ($self, $setval) = @_;
  $setval or return $self->{a};
  return $self->{a} = $setval;
}
sub b{
  my ($self, $setval) = @_;
  $setval or return $self->{b};
  return $self->{b} = $setval;
}
sub populate{
    my($self, $depth, $value)=@_;
    return if(! $depth);
    $value ||= $self->{value};
    $self->a ( populate( bin_tree->new($value) , $depth -1 ) );
    $self->b ( populate( bin_tree->new($value) , $depth -1 ) );
    return $self;
}
sub depth{
    my ($self, $level)=@_;
    $level ||= 1;
    if (defined $self->a()){
        return $self->a()->depth($level + 1);
    }
    return $level;
}
1;
} #end bin_tree

package main;

my $bintree = bin_tree->new('Initial') -> populate(3);
use Data::Dumper;
print "BEFORE: " ,Dumper ($bintree),"Depth:",$bintree->depth() ,"\n"; 

$bintree->a()->a()->populate(2,'Firstlevel')  -> b( bin_tree->new('sec
+ondlevel'));
print "After: ", Dumper ($bintree),"Depth:",$bintree->depth(), "\n";

Update : Minor tweaks - added a() and b() methods. Renamed depth_test(). Changed test structure. populate() allows optional new 'value' param.

[remiah]

Thanks for reply

I learned I can put header to Dumper ouput with

print "After:", Dumper $bintree,"\n";

This is not trivial thing for me. This will help me a lot.