The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package TreeTest::Schema::Node;
use strict;
use warnings;

use Carp qw( croak );

use base qw( DBIx::Class );

__PACKAGE__->load_components(qw(
    PK::Auto
    Core
));

__PACKAGE__->table('nodes');

__PACKAGE__->add_columns(qw(
    node_id
    name
    parent_id
    position
    lft
    rgt
));

__PACKAGE__->set_primary_key( 'node_id' );

1;