File Coverage

blib/lib/WWW/Mechanize/Plugin/Snapshot.pm

Criterion	Covered	Total	%
statement	55	133	41.3
branch	0	50	0.0
condition	0	14	0.0
subroutine	10	19	52.6
pod	4	4	100.0
total	69	220	31.3

package WWW::Mechanize::Plugin::Snapshot;

our $VERSION = '0.20';

use warnings;
use strict;
use Carp;

use base qw(Class::Accessor::Fast);
__PACKAGE__->mk_accessors(qw(_snap_dir_made _suffix snapshot_comment
                              snap_prefix _run_tag _snap_count));

use File::Path;
use File::Spec;
use Text::Template;
use Data::Dumper;

my %template = (
  horizontal => {
    frame =><


Page snapshot: [\$formatted_date]







EOS

    content=><
[\$content]
EOS

   debug=><


Page snapshot: debug info
 </td>
</tr>

<tr>
<td  class="h" >
<a name="42">42</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> <!-- </td>
</tr>

<tr>
<td  class="h" >
<a name="43">43</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> H1 { color: black; background: #eeeeee; font-size: 110%; font-family: verdana, helvetica, sans-serif } </td>
</tr>

<tr>
<td  class="h" >
<a name="44">44</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> pre { font-family: courier font-size:50%} </td>
</tr>

<tr>
<td  class="h" >
<a name="45">45</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> --> </td>
</tr>

<tr>
<td  class="h" >
<a name="46">46</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">


Description[\$comment]
Original URL[\$url]
HTTP request[\$req]
HTTP response[\$res]
Cookie jar[\$jar]


EOS
},

  vertical => {
    frame =><


Page snapshot: [\$formatted_date]







EOS

    content=><
[\$content]
EOS

    debug=><


Page snapshot: debug info
 </td>
</tr>

<tr>
<td  class="h" >
<a name="82">82</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> <!-- </td>
</tr>

<tr>
<td  class="h" >
<a name="83">83</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> H1 { color: black; background: #eeeeee; font-size: 110%; font-family: verdana, helvetica, sans-serif } </td>
</tr>

<tr>
<td  class="h" >
<a name="84">84</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> pre { font-family: courier font-size:50%} </td>
</tr>

<tr>
<td  class="h" >
<a name="85">85</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> --> </td>
</tr>

<tr>
<td  class="h" >
<a name="86">86</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">


Description[\$comment]
Original URL[\$url]
HTTP request[\$req]
HTTP response[\$res]
Cookie jar[\$jar]


EOS
},

  popup => {
    frame =><
Page snapshot:
 </td>
</tr>

<tr>
<td  class="h" >
<a name="103">103</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> <!-- </td>
</tr>

<tr>
<td  class="h" >
<a name="104">104</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> H1 { color: black; background: #eeeeee; font-size: 110%; font-family: verdana, helvetica, sans-serif } </td>
</tr>

<tr>
<td  class="h" >
<a name="105">105</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> pre { font-family: courier font-size:50%} </td>
</tr>

<tr>
<td  class="h" >
<a name="106">106</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> --> </td>
</tr>

<tr>
<td  class="h" >
<a name="107">107</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">


Pop up original page in another window.
 </td>
</tr>

<tr>
<td  class="h" >
<a name="112">112</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> </body> </td>
</tr>

<tr>
<td  class="h" >
<a name="113">113</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> </html> </td>
</tr>

<tr>
<td  class="h" >
<a name="114">114</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> EOS </td>
</tr>

<tr>
<td  class="h" >
<a name="115">115</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="116">116</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     content=><<EOS, </td>
</tr>

<tr>
<td  class="h" >
<a name="117">117</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> [\$content] </td>
</tr>

<tr>
<td  class="h" >
<a name="118">118</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> EOS </td>
</tr>

<tr>
<td  class="h" >
<a name="119">119</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="120">120</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">    debug=><<EOS, </td>
</tr>

<tr>
<td  class="h" >
<a name="121">121</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> <html> </td>
</tr>

<tr>
<td  class="h" >
<a name="122">122</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> <head> </td>
</tr>

<tr>
<td  class="h" >
<a name="123">123</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> <title>Page snapshot: debug info</title> </td>
</tr>

<tr>
<td  class="h" >
<a name="124">124</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> <STYLE TYPE="text/css"> </td>
</tr>

<tr>
<td  class="h" >
<a name="125">125</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> <!-- </td>
</tr>

<tr>
<td  class="h" >
<a name="126">126</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> H1 { color: black; background: #eeeeee; font-size: 110%; font-family: verdana, helvetica, sans-serif } </td>
</tr>

<tr>
<td  class="h" >
<a name="127">127</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> pre { font-family: courier font-size:50%} </td>
</tr>

<tr>
<td  class="h" >
<a name="128">128</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> --> </td>
</tr>

<tr>
<td  class="h" >
<a name="129">129</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> </STYLE> </td>
</tr>

<tr>
<td  class="h" >
<a name="130">130</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> </head> </td>
</tr>

<tr>
<td  class="h" >
<a name="131">131</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> <body> </td>
</tr>

<tr>
<td  class="h" >
<a name="132">132</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> <h1>Description</h1><div class="comment">[\$comment]</div> </td>
</tr>

<tr>
<td  class="h" >
<a name="133">133</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> <h1>Original URL</h1><div class="url">[\$url]</div> </td>
</tr>

<tr>
<td  class="h" >
<a name="134">134</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> <h1>HTTP request</h1><div class="request"><pre>[\$req]</pre></div> </td>
</tr>

<tr>
<td  class="h" >
<a name="135">135</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> <h1>HTTP response</h1><div class="response"><pre>[\$res]</pre></div> </td>
</tr>

<tr>
<td  class="h" >
<a name="136">136</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> <h1>Cookie jar</h1><div class="jar"><pre>[\$jar]</pre></div> </td>
</tr>

<tr>
<td  class="h" >
<a name="137">137</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> </body> </td>
</tr>

<tr>
<td  class="h" >
<a name="138">138</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> </html> </td>
</tr>

<tr>
<td  class="h" >
<a name="139">139</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> EOS </td>
</tr>

<tr>
<td  class="h" >
<a name="140">140</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> }, </td>
</tr>

<tr>
<td  class="h" >
<a name="141">141</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="142">142</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> ); </td>
</tr>

<tr>
<td  class="h" >
<a name="143">143</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="144">144</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub init { </td>
</tr>

<tr>
<td  class="h" >
<a name="145">145</a>
</td>

<td  class="c3" >

7

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c3" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--subroutine.html#145-1"> 
7
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

39

</td>

<td class="s">   no strict 'refs'; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

7

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

13

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

7

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

15597

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="146">146</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c3" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--subroutine.html#146-1"> 
6
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--subroutine.html#146-1"> 
1
 </a> 
</td>

<td >

25330

</td>

<td class="s">   *{caller() . "::snapshots_to"}     = \&snapshots_to; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

42

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="147">147</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

15

</td>

<td class="s">   *{caller() . "::snapshot"}         = \&snapshot; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

37

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="148">148</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

17

</td>

<td class="s">   *{caller() . "::_suffix"}          = \&_suffix; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

38

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="149">149</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

18

</td>

<td class="s">   *{caller() . "::snapshot_comment"} = \&snapshot_comment; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

36

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="150">150</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

15

</td>

<td class="s">   *{caller() . "::_mk_name"}         = \&_mk_name; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

33

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="151">151</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

15

</td>

<td class="s">   *{caller() . "::_mk_short_name"}   = \&_mk_short_name; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

37

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="152">152</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

18

</td>

<td class="s">   *{caller() . "::_build_file"}      = \&_build_file; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

53

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="153">153</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

18

</td>

<td class="s">   *{caller() . "::_template"}        = \&_template; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

34

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="154">154</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

19

</td>

<td class="s">   *{caller() . "::snap_prefix"}      = \&snap_prefix; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

31

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="155">155</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

14

</td>

<td class="s">   *{caller() . "::_run_tag"}         = \&_run_tag; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

30

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="156">156</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

17

</td>

<td class="s">   *{caller() . "::_snapped"}         = \&_snapped; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

34

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="157">157</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

18

</td>

<td class="s">   *{caller() . "::_snap_count"}      = \&_snap_count; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

91

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="158">158</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

17

</td>

<td class="s">   *{caller() . "::snap_layout"}      = \&snap_layout; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

53

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="159">159</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

17

</td>

<td class="s">   *{caller() . "::_snap_dir_made"}   = \&_snap_dir_made; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

6

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

221

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="160">160</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="161">161</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="162">162</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub _snapped { </td>
</tr>

<tr>
<td  class="h" >
<a name="163">163</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--subroutine.html#163-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my ($pluggable) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="164">164</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--condition.html#164-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $current_count = $pluggable->_snap_count() || 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="165">165</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $pluggable->_snap_count($current_count+1); </td>
</tr>

<tr>
<td  class="h" >
<a name="166">166</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="167">167</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="168">168</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub snapshots_to { </td>
</tr>

<tr>
<td  class="h" >
<a name="169">169</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--subroutine.html#169-1"> 
0
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--subroutine.html#169-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my ($pluggable, $snap_dir) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="170">170</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="171">171</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $now = _pretty_time(); </td>
</tr>

<tr>
<td  class="h" >
<a name="172">172</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#172-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $pluggable->_suffix(_pretty_time())  </td>
</tr>

<tr>
<td  class="h" >
<a name="173">173</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     unless $pluggable->_suffix(); </td>
</tr>

<tr>
<td  class="h" >
<a name="174">174</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#174-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $pluggable->_run_tag("run_".$pluggable->_suffix) </td>
</tr>

<tr>
<td  class="h" >
<a name="175">175</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     unless $pluggable->_run_tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="176">176</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#176-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $pluggable->_snap_count(0) </td>
</tr>

<tr>
<td  class="h" >
<a name="177">177</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     unless defined $pluggable->_snap_count(); </td>
</tr>

<tr>
<td  class="h" >
<a name="178">178</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="179">179</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#179-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (!defined $snap_dir) { </td>
</tr>

<tr>
<td  class="h" >
<a name="180">180</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     # No argument, grab existing or create from </td>
</tr>

<tr>
<td  class="h" >
<a name="181">181</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     # defaults if possible </td>
</tr>

<tr>
<td  class="h" >
<a name="182">182</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#182-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if (!defined $pluggable->{SnapDirectory}) { </td>
</tr>

<tr>
<td  class="h" >
<a name="183">183</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--condition.html#183-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $snap_dir =  </td>
</tr>

<tr>
<td  class="h" >
<a name="184">184</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">          $ENV{TMPDIR} || $ENV{TEMP}|| $ENV{TMP} || </td>
</tr>

<tr>
<td  class="h" >
<a name="185">185</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">           die "No TMPDIR/TEMP defined on this system!\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="186">186</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="187">187</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $snap_dir = </td>
</tr>

<tr>
<td  class="h" >
<a name="188">188</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">         File::Spec->catfile($snap_dir, $pluggable->_run_tag()); </td>
</tr>

<tr>
<td  class="h" >
<a name="189">189</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="190">190</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     else { </td>
</tr>

<tr>
<td  class="h" >
<a name="191">191</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       # use the existing value </td>
</tr>

<tr>
<td  class="h" >
<a name="192">192</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $snap_dir = $pluggable->{SnapDirectory}; </td>
</tr>

<tr>
<td  class="h" >
<a name="193">193</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="194">194</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="195">195</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   else { </td>
</tr>

<tr>
<td  class="h" >
<a name="196">196</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     # Arg supplied, add on the timestamp </td>
</tr>

<tr>
<td  class="h" >
<a name="197">197</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $snap_dir = File::Spec->catfile($snap_dir, $pluggable->_run_tag()); </td>
</tr>

<tr>
<td  class="h" >
<a name="198">198</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="199">199</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="200">200</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#200-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (-e $snap_dir) { </td>
</tr>

<tr>
<td  class="h" >
<a name="201">201</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#201-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     die "$snap_dir is not a directory\n"  </td>
</tr>

<tr>
<td  class="h" >
<a name="202">202</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       unless -d $snap_dir; </td>
</tr>

<tr>
<td  class="h" >
<a name="203">203</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="204">204</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="205">205</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $pluggable->{SnapDirectory} = $snap_dir; </td>
</tr>

<tr>
<td  class="h" >
<a name="206">206</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return $snap_dir; </td>
</tr>

<tr>
<td  class="h" >
<a name="207">207</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="208">208</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="209">209</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub snap_layout { </td>
</tr>

<tr>
<td  class="h" >
<a name="210">210</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--subroutine.html#210-1"> 
0
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--subroutine.html#210-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my ($self, $layout) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="211">211</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--condition.html#211-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $current = $self->{SnapshotLayout} || ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="212">212</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="213">213</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # Set the layout if one was supplied. </td>
</tr>

<tr>
<td  class="h" >
<a name="214">214</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#214-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (defined $layout) { </td>
</tr>

<tr>
<td  class="h" >
<a name="215">215</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $self->{SnapshotLayout} = $layout; </td>
</tr>

<tr>
<td  class="h" >
<a name="216">216</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="217">217</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="218">218</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # Set to default if never initialized or </td>
</tr>

<tr>
<td  class="h" >
<a name="219">219</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # if the new layout doesn't correspond to reality. </td>
</tr>

<tr>
<td  class="h" >
<a name="220">220</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#220-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--condition.html#220-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $self->{SnapshotLayout} = 'vertical' </td>
</tr>

<tr>
<td  class="h" >
<a name="221">221</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     unless defined $self->{SnapshotLayout} and </td>
</tr>

<tr>
<td  class="h" >
<a name="222">222</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">            exists $template{$self->{SnapshotLayout}}; </td>
</tr>

<tr>
<td  class="h" >
<a name="223">223</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="224">224</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # Blow away cached templates if layout is changed </td>
</tr>

<tr>
<td  class="h" >
<a name="225">225</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#225-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $self->{SnapTemplates} = {}  </td>
</tr>

<tr>
<td  class="h" >
<a name="226">226</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if $self->{SnapshotLayout} ne $current; </td>
</tr>

<tr>
<td  class="h" >
<a name="227">227</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="228">228</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return $self->{SnapshotLayout}; </td>
</tr>

<tr>
<td  class="h" >
<a name="229">229</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="230">230</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="231">231</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub snapshot { </td>
</tr>

<tr>
<td  class="h" >
<a name="232">232</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--subroutine.html#232-1"> 
0
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--subroutine.html#232-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my ($pluggable, $comment, $suffix) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="233">233</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   local $_; </td>
</tr>

<tr>
<td  class="h" >
<a name="234">234</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @template_text; </td>
</tr>

<tr>
<td  class="h" >
<a name="235">235</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $pluggable->_snapped; </td>
</tr>

<tr>
<td  class="h" >
<a name="236">236</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="237">237</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # Determine if content is XML; markup is a little different </td>
</tr>

<tr>
<td  class="h" >
<a name="238">238</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # if so. </td>
</tr>

<tr>
<td  class="h" >
<a name="239">239</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $is_xml = ($pluggable->content =~ /^<\?xml/); </td>
</tr>

<tr>
<td  class="h" >
<a name="240">240</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="241">241</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # Use passed-in suffix if available, and  </td>
</tr>

<tr>
<td  class="h" >
<a name="242">242</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # set it as the default suffix. If not, </td>
</tr>

<tr>
<td  class="h" >
<a name="243">243</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # continue using the one set up in snapshots_to. </td>
</tr>

<tr>
<td  class="h" >
<a name="244">244</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#244-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (defined $suffix) { </td>
</tr>

<tr>
<td  class="h" >
<a name="245">245</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $pluggable->_suffix($suffix); </td>
</tr>

<tr>
<td  class="h" >
<a name="246">246</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="247">247</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   else { </td>
</tr>

<tr>
<td  class="h" >
<a name="248">248</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $suffix = $pluggable->_suffix(); </td>
</tr>

<tr>
<td  class="h" >
<a name="249">249</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="250">250</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="251">251</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $snap_dir = $pluggable->{SnapDirectory}; </td>
</tr>

<tr>
<td  class="h" >
<a name="252">252</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#252-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (!-e $snap_dir) { </td>
</tr>

<tr>
<td  class="h" >
<a name="253">253</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     eval { mkpath $snap_dir }; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="254">254</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#254-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if ($@) { </td>
</tr>

<tr>
<td  class="h" >
<a name="255">255</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       die "Couldn't create directory $snap_dir: $@\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="256">256</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="257">257</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="258">258</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="259">259</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#259-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $frame_file =  </td>
</tr>

<tr>
<td  class="h" >
<a name="260">260</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $pluggable->_build_file(name=>'frame', </td>
</tr>

<tr>
<td  class="h" >
<a name="261">261</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                             version => $pluggable->_snap_count, </td>
</tr>

<tr>
<td  class="h" >
<a name="262">262</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                             hash=>{suffix => $suffix, </td>
</tr>

<tr>
<td  class="h" >
<a name="263">263</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                                    content_type => ($is_xml ? 'xml' : 'html'), </td>
</tr>

<tr>
<td  class="h" >
<a name="264">264</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                                    snap_count  => $pluggable->_snap_count()}, </td>
</tr>

<tr>
<td  class="h" >
<a name="265">265</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                           ); </td>
</tr>

<tr>
<td  class="h" >
<a name="266">266</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="267">267</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # We need to nuke stuff out of the response, but we don't want to </td>
</tr>

<tr>
<td  class="h" >
<a name="268">268</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # damage the original. Clone it, and then discard stuff from the  </td>
</tr>

<tr>
<td  class="h" >
<a name="269">269</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # clone. </td>
</tr>

<tr>
<td  class="h" >
<a name="270">270</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my %res = %{$pluggable->mech->{res}}; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="271">271</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   delete $res{'_content'}; </td>
</tr>

<tr>
<td  class="h" >
<a name="272">272</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   delete $res{'_request'}; </td>
</tr>

<tr>
<td  class="h" >
<a name="273">273</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">    </td>
</tr>

<tr>
<td  class="h" >
<a name="274">274</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--condition.html#274-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $pluggable->_build_file(name=>'debug', </td>
</tr>

<tr>
<td  class="h" >
<a name="275">275</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                           version => $pluggable->_snap_count, </td>
</tr>

<tr>
<td  class="h" >
<a name="276">276</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                           hash=>{url        => $pluggable->base, </td>
</tr>

<tr>
<td  class="h" >
<a name="277">277</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                                  comment    => ($comment ||  </td>
</tr>

<tr>
<td  class="h" >
<a name="278">278</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                                                 $pluggable->snapshot_comment ||  </td>
</tr>

<tr>
<td  class="h" >
<a name="279">279</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                                                 "No comment specified"), </td>
</tr>

<tr>
<td  class="h" >
<a name="280">280</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                                  content    => $pluggable->content(base_href=>$pluggable->base), </td>
</tr>

<tr>
<td  class="h" >
<a name="281">281</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                                  req        => Dumper($pluggable->mech->{req}), </td>
</tr>

<tr>
<td  class="h" >
<a name="282">282</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                                  res        => Dumper(\%res), </td>
</tr>

<tr>
<td  class="h" >
<a name="283">283</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                                  jar        => Dumper($pluggable->cookie_jar), </td>
</tr>

<tr>
<td  class="h" >
<a name="284">284</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                                  suffix     => $suffix, </td>
</tr>

<tr>
<td  class="h" >
<a name="285">285</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="286">286</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                          );  </td>
</tr>

<tr>
<td  class="h" >
<a name="287">287</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#287-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $pluggable->_build_file(name=>'content', </td>
</tr>

<tr>
<td  class="h" >
<a name="288">288</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                           content_type=> ($is_xml ? 'xml' : 'html'), </td>
</tr>

<tr>
<td  class="h" >
<a name="289">289</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                           version => $pluggable->_snap_count, </td>
</tr>

<tr>
<td  class="h" >
<a name="290">290</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                           hash=>{content    => $pluggable->content, </td>
</tr>

<tr>
<td  class="h" >
<a name="291">291</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                                  suffix     => $suffix, </td>
</tr>

<tr>
<td  class="h" >
<a name="292">292</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                                 }, </td>
</tr>

<tr>
<td  class="h" >
<a name="293">293</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                           ); </td>
</tr>

<tr>
<td  class="h" >
<a name="294">294</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="295">295</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $prefix = $pluggable->snap_prefix(); </td>
</tr>

<tr>
<td  class="h" >
<a name="296">296</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     </td>
</tr>

<tr>
<td  class="h" >
<a name="297">297</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#297-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (defined $prefix) { </td>
</tr>

<tr>
<td  class="h" >
<a name="298">298</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $frame_file = $prefix . "/" . $pluggable->_run_tag . "/" .  </td>
</tr>

<tr>
<td  class="h" >
<a name="299">299</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                   $pluggable->_mk_short_name(name=>"frame", </td>
</tr>

<tr>
<td  class="h" >
<a name="300">300</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                                              version=>$pluggable->_snap_count); </td>
</tr>

<tr>
<td  class="h" >
<a name="301">301</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="302">302</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   else { </td>
</tr>

<tr>
<td  class="h" >
<a name="303">303</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $frame_file = $pluggable->_mk_name(name=>"frame", </td>
</tr>

<tr>
<td  class="h" >
<a name="304">304</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                                        version=>$pluggable->_snap_count); </td>
</tr>

<tr>
<td  class="h" >
<a name="305">305</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="306">306</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $frame_file =~ s{(?<!http:)//}{/}gsm; </td>
</tr>

<tr>
<td  class="h" >
<a name="307">307</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return $frame_file; </td>
</tr>

<tr>
<td  class="h" >
<a name="308">308</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="309">309</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="310">310</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub _pretty_time { </td>
</tr>

<tr>
<td  class="h" >
<a name="311">311</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--subroutine.html#311-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @t = split(/\s+|:/,scalar localtime); </td>
</tr>

<tr>
<td  class="h" >
<a name="312">312</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return sprintf("%s-%s-%02d-%02d-%02d-%02d-%04d",@t); </td>
</tr>

<tr>
<td  class="h" >
<a name="313">313</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="314">314</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="315">315</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub _build_file { </td>
</tr>

<tr>
<td  class="h" >
<a name="316">316</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--subroutine.html#316-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my ($pluggable, %args) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="317">317</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="318">318</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#318-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   die "No HTML output file name supplied"  </td>
</tr>

<tr>
<td  class="h" >
<a name="319">319</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     unless defined $args{name}; </td>
</tr>

<tr>
<td  class="h" >
<a name="320">320</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#320-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   die "No customization hash supplied" </td>
</tr>

<tr>
<td  class="h" >
<a name="321">321</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     unless $args{hash}; </td>
</tr>

<tr>
<td  class="h" >
<a name="322">322</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $template; </td>
</tr>

<tr>
<td  class="h" >
<a name="323">323</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="324">324</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#324-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (!($template = $pluggable->_template($args{name}))) { </td>
</tr>

<tr>
<td  class="h" >
<a name="325">325</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     # Done this way so we don't have to rebuild the templates </td>
</tr>

<tr>
<td  class="h" >
<a name="326">326</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     # every time through. </td>
</tr>

<tr>
<td  class="h" >
<a name="327">327</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#327-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     die "Nonexistent template $args{name}\n"  </td>
</tr>

<tr>
<td  class="h" >
<a name="328">328</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       unless $template{$pluggable->snap_layout()}{$args{name}};  </td>
</tr>

<tr>
<td  class="h" >
<a name="329">329</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="330">330</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $template = Text::Template->new(TYPE=>'ARRAY',  </td>
</tr>

<tr>
<td  class="h" >
<a name="331">331</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                                     DELIMITERS=>['[',']'], </td>
</tr>

<tr>
<td  class="h" >
<a name="332">332</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                                     SOURCE=>[$template{$pluggable->snap_layout()}{$args{name}}]); </td>
</tr>

<tr>
<td  class="h" >
<a name="333">333</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="334">334</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $pluggable->_template($args{name}, $template); </td>
</tr>

<tr>
<td  class="h" >
<a name="335">335</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="336">336</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $filename = $pluggable->_mk_name(%args); </td>
</tr>

<tr>
<td  class="h" >
<a name="337">337</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $fh; </td>
</tr>

<tr>
<td  class="h" >
<a name="338">338</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#338-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   open $fh, ">$filename"  </td>
</tr>

<tr>
<td  class="h" >
<a name="339">339</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     or die "Can't write to $args{name} file $filename: $!"; </td>
</tr>

<tr>
<td  class="h" >
<a name="340">340</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   print $fh  $template->fill_in(HASH=>$args{hash}); </td>
</tr>

<tr>
<td  class="h" >
<a name="341">341</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   close $fh; </td>
</tr>

<tr>
<td  class="h" >
<a name="342">342</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="343">343</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return $filename; </td>
</tr>

<tr>
<td  class="h" >
<a name="344">344</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="345">345</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">    </td>
</tr>

<tr>
<td  class="h" >
<a name="346">346</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="347">347</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub _mk_name { </td>
</tr>

<tr>
<td  class="h" >
<a name="348">348</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--subroutine.html#348-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my ($pluggable, %args) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="349">349</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return File::Spec->catfile($pluggable->snapshots_to(),  </td>
</tr>

<tr>
<td  class="h" >
<a name="350">350</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                              $pluggable->_mk_short_name(%args)); </td>
</tr>

<tr>
<td  class="h" >
<a name="351">351</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="352">352</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="353">353</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub _mk_short_name { </td>
</tr>

<tr>
<td  class="h" >
<a name="354">354</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--subroutine.html#354-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my ($pluggable, %args) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="355">355</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#355-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $args{content_type} = 'html' unless defined $args{content_type}; </td>
</tr>

<tr>
<td  class="h" >
<a name="356">356</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#356-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return $args{name} . "_" . $pluggable->_suffix .  </td>
</tr>

<tr>
<td  class="h" >
<a name="357">357</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">          ($args{version} ? "-$args{version}.$args{content_type}" </td>
</tr>

<tr>
<td  class="h" >
<a name="358">358</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                          : ".$args{content_type}"); </td>
</tr>

<tr>
<td  class="h" >
<a name="359">359</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="360">360</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="361">361</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub _template { </td>
</tr>

<tr>
<td  class="h" >
<a name="362">362</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--subroutine.html#362-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my ($pluggable, $template_name, $template) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="363">363</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="364">364</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#364-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   die "Can't access undefined template!" unless defined $template_name; </td>
</tr>

<tr>
<td  class="h" >
<a name="365">365</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="366">366</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--branch.html#366-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-WWW-Mechanize-Plugin-Snapshot-pm--condition.html#366-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (defined $template_name and defined $template) { </td>
</tr>

<tr>
<td  class="h" >
<a name="367">367</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $pluggable->{SnapTemplates}->{$template_name} = $template; </td>
</tr>

<tr>
<td  class="h" >
<a name="368">368</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="369">369</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return $pluggable->{SnapTemplates}->{$template_name}; </td>
</tr>

<tr>
<td  class="h" >
<a name="370">370</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="371">371</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="372">372</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 1; # Magic true value required at end of module </td>
</tr>

<tr>
<td  class="h" >
<a name="373">373</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> __END__ </td>
</tr>

</table>

</body>
</html>