<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
<!--
This file was generated by Devel::Cover Version 1.18
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:
-->
<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: blib/lib/Test/Mocha/PartialDump.pm</title>
</head>
<body>
<h1>File Coverage</h1>
<table>
<tr><td class="h" align="right">File:</td><td align="left">blib/lib/Test/Mocha/PartialDump.pm</td></tr>
<tr><td class="h" align="right">Coverage:</td><td align="left" class="c3">100.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>pod</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></td><td class="s">package Test::Mocha::PartialDump;</td></tr>
<tr><td class="h">2</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"># ABSTRACT: Partial dumping of data structures, optimized for argument printing</td></tr>
<tr><td class="h">3</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">$Test::Mocha::PartialDump::VERSION = &#39;0.61&#39;;</td></tr>
<tr><td class="h">4</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"># ===================================================================</td></tr>
<tr><td class="h">5</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"># This code was copied and adapted from Devel::PartialDump 0.15.</td></tr>
<tr><td class="h">6</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">#</td></tr>
<tr><td class="h">7</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">#&nbsp;&nbsp;&nbsp;Copyright (c) 2008, 2009 Yuval Kogman. All rights reserved</td></tr>
<tr><td class="h">8</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">#&nbsp;&nbsp;&nbsp;This program is free software; you can redistribute</td></tr>
<tr><td class="h">9</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">#&nbsp;&nbsp;&nbsp;it and/or modify it under the same terms as Perl itself.</td></tr>
<tr><td class="h">10</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">#</td></tr>
<tr><td class="h">11</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"># ===================================================================</td></tr>
<tr><td class="h">12</td><td colspan="7"></td></tr><tr><td class="h">13</td><td><div class="c3">60</div><div class="c3">60</div><div class="c3">60</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--subroutine.html#L13">60</a></div></td><td></td><td><div>243554</div><div>49</div><div>1120</div></td><td class="s">use strict;</td></tr>
<tr><td class="h">14</td><td><div class="c3">60</div><div class="c3">60</div><div class="c3">60</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--subroutine.html#L14">60</a></div></td><td></td><td><div>121</div><div>57</div><div>982</div></td><td class="s">use warnings;</td></tr>
<tr><td class="h">15</td><td colspan="7"></td></tr><tr><td class="h">16</td><td><div class="c3">60</div><div class="c3">60</div><div class="c3">60</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--subroutine.html#L16">60</a></div></td><td></td><td><div>126</div><div>44</div><div>2087</div></td><td class="s">use Scalar::Util qw( looks_like_number reftype blessed );</td></tr>
<tr><td class="h">17</td><td colspan="7"></td></tr><tr><td class="h">18</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">use constant {</td></tr>
<tr><td class="h">19</td><td><div class="c3">60</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--subroutine.html#L19">60</a></div></td><td></td><td><div>146</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;ELLIPSIS&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&gt; &#39;...&#39;,</td></tr>
<tr><td class="h">20</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;ELLIPSIS_LEN =&gt; 3,</td></tr>
<tr><td class="h">21</td><td><div class="c3">60</div><div class="c3">60</div></td><td></td><td></td><td></td><td></td><td><div>45</div><div>37454</div></td><td class="s">};</td></tr>
<tr><td class="h">22</td><td colspan="7"></td></tr><tr><td class="h">23</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub new {</td></tr>
<tr><td class="h">24</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;# uncoverable pod</td></tr>
<tr><td class="h">25</td><td><div class="c3">96</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--subroutine.html#L25">96</a></div></td><td><div class="c3">0</div></td><td><div>286060</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my ( $class, %args ) = @_;</td></tr>
<tr><td class="h">26</td><td colspan="7"></td></tr><tr><td class="h">27</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;# attribute defaults</td></tr>
<tr><td class="h">28</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;## no critic (ProhibitMagicNumbers)</td></tr>
<tr><td class="h">29</td><td><div class="c3">96</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L29">100</a></div></td><td></td><td></td><td></td><td><div>299</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;$args{max_length}&nbsp;&nbsp;&nbsp;= undef unless exists $args{max_length};</td></tr>
<tr><td class="h">30</td><td><div class="c3">96</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L30">100</a></div></td><td></td><td></td><td></td><td><div>234</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;$args{max_elements} = 6&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;unless exists $args{max_elements};</td></tr>
<tr><td class="h">31</td><td><div class="c3">96</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L31">100</a></div></td><td></td><td></td><td></td><td><div>198</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;$args{max_depth}&nbsp;&nbsp;&nbsp;&nbsp;= 2&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;unless exists $args{max_depth};</td></tr>
<tr><td class="h">32</td><td><div class="c3">96</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L32">100</a></div></td><td></td><td></td><td></td><td><div>212</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;$args{stringify}&nbsp;&nbsp;&nbsp;&nbsp;= 0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;unless exists $args{stringify};</td></tr>
<tr><td class="h">33</td><td><div class="c3">96</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L33">100</a></div></td><td></td><td></td><td></td><td><div>203</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;$args{pairs}&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;= 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;unless exists $args{pairs};</td></tr>
<tr><td class="h">34</td><td><div class="c3">96</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L34">100</a></div></td><td></td><td></td><td></td><td><div>165</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;$args{objects}&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;= 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;unless exists $args{objects};</td></tr>
<tr><td class="h">35</td><td><div class="c3">96</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L35">100</a></div></td><td></td><td></td><td></td><td><div>187</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;$args{list_delim}&nbsp;&nbsp;&nbsp;= &#39;, &#39;&nbsp;&nbsp;unless exists $args{list_delim};</td></tr>
<tr><td class="h">36</td><td><div class="c3">96</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L36">100</a></div></td><td></td><td></td><td></td><td><div>278</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;$args{pair_delim}&nbsp;&nbsp;&nbsp;= &#39;: &#39;&nbsp;&nbsp;unless exists $args{pair_delim};</td></tr>
<tr><td class="h">37</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;## use critic</td></tr>
<tr><td class="h">38</td><td colspan="7"></td></tr><tr><td class="h">39</td><td><div class="c3">96</div></td><td></td><td></td><td></td><td></td><td><div>262</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;return bless \%args, $class;</td></tr>
<tr><td class="h">40</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">41</td><td colspan="7"></td></tr><tr><td class="h">42</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub dump {&nbsp;&nbsp;## no critic (ProhibitBuiltinHomonyms)</td></tr>
<tr><td class="h">43</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;# uncoverable pod</td></tr>
<tr><td class="h">44</td><td><div class="c3">812</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--subroutine.html#L44">812</a></div></td><td><div class="c3">0</div></td><td><div>1927</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my ( $self, @args ) = @_;</td></tr>
<tr><td class="h">45</td><td colspan="7"></td></tr><tr><td class="h">46</td><td><div class="c3">812</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L46">100</a></div></td><td></td><td></td><td></td><td><div>857</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my $method =</td></tr>
<tr><td class="h">47</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&#39;dump_as_&#39; . ( $self-&gt;should_dump_as_pairs(@args) ? &#39;pairs&#39; : &#39;list&#39; );</td></tr>
<tr><td class="h">48</td><td colspan="7"></td></tr><tr><td class="h">49</td><td><div class="c3">812</div></td><td></td><td></td><td></td><td></td><td><div>1008</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my $dump = $self-&gt;$method( 1, @args );</td></tr>
<tr><td class="h">50</td><td colspan="7"></td></tr><tr><td class="h">51</td><td><div class="c3">812</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L51">100</a></div></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--condition.html#L51">100</a></div></td><td></td><td></td><td><div>2610</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;if ( defined $self-&gt;{max_length}</td></tr>
<tr><td class="h">52</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;and length($dump) &gt; $self-&gt;{max_length} )</td></tr>
<tr><td class="h">53</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;{</td></tr>
<tr><td class="h">54</td><td><div class="c3">8</div></td><td></td><td></td><td></td><td></td><td><div>13</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;my $max_length = $self-&gt;{max_length} - ELLIPSIS_LEN;</td></tr>
<tr><td class="h">55</td><td><div class="c3">8</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L55">100</a></div></td><td></td><td></td><td></td><td><div>16</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$max_length = 0 if $max_length &lt; 0;</td></tr>
<tr><td class="h">56</td><td><div class="c3">8</div></td><td></td><td></td><td></td><td></td><td><div>15</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;substr $dump, $max_length, length($dump) - $max_length, ELLIPSIS;</td></tr>
<tr><td class="h">57</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;}</td></tr>
<tr><td class="h">58</td><td colspan="7"></td></tr><tr><td class="h">59</td><td><div class="c3">812</div></td><td></td><td></td><td></td><td></td><td><div>1985</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;return $dump;</td></tr>
<tr><td class="h">60</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">61</td><td colspan="7"></td></tr><tr><td class="h">62</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub should_dump_as_pairs {</td></tr>
<tr><td class="h">63</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;# uncoverable pod</td></tr>
<tr><td class="h">64</td><td><div class="c3">812</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--subroutine.html#L64">812</a></div></td><td><div class="c3">0</div></td><td><div>555</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my ( $self, @what ) = @_;</td></tr>
<tr><td class="h">65</td><td colspan="7"></td></tr><tr><td class="h">66</td><td><div class="c3">812</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L66">100</a></div></td><td></td><td></td><td></td><td><div>1093</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;return unless $self-&gt;{pairs};</td></tr>
<tr><td class="h">67</td><td colspan="7"></td></tr><tr><td class="h">68</td><td><div class="c3">776</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L68">100</a></div></td><td></td><td></td><td></td><td><div>1367</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;return if @what % 2 != 0;&nbsp;&nbsp;# must be an even list</td></tr>
<tr><td class="h">69</td><td colspan="7"></td></tr><tr><td class="h">70</td><td><div class="c3">310</div><div class="c3">614</div></td><td></td><td></td><td></td><td></td><td><div>313</div><div>598</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;for my $i ( grep { $_ % 2 == 0 } 0 .. @what ) {</td></tr>
<tr><td class="h">71</td><td><div class="c3">423</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L71">100</a></div></td><td></td><td></td><td></td><td><div>664</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return if ref $what[$i];&nbsp;&nbsp;# plain strings are keys</td></tr>
<tr><td class="h">72</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;}</td></tr>
<tr><td class="h">73</td><td colspan="7"></td></tr><tr><td class="h">74</td><td><div class="c3">271</div></td><td></td><td></td><td></td><td></td><td><div>418</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;return 1;</td></tr>
<tr><td class="h">75</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">76</td><td colspan="7"></td></tr><tr><td class="h">77</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub dump_as_pairs {</td></tr>
<tr><td class="h">78</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;# uncoverable pod</td></tr>
<tr><td class="h">79</td><td><div class="c3">352</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--subroutine.html#L79">352</a></div></td><td><div class="c3">0</div></td><td><div>279</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my ( $self, $depth, @what ) = @_;</td></tr>
<tr><td class="h">80</td><td colspan="7"></td></tr><tr><td class="h">81</td><td><div class="c3">352</div></td><td></td><td></td><td></td><td></td><td><div>187</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my $truncated;</td></tr>
<tr><td class="h">82</td><td><div class="c3">352</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L82">100</a></div></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--condition.html#L82">100</a></div></td><td></td><td></td><td><div>997</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;if ( defined $self-&gt;{max_elements}</td></tr>
<tr><td class="h">83</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;and ( @what / 2 ) &gt; $self-&gt;{max_elements} )</td></tr>
<tr><td class="h">84</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;{</td></tr>
<tr><td class="h">85</td><td><div class="c3">8</div></td><td></td><td></td><td></td><td></td><td><div>6</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$truncated = 1;</td></tr>
<tr><td class="h">86</td><td><div class="c3">8</div></td><td></td><td></td><td></td><td></td><td><div>19</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;@what = splice @what, 0, $self-&gt;{max_elements} * 2;</td></tr>
<tr><td class="h">87</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;}</td></tr>
<tr><td class="h">88</td><td colspan="7"></td></tr><tr><td class="h">89</td><td><div class="c3">352</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L89">100</a></div></td><td></td><td></td><td></td><td><div>442</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;return join</td></tr>
<tr><td class="h">90</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$self-&gt;{list_delim},</td></tr>
<tr><td class="h">91</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$self-&gt;_dump_as_pairs( $depth, @what ),</td></tr>
<tr><td class="h">92</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( $truncated ? ELLIPSIS : () );</td></tr>
<tr><td class="h">93</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">94</td><td colspan="7"></td></tr><tr><td class="h">95</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub _dump_as_pairs {</td></tr>
<tr><td class="h">96</td><td><div class="c3">518</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--subroutine.html#L96">518</a></div></td><td></td><td><div>714</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my ( $self, $depth, @what ) = @_;</td></tr>
<tr><td class="h">97</td><td colspan="7"></td></tr><tr><td class="h">98</td><td><div class="c3">518</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L98">100</a></div></td><td></td><td></td><td></td><td><div>1307</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;return unless @what;</td></tr>
<tr><td class="h">99</td><td colspan="7"></td></tr><tr><td class="h">100</td><td><div class="c3">166</div></td><td></td><td></td><td></td><td></td><td><div>203</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my ( $key, $value, @rest ) = @what;</td></tr>
<tr><td class="h">101</td><td colspan="7"></td></tr><tr><td class="h">102</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;return (</td></tr>
<tr><td class="h">103</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(</td></tr>
<tr><td class="h">104</td><td><div class="c3">166</div></td><td></td><td></td><td></td><td></td><td><div>176</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$self-&gt;format_key( $depth, $key )</td></tr>
<tr><td class="h">105</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;. $self-&gt;{pair_delim}</td></tr>
<tr><td class="h">106</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;. $self-&gt;format( $depth, $value )</td></tr>
<tr><td class="h">107</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;),</td></tr>
<tr><td class="h">108</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$self-&gt;_dump_as_pairs( $depth, @rest ),</td></tr>
<tr><td class="h">109</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;);</td></tr>
<tr><td class="h">110</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">111</td><td colspan="7"></td></tr><tr><td class="h">112</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub dump_as_list {</td></tr>
<tr><td class="h">113</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;# uncoverable pod</td></tr>
<tr><td class="h">114</td><td><div class="c3">561</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--subroutine.html#L114">561</a></div></td><td><div class="c3">0</div></td><td><div>454</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my ( $self, $depth, @what ) = @_;</td></tr>
<tr><td class="h">115</td><td colspan="7"></td></tr><tr><td class="h">116</td><td><div class="c3">561</div></td><td></td><td></td><td></td><td></td><td><div>329</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my $truncated;</td></tr>
<tr><td class="h">117</td><td><div class="c3">561</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L117">100</a></div></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--condition.html#L117">100</a></div></td><td></td><td></td><td><div>1410</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;if ( defined $self-&gt;{max_elements} and @what &gt; $self-&gt;{max_elements} ) {</td></tr>
<tr><td class="h">118</td><td><div class="c3">8</div></td><td></td><td></td><td></td><td></td><td><div>9</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$truncated = 1;</td></tr>
<tr><td class="h">119</td><td><div class="c3">8</div></td><td></td><td></td><td></td><td></td><td><div>18</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;@what = splice @what, 0, $self-&gt;{max_elements};</td></tr>
<tr><td class="h">120</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;}</td></tr>
<tr><td class="h">121</td><td colspan="7"></td></tr><tr><td class="h">122</td><td><div class="c3">840</div></td><td></td><td></td><td></td><td></td><td><div>988</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;return join</td></tr>
<tr><td class="h">123</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$self-&gt;{list_delim},</td></tr>
<tr><td class="h">124</td><td><div class="c3">561</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L124">100</a></div></td><td></td><td></td><td></td><td><div>526</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( map { $self-&gt;format( $depth, $_ ) } @what ),</td></tr>
<tr><td class="h">125</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( $truncated ? ELLIPSIS : () );</td></tr>
<tr><td class="h">126</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">127</td><td colspan="7"></td></tr><tr><td class="h">128</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub format {&nbsp;&nbsp;## no critic (ProhibitBuiltinHomonyms)</td></tr>
<tr><td class="h">129</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;# uncoverable pod</td></tr>
<tr><td class="h">130</td><td><div class="c3">1026</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--subroutine.html#L130">1026</a></div></td><td><div class="c3">0</div></td><td><div>678</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my ( $self, $depth, $value ) = @_;</td></tr>
<tr><td class="h">131</td><td colspan="7"></td></tr><tr><td class="h">132</td><td><div class="c3">1026</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L132">100</a></div><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L132">100</a></div><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L132">100</a></div><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L132">100</a></div></td><td></td><td></td><td></td><td><div>2687</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;return defined($value)</td></tr>
<tr><td class="h">133</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;? (</td></tr>
<tr><td class="h">134</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ref($value)</td></tr>
<tr><td class="h">135</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;? (</td></tr>
<tr><td class="h">136</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;blessed($value)</td></tr>
<tr><td class="h">137</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;? $self-&gt;format_object( $depth, $value )</td></tr>
<tr><td class="h">138</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: $self-&gt;format_ref( $depth, $value )</td></tr>
<tr><td class="h">139</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;)</td></tr>
<tr><td class="h">140</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: (</td></tr>
<tr><td class="h">141</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;looks_like_number($value)</td></tr>
<tr><td class="h">142</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;? $self-&gt;format_number( $depth, $value )</td></tr>
<tr><td class="h">143</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: $self-&gt;format_string( $depth, $value )</td></tr>
<tr><td class="h">144</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;)</td></tr>
<tr><td class="h">145</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;)</td></tr>
<tr><td class="h">146</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: $self-&gt;format_undef( $depth, $value );</td></tr>
<tr><td class="h">147</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">148</td><td colspan="7"></td></tr><tr><td class="h">149</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub format_key {</td></tr>
<tr><td class="h">150</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;# uncoverable pod</td></tr>
<tr><td class="h">151</td><td><div class="c3">166</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--subroutine.html#L151">166</a></div></td><td><div class="c3">0</div></td><td><div>118</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my ( $self, $depth, $key ) = @_;</td></tr>
<tr><td class="h">152</td><td><div class="c3">166</div></td><td></td><td></td><td></td><td></td><td><div>302</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;return $key;</td></tr>
<tr><td class="h">153</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">154</td><td colspan="7"></td></tr><tr><td class="h">155</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub format_ref {</td></tr>
<tr><td class="h">156</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;# uncoverable pod</td></tr>
<tr><td class="h">157</td><td><div class="c3">129</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--subroutine.html#L157">129</a></div></td><td><div class="c3">0</div></td><td><div>87</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my ( $self, $depth, $ref ) = @_;</td></tr>
<tr><td class="h">158</td><td colspan="7"></td></tr><tr><td class="h">159</td><td><div class="c3">129</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L159">100</a></div></td><td></td><td></td><td></td><td><div>163</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;if ( $depth &gt; $self-&gt;{max_depth} ) {</td></tr>
<tr><td class="h">160</td><td><div class="c3">8</div></td><td></td><td></td><td></td><td></td><td><div>43</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return overload::StrVal($ref);</td></tr>
<tr><td class="h">161</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;}</td></tr>
<tr><td class="h">162</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;else {</td></tr>
<tr><td class="h">163</td><td><div class="c3">121</div></td><td></td><td></td><td></td><td></td><td><div>152</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;my $reftype = reftype($ref);</td></tr>
<tr><td class="h">164</td><td><div class="c3">121</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L164">100</a></div></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--condition.html#L164">100</a></div></td><td></td><td></td><td><div>295</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$reftype = &#39;SCALAR&#39;</td></tr>
<tr><td class="h">165</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if $reftype eq &#39;REF&#39; || $reftype eq &#39;LVALUE&#39;;</td></tr>
<tr><td class="h">166</td><td><div class="c3">121</div></td><td></td><td></td><td></td><td></td><td><div>136</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;my $method = &#39;format_&#39; . lc $reftype;</td></tr>
<tr><td class="h">167</td><td colspan="7"></td></tr><tr><td class="h">168</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;# uncoverable branch false</td></tr>
<tr><td class="h">169</td><td><div class="c3">121</div></td><td><div class="c3" title="T/-"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L169">50</a></div></td><td></td><td></td><td></td><td><div>249</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if ( $self-&gt;can($method) ) {</td></tr>
<tr><td class="h">170</td><td><div class="c3">121</div></td><td></td><td></td><td></td><td></td><td><div>160</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return $self-&gt;$method( $depth, $ref );</td></tr>
<tr><td class="h">171</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}</td></tr>
<tr><td class="h">172</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else {</td></tr>
<tr><td class="h">173</td><td><div class="c3">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return overload::StrVal($ref);&nbsp;&nbsp;# uncoverable statement</td></tr>
<tr><td class="h">174</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}</td></tr>
<tr><td class="h">175</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;}</td></tr>
<tr><td class="h">176</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">177</td><td colspan="7"></td></tr><tr><td class="h">178</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub format_array {</td></tr>
<tr><td class="h">179</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;# uncoverable pod</td></tr>
<tr><td class="h">180</td><td><div class="c3">20</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--subroutine.html#L180">20</a></div></td><td><div class="c3">0</div></td><td><div>17</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my ( $self, $depth, $array ) = @_;</td></tr>
<tr><td class="h">181</td><td colspan="7"></td></tr><tr><td class="h">182</td><td><div class="c3">20</div></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--condition.html#L182">100</a></div></td><td></td><td></td><td><div>56</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my $class = blessed($array) || q{};</td></tr>
<tr><td class="h">183</td><td><div class="c3">20</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L183">100</a></div></td><td></td><td></td><td></td><td><div>27</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;$class .= q{=} if $class;</td></tr>
<tr><td class="h">184</td><td colspan="7"></td></tr><tr><td class="h">185</td><td><div class="c3">20</div><div class="c3">20</div></td><td></td><td></td><td></td><td></td><td><div>23</div><div>110</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;return $class . &#39;[ &#39; . $self-&gt;dump_as_list( $depth + 1, @{$array} ) . &#39; ]&#39;;</td></tr>
<tr><td class="h">186</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">187</td><td colspan="7"></td></tr><tr><td class="h">188</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub format_hash {</td></tr>
<tr><td class="h">189</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;# uncoverable pod</td></tr>
<tr><td class="h">190</td><td><div class="c3">81</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--subroutine.html#L190">81</a></div></td><td><div class="c3">0</div></td><td><div>58</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my ( $self, $depth, $hash ) = @_;</td></tr>
<tr><td class="h">191</td><td colspan="7"></td></tr><tr><td class="h">192</td><td><div class="c3">81</div></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--condition.html#L192">100</a></div></td><td></td><td></td><td><div>181</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my $class = blessed($hash) || q{};</td></tr>
<tr><td class="h">193</td><td><div class="c3">81</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L193">100</a></div></td><td></td><td></td><td></td><td><div>107</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;$class .= q{=} if $class;</td></tr>
<tr><td class="h">194</td><td colspan="7"></td></tr><tr><td class="h">195</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;return</td></tr>
<tr><td class="h">196</td><td><div class="c3">81</div></td><td></td><td></td><td></td><td></td><td><div>154</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$class . &#39;{ &#39;</td></tr>
<tr><td class="h">197</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;. $self-&gt;dump_as_pairs( $depth + 1,</td></tr>
<tr><td class="h">198</td><td><div class="c3">81</div><div class="c3">81</div></td><td></td><td></td><td></td><td></td><td><div>80</div><div>181</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;map { $_ =&gt; $hash-&gt;{$_} } sort keys %{$hash} )</td></tr>
<tr><td class="h">199</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;. &#39; }&#39;;</td></tr>
<tr><td class="h">200</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">201</td><td colspan="7"></td></tr><tr><td class="h">202</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub format_scalar {</td></tr>
<tr><td class="h">203</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;# uncoverable pod</td></tr>
<tr><td class="h">204</td><td><div class="c3">20</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--subroutine.html#L204">20</a></div></td><td><div class="c3">0</div></td><td><div>20</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my ( $self, $depth, $scalar ) = @_;</td></tr>
<tr><td class="h">205</td><td colspan="7"></td></tr><tr><td class="h">206</td><td><div class="c3">20</div></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--condition.html#L206">100</a></div></td><td></td><td></td><td><div>54</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my $class = blessed($scalar) || q{};</td></tr>
<tr><td class="h">207</td><td><div class="c3">20</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L207">100</a></div></td><td></td><td></td><td></td><td><div>28</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;$class .= q{=} if $class;</td></tr>
<tr><td class="h">208</td><td colspan="7"></td></tr><tr><td class="h">209</td><td><div class="c3">20</div><div class="c3">20</div></td><td></td><td></td><td></td><td></td><td><div>27</div><div>101</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;return $class . q{\\} . $self-&gt;format( $depth + 1, ${$scalar} );</td></tr>
<tr><td class="h">210</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">211</td><td colspan="7"></td></tr><tr><td class="h">212</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub format_object {</td></tr>
<tr><td class="h">213</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;# uncoverable pod</td></tr>
<tr><td class="h">214</td><td><div class="c3">220</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--subroutine.html#L214">220</a></div></td><td><div class="c3">0</div></td><td><div>174</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my ( $self, $depth, $object ) = @_;</td></tr>
<tr><td class="h">215</td><td colspan="7"></td></tr><tr><td class="h">216</td><td><div class="c3">220</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L216">100</a></div></td><td></td><td></td><td></td><td><div>232</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;if ( $self-&gt;{objects} ) {</td></tr>
<tr><td class="h">217</td><td><div class="c3">12</div></td><td></td><td></td><td></td><td></td><td><div>13</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return $self-&gt;format_ref( $depth, $object );</td></tr>
<tr><td class="h">218</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;}</td></tr>
<tr><td class="h">219</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;else {</td></tr>
<tr><td class="h">220</td><td><div class="c3">208</div></td><td><div class="c3" title="T/F"><a href="blib-lib-Test-Mocha-PartialDump-pm--branch.html#L220">100</a></div></td><td></td><td></td><td></td><td><div>457</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return $self-&gt;{stringify} ? &quot;$object&quot; : overload::StrVal($object);</td></tr>
<tr><td class="h">221</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;}</td></tr>
<tr><td class="h">222</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">223</td><td colspan="7"></td></tr><tr><td class="h">224</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub format_number {</td></tr>
<tr><td class="h">225</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;# uncoverable pod</td></tr>
<tr><td class="h">226</td><td><div class="c3">576</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--subroutine.html#L226">576</a></div></td><td><div class="c3">0</div></td><td><div>381</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my ( $self, $depth, $value ) = @_;</td></tr>
<tr><td class="h">227</td><td><div class="c3">576</div></td><td></td><td></td><td></td><td></td><td><div>1066</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;return &quot;$value&quot;;</td></tr>
<tr><td class="h">228</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">229</td><td colspan="7"></td></tr><tr><td class="h">230</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub format_string {</td></tr>
<tr><td class="h">231</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;# uncoverable pod</td></tr>
<tr><td class="h">232</td><td><div class="c3">109</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--subroutine.html#L232">109</a></div></td><td><div class="c3">0</div></td><td><div>130</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my ( $self, $depth, $str ) = @_;</td></tr>
<tr><td class="h">233</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;# FIXME use String::Escape ?</td></tr>
<tr><td class="h">234</td><td colspan="7"></td></tr><tr><td class="h">235</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;# remove vertical whitespace</td></tr>
<tr><td class="h">236</td><td><div class="c3">109</div></td><td></td><td></td><td></td><td></td><td><div>108</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;$str =~ s/\n/\\n/smg;</td></tr>
<tr><td class="h">237</td><td><div class="c3">109</div></td><td></td><td></td><td></td><td></td><td><div>83</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;$str =~ s/\r/\\r/smg;</td></tr>
<tr><td class="h">238</td><td colspan="7"></td></tr><tr><td class="h">239</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;# reformat nonprintables</td></tr>
<tr><td class="h">240</td><td><div class="c3">55</div><div class="c3">55</div><div class="c3">55</div><div class="c3">109</div><div class="c3">4</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--subroutine.html#L240">55</a></div></td><td></td><td><div>23921</div><div>398</div><div>657</div><div>142</div><div>21</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;$str =~ s/ (\P{IsPrint}) /&quot;\\x{&quot; . sprintf(&quot;%x&quot;, ord($1)) . &quot;}&quot;/xsmge;</td></tr>
<tr><td class="h">241</td><td colspan="7"></td></tr><tr><td class="h">242</td><td><div class="c3">109</div></td><td></td><td></td><td></td><td></td><td><div>441</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;return qq{&quot;$str&quot;};</td></tr>
<tr><td class="h">243</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">244</td><td colspan="7"></td></tr><tr><td class="h">245</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub format_undef {</td></tr>
<tr><td class="h">246</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;# uncoverable pod</td></tr>
<tr><td class="h">247</td><td><div class="c3">4</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-Test-Mocha-PartialDump-pm--subroutine.html#L247">4</a></div></td><td><div class="c3">0</div></td><td><div>16</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;return &#39;undef&#39;;</td></tr>
<tr><td class="h">248</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">249</td><td colspan="7"></td></tr><tr><td class="h">250</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">1;</td></tr>
</table>
</body>
</html>