DBIx-Class-Tree-Mobius is a project mainly written in Perl, it's free.

DBIx-Class component to manage trees of data