#!/usr/bin/perl
use DBI;
use DBIx::Tree::NestedSet;
use Data::Dumper;
use strict;

my $dbh=DBI->connect('dbi:SQLite:dbname=nested_set') or die($DBI::errstr);


my $tree=DBIx::Tree::NestedSet->new(dbh=>$dbh,db_type=>'SQLite');

$tree->create_default_table();

$tree->add_child_to_right(term=>'Body Regions');
$tree->add_child_to_right(
			  term=>'Extremities',
			  id=>$tree->get_root()
			 );

my $extremities_id=$tree->get_id_by_key(
					key_name=>'term',
					key_value=>'Extremities'
				       );
foreach('Arm','Elbow','Hand'){
    $tree->add_child_to_right(
			      term=>$_,
			      id=>$extremities_id
			     );
}

my $hand_id=$tree->get_id_by_key(
				 key_name=>'term',
				 key_value=>'Hand'
				);
$tree->add_child_to_right(
			  id=>$hand_id,
			  term=>'Fingers'
			 );

my $fingers_id=$tree->get_id_by_key(
				    key_name=>'term',
				    key_value=>'Fingers'
				   );

$tree->add_child_to_right(
			  id=>$fingers_id,
			  term=>'Thumbs'
			 );

my $structure=$tree->get_self_and_children_flat();

foreach(@$structure){
    print " " x $_->{level}. $_->{term}."\n";
}

$dbh->do('drop table nested_set');