Oct 14 2007 Coverage Analysis in Testing Back

Geoff Young's Shortcut for Devel::Cover

        sub MY::test {
            my $test = shift->MM::test(@_);
            if (eval { require Devel::Cover; }) {
                $test .= <<EOF;
        testcover ::
                cover -delete
                HARNESS_PERL_SWITCHES=-MDevel::Cover make test
                cover
        EOF
            }
            return $test;
        }


Home Last TOC Copyright © 2007 James E Keenan Back Next