<!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>File Coverage: lib/DBIx/SchemaChecksum/App/ShowUpdatePath.pm</title>
</head>
<body>
<h1>File Coverage</h1>
<table>
<tr><td class="h" align="right">File:</td><td align="left">lib/DBIx/SchemaChecksum/App/ShowUpdatePath.pm</td></tr>
<tr><td class="h" align="right">Coverage:</td><td align="left" class="c2">95.0%</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 DBIx::SchemaChecksum::App::ShowUpdatePath;</td></tr>
<tr><td class="h">2</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-DBIx-SchemaChecksum-App-ShowUpdatePath-pm--subroutine.html#L2">2</a></div></td><td><div>3474</div><div>4</div><div>50</div></td><td class="s">use 5.010;</td></tr>
<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-DBIx-SchemaChecksum-App-ShowUpdatePath-pm--subroutine.html#L3">2</a></div></td><td><div>142</div><div>14796</div><div>32</div></td><td class="s">use MooseX::App::Command;</td></tr>
<tr><td class="h">4</td><td></td><td></td><td></td><td></td><td></td><td class="s">extends qw(DBIx::SchemaChecksum::App);</td></tr>
<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-DBIx-SchemaChecksum-App-ShowUpdatePath-pm--subroutine.html#L5">2</a></div></td><td><div>1038187</div><div>5</div><div>389</div></td><td class="s">use Carp qw(croak);</td></tr>
<tr><td class="h">6</td><td colspan="6"></td></tr><tr><td class="h">7</td><td></td><td></td><td></td><td></td><td></td><td class="s">option 'from_checksum' => ( is => 'ro', isa => 'Str' );</td></tr>
<tr><td class="h">8</td><td></td><td></td><td></td><td></td><td></td><td class="s">option '+sqlsnippetdir' => ( required => 1);</td></tr>
<tr><td class="h">9</td><td colspan="6"></td></tr><tr><td class="h">10</td><td></td><td></td><td></td><td></td><td></td><td class="s">sub run {</td></tr>
<tr><td class="h">11</td><td><div class="c3">1</div></td><td></td><td></td><td><div class="c3"><a href="lib-DBIx-SchemaChecksum-App-ShowUpdatePath-pm--subroutine.html#L11">1</a></div></td><td><div>1890</div></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h">12</td><td colspan="6"></td></tr><tr><td class="h">13</td><td><div class="c3">1</div></td><td></td><td><div class="c0"><a href="lib-DBIx-SchemaChecksum-App-ShowUpdatePath-pm--condition.html#L13">33</a></div></td><td></td><td><div>28</div></td><td class="s"> $self->show_update_path( $self->from_checksum || $self->checksum );</td></tr>
<tr><td class="h">14</td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">15</td><td colspan="6"></td></tr><tr><td class="h">16</td><td></td><td></td><td></td><td></td><td></td><td class="s">sub show_update_path {</td></tr>
<tr><td class="h">17</td><td><div class="c3">5</div></td><td></td><td></td><td><div class="c3"><a href="lib-DBIx-SchemaChecksum-App-ShowUpdatePath-pm--subroutine.html#L17">5</a></div></td><td><div>7</div></td><td class="s"> my ($self, $this_checksum) = @_;</td></tr>
<tr><td class="h">18</td><td><div class="c3">5</div></td><td></td><td></td><td></td><td><div>98</div></td><td class="s"> my $update_path = $self->_update_path;</td></tr>
<tr><td class="h">19</td><td colspan="6"></td></tr><tr><td class="h">20</td><td><div class="c3">5</div></td><td><div class="c3" title="T/F"><a href="lib-DBIx-SchemaChecksum-App-ShowUpdatePath-pm--branch.html#L20">100</a></div></td><td></td><td></td><td><div>9</div></td><td class="s"> my $update = $update_path->{$this_checksum}</td></tr>
<tr><td class="h">21</td><td></td><td></td><td></td><td></td><td></td><td class="s"> if ( exists $update_path->{$this_checksum} );</td></tr>
<tr><td class="h">22</td><td colspan="6"></td></tr><tr><td class="h">23</td><td><div class="c3">5</div></td><td><div class="c3" title="T/F"><a href="lib-DBIx-SchemaChecksum-App-ShowUpdatePath-pm--branch.html#L23">100</a></div></td><td></td><td></td><td><div>7</div></td><td class="s"> unless ($update) {</td></tr>
<tr><td class="h">24</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td><div>7</div></td><td class="s"> say "No update found that's based on $this_checksum.";</td></tr>
<tr><td class="h">25</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td><div>12</div></td><td class="s"> exit;</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 colspan="6"></td></tr><tr><td class="h">28</td><td><div class="c3">4</div></td><td><div class="c3" title="T/F"><a href="lib-DBIx-SchemaChecksum-App-ShowUpdatePath-pm--branch.html#L28">100</a></div></td><td></td><td></td><td><div>23</div></td><td class="s"> if ( $update->[0] eq 'SAME_CHECKSUM' ) {</td></tr>
<tr><td class="h">29</td><td><div class="c3">2</div></td><td></td><td></td><td></td><td><div>5</div></td><td class="s"> my ( $file, $post_checksum ) = splice( @$update, 1, 2 );</td></tr>
<tr><td class="h">30</td><td><div class="c3">2</div></td><td></td><td></td><td></td><td><div>3</div></td><td class="s"> $self->report_file($file, $post_checksum);</td></tr>
<tr><td class="h">31</td><td><div class="c3">2</div></td><td></td><td></td><td></td><td><div>429</div></td><td class="s"> $self->show_update_path($post_checksum);</td></tr>
<tr><td class="h">32</td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">33</td><td></td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h">34</td><td><div class="c3">2</div></td><td></td><td></td><td></td><td><div>144</div></td><td class="s"> $self->report_file($update->[0],$update->[1]);</td></tr>
<tr><td class="h">35</td><td><div class="c3">2</div></td><td></td><td></td><td></td><td><div>456</div></td><td class="s"> $self->show_update_path($update->[1]);</td></tr>
<tr><td class="h">36</td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">37</td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">38</td><td colspan="6"></td></tr><tr><td class="h">39</td><td></td><td></td><td></td><td></td><td></td><td class="s">sub report_file {</td></tr>
<tr><td class="h">40</td><td><div class="c3">4</div></td><td></td><td></td><td><div class="c3"><a href="lib-DBIx-SchemaChecksum-App-ShowUpdatePath-pm--subroutine.html#L40">4</a></div></td><td><div>4</div></td><td class="s"> my ($self, $file, $checksum) = @_;</td></tr>
<tr><td class="h">41</td><td><div class="c3">4</div></td><td></td><td></td><td></td><td><div>92</div></td><td class="s"> say $file->relative($self->sqlsnippetdir) ." ($checksum)";</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 colspan="6"></td></tr><tr><td class="h">44</td><td></td><td></td><td></td><td></td><td></td><td class="s">1;</td></tr>
</table>
</body>
</html>