improve Perl language filter for POD, #929

Author: AlDanial

Unix/cloc

@@ -10899,7 +10899,7 @@ sub set_constants {                          # {{{1
                             ],
     'Perl'               => [   [ 'remove_below'        , '^__(END|DATA)__'],
                                 [ 'remove_matches'      , '^\s*#'  ],
-                                [ 'remove_below_above'  , '^=head1', '^=cut'  ],
+                                [ 'remove_below_above' , '^=(?:pod|over|head\d+)', '^=cut' ],
                                 [ 'remove_inline'       , '#.*$'   ],
                             ],
     'PEG'                => [

Unix/t/00_C.t

@@ -964,6 +964,11 @@ my @Tests = (
                     'ref'  => '../tests/outputs/pek_example.pek.yaml',
                     'args' => '../tests/inputs/pek_example.pek',
                 },
+                {
+                    'name' => 'Perl',
+                    'ref'  => '../tests/outputs/with_pod.pl.yaml',
+                    'args' => '../tests/inputs/with_pod.pl',
+                },
                 {
                     'name' => 'Pest',
                     'ref'  => '../tests/outputs/toml.pest.yaml',

cloc

@@ -10891,7 +10891,7 @@ sub set_constants {                          # {{{1
                             ],
     'Perl'               => [   [ 'remove_below'        , '^__(END|DATA)__'],
                                 [ 'remove_matches'      , '^\s*#'  ],
-                                [ 'remove_below_above'  , '^=head1', '^=cut'  ],
+                                [ 'remove_below_above' , '^=(?:pod|over|head\d+)', '^=cut' ],
                                 [ 'remove_inline'       , '#.*$'   ],
                             ],
     'PEG'                => [

tests/inputs/with_pod.pl

@@ -0,0 +1,25 @@
+#!/usr/bin/env perl
+use warnings;
+use strict;
+
+my $a = 43;
+=over
+this is not code
+=cut
+print $a, "\n";
+
+my $b = 44;
+=pod
+also not code
+=cut
+print $b, "\n";
+
+my $c = 45;
+=head3
+more docs
+=cut
+print $c, "\n";
+
+__DATA__
+
+This is yet more non-code

tests/outputs/with_pod.pl.yaml

@@ -0,0 +1,21 @@
+---
+# github.com/AlDanial/cloc
+header : 
+  cloc_url           : github.com/AlDanial/cloc
+  cloc_version       : 2.07
+  elapsed_seconds    : 0.00382208824157715
+  n_files            : 1
+  n_lines            : 25
+  files_per_second   : 261.637078161063
+  lines_per_second   : 6540.92695402657
+  report_file        : ../outputs/with_pod.pl.yaml
+'Perl' :
+  nFiles: 1
+  blank: 5
+  comment: 11
+  code: 9
+SUM: 
+  blank: 5
+  comment: 11
+  code: 9
+  nFiles: 1