The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
<!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> Branch 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">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>

</table>
<div><br></br></div>

<table>
<tr>
<th> line </th>
<th> true </th>
<th> false </th>
<th> branch </th>
</tr>

<a name=""> </a>
<tr>
<td class="h">
<a href="lib-Devel-PerlySense-Util-Log-pm.html#56">56</a>
</td>

<td class="c0"> 0 </td>

<td class="c3"> 166 </td>

<td class="s"> <span class="k">if</span> <span class="i">@aHistoryMessage</span> &gt; <span class="i">$maxCountHistory</span>
 </td>
</tr>

<a name=""> </a>
<tr>
<td class="h">
<a href="lib-Devel-PerlySense-Util-Log-pm.html#59">59</a>
</td>

<td class="c3"> 166 </td>

<td class="c0"> 0 </td>

<td class="s"> <span class="k">if</span> <span class="i">$0</span> =~ <span class="q">/\.t$/</span>
 </td>
</tr>

<a name=""> </a>
<tr>
<td class="h">
<a href="lib-Devel-PerlySense-Util-Log-pm.html#61">61</a>
</td>

<td class="c0"> 0 </td>

<td class="c0"> 0 </td>

<td class="s"> <span class="k">unless</span> <span class="i">$fileDebug</span> ||= <span class="k">do</span> <span class="s">{</span>
	<span class="k">my</span> <span class="i">$oHome</span> = <span class="q">&#39;Devel::PerlySense::Home&#39;</span><span class="i">-&gt;new</span><span class="sc">;</span>
<span class="i">file</span><span class="s">(</span><span class="i">$oHome</span><span class="i">-&gt;dirHomeLog</span><span class="cm">,</span> <span class="q">&#39;debug.log&#39;</span><span class="s">)</span>
<span class="s">}</span>
 </td>
</tr>

<a name=""> </a>
<tr>
<td class="h">
<a href="lib-Devel-PerlySense-Util-Log-pm.html#67">67</a>
</td>

<td class="c0"> 0 </td>

<td class="c0"> 0 </td>

<td class="s"> <span class="k">unless</span> <span class="k">open</span> <span class="k">my</span> <span class="i">$fh</span><span class="cm">,</span> <span class="q">&#39;&gt;&gt;&#39;</span><span class="cm">,</span> <span class="i">$fileDebug</span>
 </td>
</tr>

</table>

</body>
</html>