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 0.96
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/DBIx/SchemaChecksum/App/ApplyChanges.pm</title>
</head>
<body>
<h1>Branch Coverage</h1>
<table>
<tr><td class="h" align="right">File:</td><td align="left">lib/DBIx/SchemaChecksum/App/ApplyChanges.pm</td></tr>
<tr><td class="h" align="right">Coverage:</td><td align="left" class="c0">66.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="L31">31</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if exists $$update_path{$this_checksum}</td></tr>
<tr><td class="h"><a id="L34">34</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">unless ($update)</td></tr>
<tr><td class="h"><a id="L39">39</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if ($$update[0] eq &#39;SAME_CHECKSUM&#39;) { }</td></tr>
<tr><td class="h"><a id="L40">40</a></td><td class="c0">50</td><td class="c0">T</td><td class="c3">F</td><td class="s">unless $$update[1]</td></tr>
<tr><td class="h"><a id="L54">54</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">$self-&gt;checksum eq $expected_post_checksum ? :</td></tr>
<tr><td class="h"><a id="L57">57</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if ($no_checksum_change) { }</td></tr>
<tr><td class="h"><a id="L64">64</a></td><td class="c0">50</td><td class="c3">T</td><td class="c0">F</td><td class="s">if ($answer eq &#39;y&#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 ($answer eq &#39;s&#39;) { }</td></tr>
<tr><td class="h"><a id="L65">65</a></td><td class="c0">50</td><td class="c0">T</td><td class="c3">F</td><td class="s">if $self-&gt;verbose</td></tr>
<tr><td class="h"><a id="L74">74</a></td><td class="c0">50</td><td class="c0">T</td><td class="c3">F</td><td class="s">if ($content =~ /--\s*split-at:\s*(\S+)\n/s)</td></tr>
<tr><td class="h"><a id="L84">84</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">unless $command</td></tr>
<tr><td class="h"><a id="L85">85</a></td><td class="c0">50</td><td class="c0">T</td><td class="c3">F</td><td class="s">if $self-&gt;verbose</td></tr>
<tr><td class="h"><a id="L94">94</a></td><td class="c0">50</td><td class="c0">T</td><td class="c3">F</td><td class="s">if $self-&gt;verbose</td></tr>
<tr><td class="h"><a id="L97">97</a></td><td class="c0">50</td><td class="c0">T</td><td class="c3">F</td><td class="s">if ($self-&gt;dry_run)</td></tr>
<tr><td class="h"><a id="L107">107</a></td><td class="c0">50</td><td class="c3">T</td><td class="c0">F</td><td class="s">if ($post_checksum eq $expected_post_checksum) { }</td></tr>
</table>
</body>
</html>