make it possible to use a pre-existing parser to test

theory · Dec 4, 2009 · 8ad7a93 · 8ad7a93
1 parent d5ecd49
commit 8ad7a93
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Pod/Simple.pm b/lib/Pod/Simple.pm
@@ -1459,7 +1459,7 @@ sub _out {
    "\nAbout to parse source: {{\n$_[0]\n}}\n\n";
 
 
-  my $parser = $class->new;
+  my $parser = ref $class && $class->isa(__PACKAGE__) ? $class : $class->new;
   $parser->hide_line_numbers(1);
 
   my $out = '';