# 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;