setenv DEVEL_COVER_DB_FORMAT JSON
setenv PERL5OPT "-MDevel::Cover=+ignore,/cov/,/data/,-silent,1,-summary,0,+select,project/"
./script.pl
unsetenv PERL5OPT
/usr/pkgs/perl/5.14.1/bin/cover

##</code><code>##

#!/usr/pkgs/perl/5.14.1/bin/perl

use strict;
use warnings;

my $cmd = "/project/bin/create_d.pl --data abc
system($cmd);
print("Done");
exit(0);

##</code><code>##

/usr/pkgs/perl/5.14.1/bin/cover shouldn't be run with coverage turned on.

##</code><code>##

Reading database from /play_ground/cov/cover_db
found cover.13 in /play_ground/cov/cover_db/runs/1570662588.11726.03850 at /usr/pkgs/perl/5.14.1/lib64/module/r3/x86_64-linux/Devel/Cover/DB.pm line 203.
Devel::Cover: /play_ground/cov/cover_db/runs/1570662588.11726.03850 is an invalid database
found cover.13 in /play_ground/cov/cover_db/runs/1570662590.11725.07170 at /usr/pkgs/perl/5.14.1/lib64/module/r3/x86_64-linux/Devel/Cover/DB.pm line 203.
Devel::Cover: /play_ground/cov/cover_db/runs/1570662590.11725.07170 is an invalid database


-----------------------------------------------------------------------------
File
-----------------------------------------------------------------------------
Total
-----------------------------------------------------------------------------


HTML output written to /play_ground/cov/cover_db/coverage.html
done.