Commit | Line | Data |
---|---|---|
7c781a87 | 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 | } |