7 files changed, 13 insertions, 2 deletions
diff --git a/lib/MGA/Mirrors.pm b/lib/MGA/Mirrors.pm
index a13649d..e768bb1 100644
--- a/lib/MGA/Mirrors.pm
+++ b/lib/MGA/Mirrors.pm
@@ -24,7 +24,7 @@ use Catalyst qw/
 extends 'Catalyst';
 
 our $VERSION = '0.09';
-$VERSION = eval $VERSION;
+$VERSION = eval $VERSION;  ## no critic
 
 # Configure the application.
 #
diff --git a/lib/MGA/Mirrors/View/GraphViz.pm b/lib/MGA/Mirrors/View/GraphViz.pm
index 05811cd..84d4324 100644
--- a/lib/MGA/Mirrors/View/GraphViz.pm
+++ b/lib/MGA/Mirrors/View/GraphViz.pm
@@ -1,6 +1,7 @@
 package MGA::Mirrors::View::GraphViz;
 
 use strict;
+use warnings;
 use base 'Catalyst::View::GraphViz';
 
 =head1 NAME
diff --git a/lib/MGA/Mirrors/View/Mail.pm b/lib/MGA/Mirrors/View/Mail.pm
index 0c694be..a942bc9 100644
--- a/lib/MGA/Mirrors/View/Mail.pm
+++ b/lib/MGA/Mirrors/View/Mail.pm
@@ -1,6 +1,7 @@
 package MGA::Mirrors::View::Mail;
 
 use strict;
+use warnings;
 use base 'Catalyst::View::TT';
 use Mail::Mailer;
 use MGA::Mirrors;
@@ -24,7 +25,7 @@ sub render {
     my ($self, $c, $template, $args) = @_;
 
     $ENV{MAILADDRESS} = $args->{From};
-    my $mailer = new Mail::Mailer 'smtp', Server => (MGA::Mirrors->config->{smtp} || 'localhost');
+    my $mailer = Mail::Mailer->new('smtp', Server => (MGA::Mirrors->config->{smtp} || 'localhost'));
     eval { 
         $mailer->open({
             (map { $_ => $args->{$_} } grep { $_ !~ /^(mail)$/ } keys %{ $args || {}}),
diff --git a/script/mga_mirrors_cgi.pl b/script/mga_mirrors_cgi.pl
index d5ef4cc..4ba9b1a 100755
--- a/script/mga_mirrors_cgi.pl
+++ b/script/mga_mirrors_cgi.pl
@@ -1,5 +1,7 @@
 #!/usr/bin/env perl
 
+use strict;
+use warnings;
 use Catalyst::ScriptRunner;
 Catalyst::ScriptRunner->run('MGA::Mirrors', 'CGI');
 
diff --git a/script/mga_mirrors_fastcgi.pl b/script/mga_mirrors_fastcgi.pl
index 3d16f7b..c87afcd 100755
--- a/script/mga_mirrors_fastcgi.pl
+++ b/script/mga_mirrors_fastcgi.pl
@@ -1,5 +1,7 @@
 #!/usr/bin/env perl
 
+use strict;
+use warnings;
 use Catalyst::ScriptRunner;
 Catalyst::ScriptRunner->run('MGA::Mirrors', 'FastCGI');
 
diff --git a/script/mga_mirrors_server.pl b/script/mga_mirrors_server.pl
index b16ed1f..7f61516 100755
--- a/script/mga_mirrors_server.pl
+++ b/script/mga_mirrors_server.pl
@@ -1,5 +1,8 @@
 #!/usr/bin/env perl
 
+use strict;
+use warnings;
+
 BEGIN {
     $ENV{CATALYST_SCRIPT_GEN} = 40;
 }
diff --git a/script/mga_mirrors_test.pl b/script/mga_mirrors_test.pl
index 7229b7d..f46a2e2 100755
--- a/script/mga_mirrors_test.pl
+++ b/script/mga_mirrors_test.pl
@@ -1,5 +1,7 @@
 #!/usr/bin/env perl
 
+use strict;
+use warnings;
 use Catalyst::ScriptRunner;
 Catalyst::ScriptRunner->run('MGA::Mirrors', 'Test');