<!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.66
Devel::Cover is copyright 2001-2010, 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>Branch Coverage: lib/Catalyst/Controller/Combine.pm</title>
</head>
<body>
<h1>Branch Coverage</h1>
<table>
<tr><td class="h" align="right">File:</td><td align="left">lib/Catalyst/Controller/Combine.pm</td></tr>
<tr><td class="h" align="right">Coverage:</td><td align="left" class="c0">34.4%</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="L221">221</a></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">if (open my $file, '<', $file_path)</td></tr>
<tr><td class="h"><a id="L226">226</a></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">if (exists $$self{'replacement_for'}{$file_path})</td></tr>
<tr><td class="h"><a id="L244">244</a></td><td class="c0">50</td><td class="c0">T</td><td class="c3">F</td><td class="s">if not $mtime</td></tr>
<tr><td class="h"><a id="L251">251</a></td><td class="c0">50</td><td class="c3">T</td><td class="c0">F</td><td class="s">if $self->mimetype</td></tr>
<tr><td class="h"><a id="L253">253</a></td><td class="c0">50</td><td class="c3">T</td><td class="c0">F</td><td class="s">if $mtime</td></tr>
<tr><td class="h"><a id="L256">256</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if ($$self{'expire'} and $$self{'expire_in'})</td></tr>
<tr><td class="h"><a id="L338">338</a></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">if $actual_path eq ''</td></tr>
<tr><td class="h"><a id="L351">351</a></td><td class="c0">50</td><td class="c3">T</td><td class="c0">F</td><td class="s">if scalar @parts</td></tr>
<tr><td class="h"><a id="L398">398</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if (exists $$self{'seen'}{$base_name})</td></tr>
<tr><td class="h"><a id="L403">403</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if ($dependency_for and ref $dependency_for eq 'HASH' and exists $$dependency_for{$base_name})</td></tr>
<tr><td class="h"><a id="L410">410</a></td><td class="c0">50</td><td class="c0">T</td><td class="c3">F</td><td class="s">ref $$dependency_for{$base_name} eq 'ARRAY' ? :</td></tr>
<tr><td class="h"><a id="L421">421</a></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">if not -f $file_path</td></tr>
<tr><td class="h"><a id="L427">427</a></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">unless $dir->subsumes($file_path->resolve)</td></tr>
<tr><td class="h"><a id="L440">440</a></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">if not $self->replace or ref $self->replace ne 'HASH' or not scalar keys %{$self->replace;}</td></tr>
<tr><td class="h"><a id="L442">442</a></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">if not match_glob($glob, $base_name)</td></tr>
<tr><td class="h"><a id="L446">446</a></td><td class="c0">0</td><td class="c0">T</td><td class="c0">F</td><td class="s">if not $replacements or ref $replacements ne 'ARRAY' or not scalar @{$replacements;}</td></tr>
</table>
</body>
</html>