/usr/share/doc/libpod-coverage-perl/examples/script-covered is in libpod-coverage-perl 0.23-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | #!/usr/bin/perl -w
use strict;
my $file = shift || die "need something to test";
my $code;
open F, $file;
{
local $/;
$code = <F>;
}
close F;
eval qq{
package testme;
$code;
1;
};
$INC{'testme.pm'} = 1;
print testme::foo();
require Pod::Coverage;
Pod::Coverage->import(pod_from => $file,
package => 'testme');
|