Merge branch 'perl-pod:master' into master

Author: khwilliamson

MANIFEST.SKIP

@@ -63,3 +63,8 @@ delme
 
 ^MYMETA\.yml$
 ^MYMETA\.json$
+
+# Avoid git-related files
+.git/
+.github/
+

lib/Pod/Simple/BlackBox.pm

@@ -604,7 +604,7 @@ sub parse_lines {             # Usage: $parser->parse_lines(@lines)
 sub _maybe_handle_element_start {
   my $self = shift;
   return $self->_handle_element_start(@_)
-    if !$self->{filter};
+    if !$self->{heading_filter};
 
   my ($element_name, $attr) = @_;
 
@@ -631,7 +631,7 @@ sub _maybe_handle_element_start {
 sub _maybe_handle_element_end {
   my $self = shift;
   return $self->_handle_element_end(@_)
-    if !$self->{filter};
+    if !$self->{heading_filter};
 
   my ($element_name, $attr) = @_;
 
@@ -665,7 +665,7 @@ sub _maybe_handle_element_end {
 sub _maybe_handle_text {
   my $self = shift;
   return $self->_handle_text(@_)
-    if !$self->{filter};
+    if !$self->{heading_filter};
 
   my ($text) = @_;
 
@@ -685,7 +685,7 @@ sub _filter_allows {
   my $self = shift;
   my @headings = @_;
 
-  my $filter = $self->{filter}
+  my $filter = $self->{heading_filter}
     or return 1;
 
   SPEC: for my $spec ( @$filter ) {
@@ -703,11 +703,11 @@ sub _filter_allows {
   return 0;
 }
 
-sub select {
+sub set_heading_select {
   my $self = shift;
   my (@selections) = @_;
 
-  my $filter = $self->{filter} ||= [];
+  my $filter = $self->{heading_filter} ||= [];
   if (@selections && $selections[0] eq '+') {
     shift @selections;
   }

t/filter-html.t

@@ -12,7 +12,7 @@ sub convert {
   $parser->html_header('');
   $parser->html_footer('');
   $parser->output_string(\$out);
-  $parser->select(@$select);
+  $parser->set_heading_select(@$select);
 
   $parser->parse_string_document($pod);
   return $out;

t/filter.t

@@ -9,7 +9,7 @@ sub convert {
   my $out = '';
   my $parser = Pod::Simple::JustPod->new;
   $parser->output_string(\$out);
-  $parser->select(@$select);
+  $parser->set_heading_select(@$select);
 
   $parser->parse_string_document($pod);
   return $out;