gistfile1.txt

=== lib/Remedie/Log.pm
==================================================================
--- lib/Remedie/Log.pm  (revision 31599)
+++ lib/Remedie/Log.pm  (local)
@@ -16,7 +16,7 @@
 sub unimport {
     my $package = caller(0);
     foreach my $name qw(TRACE DEBUG ERROR INFO WARN FATAL) {
-        no strict 'refs';
+        no strict 'refs'; ## no critic.

         if ( defined &{ $package . '::' . $name } ) {
             my $sub = \&{ $package . '::' . $name };
@@ -109,4 +109,4 @@
     return !$self->{AcceptOnMatch};
 }

-1;
\ ファイルの末尾に改行がありません
+1;
=== lib/Remedie/Server.pm
==================================================================
--- lib/Remedie/Server.pm       (revision 31599)
+++ lib/Remedie/Server.pm       (local)
@@ -108,7 +108,7 @@
     die "Access to non-public methods" if $method =~ /^_/;

     my $rpc_class = join "::", "Remedie::Server::RPC", map String::CamelCase::camelize($_), @class;
-    eval "require $rpc_class; 1" or die $@;
+    eval "require $rpc_class; 1" or die $@; ## no critic.

     my $rpc = $rpc_class->new( conf => $self->conf );

=== lib/Remedie/UserData.pm
==================================================================
--- lib/Remedie/UserData.pm     (revision 31599)
+++ lib/Remedie/UserData.pm     (local)
@@ -18,7 +18,7 @@

     ## TODO change this to something like Library/Application\ Support/Remedie
     my $base = $self->base;
-    $base->mkpath(0777) unless -e $base;
+    $base->mkpath(oct '777') unless -e $base;

     if (@path > 1) {
         my $file = pop @path;