Cevel::Cover missing lines?
"Jason Pyeron" <[email protected]> Tue, 18 Apr 2017 12:32:57 -0400
| Newsgroups | gmane.comp.lang.perl.quality-assurance |
|---|---|
| Organization | PD Inc |
| Message-ID | <5F690C9E81864D039E9F9976C64FEEE3@black7> |
------=_NextPart_000_007B_01D2B83F.E8F868D0
Content-Type: text/plain;
charset="utf-8"
Content-Transfer-Encoding: 7bit
I am "require"ing a file but Devel::Cover is not logging the statements, only the sub, use, and eval portions.
I tried a do(filename.pl) to no help.
I tried adding -subs_only off (and on) to no effect.
Any suggestions?
(source can be found at https://sourceforge.net/u/jpyeron/logwatch/ci/master/tree/)
-Jason
------=_NextPart_000_007B_01D2B83F.E8F868D0
Content-Type: text/html;
name="scripts-logwatch-pl.trim.html"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
filename="scripts-logwatch-pl.trim.html"
<!DOCTYPE html=0A=
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"=0A=
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">=0A=
<html xmlns=3D"http://www.w3.org/1999/xhtml">=0A=
<!--=0A=
This file was generated by Devel::Cover Version 1.23=0A=
Devel::Cover is copyright 2001-2012, Paul Johnson ([email protected])=0A=
Devel::Cover is free. It is licensed under the same terms as Perl itself.=0A=
The latest version of Devel::Cover should be available from my homepage:=0A=
http://www.pjcj.net=0A=
-->=0A=
<head>=0A=
<meta http-equiv=3D"Content-Type" content=3D"text/html; =
charset=3Dutf-8"></meta>=0A=
<meta http-equiv=3D"Content-Language" content=3D"en-us"></meta>=0A=
<link rel=3D"stylesheet" type=3D"text/css" href=3D"cover.css"></link>=0A=
<link rel=3D"stylesheet" type=3D"text/css" href=3D"cover.css"></link>=0A=
<title>File Coverage: scripts/logwatch.pl</title>=0A=
</head>=0A=
<body>=0A=
<h1>File Coverage</h1>=0A=
<table>=0A=
<tr><td class=3D"h" align=3D"right">File:</td><td =
align=3D"left">scripts/logwatch.pl</td></tr>=0A=
<tr><td class=3D"h" align=3D"right">Coverage:</td><td align=3D"left" =
class=3D"c0">48.1%</td></tr>=0A=
</table>=0A=
<div><br/></div>=0A=
<table>=0A=
<tr><th>line</th><th>stmt</th><th>bran</th><th>cond</th><th>sub</th><th>p=
od</th><th>time</th><th>code</th></tr>=0A=
<tr><td =
class=3D"h">1</td><td></td><td></td><td></td><td></td><td></td><td></td><=
td class=3D"s">#!/usr/bin/perl -w</td></tr>=0A=
<tr><td class=3D"h">2</td><td><div class=3D"c3">25</div><div =
class=3D"c3">25</div><div =
class=3D"c3">25</div></td><td></td><td></td><td><div class=3D"c3"><a =
href=3D"scripts-logwatch-pl--subroutine.html#L2">25</a></div></td><td></t=
d><td><div>0</div><div>0</div><div>4000</div></td><td class=3D"s">use =
strict;</td></tr>=0A=
<tr><td =
class=3D"h">3</td><td></td><td></td><td></td><td></td><td></td><td></td><=
td =
class=3D"s">#############################################################=
#############</td></tr>=0A=
<tr><td =
class=3D"h">4</td><td></td><td></td><td></td><td></td><td></td><td></td><=
td =
class=3D"s">#############################################################=
#############</td></tr>=0A=
<tr><td =
class=3D"h">5</td><td></td><td></td><td></td><td></td><td></td><td></td><=
td class=3D"s"># Most current version can always be found at:</td></tr>=0A=
<tr><td =
class=3D"h">6</td><td></td><td></td><td></td><td></td><td></td><td></td><=
td class=3D"s"># ftp://ftp.logwatch.org/pub/linux (tarball)</td></tr>=0A=
<tr><td =
class=3D"h">7</td><td></td><td></td><td></td><td></td><td></td><td></td><=
td class=3D"s"># ftp://ftp.logwatch.org/pub/redhat/RPMS (RPMs)</td></tr>=0A=
<tr><td class=3D"h">8</td><td colspan=3D"7"></td></tr><tr><td =
class=3D"h">9</td><td></td><td></td><td></td><td></td><td></td><td></td><=
td =
class=3D"s">########################################################</td>=
</tr>=0A=
<tr><td =
class=3D"h">10</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># Specify version and build-date:</td></tr>=0A=
<tr><td =
class=3D"h">11</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">my $Version =3D '7.4.3';</td></tr>=0A=
<tr><td =
class=3D"h">12</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">my $VDate =3D '04/27/16';</td></tr>=0A=
<tr><td class=3D"h">13</td><td colspan=3D"7"></td></tr><tr><td =
class=3D"h">14</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td =
class=3D"s">#######################################################</td><=
/tr>=0A=
<tr><td =
class=3D"h">15</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># Logwatch was written and is maintained by:</td></tr>=0A=
<tr><td =
class=3D"h">16</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># Kirk Bauer =
<[email protected]></td></tr>=0A=
<tr><td =
class=3D"h">17</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">#</td></tr>=0A=
<tr><td =
class=3D"h">18</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># Unless otherwise specified, Logwatch and all bundled =
filter scripts</td></tr>=0A=
<tr><td =
class=3D"h">19</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># are Copyright (c) Kirk Bauer and covered under the =
included MIT/X</td></tr>=0A=
<tr><td =
class=3D"h">20</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># Consortium license.</td></tr>=0A=
<tr><td =
class=3D"h">21</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">#</td></tr>=0A=
<tr><td =
class=3D"h">22</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># Please send all comments, suggestions, bug =
reports,</td></tr>=0A=
<tr><td =
class=3D"h">23</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># etc, to =
[email protected].</td></tr>=0A=
<tr><td =
class=3D"h">24</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">#</td></tr>=0A=
<tr><td =
class=3D"h">25</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td =
class=3D"s">########################################################</td>=
</tr>=0A=
<tr><td class=3D"h">26</td><td colspan=3D"7"></td></tr><tr><td =
class=3D"h">27</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td =
class=3D"s">#############################################################=
###############</td></tr>=0A=
<tr><td =
class=3D"h">28</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># ENV SETTINGS:</td></tr>=0A=
<tr><td =
class=3D"h">29</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># About the locale: some functions use locale =
information. In particular,</td></tr>=0A=
<tr><td =
class=3D"h">30</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># Logwatch makes use of strftime, which makes use of =
LC_TIME variable. Other</td></tr>=0A=
<tr><td =
class=3D"h">31</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># functions may also use locale information.</td></tr>=0A=
<tr><td =
class=3D"h">32</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">#</td></tr>=0A=
<tr><td =
class=3D"h">33</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># Because the parsing must be in the same locale as the =
logged information,</td></tr>=0A=
<tr><td =
class=3D"h">34</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># and this appears to be "C", =
"POSIX", or "en_US", we set LC_ALL for</td></tr>=0A=
<tr><td =
class=3D"h">35</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># this and other scripts invoked by this =
script. We use "C" because it</td></tr>=0A=
<tr><td =
class=3D"h">36</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># is always (?) available, whereas POSIX or en_US may =
not. They all use</td></tr>=0A=
<tr><td =
class=3D"h">37</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># the same time formats and rely on the ASCII character =
set.</td></tr>=0A=
<tr><td =
class=3D"h">38</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">#</td></tr>=0A=
<tr><td =
class=3D"h">39</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># Variables REAL_LANG and REAL_LC_ALL keep the original =
values for use by</td></tr>=0A=
<tr><td =
class=3D"h">40</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># scripts that need native language.</td></tr>=0A=
<tr><td =
class=3D"h">41</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">$ENV{'REAL_LANG'}=3D$ENV{'LANG'} if =
$ENV{'LANG'};</td></tr>=0A=
<tr><td =
class=3D"h">42</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">$ENV{'REAL_LC_ALL'}=3D$ENV{'LC_ALL'} if =
$ENV{'LC_ALL'};</td></tr>=0A=
<tr><td class=3D"h">43</td><td colspan=3D"7"></td></tr><tr><td =
class=3D"h">44</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># Setting ENV for scripts invoked by this =
script.</td></tr>=0A=
<tr><td =
class=3D"h">45</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">$ENV{'LC_ALL'} =3D "C";</td></tr>=0A=
<tr><td =
class=3D"h">46</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># Using setlocale to set locale for this =
script.</td></tr>=0A=
<tr><td class=3D"h">47</td><td><div class=3D"c3">25</div><div =
class=3D"c3">25</div><div =
class=3D"c3">25</div></td><td></td><td></td><td><div class=3D"c3"><a =
href=3D"scripts-logwatch-pl--subroutine.html#L47">25</a></div></td><td></=
td><td><div>44003</div><div>212011</div><div>0</div></td><td =
class=3D"s">use POSIX qw(locale_h);</td></tr>=0A=
<tr><td =
class=3D"h">48</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">setlocale(LC_ALL, "C");</td></tr>=0A=
<tr><td class=3D"h">49</td><td colspan=3D"7"></td></tr><tr><td =
class=3D"h">50</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">my $BaseDir =3D =
"/usr/share/logwatch";</td></tr>=0A=
<tr><td =
class=3D"h">51</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">my $ConfigDir =3D "/etc/logwatch";</td></tr>=0A=
<tr><td =
class=3D"h">52</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">my $PerlVersion =3D "$^X";</td></tr>=0A=
<tr><td class=3D"h">53</td><td colspan=3D"7"></td></tr><tr><td =
class=3D"h">54</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td =
class=3D"s">#############################################################=
################</td></tr>=0A=
<tr><td class=3D"h">55</td><td colspan=3D"7"></td></tr><tr><td =
class=3D"h">56</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td =
class=3D"s">#############################################################=
################</td></tr>=0A=
<tr><td =
class=3D"h">57</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># SET LIBS, GLOBALS, and DEFAULTS</td></tr>=0A=
<tr><td class=3D"h">58</td><td><div class=3D"c3">25</div><div =
class=3D"c3">25</div><div =
class=3D"c3">25</div></td><td></td><td></td><td><div class=3D"c3"><a =
href=3D"scripts-logwatch-pl--subroutine.html#L58">25</a></div></td><td></=
td><td><div>87002</div><div>255014</div><div>1000</div></td><td =
class=3D"s">use Getopt::Long;</td></tr>=0A=
<tr><td class=3D"h">59</td><td><div class=3D"c3">25</div><div =
class=3D"c3">25</div><div =
class=3D"c3">25</div></td><td></td><td></td><td><div class=3D"c3"><a =
href=3D"scripts-logwatch-pl--subroutine.html#L59">25</a></div></td><td></=
td><td><div>2000</div><div>0</div><div>0</div></td><td class=3D"s">use =
POSIX qw(uname);</td></tr>=0A=
<tr><td class=3D"h">60</td><td><div class=3D"c3">25</div><div =
class=3D"c3">25</div><div =
class=3D"c3">25</div></td><td></td><td></td><td><div class=3D"c3"><a =
href=3D"scripts-logwatch-pl--subroutine.html#L60">25</a></div></td><td></=
td><td><div>57003</div><div>284021</div><div>339017</div></td><td =
class=3D"s">use File::Temp qw/ tempdir /;</td></tr>=0A=
<tr><td class=3D"h">61</td><td colspan=3D"7"></td></tr><tr><td =
class=3D"h">62</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">my (%Config, @ServiceList, @LogFileList, %ServiceData, =
%LogFileData);</td></tr>=0A=
<tr><td =
class=3D"h">63</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">my (@AllShared, @AllLogFiles, @FileList);</td></tr>=0A=
<tr><td =
class=3D"h">64</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># These need to not be global variables one day</td></tr>=0A=
<tr><td =
class=3D"h">65</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">my (@ReadConfigNames, @ReadConfigValues);</td></tr>=0A=
<tr><td class=3D"h">66</td><td colspan=3D"7"></td></tr><tr><td =
class=3D"h">67</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">my @argvClone =3D @ARGV;</td></tr>=0A=
<tr><td =
class=3D"h">68</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">my $gop =3D Getopt::Long::Parser->new;</td></tr>=0A=
<tr><td =
class=3D"h">69</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">$gop->configure("pass_through");</td></tr>=0A=
<tr><td =
class=3D"h">70</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">$gop->getoptionsfromarray(\@argvClone, </td></tr>=0A=
<tr><td =
class=3D"h">71</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td =
class=3D"s"> &=
nbsp; &n=
bsp; "confdir=3Ds" =3D> =
\$ConfigDir,</td></tr>=0A=
<tr><td =
class=3D"h">72</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td =
class=3D"s"> &=
nbsp; &n=
bsp; "basedir=3Ds" =3D> =
\$BaseDir,</td></tr>=0A=
<tr><td =
class=3D"h">73</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td =
class=3D"s"> &=
nbsp; &n=
bsp; "debug=3Ds" =3D> =
\$Config{'debug'},</td></tr>=0A=
<tr><td =
class=3D"h">74</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td =
class=3D"s"> &=
nbsp; &n=
bsp; );</td></tr>=0A=
<tr><td class=3D"h">75</td><td colspan=3D"7"></td></tr><tr><td =
class=3D"h">76</td><td><div class=3D"c3">25</div><div =
class=3D"c3">25</div><div =
class=3D"c3">25</div></td><td></td><td></td><td><div class=3D"c3"><a =
href=3D"scripts-logwatch-pl--subroutine.html#L76">25</a></div></td><td></=
td><td><div>42002</div><div>16002</div><div>1000</div></td><td =
class=3D"s">eval "use lib =
\"$BaseDir/lib\";";</td></tr>=0A=
<tr><td class=3D"h">77</td><td><div class=3D"c3">25</div><div =
class=3D"c3">25</div><div =
class=3D"c3">25</div></td><td></td><td></td><td><div class=3D"c3"><a =
href=3D"scripts-logwatch-pl--subroutine.html#L77">25</a></div></td><td></=
td><td><div>144006</div><div>0</div><div>4000</div></td><td =
class=3D"s">eval "use Logwatch \':dates\'";</td></tr>=0A=
<tr><td class=3D"h">78</td><td colspan=3D"7"></td></tr><tr><td =
class=3D"h">79</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># Default config here...</td></tr>=0A=
<tr><td =
class=3D"h">80</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">$Config{'detail'} =3D 0;</td></tr>=0A=
<tr><td =
class=3D"h">81</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># if MAILTO is set in the environment, grab it, as it =
may be used by cron</td></tr>=0A=
<tr><td =
class=3D"h">82</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"># or anacron</td></tr>=0A=
<tr><td =
class=3D"h">83</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">if ($ENV{'MAILTO'}) {</td></tr>=0A=
<tr><td =
class=3D"h">84</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"> $Config{'mailto'} =3D =
$ENV{'MAILTO'};</td></tr>=0A=
<tr><td =
class=3D"h">85</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">} else {</td></tr>=0A=
<tr><td =
class=3D"h">86</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s"> $Config{'mailto'} =3D =
"root";</td></tr>=0A=
<tr><td =
class=3D"h">87</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">}</td></tr>=0A=
<tr><td =
class=3D"h">88</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">$Config{'mailfrom'} =3D =
"Logwatch";</td></tr>=0A=
<tr><td =
class=3D"h">89</td><td></td><td></td><td></td><td></td><td></td><td></td>=
<td class=3D"s">$Config{'subject'} =3D "";</td></tr>=0A=
<tr><td colspan=3D"8"><b><i>Snipped to make file =
smaller</i></b></td></tr>=0A=
<tr><td =
class=3D"h">1527</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s">sub output {</td></tr>=0A=
<tr><td class=3D"h">1528</td><td><div =
class=3D"c3">1798</div></td><td></td><td></td><td><div class=3D"c3"><a =
href=3D"scripts-logwatch-pl--subroutine.html#L1528">1798</a></div></td><t=
d></td><td><div>1000</div></td><td class=3D"s"> my =
($index, $text, $type) =3D @_;</td></tr>=0A=
<tr><td =
class=3D"h">1529</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s"> #Types are start stop header line =
ref</td></tr>=0A=
<tr><td class=3D"h">1530</td><td colspan=3D"7"></td></tr><tr><td =
class=3D"h">1531</td><td><div class=3D"c3">1798</div></td><td><div =
class=3D"c0" title=3D"-/F"><a =
href=3D"scripts-logwatch-pl--branch.html#L1531">50</a></div></td><td></td=
><td></td><td></td><td><div>2000</div></td><td =
class=3D"s"> if ( $type eq "ref_extra" ) =
{</td></tr>=0A=
<tr><td class=3D"h">1532</td><td><div =
class=3D"c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</=
div></td><td =
class=3D"s"> $out_reference .=3D =
"$text\n";</td></tr>=0A=
<tr><td =
class=3D"h">1533</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s"> }</td></tr>=0A=
<tr><td class=3D"h">1534</td><td colspan=3D"7"></td></tr><tr><td =
class=3D"h">1535</td><td><div class=3D"c3">1798</div></td><td><div =
class=3D"c0" title=3D"-/F"><a =
href=3D"scripts-logwatch-pl--branch.html#L1535">50</a></div></td><td></td=
><td></td><td></td><td><div>2000</div></td><td =
class=3D"s"> if ( $type eq "ref" ) {</td></tr>=0A=
<tr><td class=3D"h">1536</td><td><div =
class=3D"c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</=
div></td><td =
class=3D"s"> $out_reference .=3D =
" <li><a =
href=3D\"#$index\">$reports[$index]</a>\n";</td><=
/tr>=0A=
<tr><td =
class=3D"h">1537</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s"> }</td></tr>=0A=
<tr><td class=3D"h">1538</td><td colspan=3D"7"></td></tr><tr><td =
class=3D"h">1539</td><td><div class=3D"c3">1798</div></td><td><div =
class=3D"c3" title=3D"T/F"><a =
href=3D"scripts-logwatch-pl--branch.html#L1539">100</a></div></td><td></t=
d><td></td><td></td><td><div>1000</div></td><td =
class=3D"s"> if ( $type eq "start" ) =
{</td></tr>=0A=
<tr><td class=3D"h">1540</td><td><div =
class=3D"c3">71</div></td><td></td><td></td><td></td><td></td><td><div>10=
00</div></td><td =
class=3D"s"> $reports[$index] =3D =
"$text";</td></tr>=0A=
<tr><td =
class=3D"h">1541</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s"> #SERVICE table headers if ( $index =
eq 'E' ) { #never happens change out_body from hash back to =
array</td></tr>=0A=
<tr><td class=3D"h">1542</td><td><div class=3D"c3">71</div></td><td><div =
class=3D"c0" title=3D"-/F"><a =
href=3D"scripts-logwatch-pl--branch.html#L1542">50</a></div></td><td></td=
><td></td><td></td><td><div>2000</div></td><td =
class=3D"s"> if ( =
$Config{'format'} eq "html" ) {</td></tr>=0A=
<tr><td class=3D"h">1543</td><td><div =
class=3D"c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</=
div></td><td =
class=3D"s"> $out_bo=
dy{$index} .=3D</td></tr>=0A=
<tr><td =
class=3D"h">1544</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td =
class=3D"s"> "&=
lt;div class=3Dservice></td></tr>=0A=
<tr><td =
class=3D"h">1545</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td =
class=3D"s"> <tab=
le border=3D1 width=3D100%></td></tr>=0A=
<tr><td =
class=3D"h">1546</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td =
class=3D"s"> &=
nbsp;<tr><th></td></tr>=0A=
<tr><td =
class=3D"h">1547</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td =
class=3D"s"> &=
nbsp;<h2><a =
name=3D\"$index\">$reports[$index]</a></h2></td>=
</tr>=0A=
<tr><td =
class=3D"h">1548</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td =
class=3D"s"> &=
nbsp;</tr></th>\n";</td></tr>=0A=
<tr><td =
class=3D"h">1549</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s"> }</td></tr>=0A=
<tr><td =
class=3D"h">1550</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s"> }</td></tr>=0A=
<tr><td class=3D"h">1551</td><td colspan=3D"7"></td></tr><tr><td =
class=3D"h">1552</td><td><div class=3D"c3">1798</div></td><td><div =
class=3D"c3" title=3D"T/F"><a =
href=3D"scripts-logwatch-pl--branch.html#L1552">100</a></div></td><td></t=
d><td></td><td></td><td><div>1000</div></td><td =
class=3D"s"> if ( $type eq "stop" ) =
{</td></tr>=0A=
<tr><td class=3D"h">1553</td><td><div class=3D"c3">71</div></td><td><div =
class=3D"c0" title=3D"-/F"><a =
href=3D"scripts-logwatch-pl--branch.html#L1553">50</a></div></td><td></td=
><td></td><td></td><td><div>0</div></td><td =
class=3D"s"> if ( =
$Config{'format'} eq "html" ) {</td></tr>=0A=
<tr><td class=3D"h">1554</td><td><div =
class=3D"c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</=
div></td><td =
class=3D"s"> $out_bo=
dy{$index} .=3D =
" </table></div>\n";</td></tr>=0A=
<tr><td class=3D"h">1555</td><td><div =
class=3D"c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</=
div></td><td =
class=3D"s"> $out_bo=
dy{$index} .=3D " <div =
class=3Dreturn_link><p><a href=3D\"#top\">Back =
to Top</a></p></div>\n";</td></tr>=0A=
<tr><td =
class=3D"h">1556</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s"> }</td></tr>=0A=
<tr><td =
class=3D"h">1557</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s"> }</td></tr>=0A=
<tr><td class=3D"h">1558</td><td colspan=3D"7"></td></tr><tr><td =
class=3D"h">1559</td><td><div class=3D"c3">1798</div></td><td><div =
class=3D"c0" title=3D"-/F"><a =
href=3D"scripts-logwatch-pl--branch.html#L1559">50</a></div></td><td></td=
><td></td><td></td><td><div>3000</div></td><td =
class=3D"s"> if ( $type eq "header" ) =
{</td></tr>=0A=
<tr><td class=3D"h">1560</td><td><div class=3D"c0">0</div></td><td><div =
class=3D"c0" title=3D"-/-"><a =
href=3D"scripts-logwatch-pl--branch.html#L1560">0</a></div><div =
class=3D"c0" title=3D"-/-"><a =
href=3D"scripts-logwatch-pl--branch.html#L1560">0</a></div></td><td></td>=
<td></td><td></td><td><div>0</div></td><td =
class=3D"s"> &=
nbsp;if ( $Config{'format'} eq "text" ) {</td></tr>=0A=
<tr><td class=3D"h">1561</td><td><div =
class=3D"c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</=
div></td><td =
class=3D"s"> &=
nbsp; $out_body{$index} .=3D "$text =
\n";</td></tr>=0A=
<tr><td =
class=3D"h">1562</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s"> } elsif ( =
$Config{'format'} eq "html" ) {</td></tr>=0A=
<tr><td =
class=3D"h">1563</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td =
class=3D"s"> #Covert=
spaces</td></tr>=0A=
<tr><td class=3D"h">1564</td><td><div =
class=3D"c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</=
div></td><td =
class=3D"s"> $text =
=3D~ s/ / \&nbsp;/go;</td></tr>=0A=
<tr><td =
class=3D"h">1565</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td =
class=3D"s"> #Covert=
tabs 1 to 4 ratio</td></tr>=0A=
<tr><td class=3D"h">1566</td><td><div =
class=3D"c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</=
div></td><td =
class=3D"s"> $text =
=3D~ s/\t/ \&nbsp\;\&nbsp\;\&nbsp\;\&nbsp\;/go;</td></tr>=0A=
<tr><td =
class=3D"h">1567</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td =
class=3D"s"> #Filter=
s</td></tr>=0A=
<tr><td class=3D"h">1568</td><td><div =
class=3D"c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</=
div></td><td =
class=3D"s"> $text =
=3D~ s/ $//go;</td></tr>=0A=
<tr><td class=3D"h">1569</td><td><div class=3D"c0">0</div></td><td><div =
class=3D"c0" title=3D"-/-"><a =
href=3D"scripts-logwatch-pl--branch.html#L1569">0</a></div></td><td></td>=
<td></td><td></td><td><div>0</div></td><td =
class=3D"s"> $text =
=3D '&nbsp;' if ( $text eq '' );</td></tr>=0A=
<tr><td =
class=3D"h">1570</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td =
class=3D"s"> #This =
will make sure no unbroken string is longer then x characters</td></tr>=0A=
<tr><td class=3D"h">1571</td><td><div =
class=3D"c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</=
div></td><td =
class=3D"s"> $text =
=3D~ s/(\S{$Config{html_wrap}})/$1 /g;</td></tr>=0A=
<tr><td class=3D"h">1572</td><td><div =
class=3D"c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</=
div></td><td =
class=3D"s"> $out_bo=
dy{$index} .=3D =
"<tr>\n <th>$text</th>\n&nb=
sp; </tr>\n";</td></tr>=0A=
<tr><td =
class=3D"h">1573</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s"> } else { #fixme =
what is this formatted?</td></tr>=0A=
<tr><td class=3D"h">1574</td><td><div =
class=3D"c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</=
div></td><td =
class=3D"s"> $out_bo=
dy{$index} .=3D</td></tr>=0A=
<tr><td =
class=3D"h">1575</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td =
class=3D"s"> sprintf=
( substr( $text, 0, $format[0] ) . ' ' x( $format[0] - =
length($text) ) . " \n" );</td></tr>=0A=
<tr><td =
class=3D"h">1576</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s"> }</td></tr>=0A=
<tr><td =
class=3D"h">1577</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s"> }</td></tr>=0A=
<tr><td class=3D"h">1578</td><td colspan=3D"7"></td></tr><tr><td =
class=3D"h">1579</td><td><div class=3D"c3">1798</div></td><td><div =
class=3D"c3" title=3D"T/F"><a =
href=3D"scripts-logwatch-pl--branch.html#L1579">100</a></div></td><td></t=
d><td></td><td></td><td><div>4001</div></td><td =
class=3D"s"> if ( $type eq "line" ) =
{</td></tr>=0A=
<tr><td class=3D"h">1580</td><td><div =
class=3D"c3">1656</div></td><td><div class=3D"c0" title=3D"T/-"><a =
href=3D"scripts-logwatch-pl--branch.html#L1580">50</a></div><div =
class=3D"c0" title=3D"-/-"><a =
href=3D"scripts-logwatch-pl--branch.html#L1580">0</a></div></td><td></td>=
<td></td><td></td><td><div>3000</div></td><td =
class=3D"s"> &=
nbsp;if ( $Config{'format'} eq "text" ) {</td></tr>=0A=
<tr><td class=3D"h">1581</td><td><div =
class=3D"c3">1656</div></td><td></td><td></td><td></td><td></td><td><div>=
13609779</div></td><td =
class=3D"s"> $out_bo=
dy{$index} .=3D " $text";</td></tr>=0A=
<tr><td =
class=3D"h">1582</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s"> } elsif ( =
$Config{'format'} eq "html" ) {</td></tr>=0A=
<tr><td =
class=3D"h">1583</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td =
class=3D"s"> #Covert=
spaces</td></tr>=0A=
<tr><td class=3D"h">1584</td><td><div =
class=3D"c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td=
class=3D"s"> $text =
=3D~ s/ / \&nbsp;/go;</td></tr>=0A=
<tr><td =
class=3D"h">1585</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td =
class=3D"s"> #Covert=
tabs 1 to 4 ratio</td></tr>=0A=
<tr><td class=3D"h">1586</td><td><div =
class=3D"c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td=
class=3D"s"> $text =
=3D~ s/\t/ \&nbsp\;\&nbsp\;\&nbsp\;\&nbsp\;/go;</td></tr>=0A=
<tr><td =
class=3D"h">1587</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td =
class=3D"s"> #Filter=
s</td></tr>=0A=
<tr><td class=3D"h">1588</td><td><div =
class=3D"c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td=
class=3D"s"> $text =
=3D~ s/ $//go;</td></tr>=0A=
<tr><td class=3D"h">1589</td><td><div =
class=3D"c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td=
class=3D"s"> $text =
=3D~ s/</\&lt\;/go;</td></tr>=0A=
<tr><td class=3D"h">1590</td><td><div =
class=3D"c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td=
class=3D"s"> $text =
=3D~ s/>/\&gt\;/go;</td></tr>=0A=
<tr><td =
class=3D"h">1591</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td =
class=3D"s"> #This =
will make sure no unbroken string is longer then x characters</td></tr>=0A=
<tr><td class=3D"h">1592</td><td><div =
class=3D"c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td=
class=3D"s"> $text =
=3D~ s/(\S{$Config{html_wrap}})/$1 /g;</td></tr>=0A=
<tr><td =
class=3D"h">1593</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td =
class=3D"s"> #Grey =
background for spaced output</td></tr>=0A=
<tr><td class=3D"h">1594</td><td><div class=3D"c0">0</div></td><td><div =
class=3D"c0" title=3D"-/-"><a =
href=3D"scripts-logwatch-pl--branch.html#L1594">0</a></div></td><td></td>=
<td></td><td></td><td></td><td =
class=3D"s"> if ( =
$text =3D~ m/^ / ) {</td></tr>=0A=
<tr><td class=3D"h">1595</td><td><div =
class=3D"c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td=
=
class=3D"s"> &=
nbsp; $out_body{$index} .=3D =
" <tr>\n <td =
bgcolor=3D#dddddd>$text</td>\n </tr>\n";</=
td></tr>=0A=
<tr><td =
class=3D"h">1596</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td =
class=3D"s"> } else =
{</td></tr>=0A=
<tr><td class=3D"h">1597</td><td><div =
class=3D"c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td=
=
class=3D"s"> &=
nbsp; $out_body{$index} .=3D =
" <tr>\n <th =
align=3Dleft>$text</th>\n </tr>\n";</td></=
tr>=0A=
<tr><td =
class=3D"h">1598</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td =
class=3D"s"> }</td><=
/tr>=0A=
<tr><td =
class=3D"h">1599</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s"> } else { #fixme =
formatted?</td></tr>=0A=
<tr><td class=3D"h">1600</td><td><div class=3D"c0">0</div></td><td><div =
class=3D"c0" title=3D"-/-"><a =
href=3D"scripts-logwatch-pl--branch.html#L1600">0</a></div></td><td></td>=
<td></td><td></td><td></td><td =
class=3D"s"> &=
nbsp; if ( length($text) > $format[0] ) {</td></tr>=0A=
<tr><td class=3D"h">1601</td><td><div =
class=3D"c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td=
=
class=3D"s"> &=
nbsp; $out_body{$index} .=3D</td></tr>=0A=
<tr><td =
class=3D"h">1602</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td =
class=3D"s"> &=
nbsp; sp=
rintf( $text . "\n" . ' ' x $format[0] . ' ' =
);</td></tr>=0A=
<tr><td =
class=3D"h">1603</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td =
class=3D"s"> &=
nbsp; } else {</td></tr>=0A=
<tr><td class=3D"h">1604</td><td><div =
class=3D"c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td=
=
class=3D"s"> &=
nbsp; $out_body{$index} .=3D</td></tr>=0A=
<tr><td =
class=3D"h">1605</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td =
class=3D"s"> &=
nbsp; sp=
rintf( $text . ' ' x ( $format[0] - length($text) ) . ' =
' );</td></tr>=0A=
<tr><td =
class=3D"h">1606</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td =
class=3D"s"> &=
nbsp; }</td></tr>=0A=
<tr><td =
class=3D"h">1607</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s"> }</td></tr>=0A=
<tr><td =
class=3D"h">1608</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s"> }</td></tr>=0A=
<tr><td =
class=3D"h">1609</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s">}</td></tr>=0A=
<tr><td =
class=3D"h">1610</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td =
class=3D"s">#############################################################=
##############</td></tr>=0A=
<tr><td =
class=3D"h">1611</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s">#END sub output</td></tr>=0A=
<tr><td =
class=3D"h">1612</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td =
class=3D"s">#############################################################=
##############</td></tr>=0A=
<tr><td =
class=3D"h">1613</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s"># vi: shiftwidth=3D3 tabstop=3D3 et</td></tr>=0A=
<tr><td =
class=3D"h">1614</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s"># Local Variables:</td></tr>=0A=
<tr><td =
class=3D"h">1615</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s"># mode: perl</td></tr>=0A=
<tr><td =
class=3D"h">1616</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s"># perl-indent-level: 3</td></tr>=0A=
<tr><td =
class=3D"h">1617</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s"># indent-tabs-mode: nil</td></tr>=0A=
<tr><td =
class=3D"h">1618</td><td></td><td></td><td></td><td></td><td></td><td></t=
d><td class=3D"s"># End:</td></tr>=0A=
</table>=0A=
</body>=0A=
</html>=0A=
------=_NextPart_000_007B_01D2B83F.E8F868D0
Content-Type: text/html;
name="tests-script-test-pl.html"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
filename="tests-script-test-pl.html"
<!DOCTYPE html=0A=
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"=0A=
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">=0A=
<html xmlns=3D"http://www.w3.org/1999/xhtml">=0A=
<!--=0A=
This file was generated by Devel::Cover Version 1.23=0A=
Devel::Cover is copyright 2001-2012, Paul Johnson ([email protected])=0A=
Devel::Cover is free. It is licensed under the same terms as Perl itself.=0A=
The latest version of Devel::Cover should be available from my homepage:=0A=
http://www.pjcj.net=0A=
-->=0A=
<head>=0A=
<meta http-equiv=3D"Content-Type" content=3D"text/html; =
charset=3Dutf-8"></meta>=0A=
<meta http-equiv=3D"Content-Language" content=3D"en-us"></meta>=0A=
<link rel=3D"stylesheet" type=3D"text/css" href=3D"cover.css"></link>=0A=
<link rel=3D"stylesheet" type=3D"text/css" href=3D"cover.css"></link>=0A=
<title>File Coverage: tests/script/test.pl</title>=0A=
</head>=0A=
<body>=0A=
<h1>File Coverage</h1>=0A=
<table>=0A=
<tr><td class=3D"h" align=3D"right">File:</td><td =
align=3D"left">tests/script/test.pl</td></tr>=0A=
<tr><td class=3D"h" align=3D"right">Coverage:</td><td align=3D"left" =
class=3D"c3">100.0%</td></tr>=0A=
</table>=0A=
<div><br/></div>=0A=
<table>=0A=
<tr><th>line</th><th>stmt</th><th>bran</th><th>cond</th><th>sub</th><th>p=
od</th><th>time</th><th>code</th></tr>=0A=
<tr><td =
class=3D"h">1</td><td></td><td></td><td></td><td></td><td></td><td></td><=
td class=3D"s">#!/usr/bin/perl</td></tr>=0A=
<tr><td class=3D"h">2</td><td colspan=3D"7"></td></tr><tr><td =
class=3D"h">3</td><td></td><td></td><td></td><td></td><td></td><td></td><=
td class=3D"s">use Devel::Cover qw(-silent 1);</td></tr>=0A=
<tr><td class=3D"h">4</td><td colspan=3D"7"></td></tr><tr><td =
class=3D"h">5</td><td></td><td></td><td></td><td></td><td></td><td></td><=
td class=3D"s">*CORE::GLOBAL::umask=3Dsub</td></tr>=0A=
<tr><td =
class=3D"h">6</td><td></td><td></td><td></td><td></td><td></td><td></td><=
td class=3D"s">{</td></tr>=0A=
<tr><td class=3D"h">7</td><td><div =
class=3D"c3">1</div></td><td></td><td></td><td><div class=3D"c3"><a =
href=3D"tests-script-test-pl--subroutine.html#L7">1</a></div></td><td></t=
d><td><div>0</div></td><td class=3D"s"> return 1;</td></tr>=0A=
<tr><td class=3D"h">8</td><td><div =
class=3D"c3">1</div></td><td></td><td></td><td></td><td></td><td><div>840=
04</div></td><td class=3D"s">};</td></tr>=0A=
<tr><td class=3D"h">9</td><td colspan=3D"7"></td></tr><tr><td =
class=3D"h">10</td><td><div =
class=3D"c3">1</div></td><td></td><td></td><td></td><td></td><td><div>0</=
div></td><td class=3D"s">$^X=3D"$^X =
-MDevel::Cover=3D-silent,1";</td></tr>=0A=
<tr><td class=3D"h">11</td><td colspan=3D"7"></td></tr><tr><td =
class=3D"h">12</td><td><div =
class=3D"c3">1</div></td><td></td><td></td><td></td><td></td><td><div>100=
0</div></td><td class=3D"s">require =
"./scripts/logwatch.pl";</td></tr>=0A=
</table>=0A=
</body>=0A=
</html>=0A=
------=_NextPart_000_007B_01D2B83F.E8F868D0--