sub _create_node
  {
    my ($node,$parent,$node_info) = @_;
    no strict;
    @{$node}{qw/parent info/} = ($parent,$node_info);
  }