% ### Главное меню % ################################################################### %#
<% Dumper($menus) %>% if ( ref $menus eq 'ARRAY' && scalar @$menus ) { % my $i = 0; % } % ### /Главное меню <%args> $alias => undef %args> <%init> my $prj = $request->{project}; my $profile = $request->{project_profile}; my $menus = $profile->get_image('menus'); return unless ref $menus eq 'ARRAY' && @$menus; %init>