The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<!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 1.26
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>
    <link rel="stylesheet" type="text/css" href="cover.css"></link>
    <title>Branch Coverage: lib/Yukki/Web/Controller/Page.pm</title>
</head>
<body>
<h1>Branch Coverage</h1>
<table>
<tr><td class="h" align="right">File:</td><td align="left">lib/Yukki/Web/Controller/Page.pm</td></tr>
<tr><td class="h" align="right">Coverage:</td><td align="left" class="c0">8.7%</td></tr>
</table>
<div><br/></div>
<table>
<tr><th>line</th><th>%</th><th colspan="2">coverage</th><th>branch</th></tr>
<tr><td class="h"><a id="L32">32</a></td><td class="c0">50</td><td class="c3">T</td><td class="c0">F</td><td class="s">if ($action eq &#39;view&#39;) { }</td></tr>
<tr><td class="h"></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">elsif ($action eq &#39;edit&#39;) { }</td></tr>
<tr><td class="h"></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">elsif ($action eq &#39;history&#39;) { }</td></tr>
<tr><td class="h"></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">elsif ($action eq &#39;diff&#39;) { }</td></tr>
<tr><td class="h"></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">elsif ($action eq &#39;preview&#39;) { }</td></tr>
<tr><td class="h"></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">elsif ($action eq &#39;attach&#39;) { }</td></tr>
<tr><td class="h"></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">elsif ($action eq &#39;rename&#39;) { }</td></tr>
<tr><td class="h"></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">elsif ($action eq &#39;remove&#39;) { }</td></tr>
<tr><td class="h"><a id="L59">59</a></td><td class="c0">50</td><td class="c3">T</td><td class="c0">F</td><td class="s">unless (defined $path)</td></tr>
<tr><td class="h"><a id="L84">84</a></td><td class="c0">50</td><td class="c3">T</td><td class="c0">F</td><td class="s">if ($final_part =~ s/\.(?&lt;filetype&gt;[a-z0-9]+)$//u)</td></tr>
<tr><td class="h"><a id="L109">109</a></td><td class="c0">50</td><td class="c0">T</td><td class="c3">F</td><td class="s">if (not $page-&gt;exists) { }</td></tr>
<tr><td class="h"><a id="L149">149</a></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">if ($ctx-&gt;request-&gt;method eq &#39;POST&#39;)</td></tr>
<tr><td class="h"><a id="L154">154</a></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">if (my $user = $ctx-&gt;session-&gt;{&#39;user&#39;})</td></tr>
<tr><td class="h"><a id="L199">199</a></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">if ($ctx-&gt;request-&gt;method eq &#39;POST&#39;)</td></tr>
<tr><td class="h"><a id="L203">203</a></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">if ($new_name =~ m[^$part(?:/$part)*$]u) { }</td></tr>
<tr><td class="h"><a id="L205">205</a></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">if (my $user = $ctx-&gt;session-&gt;{&#39;user&#39;})</td></tr>
<tr><td class="h"><a id="L251">251</a></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">if ($ctx-&gt;request-&gt;method eq &#39;POST&#39; and $confirmed)</td></tr>
<tr><td class="h"><a id="L253">253</a></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">if ($return_to-&gt;full_path ne $page-&gt;full_path) { }</td></tr>
<tr><td class="h"><a id="L254">254</a></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">if (my $user = $ctx-&gt;session-&gt;{&#39;user&#39;})</td></tr>
<tr><td class="h"><a id="L333">333</a></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">if ($chunk-&gt;[0] eq &#39; &#39;) { }</td></tr>
<tr><td class="h"></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">elsif ($chunk-&gt;[0] eq &#39;+&#39;) { }</td></tr>
<tr><td class="h"></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">elsif ($chunk-&gt;[0] eq &#39;-&#39;) { }</td></tr>
<tr><td class="h"><a id="L356">356</a></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">if (&quot;$_&quot; =~ /usage: git diff/u)</td></tr>
</table>
</body>
</html>