<!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
Devel::Cover is copyright 2001-2012, Paul Johnson (paul@pjcj.net)
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>
<script type="text/javascript" src="common.js"></script>
<script type="text/javascript" src="css.js"></script>
<script type="text/javascript" src="standardista-table-sorting.js"></script>
<title> Coverage Summary </title>
</head>
<body>
<h1> File Coverage </h1>
<table>
<tr>
<th colspan="4">lib/Devel/PerlySense/Util/Log.pm</th>
</tr>
<tr class="hblank"><td class="dblank"></td></tr>
<tr>
<th class="hh">Criterion</th>
<th class="hh">Covered</th>
<th class="hh">Total</th>
<th class="hh">%</th>
</tr>
<tr>
<td class="h">statement</td>
<td>32</td>
<td>40</td>
<td class="c1" title="32 / 40">
80.0
</td>
</tr>
<tr>
<td class="h">branch</td>
<td>2</td>
<td>8</td>
<td class="c0" title="2 / 8">
<a href="lib-Devel-PerlySense-Util-Log-pm--branch.html"> 25.0 </a>
</td>
</tr>
<tr>
<td class="h">condition</td>
<td>0</td>
<td>3</td>
<td class="c0" title="0 / 3">
<a href="lib-Devel-PerlySense-Util-Log-pm--condition.html"> 0.0 </a>
</td>
</tr>
<tr>
<td class="h">subroutine</td>
<td>10</td>
<td>11</td>
<td class="c2" title="10 / 11">
<a href="lib-Devel-PerlySense-Util-Log-pm--subroutine.html"> 90.9 </a>
</td>
</tr>
<tr>
<td class="h">pod</td>
<td>1</td>
<td>1</td>
<td class="c3" title="1 / 1">
<a href="lib-Devel-PerlySense-Util-Log-pm--subroutine.html"> 100.0 </a>
</td>
</tr>
<tr>
<td class="h">total</td>
<td>45</td>
<td>63</td>
<td class="c0" title="45 / 63">
71.4
</td>
</tr>
</table>
<div><br></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" >
<a name="1">1</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head1 NAME</span> </td>
</tr>
<tr>
<td class="h" >
<a name="2">2</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="3">3</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Devel::PerlySense::Util::Log - Log routines</span> </td>
</tr>
<tr>
<td class="h" >
<a name="4">4</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="5">5</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=cut</span> </td>
</tr>
<tr>
<td class="h" >
<a name="6">6</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="7">7</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="8">8</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="9">9</a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Util-Log-pm--subroutine.html#9-1">
63
</a>
</td>
<td >
</td>
<td >
261
</td>
<td class="s"> <span class="k">use</span> <span class="w">strict</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
68
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1651
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="10">10</a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Util-Log-pm--subroutine.html#10-1">
63
</a>
</td>
<td >
</td>
<td >
209
</td>
<td class="s"> <span class="k">use</span> <span class="w">warnings</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
69
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
2451
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="11">11</a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Util-Log-pm--subroutine.html#11-1">
63
</a>
</td>
<td >
</td>
<td >
1074
</td>
<td class="s"> <span class="k">use</span> <span class="w">utf8</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
104
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
2512
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="12">12</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="13">13</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="k">package </span><span class="i">Devel::PerlySense::Util::Log</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="14">14</a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Util-Log-pm--subroutine.html#14-1">
63
</a>
</td>
<td >
</td>
<td >
1979
</td>
<td class="s"> <span class="k">use</span> <span class="w">base</span> <span class="q">"Exporter"</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
70
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1188
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="15">15</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="16">16</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="k">our</span> <span class="i">@EXPORT</span> = <span class="s">(</span> </td>
</tr>
<tr>
<td class="h" >
<a name="17">17</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">qw/</span> </td>
</tr>
<tr>
<td class="h" >
<a name="18">18</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">debug</span> </td>
</tr>
<tr>
<td class="h" >
<a name="19">19</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">/</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="20">20</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="21">21</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="22">22</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="23">23</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="24">24</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="25">25</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="26">26</a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Util-Log-pm--subroutine.html#26-1">
63
</a>
</td>
<td >
</td>
<td >
8996
</td>
<td class="s"> <span class="k">use</span> <span class="w">Carp</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
74
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
2930
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="27">27</a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Util-Log-pm--subroutine.html#27-1">
63
</a>
</td>
<td >
</td>
<td >
242
</td>
<td class="s"> <span class="k">use</span> <span class="w">Data::Dumper</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
57
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
6644
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="28">28</a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Util-Log-pm--subroutine.html#28-1">
63
</a>
</td>
<td >
</td>
<td >
235
</td>
<td class="s"> <span class="k">use</span> <span class="w">File::Basename</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
67
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
3102
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="29">29</a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Util-Log-pm--subroutine.html#29-1">
63
</a>
</td>
<td >
</td>
<td >
505
</td>
<td class="s"> <span class="k">use</span> <span class="w">Path::Class</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
55359
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
2446
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="30">30</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="31">31</a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Util-Log-pm--subroutine.html#31-1">
63
</a>
</td>
<td >
</td>
<td >
43919
</td>
<td class="s"> <span class="k">use</span> <span class="w">Devel::PerlySense::Home</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
127
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
460
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="32">32</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="33">33</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="34">34</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="35">35</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="36">36</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="37">37</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head1 ROUTINES</span> </td>
</tr>
<tr>
<td class="h" >
<a name="38">38</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="39">39</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head2 debug($message)</span> </td>
</tr>
<tr>
<td class="h" >
<a name="40">40</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="41">41</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Log debug $message to a log file in the HOME log directory.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="42">42</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="43">43</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Return 1.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="44">44</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="45">45</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=cut</span> </td>
</tr>
<tr>
<td class="h" >
<a name="46">46</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="k">my</span> <span class="i">$fileDebug</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="47">47</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="k">my</span> <span class="i">@aHistoryMessage</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="48">48</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="k">my</span> <span class="i">$maxCountHistory</span> = <span class="n">200</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="49">49</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="k">sub </span><span class="m">debug</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="50">50</a>
</td>
<td class="c3" >
166
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Util-Log-pm--subroutine.html#50-1">
166
</a>
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Util-Log-pm--subroutine.html#50-1">
1
</a>
</td>
<td >
3000
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</span><span class="i">$message</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="51">51</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="52">52</a>
</td>
<td class="c3" >
166
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
9836
</td>
<td class="s"> <span class="k">my</span> <span class="i">$messageLog</span> = <span class="k">localtime</span><span class="s">(</span><span class="s">)</span> . <span class="q">": $message\n"</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="53">53</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="54">54</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="c">#Keep recent messages in memory for test diagnostics</span> </td>
</tr>
<tr>
<td class="h" >
<a name="55">55</a>
</td>
<td class="c3" >
166
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
744
</td>
<td class="s"> <span class="k">push</span><span class="s">(</span><span class="i">@aHistoryMessage</span><span class="cm">,</span> <span class="i">$messageLog</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="56">56</a>
</td>
<td class="c3" >
166
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Util-Log-pm--branch.html#56-1">
50
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
357
</td>
<td class="s"> <span class="i">@aHistoryMessage</span> > <span class="i">$maxCountHistory</span> <span class="k">and</span> <span class="k">shift</span><span class="s">(</span><span class="i">@aHistoryMessage</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="57">57</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="58">58</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="59">59</a>
</td>
<td class="c3" >
166
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Util-Log-pm--branch.html#59-1">
50
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1639
</td>
<td class="s"> <span class="i">$0</span> =~ <span class="q">/\.t$/</span> <span class="k">and</span> <span class="k">return</span> <span class="n">1</span><span class="sc">;</span> <span class="c">#Don't log when running tests</span> </td>
</tr>
<tr>
<td class="h" >
<a name="60">60</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="61">61</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Util-Log-pm--branch.html#61-1">
0
</a>
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Util-Log-pm--condition.html#61-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="i">$fileDebug</span> ||= <span class="k">do</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="62">62</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="k">my</span> <span class="i">$oHome</span> = <span class="w">Devel::PerlySense::Home</span><span class="w">->new</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="63">63</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="i">file</span><span class="s">(</span><span class="i">$oHome</span><span class="i">->dirHomeLog</span><span class="cm">,</span> <span class="q">"debug.log"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="64">64</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="65">65</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="s">}</span> <span class="k">or</span> <span class="k">return</span> <span class="n">0</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="66">66</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="67">67</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Util-Log-pm--branch.html#67-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="k">open</span><span class="s">(</span><span class="k">my</span> <span class="i">$fh</span><span class="cm">,</span> <span class="q">">>"</span><span class="cm">,</span> <span class="i">$fileDebug</span><span class="s">)</span> <span class="k">or</span> <span class="k">return</span> <span class="n">0</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="68">68</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="i">$fh</span><span class="i">->print</span><span class="s">(</span><span class="i">$messageLog</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="69">69</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="70">70</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="k">return</span><span class="s">(</span><span class="n">1</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="71">71</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="s">}</span> </td>
</tr>
<tr>
<td class="h" >
<a name="72">72</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="73">73</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="74">74</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="75">75</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="76">76</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="77">77</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="c">#Debugging aid during CPAN testers failures</span> </td>
</tr>
<tr>
<td class="h" >
<a name="78">78</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="c">#This is a hack, please ignore</span> </td>
</tr>
<tr>
<td class="h" >
<a name="79">79</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="k">sub </span><span class="m">_textTailDebug</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="80">80</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Util-Log-pm--subroutine.html#80-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="k">my</span> <span class="i">$class</span> = <span class="k">shift</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="81">81</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="k">return</span> <span class="k">join</span><span class="s">(</span><span class="q">"\n"</span><span class="cm">,</span> <span class="i">@aHistoryMessage</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="82">82</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="s">}</span> </td>
</tr>
<tr>
<td class="h" >
<a name="83">83</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="84">84</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="85">85</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="86">86</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="87">87</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="88">88</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="n">1</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="89">89</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="90">90</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="91">91</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="92">92</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="93">93</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="94">94</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="k">__END__</span> </td>
</tr>
<tr>
<td class="h" >
<a name="95">95</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="96">96</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=encoding utf8</span> </td>
</tr>
<tr>
<td class="h" >
<a name="97">97</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="98">98</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head1 AUTHOR</span> </td>
</tr>
<tr>
<td class="h" >
<a name="99">99</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="100">100</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Johan Lindström, C<< <johanl[ÄT]DarSerMan.com> >></span> </td>
</tr>
<tr>
<td class="h" >
<a name="101">101</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="102">102</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head1 BUGS</span> </td>
</tr>
<tr>
<td class="h" >
<a name="103">103</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="104">104</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Please report any bugs or feature requests to</span> </td>
</tr>
<tr>
<td class="h" >
<a name="105">105</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">C<bug-devel-perlysense@rt.cpan.org>, or through the web interface at</span> </td>
</tr>
<tr>
<td class="h" >
<a name="106">106</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Devel-PerlySense>.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="107">107</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">I will be notified, and then you'll automatically be notified of progress on</span> </td>
</tr>
<tr>
<td class="h" >
<a name="108">108</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">your bug as I make changes.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="109">109</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="110">110</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head1 ACKNOWLEDGEMENTS</span> </td>
</tr>
<tr>
<td class="h" >
<a name="111">111</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="112">112</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head1 COPYRIGHT & LICENSE</span> </td>
</tr>
<tr>
<td class="h" >
<a name="113">113</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="114">114</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Copyright 2005 Johan Lindström, All Rights Reserved.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="115">115</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="116">116</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">This program is free software; you can redistribute it and/or modify it</span> </td>
</tr>
<tr>
<td class="h" >
<a name="117">117</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">under the same terms as Perl itself.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="118">118</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="119">119</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=cut</span> </td>
</tr>
</table>
</body>
</html>