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