Untabif inc/MyInline.pm
Dave Rolsky [Fri, 31 Dec 2010 18:57:41 +0000 (13:57 -0500)]
inc/MyInline.pm

index 3ab70c8..305f26a 100644 (file)
@@ -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;