SYNOPSIS use Data::Random::Tree qw(create_random_tree); use MyNode; use MyOtherNode; my $tree = create_random_tree( num_objects_per_level => [100, 3000, 5000, 8000, 3000, 1000, 300], classes => ['MyNode', 'MyOtherNode'], # optional #code_instantiate_node => sub { # my ($class, $level, $parent) = @_; # $class->new(...); #}, ); SEE ALSO Role::TinyCommons::Tree::Node Other Data::Random::* modules. Tree::FromStruct