lib/Gitalist/ContentMangler/Resolver/Default.pm

   1 use MooseX::Declare;
   2
   3 class Gitalist::ContentMangler::Resolver::Default with Gitalist::ContentMangler::Resolver {
   4     method resolve ($data) {
   5         return unless $data->{filename};
   6         my $language = 'Perl' if $data->{filename} =~ /\.p[lm]$/i;
   7         return (['SyntaxHighlight', {language => $language, css => $language}]);
   8     }
   9 }