X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FGitalist%2FContentMangler%2FResolver%2FDefault.pm;fp=lib%2FGitalist%2FContentMangler%2FResolver%2FDefault.pm;h=607f4d4324f44cce05a6b6eb58084643c7860955;hb=7c781a87451941ac6d99ec050e965b1bee30c57a;hp=0000000000000000000000000000000000000000;hpb=b2e0fe3133887cb8d2e9288c7138e1ac5965481a;p=catagits%2FGitalist.git

diff --git a/lib/Gitalist/ContentMangler/Resolver/Default.pm b/lib/Gitalist/ContentMangler/Resolver/Default.pm
new file mode 100644
index 0000000..607f4d4
--- /dev/null
+++ b/lib/Gitalist/ContentMangler/Resolver/Default.pm
@@ -0,0 +1,9 @@
+use MooseX::Declare;
+
+class Gitalist::ContentMangler::Resolver::Default with Gitalist::ContentMangler::Resolver {
+    method resolve ($data) {
+        return unless $data->{filename};
+        my $language = 'Perl' if $data->{filename} =~ /\.p[lm]$/i;
+        return (['SyntaxHighlight', {language => $language, css => $language}]);
+    }
+}
\ No newline at end of file