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}]);