The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<%init>

my $nav = Jifty->web->navigation->child("Administration" => url => '/__jifty/admin/');
foreach my $model (Jifty->class_loader->models) {
    next unless $model->isa('Jifty::Record');
    next unless ($model =~ /^(?:.*)::(.*?)$/);
    my $type = $1;
    $nav->child($type   => url => '/__jifty/admin/model/'.$type);
}
return;
</%init>