#!/bin/perl

package myClass;

use strict;
use warnings;
use vars qw($VERSION);
$VERSION = '0.01';

#----------------------------- new() -----------------------------------------#
sub new {
  my($class)  = shift;
  my($name)   = shift;
  my($self)   = {};

  $self->{childs} = [];
  $self->{name}   = $name;
  $self->{parent} = undef;

  return(bless($self, $class));
}

#---------------------------- sort() -----------------------------------------#
sub sort {
  my($self, $sortFunc) = @_;
  my($nodeObj);
  my(@tmpArr);

  if ( scalar(@tmpArr=$self->childList()) ) {
    if ( $sortFunc ) {
      @tmpArr = sort $sortFunc @tmpArr;
    }
    else {
      @tmpArr = sort(@tmpArr);
    }

    $self->{childs} = \@tmpArr;

    for $nodeObj ( @tmpArr ) {
      $nodeObj->sort($sortFunc);
    }
  }
}

#----------------------------- name() ----------------------------------------#
sub name {
  my($self) = @_;

  return($self->{name});
}

#----------------------------- childList() -----------------------------------#
sub childList {
  my($self) = @_;

  if ( defined($self->{childs}) ) {
    return(@{$self->{childs}});
  }
  else {
    return(());
  }
}

#----------------------------- addChild() ------------------------------------#
sub addChild {
  my($self, $childObj, $idx) = @_;

  if ( ($idx == -1) || ($idx >= scalar(@{$self->{childs}})) ) {
    push(@{$self->{childs}}, $childObj);
  }
  else {
    my(@tmpArr)     = @{$self->{childs}};
    @tmpArr         = ( @tmpArr[0..($idx-1)], $childObj, @tmpArr[$idx..(scalar(@tmpArr)-1)] );
    $self->{childs} = \@tmpArr;
  }

  $childObj->{parent} = $self;
}

1;

#!/bin/perl

use myClass;

@childObjs = ();

#---------------------------- sortNodes() ------------------------------------#
sub sortNodes {
printf("REF: %s / %s\n", ref($_[0]), ref($_[1]));
#  $_[0]->name() cmp $_[1]->name();
#  $a->name() cmp $b->name();
1
}

#--- CREATING TREE OBJECT ----------------------------------------------------#
$treeObj = new myClass("ROOT");

#--- CREATING CHILDS ! -------------------------------------------------------#
for ( $idx=0; $idx<5; $idx++ ) {
  push(@childObjs, new myClass("CHILD_$idx"));
}

#--- ADD CHILDS ! ------------------------------------------------------------#
$treeObj->addChild($childObjs[0], -1);
$treeObj->addChild($childObjs[1], -1);
$childObjs[1]->addChild($childObjs[2], -1);
$treeObj->addChild($childObjs[3], 1);
$childObjs[1]->addChild($childObjs[4], -1);

#--- sort tree ! -------------------------------------------------------------#
$treeObj->sort(\&sortNodes);