lib/Gitalist/ContentMangler/Transformer/SyntaxHighlightBlob.pm

   1 use MooseX::Declare;
   2
   3 class Gitalist::ContentMangler::Transformer::SyntaxHighlightBlob
   4  with Gitalist::ContentMangler::Transformer::SyntaxHighlightRole {
   5      method transform(Str :$blob, Str :$filename) {
   6          return unless $filename =~ /\.p[lm]$/;
   7          return { blob => $self->highlight($blob, 'Perl'), language => 'Perl' };
   8      }
   9 }