gistfile1.txt

 $cvterm->search_related(
            'cvtermpath_objects',
            undef,
            {
                pathdistance => { '<' =>  0 },
            }
           )
            ->search_related('subject');