- my $env = delete $replace{-env};
- $replace{HEAD} //= "Content-Type: text/html\nX-PLP-Version: $PLP::VERSION\n";
- $replace{VERSION } //= $PLP::VERSION;
- $replace{SCRIPT_NAME } //= $src;
- $replace{SCRIPT_FILENAME} //= "./$src";
-
- chomp $output;
- $output =~ s/\$$_/$replace{$_}/g for keys %replace;
- $output =~ s{
- <eval \s+ line="([^"]*)"> (.*?) </eval>
- }{ _getwarning($2, $1, $src) }msxge;
-
- plp_is($name, $src, $output, $env, $input);
+ if ($output) {
+ $replace{HEAD} //= "Content-Type: text/html\nX-PLP-Version: $PLP::VERSION\n";
+ $replace{VERSION } //= $PLP::VERSION;
+ $replace{SCRIPT_NAME } //= $src;
+ $replace{SCRIPT_FILENAME} //= "./$src";
+
+ chomp $output;
+ $output =~ s/\$$_/$replace{$_}/g for keys %replace;
+ $output =~ s{
+ <eval \s+ line="([^"]*)"> (.*?) </eval>
+ }{ _getwarning($2, $1, $src) }msxge;
+ }
+
+ return ($src, $env, $input, $output, $name);
+}
+
+sub plp_ok {
+ local $Test::Builder::Level = $Test::Builder::Level + 1;
+ plp_is(_getplp(@_));