gistfile1.pl

#!perl

use strict;
use warnings;

=pod
    Plack/Session
=cut

# to make sure method calls generated by those aren't left uncovered
my @select = qw(
  Plack/Request.pm
  Sub/Quote.pm
);

system( "cover -delete" );
system( "perl -MDevel::Cover" . ( @select ? "=-select," . join( ",", @select ) : "" ) . " t/test.t" );
system( "cover" );