App-ArchiveDevelCover
view release on metacpan or search on metacpan
t/testdata/run_2/lib-App-ArchiveDevelCover-pm.html view on Meta::CPAN
<!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.79
Devel::Cover is copyright 2001-2011, Paul Johnson (pjcj@cpan.org)
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/App/ArchiveDevelCover.pm</title>
</head>
<body>
<h1>File Coverage</h1>
<table>
<tr><td class="h" align="right">File:</td><td align="left">lib/App/ArchiveDevelCover.pm</td></tr>
<tr><td class="h" align="right">Coverage:</td><td align="left" class="c1">76.2%</td></tr>
</table>
<div><br/></div>
<table>
<tr><th>line</th><th>stmt</th><th>bran</th><th>cond</th><th>sub</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 class="s">package App::ArchiveDevelCover;</td></tr>
<tr><td class="h">2</td><td><div class="c3">2</div><div class="c3">2</div><div class="c3">2</div><div class="c3">2</div><div class="c3">2</div><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-App-ArchiveDevelCover-pm--su...
<tr><td class="h">3</td><td><div class="c3">2</div><div class="c3">2</div><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-App-ArchiveDevelCover-pm--subroutine.html#L3">2</a></div></td><td><div>615</div><div>715734</div>...
<tr><td class="h">4</td><td><div class="c3">2</div><div class="c3">2</div><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-App-ArchiveDevelCover-pm--subroutine.html#L4">2</a></div></td><td><div>11548</div><div>576519</di...
<tr><td class="h">5</td><td><div class="c3">2</div><div class="c3">2</div><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-App-ArchiveDevelCover-pm--subroutine.html#L5">2</a></div></td><td><div>2450</div><div>224791</div...
<tr><td class="h">6</td><td><div class="c3">2</div><div class="c3">2</div><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-App-ArchiveDevelCover-pm--subroutine.html#L6">2</a></div></td><td><div>420</div><div>2849</div><d...
<tr><td class="h">7</td><td><div class="c3">2</div><div class="c3">2</div><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-App-ArchiveDevelCover-pm--subroutine.html#L7">2</a></div></td><td><div>915</div><div>19291</div><...
<tr><td class="h">8</td><td colspan="6"></td></tr><tr><td class="h">9</td><td></td><td></td><td></td><td></td><td></td><td class="s"># ABSTRACT: Archive Devel::Cover reports</td></tr>
<tr><td class="h">10</td><td></td><td></td><td></td><td></td><td></td><td class="s">our $VERSION = '1.000';</td></tr>
<tr><td class="h">11</td><td colspan="6"></td></tr><tr><td class="h">12</td><td></td><td></td><td></td><td></td><td></td><td class="s">with 'MooseX::Getopt';</td></tr>
<tr><td class="h">13</td><td colspan="6"></td></tr><tr><td class="h">14</td><td></td><td></td><td></td><td></td><td></td><td class="s">has [qw(from to)] => (is=>'ro',isa=>'Path::Class::Dir',coerce=>1,required=>1,);</td>...
<tr><td class="h">15</td><td></td><td></td><td></td><td></td><td></td><td class="s">has 'project' => (is => 'ro', isa=>'Str');</td></tr>
<tr><td class="h">16</td><td></td><td></td><td></td><td></td><td></td><td class="s">has 'coverage_html' => (is=>'ro',isa=>'Path::Class::File',lazy_build=>1,traits=> ['NoGetopt']);</td></tr>
<tr><td class="h">17</td><td></td><td></td><td></td><td></td><td></td><td class="s">sub _build_coverage_html {</td></tr>
<tr><td class="h">18</td><td><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-App-ArchiveDevelCover-pm--subroutine.html#L18">2</a></div></td><td><div>26</div></td><td class="s"> my $self = shift;</...
<tr><td class="h">19</td><td><div class="c3">2</div></td><td><div class="c0" title="-/-"><a href="lib-App-ArchiveDevelCover-pm--branch.html#L19">0</a></div></td><td></td><td></td><td><div>15</div></td><td class="s"> if (-e $sel...
<tr><td class="h">20</td><td><div class="c3">2</div></td><td></td><td></td><td></td><td><div>854</div></td><td class="s"> return $self->from->file('coverage.html');</td></tr>
<tr><td class="h">21</td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">22</td><td></td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h">23</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> say "Cannot find 'coverage.html' in ".$self->from.'. Abort...
<tr><td class="h">24</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> exit;</td></tr>
<tr><td class="h">25</td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">26</td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">27</td><td></td><td></td><td></td><td></td><td></td><td class="s">has 'runtime' => (is=>'ro',isa=>'DateTime',lazy_build=>1,traits=> ['NoGetopt'],);</td></tr>
<tr><td class="h">28</td><td></td><td></td><td></td><td></td><td></td><td class="s">sub _build_runtime {</td></tr>
<tr><td class="h">29</td><td><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-App-ArchiveDevelCover-pm--subroutine.html#L29">2</a></div></td><td><div>44</div></td><td class="s"> my $self = shift;</...
<tr><td class="h">30</td><td><div class="c3">2</div></td><td></td><td></td><td></td><td><div>17</div></td><td class="s"> return DateTime->from_epoch(epoch=>$self->coverage_html->stat->mtime);</td></tr>
<tr><td class="h">31</td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">32</td><td></td><td></td><td></td><td></td><td></td><td class="s">has 'archive_html' => (is=>'ro',isa=>'Path::Class::File',lazy_build=>1,traits=> ['NoGetopt']);</td></tr>
<tr><td class="h">33</td><td></td><td></td><td></td><td></td><td></td><td class="s">sub _build_archive_html {</td></tr>
<tr><td class="h">34</td><td><div class="c3">1</div></td><td></td><td></td><td><div class="c3"><a href="lib-App-ArchiveDevelCover-pm--subroutine.html#L34">1</a></div></td><td><div>13</div></td><td class="s"> my $self = shift;</...
<tr><td class="h">35</td><td><div class="c3">1</div></td><td><div class="c0" title="-/-"><a href="lib-App-ArchiveDevelCover-pm--branch.html#L35">0</a></div></td><td></td><td></td><td><div>6</div></td><td class="s"> unless (-e $...
<tr><td class="h">36</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td><div>323</div></td><td class="s"> my $tpl = $self->_archive_template;</td></tr>
<tr><td class="h">37</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td><div>8</div></td><td class="s"> my $fh = $self->to->file('index.html')->openw;</td></tr>
<tr><td class="h">38</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td><div>433</div></td><td class="s"> print $fh $tpl;</td></tr>
<tr><td class="h">39</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td><div>13</div></td><td class="s"> close $fh;</td></tr>
<tr><td class="h">40</td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">41</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td><div>10</div></td><td class="s"> return $self->to->file('index.html');</td></tr>
<tr><td class="h">42</td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">43</td><td></td><td></td><td></td><td></td><td></td><td class="s">has 'archive_db' => (is=>'ro',isa=>'Path::Class::File',lazy_build=>1,traits=> ['NoGetopt']);</td></tr>
<tr><td class="h">44</td><td></td><td></td><td></td><td></td><td></td><td class="s">sub _build_archive_db {</td></tr>
<tr><td class="h">45</td><td><div class="c3">1</div></td><td></td><td></td><td><div class="c3"><a href="lib-App-ArchiveDevelCover-pm--subroutine.html#L45">1</a></div></td><td><div>12</div></td><td class="s"> my $self = shift;</...
<tr><td class="h">46</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td><div>22</div></td><td class="s"> return $self->to->file('archive_db');</td></tr>
<tr><td class="h">47</td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">48</td><td></td><td></td><td></td><td></td><td></td><td class="s">has 'previous_stats' => (is=>'ro',isa=>'ArrayRef',lazy_build=>1,traits=>['NoGetopt']);</td></tr>
<tr><td class="h">49</td><td></td><td></td><td></td><td></td><td></td><td class="s">sub _build_previous_stats {</td></tr>
<tr><td class="h">50</td><td><div class="c3">1</div></td><td></td><td></td><td><div class="c3"><a href="lib-App-ArchiveDevelCover-pm--subroutine.html#L50">1</a></div></td><td><div>13</div></td><td class="s"> my $self = shift;</...
<tr><td class="h">51</td><td><div class="c3">1</div></td><td><div class="c0" title="-/-"><a href="lib-App-ArchiveDevelCover-pm--branch.html#L51">0</a></div></td><td></td><td></td><td><div>10</div></td><td class="s"> if (-e $sel...
<tr><td class="h">52</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my $dbr = $self->archive_db->openr;</td></tr>
<tr><td class="h">53</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my @data = <$dbr>; # probably better to just get last line...</td></tr>
<tr><td class="h">54</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my @prev = split(/;/,$data[-1]);</td></tr>
<tr><td class="h">55</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> return \@prev;</td></tr>
<tr><td class="h">56</td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">57</td><td></td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h">58</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td><div>381</div></td><td class="s"> return [undef,0,0,0];</td></tr>
<tr><td class="h">59</td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">60</td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">61</td><td colspan="6"></td></tr><tr><td class="h">62</td><td></td><td></td><td></td><td></td><td></td><td class="s">sub run {</td></tr>
<tr><td class="h">63</td><td><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-App-ArchiveDevelCover-pm--subroutine.html#L63">2</a></div></td><td><div>242873</div></td><td class="s"> my $self = shif...
<tr><td class="h">64</td><td><div class="c3">2</div></td><td></td><td></td><td></td><td><div>18</div></td><td class="s"> $self->archive;</td></tr>
<tr><td class="h">65</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td><div>5</div></td><td class="s"> $self->update_index;</td></tr>
<tr><td class="h">66</td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">67</td><td colspan="6"></td></tr><tr><td class="h">68</td><td></td><td></td><td></td><td></td><td></td><td class="s">sub archive {</td></tr>
<tr><td class="h">69</td><td><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-App-ArchiveDevelCover-pm--subroutine.html#L69">2</a></div></td><td><div>5</div></td><td class="s"> my $self = shift;</t...
<tr><td class="h">70</td><td colspan="6"></td></tr><tr><td class="h">71</td><td><div class="c3">2</div></td><td></td><td></td><td></td><td><div>19</div></td><td class="s"> my $from = $self->from;</td></tr>
<tr><td class="h">72</td><td><div class="c3">2</div></td><td></td><td></td><td></td><td><div>27</div></td><td class="s"> my $target = $self->to->subdir($self->runtime->iso8601);</td></tr>
<tr><td class="h">73</td><td colspan="6"></td></tr><tr><td class="h">74</td><td><div class="c3">2</div></td><td><div class="c0" title="-/-"><a href="lib-App-ArchiveDevelCover-pm--branch.html#L74">0</a></div></td><td></td><td></td><td><div>2412</div><...
<tr><td class="h">75</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td><div>47</div></td><td class="s"> say "This coverage report has already been archived.";</td></tr>
<tr><td class="h">76</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td><div>10</div></td><td class="s"> exit;</td></tr>
<tr><td class="h">77</td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">78</td><td colspan="6"></td></tr><tr><td class="h">79</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td><div>39</div></td><td class="s"> $target->mkpath;</td></tr>
<tr><td class="h">80</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td><div>144</div></td><td class="s"> my $target_string = $target->stringify;</td></tr>
<tr><td class="h">81</td><td colspan="6"></td></tr><tr><td class="h">82</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td><div>31</div></td><td class="s"> while (my $f = $from->next) {</td></tr>
<tr><td class="h">83</td><td><div class="c3">11</div></td><td><div class="c0" title="-/-"><a href="lib-App-ArchiveDevelCover-pm--branch.html#L83">0</a></div></td><td></td><td></td><td><div>5766</div></td><td class="s"> &n...
<tr><td class="h">84</td><td><div class="c3">6</div></td><td><div class="c0" title="-/-"><a href="lib-App-ArchiveDevelCover-pm--branch.html#L84">0</a></div></td><td></td><td></td><td><div>290</div></td><td class="s"> &nbs...
<tr><td class="h">85</td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">86</td><td colspan="6"></td></tr><tr><td class="h">87</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td><div>286</div></td><td class="s"> say "archived coverage reports at $target_string&...
<tr><td class="h">88</td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">89</td><td colspan="6"></td></tr><tr><td class="h">90</td><td></td><td></td><td></td><td></td><td></td><td class="s">sub update_index {</td></tr>
<tr><td class="h">91</td><td><div class="c3">1</div></td><td></td><td></td><td><div class="c3"><a href="lib-App-ArchiveDevelCover-pm--subroutine.html#L91">1</a></div></td><td><div>3</div></td><td class="s"> my $self = shift;</t...
<tr><td class="h">92</td><td colspan="6"></td></tr><tr><td class="h">93</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td><div>15</div></td><td class="s"> my $te = HTML::TableExtract->new( headers => [qw(...
<tr><td class="h">94</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td><div>234</div></td><td class="s"> $te->parse(scalar $self->coverage_html->slurp);</td></tr>
<tr><td class="h">95</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td><div>3154</div></td><td class="s"> my $rows =$te->rows;</td></tr>
<tr><td class="h">96</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td><div>142</div></td><td class="s"> my $last_row = $rows->[-1];</td></tr>
<tr><td class="h">97</td><td colspan="6"></td></tr><tr><td class="h">98</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td><div>4</div></td><td class="s"> $self->update_archive_html($last_row);</td></tr>
<tr><td class="h">99</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td><div>1224</div></td><td class="s"> $self->update_archive_db($last_row);</td></tr>
<tr><td class="h">100</td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
( run in 0.791 second using v1.01-cache-2.11-cpan-39bf76dae61 )