[p6doc] avoid warnings if requested method was not found

moritz · moritz · commit 11712c17d1a3 · 2012-07-05T07:41:06.000+02:00
diff --git a/lib/Pod/To/SectionFilter.pm b/lib/Pod/To/SectionFilter.pm
@@ -11,6 +11,9 @@ class Pod::To::SectionFilter {
                 $heading-level = $b.level;
             }
         }
+        return "No documentation found for method '$search_for'"
+            unless defined $from;
+
         my $to = @blocks.end;
         for $from + 1 .. @blocks.end -> $i {
             if @blocks[$i] ~~ Pod::Heading && @blocks[$i].level <= $heading-level {

Original file line number	Diff line number	Diff line change
`@@ -11,6 +11,9 @@ class Pod::To::SectionFilter {`
`11`	`11`	`$heading-level = $b.level;`
`12`	`12`	`}`
`13`	`13`	`}`
	`14`	`+ return "No documentation found for method '$search_for'"`
	`15`	`+ unless defined $from;`
	`16`	`+`
`14`	`17`	`my $to = @blocks.end;`
`15`	`18`	`for $from + 1 .. @blocks.end -> $i {`
`16`	`19`	`if @blocks[$i] ~~ Pod::Heading && @blocks[$i].level <= $heading-level {`