enable Old-Man-Style four-space indents
Ricardo Signes [Thu, 5 Nov 2009 19:36:09 +0000 (14:36 -0500)]
lib/MooseX/Storage.pm

index 3bd6604..dbbdf85 100644 (file)
@@ -20,21 +20,21 @@ sub import {
 }
 
 sub __expand_role {
-  my ($base, $value) = @_;
-
-  return unless defined $value;
-
-  if (ref $value) {
-    confess "references for roles are not yet handled";
-  } else {
-    return scalar String::RewritePrefix->rewrite(
-      {
-        ''  => "MooseX::Storage::$base\::",
-        '=' => '',
-      },
-      $value,
-    );
-  }
+    my ($base, $value) = @_;
+
+    return unless defined $value;
+
+    if (ref $value) {
+        confess "references for roles are not yet handled";
+    } else {
+        return scalar String::RewritePrefix->rewrite(
+            {
+                ''  => "MooseX::Storage::$base\::",
+                '=' => '',
+            },
+            $value,
+        );
+    }
 }
 
 sub _injected_storage_role_generator {