% layout 'ui'; % my $dump = param('dump');
on <%= $#{ $changes } + 1 %> % if ( $on_path ) { % if ( ! param('commit') && param('apply') ) { % } elsif ( param('commit') ) { Changes commited to <%= $on_path %>
<%= dumper stash('commit_changed') %>
% } % }
% my $tr = { new => [ qw( old new ) ], code => [ qw( code commit_changed ) ] }; % foreach my $e ( @$changes ) { % foreach my $type ( keys %$tr ) { % if ( exists $e->{$type} ) { % delete $tr->{$type}; last; % } % } % }
<%= $tr->{$type}->[0] %> <%= $tr->{$type}->[1] %>
<%= $e->{time} %> <%= $e->{column} %> % if ( my $status = $e->{_status} ) { % if ( defined $e->{unique} ) { % my ( $pk, $id ) = %{ $e->{unique} }; <%= $id %> % } <%= $status %> % } remove % if ( defined $e->{new} ) { <%== defined $e->{old} && join('', @{$e->{old}}) %> <%== join('', @{$e->{new}}) %> % } elsif ( defined $e->{code} ) {
<%= $e->{code} %>
<%= dumper $e->{commit_changed} %>
% } else {
<%= dumper $e %>
% } % if ( $dump ) {
<%= dumper $e %>
% }
<%= dumper( $stats ) %>