line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
2
|
|
|
2
|
|
5117
|
% my $a = shift; |
|
2
|
|
|
2
|
|
35
|
|
|
2
|
|
|
2
|
|
13
|
|
|
2
|
|
|
2
|
|
148
|
|
|
2
|
|
|
|
|
4
|
|
|
2
|
|
|
|
|
585
|
|
|
2
|
|
|
|
|
4477
|
|
|
2
|
|
|
|
|
4
|
|
|
2
|
|
|
|
|
19
|
|
|
2
|
|
|
|
|
143
|
|
|
2
|
|
|
|
|
5
|
|
|
2
|
|
|
|
|
592
|
|
2
|
|
|
|
|
|
|
%% layout 'blog', title => 'Blog/<%= ucfirst $a->{t} %>'; |
3
|
|
|
|
|
|
|
%% my @columns = qw(<%= join(' ', @{$a->{columns}}) %>); #table columns |
4
|
|
|
|
|
|
|
%%= link_to 'New record in table "<%= $a->{t} %>"' => 'create_<%= $a->{t} %>' |
5
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
%% for my $column (@columns) { |
9
|
|
|
|
|
|
|
| <%%= uc($column) %> |
10
|
|
|
|
|
|
|
%% } |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
| |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
%% for my $item (@$<%= $a->{t} %>) { |
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
| <%%= link_to $item->{id} => show_<%= $a->{t} %> => {id => $item->{id}} %> |
17
|
|
|
|
|
|
|
%% for my $column (@columns[1 .. $#columns]) { |
18
|
|
|
|
|
|
|
| <%%= $item->{$column} %> |
19
|
|
|
|
|
|
|
%% } |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
%% } |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
| |