% use Text::Markdown::Hoedown; # API my $api = gitprep_api; # Git my $git = $self->app->git; # Parameters my $user = param('user'); my $project = param('project'); my $rev_file = param('rev_file'); my ($rev, $file) = $git->parse_rev_path($user, $project, $rev_file); # Commit my $commit = $git->last_change_commit($user, $project, $rev, $file); # Authors my $authors = $git->authors($user, $project, $rev, $file); # File size my $file_size = $git->blob_size($user, $project, $rev, $file); # File mode my $mode = $git->blob_mode($user, $project, $rev, $file); my $file_type = $git->file_type_long($mode); # MIME type my $mime_type = $git->blob_mime_type($user, $project, $rev, $file); # Blob lines(only text) my $lines; $lines = $git->blob($user, $project, $rev, $file) if $mime_type =~ /^text/; # Variables for included template stash(id => $rev, project => $project, rev => $rev); %> <% layout 'common' , title => "$project/$file at $rev \x{30fb} $user/$project", stylesheets => ['/js/google-code-prettify/prettify.css']; %> % %= include '/include/header';
<% for my $line (@$lines) { %><%= "$line\n" %><% } %>% } % } else { % }