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/Router/Route.pm</title>
</head>
<body>
<h1>Branch Coverage</h1>
<table>
<tr><td class="h" align="right">File:</td><td align="left">lib/Yukki/Web/Router/Route.pm</td></tr>
<tr><td class="h" align="right">Coverage:</td><td align="left" class="c1">80.0%</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="L112">112</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if (ref $defaults{$key} eq &#39;ARRAY&#39;)</td></tr>
<tr><td class="h"><a id="L130">130</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">unless @$parts &gt;= $self-&gt;length_without_optionals and $self-&gt;has_slurpy_match || @$parts &lt;= $self-&gt;length</td></tr>
<tr><td class="h"><a id="L136">136</a></td><td class="c0">50</td><td class="c3">T</td><td class="c0">F</td><td class="s">$self-&gt;has_defaults ? :</td></tr>
<tr><td class="h"><a id="L139">139</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">unless (@parts)</td></tr>
<tr><td class="h"><a id="L140">140</a></td><td class="c0">50</td><td class="c0">T</td><td class="c3">F</td><td class="s">unless $self-&gt;is_component_optional($c)</td></tr>
<tr><td class="h"><a id="L147">147</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if ($self-&gt;is_component_slurpy($c)) { }</td></tr>
<tr><td class="h"><a id="L155">155</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if ($self-&gt;is_component_variable($c)) { }</td></tr>
<tr><td class="h"><a id="L158">158</a></td><td class="c0">50</td><td class="c3">T</td><td class="c0">F</td><td class="s">if (my $v = $self-&gt;has_validation_for($name))</td></tr>
<tr><td class="h"><a id="L159">159</a></td><td class="c0">50</td><td class="c0">T</td><td class="c3">F</td><td class="s">unless $v-&gt;check($part)</td></tr>
<tr><td class="h"><a id="L166">166</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">unless $c eq $part</td></tr>
</table>
</body>
</html>