Skip to content

Instantly share code, notes, and snippets.

@wchristian

wchristian/.gitignore

Created July 6, 2012 15:54
Show Gist options
  • Save wchristian/3061026 to your computer and use it in GitHub Desktop.
Save wchristian/3061026 to your computer and use it in GitHub Desktop.
Download ZIP
full_cover
Raw
.gitignore
blib
Makefile
Makefile.old
pm_to_blib
MYMETA*
cover_db/digests
cover_db/structure*
Raw
README
Microsoft Windows [Version 6.1.7601]
Copyright (c) 2009 Microsoft Corporation. All rights reserved.
d:\cpan\fcgi>perl Makefile.PL
Writing Makefile for Foo
Writing MYMETA.yml and MYMETA.json
d:\cpan\fcgi>dmake test
cp lib/Foo.pm blib\lib\Foo.pm
C:\Perl\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib\lib', 'blib\arch')" t/*.t
t/foo.t .. ok
All tests successful.
Files=1, Tests=2, 0 wallclock secs ( 0.02 usr + 0.03 sys = 0.05 CPU)
Result: PASS
d:\cpan\fcgi>cover -test
Deleting database D:\cpan\fcgi\cover_db
cover: running C:\Perl\site\bin\dmake.exe test "OPTIMIZE=-O0 -fprofile-arcs -ftest-coverage" "OTHERLDFLAGS=-fprofile-arcs -ftest-coverage"
C:\Perl\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib\lib', 'blib\arch')" t/*.t
t/foo.t .. ok
All tests successful.
Files=1, Tests=2, 0 wallclock secs ( 0.05 usr + 0.00 sys = 0.05 CPU)
Result: PASS
Reading database from D:\cpan\fcgi\cover_db
---------------------------- ------ ------ ------ ------ ------ ------ ------
File stmt bran cond sub pod time total
---------------------------- ------ ------ ------ ------ ------ ------ ------
fcgi/foo.fcgi 100.0 n/a n/a 100.0 n/a 80.6 100.0
lib/Foo.pm 100.0 n/a n/a 100.0 0.0 19.4 90.9
Total 100.0 n/a n/a 100.0 0.0 100.0 95.2
---------------------------- ------ ------ ------ ------ ------ ------ ------
HTML output written to D:\cpan\fcgi\cover_db/coverage.html
done.
d:\cpan\fcgi>perl -MV=Devel::Cover
Devel::Cover
C:\Perl\site\lib\Devel\Cover.pm: 0.89
d:\cpan\fcgi>
Raw
cover.13
{"runs":{"1341589891.39580.43732":{"count":{"lib/Foo.pm":{"pod":[0],"subroutine":[1,1,1],"statement":[1,1,1,1,1,1,1],"time":[30001,0,0,0,0,0,0]},"fcgi/foo.fcgi":{"subroutine":[1,1,1],"statement":[1,1,1,1,1,1,1],"time":[125002,0,0,0,0,0,0]}},"finish":1341589891.62658,"digests":{"lib/Foo.pm":"7df4a9819e922294836f4f8201eaa1f3","fcgi/foo.fcgi":"29d34a78f7adbd51c3cbd6ca2421972a","t/foo.t":"3769bedc76d97a631d2428781a52f5f4"},"collected":["branch","condition","pod","statement","subroutine","time"],"vec":{"lib/Foo.pm":{"pod":{"vec":"\u0000","size":1},"subroutine":{"vec":"\u0007","size":3},"statement":{"vec":"","size":7}},"fcgi/foo.fcgi":{"subroutine":{"vec":"\u0007","size":3},"statement":{"vec":"","size":7}}},"perl":"5.12.4","run":"t/foo.t","OS":"MSWin32","start":1341589891.62408}}}
Raw
cover.css
/* Stylesheet for Devel::Cover HTML reports */
/* You may modify this file to alter the appearance of your coverage
* reports. If you do, you should probably flag it read-only to prevent
* future runs from overwriting it.
*/
/* Note: default values use the color-safe web palette. */
body {
font-family: sans-serif;
}
h1 {
background-color: #3399ff;
border: solid 1px #999999;
padding: 0.2em;
-moz-border-radius: 10px;
}
a {
color: #000000;
}
a:visited {
color: #333333;
}
table {
border-collapse: collapse;
border-spacing: 0px;
}
tr {
text-align : center;
vertical-align: top;
}
th,.h {
background-color: #cccccc;
border: solid 1px #333333;
padding: 0em 0.2em;
}
td {
border: solid 1px #cccccc;
}
/* source code */
pre,.s {
text-align: left;
font-family: monospace;
white-space: pre;
padding: 0em 0.5em 0em 0.5em;
}
/* Classes for color-coding coverage information:
* c0 : path not covered or coverage < 75%
* c1 : coverage >= 75%
* c2 : coverage >= 90%
* c3 : path covered or coverage = 100%
*/
.c0, .c1, .c2, .c3 { text-align: right; }
.c0 {
background-color: #ff9999;
border: solid 1px #cc0000;
}
.c1 {
background-color: #ffcc99;
border: solid 1px #ff9933;
}
.c2 {
background-color: #ffff99;
border: solid 1px #cccc66;
}
.c3 {
background-color: #99ff99;
border: solid 1px #009900;
}
Raw
coverage.html
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!--
This file was generated by Devel::Cover Version 0.89
Devel::Cover is copyright 2001-2012, Paul Johnson ([email protected])
Devel::Cover is free. It is licensed under the same terms as Perl itself.
The latest version of Devel::Cover should be available from my homepage:
http://www.pjcj.net
-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<meta http-equiv="Content-Language" content="en-us"></meta>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<title>Coverage Summary</title>
</head>
<body>
<h1>Coverage Summary</h1>
<table>
<tr>
<td class="h" align="right">Database:</td><td align="left">D:\cpan\fcgi\cover_db</td>
</tr>
<tr>
<td class="h" align="right">C0:</td><td class="c0" align="left">&lt;&nbsp;75%</td>
</tr>
<tr>
<td class="h" align="right">C1:</td><td class="c1" align="left">&lt;&nbsp;90%</td>
</tr>
<tr>
<td class="h" align="right">C2:</td><td class="c2" align="left">&lt;&nbsp;100%</td>
</tr>
<tr>
<td class="h" align="right">C3:</td><td class="c3" align="left">&gt;=&nbsp;100%</td>
</tr>
</table>
<div><br/></div>
<table>
<tr><th>file</th><th>stmt</th><th>bran</th><th>cond</th><th>sub</th><th>pod</th><th>time</th><th>total</th></tr>
<tr><td align="left"><a href="fcgi-foo-fcgi.html">fcgi/foo.fcgi</a></td><td class="c3" title="7 / 7">100.0</td><td>n/a</td><td>n/a</td><td class="c3" title="3 / 3"><a href="fcgi-foo-fcgi--subroutine.html">100.0</a></td><td>n/a</td><td>80.6</td><td class="c3" title="10 / 10">100.0</td></tr>
<tr><td align="left"><a href="lib-Foo-pm.html">lib/Foo.pm</a></td><td class="c3" title="7 / 7">100.0</td><td>n/a</td><td>n/a</td><td class="c3" title="3 / 3"><a href="lib-Foo-pm--subroutine.html">100.0</a></td><td class="c0" title="0 / 1"> 0.0</td><td>19.4</td><td class="c2" title="10 / 11">90.9</td></tr>
<tr><td align="left">Total</td><td class="c3" title="14 / 14">100.0</td><td>n/a</td><td>n/a</td><td class="c3" title="6 / 6">100.0</td><td class="c0" title="0 / 1"> 0.0</td><td>100.0</td><td class="c2" title="20 / 21">95.2</td></tr>
</table>
</body>
</html>
Raw
fcgi-foo-fcgi--subroutine.html
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!--
This file was generated by Devel::Cover Version 0.89
Devel::Cover is copyright 2001-2012, Paul Johnson ([email protected])
Devel::Cover is free. It is licensed under the same terms as Perl itself.
The latest version of Devel::Cover should be available from my homepage:
http://www.pjcj.net
-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<meta http-equiv="Content-Language" content="en-us"></meta>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<title>Subroutine Coverage: fcgi/foo.fcgi</title>
</head>
<body>
<h1>Subroutine Coverage</h1>
<table>
<tr><td class="h" align="right">File:</td><td align="left">fcgi/foo.fcgi</td></tr>
<tr><td class="h" align="right">Coverage:</td><td align="left" class="c3">100.0%</td></tr>
</table>
<div><br/></div>
<table>
<tr><th>line</th><th>subroutine</th></tr>
<tr><td class="h"><a id="L1">1</a></td><td class="c3"><div class="s">BEGIN</div></td></tr>
<tr><td class="h"></td><td class="c3"><div class="s">BEGIN</div></td></tr>
<tr><td class="h"><a id="L4">4</a></td><td class="c3"><div class="s">craptastic</div></td></tr>
</table>
</body>
</html>
Raw
fcgi-foo-fcgi.html
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!--
This file was generated by Devel::Cover Version 0.89
Devel::Cover is copyright 2001-2012, Paul Johnson ([email protected])
Devel::Cover is free. It is licensed under the same terms as Perl itself.
The latest version of Devel::Cover should be available from my homepage:
http://www.pjcj.net
-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<meta http-equiv="Content-Language" content="en-us"></meta>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<title>File Coverage: fcgi/foo.fcgi</title>
</head>
<body>
<h1>File Coverage</h1>
<table>
<tr><td class="h" align="right">File:</td><td align="left">fcgi/foo.fcgi</td></tr>
<tr><td class="h" align="right">Coverage:</td><td align="left" class="c3">100.0%</td></tr>
</table>
<div><br/></div>
<table>
<tr><th>line</th><th>stmt</th><th>bran</th><th>cond</th><th>sub</th><th>pod</th><th>time</th><th>code</th></tr>
<tr><td class="h">1</td><td><div class="c3">1</div><div class="c3">1</div><div class="c3">1</div><div class="c3">1</div><div class="c3">1</div><div class="c3">1</div></td><td></td><td></td><td><div class="c3"><a href="fcgi-foo-fcgi--subroutine.html#L1">1</a></div><div class="c3"><a href="fcgi-foo-fcgi--subroutine.html#L1">1</a></div></td><td></td><td><div>125002</div><div>0</div><div>0</div><div>0</div><div>0</div><div>0</div></td><td class="s">use 5.12.0;</td></tr>
<tr><td class="h">2</td><td colspan="7"></td></tr><tr><td class="h">3</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub craptastic {</td></tr>
<tr><td class="h">4</td><td><div class="c3">1</div></td><td></td><td></td><td><div class="c3"><a href="fcgi-foo-fcgi--subroutine.html#L4">1</a></div></td><td></td><td><div>0</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;return &quot;This is craptastic&quot;;</td></tr>
<tr><td class="h">5</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">6</td><td colspan="7"></td></tr><tr><td class="h">7</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">1;</td></tr>
</table>
</body>
</html>
Raw
foo.fcgi
use 5.12.0;
sub craptastic {
return "This is craptastic";
}
1;
Raw
Foo.pm
package Foo;
use 5.12.0;
our $VERSION = 0.1;
sub bar {
return shift . "bar";
}
1;
Raw
foo.t
use 5.12.0;
use Test::More;
use lib 'lib';
use Foo;
require 'fcgi/foo.fcgi';
is craptastic(), 'This is craptastic',
'We have run an fcgi/*fcgi test';
is Foo::bar('baz'), 'bazbar',
'... and this is a regular lib/ test';
done_testing;
Raw
lib-Foo-pm--subroutine.html
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!--
This file was generated by Devel::Cover Version 0.89
Devel::Cover is copyright 2001-2012, Paul Johnson ([email protected])
Devel::Cover is free. It is licensed under the same terms as Perl itself.
The latest version of Devel::Cover should be available from my homepage:
http://www.pjcj.net
-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<meta http-equiv="Content-Language" content="en-us"></meta>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<title>Subroutine Coverage: lib/Foo.pm</title>
</head>
<body>
<h1>Subroutine Coverage</h1>
<table>
<tr><td class="h" align="right">File:</td><td align="left">lib/Foo.pm</td></tr>
<tr><td class="h" align="right">Coverage:</td><td align="left" class="c3">100.0%</td></tr>
</table>
<div><br/></div>
<table>
<tr><th>line</th><th>subroutine</th></tr>
<tr><td class="h"><a id="L2">2</a></td><td class="c3"><div class="s">BEGIN</div></td></tr>
<tr><td class="h"></td><td class="c3"><div class="s">BEGIN</div></td></tr>
<tr><td class="h"><a id="L5">5</a></td><td class="c3"><div class="s">bar</div></td></tr>
</table>
</body>
</html>
Raw
lib-Foo-pm.html
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!--
This file was generated by Devel::Cover Version 0.89
Devel::Cover is copyright 2001-2012, Paul Johnson ([email protected])
Devel::Cover is free. It is licensed under the same terms as Perl itself.
The latest version of Devel::Cover should be available from my homepage:
http://www.pjcj.net
-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<meta http-equiv="Content-Language" content="en-us"></meta>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<title>File Coverage: lib/Foo.pm</title>
</head>
<body>
<h1>File Coverage</h1>
<table>
<tr><td class="h" align="right">File:</td><td align="left">lib/Foo.pm</td></tr>
<tr><td class="h" align="right">Coverage:</td><td align="left" class="c2">90.9%</td></tr>
</table>
<div><br/></div>
<table>
<tr><th>line</th><th>stmt</th><th>bran</th><th>cond</th><th>sub</th><th>pod</th><th>time</th><th>code</th></tr>
<tr><td class="h">1</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">package Foo;</td></tr>
<tr><td class="h">2</td><td><div class="c3">1</div><div class="c3">1</div><div class="c3">1</div><div class="c3">1</div><div class="c3">1</div><div class="c3">1</div></td><td></td><td></td><td><div class="c3"><a href="lib-Foo-pm--subroutine.html#L2">1</a></div><div class="c3"><a href="lib-Foo-pm--subroutine.html#L2">1</a></div></td><td></td><td><div>30001</div><div>0</div><div>0</div><div>0</div><div>0</div><div>0</div></td><td class="s">use 5.12.0;</td></tr>
<tr><td class="h">3</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">our $VERSION = 0.1;</td></tr>
<tr><td class="h">4</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub bar {</td></tr>
<tr><td class="h">5</td><td><div class="c3">1</div></td><td></td><td></td><td><div class="c3"><a href="lib-Foo-pm--subroutine.html#L5">1</a></div></td><td><div class="c0">0</div></td><td><div>0</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;return shift . &quot;bar&quot;;</td></tr>
<tr><td class="h">6</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">7</td><td colspan="7"></td></tr><tr><td class="h">8</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">1;</td></tr>
</table>
</body>
</html>
Raw
Makefile.PL
use strict;
use warnings FATAL => 'all';
use 5.008001;
use ExtUtils::MakeMaker;
WriteMakefile(
NAME => 'Foo',
VERSION_FROM => 'lib/Foo.pm',
LICENSE => 'perl',
);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment