3 class Gitalist::ContentMangler::Resolver::Default with Gitalist::ContentMangler::Resolver {
4 method resolve ($data) {
5 # This should be pulled out of $self->config
7 $language = 'Perl' if $data->{filename} =~ /\.p[lm]$/i;
8 $language = 'Diff' if $data->{action} eq 'diff_fancy';
9 return unless $language;
10 return 'Gitalist::ContentMangler::Transformer::SyntaxHighlight' => {language => $language, css => $language};