X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=inc%2FMyInline.pm;h=305f26a59c81f9a8d26a50aa8c4410a0df22eebf;hb=366abb63a74af7c8a6eb6390f30d60a6bdfca414;hp=3ab70c8f2b7e509f2fa502fa84e6a01114c88731;hpb=d62bc8fd72a70cec4aa22e794af221451e281b80;p=gitmo%2FMoose.git 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;