Select Code to Download

  sub name { shift->field('name') }
  sub sub_cat_ids { @{shift->field('sub_cats') }

  sub new_tree
  {
...
  }

  sub sub_cats { @{shift->{_sub_cats} }

  sub as_hash
  {
...
      $self->as_hash,
      map { $_->as_flattened_list } $self->sub_cats
  }

  sub BuildCatList
  {
...
    my $cats = &main::GetDB('cats');
    $cats->{'~cat_list'} = &main::nfreeze( \@cat_list );
  }