From: Dave Rolsky <autarch@urth.org>
Date: Fri, 31 Dec 2010 18:57:41 +0000 (-0500)
Subject: Untabif inc/MyInline.pm
X-Git-Tag: 1.9900~3^2~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a4c245968fe8f211c53d88eeae44e4b245a0d8e0;p=gitmo%2FMoose.git

Untabif inc/MyInline.pm
---

diff --git a/inc/MyInline.pm b/inc/MyInline.pm
index 3ab70c8..305f26a 100644
--- a/inc/MyInline.pm
+++ b/inc/MyInline.pm
@@ -13,29 +13,29 @@ use warnings;
     # This extracts the SYNOPSIS in addition to code specifically
     # marked for testing
     my $search = qr/
-		(?:^|\n)                           # After the beginning of the string, or a newline
-		(                                  # ... start capturing
-		                                   # EITHER
-			package\s+                            # A package
-			[^\W\d]\w*(?:(?:\'|::)[^\W\d]\w*)*    # ... with a name
-			\s*;                                  # And a statement terminator
+        (?:^|\n)                           # After the beginning of the string, or a newline
+        (                                  # ... start capturing
+                                           # EITHER
+            package\s+                            # A package
+            [^\W\d]\w*(?:(?:\'|::)[^\W\d]\w*)*    # ... with a name
+            \s*;                                  # And a statement terminator
                 |
                         =head1[ \t]+SYNOPSIS\n
                         .*?
                         (?=\n=)
-		|                                  # OR
-			=for[ \t]+example[ \t]+begin\n        # ... when we find a =for example begin
-			.*?                                   # ... and keep capturing
-			\n=for[ \t]+example[ \t]+end\s*?      # ... until the =for example end
-			(?:\n|$)                              # ... at the end of file or a newline
-		|                                  # OR
-			=begin[ \t]+(?:test|testing)(?:-SETUP)? # ... when we find a =begin test or testing
-			.*?                                     # ... and keep capturing
-			\n=end[ \t]+(?:test|testing)(?:-SETUP)? # ... until an =end tag
+        |                                  # OR
+            =for[ \t]+example[ \t]+begin\n        # ... when we find a =for example begin
+            .*?                                   # ... and keep capturing
+            \n=for[ \t]+example[ \t]+end\s*?      # ... until the =for example end
+            (?:\n|$)                              # ... at the end of file or a newline
+        |                                  # OR
+            =begin[ \t]+(?:test|testing)(?:-SETUP)? # ... when we find a =begin test or testing
+            .*?                                     # ... and keep capturing
+            \n=end[ \t]+(?:test|testing)(?:-SETUP)? # ... until an =end tag
                         .*?
-			(?:\n|$)                              # ... at the end of file or a newline
-		)                                  # ... and stop capturing
-		/isx;
+            (?:\n|$)                              # ... at the end of file or a newline
+        )                                  # ... and stop capturing
+        /isx;
 
     sub _elements {
         my $self     = shift;