<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!--
This file was generated by Devel::Cover Version
Devel::Cover is copyright 2001-2012, Paul Johnson (paul@pjcj.net)
Devel::Cover is free. It is licensed under the same terms as Perl itself.
The latest version of Devel::Cover should be available from my homepage:
http://www.pjcj.net
-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<meta http-equiv="Content-Language" content="en-us"></meta>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<script type="text/javascript" src="common.js"></script>
<script type="text/javascript" src="css.js"></script>
<script type="text/javascript" src="standardista-table-sorting.js"></script>
<title> Coverage Summary </title>
</head>
<body>
<h1> File Coverage </h1>
<table>
<tr>
<th colspan="4">lib/Devel/PerlySense/Config/Project.pm</th>
</tr>
<tr class="hblank"><td class="dblank"></td></tr>
<tr>
<th class="hh">Criterion</th>
<th class="hh">Covered</th>
<th class="hh">Total</th>
<th class="hh">%</th>
</tr>
<tr>
<td class="h">statement</td>
<td>77</td>
<td>77</td>
<td class="c3" title="77 / 77">
100.0
</td>
</tr>
<tr>
<td class="h">branch</td>
<td>11</td>
<td>14</td>
<td class="c1" title="11 / 14">
<a href="lib-Devel-PerlySense-Config-Project-pm--branch.html"> 78.5 </a>
</td>
</tr>
<tr>
<td class="h">condition</td>
<td></td>
<td></td>
<td title="">
n/a
</td>
</tr>
<tr>
<td class="h">subroutine</td>
<td>19</td>
<td>19</td>
<td class="c3" title="19 / 19">
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html"> 100.0 </a>
</td>
</tr>
<tr>
<td class="h">pod</td>
<td>4</td>
<td>4</td>
<td class="c3" title="4 / 4">
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html"> 100.0 </a>
</td>
</tr>
<tr>
<td class="h">total</td>
<td>111</td>
<td>114</td>
<td class="c2" title="111 / 114">
97.3
</td>
</tr>
</table>
<div><br></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" >
<a name="1">1</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head1 NAME</span> </td>
</tr>
<tr>
<td class="h" >
<a name="2">2</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="3">3</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Devel::PerlySense::Config::Project - A Project's configuration</span> </td>
</tr>
<tr>
<td class="h" >
<a name="4">4</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="5">5</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head1 SYNOPSIS</span> </td>
</tr>
<tr>
<td class="h" >
<a name="6">6</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="7">7</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="8">8</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="9">9</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="10">10</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head1 DESCRIPTION</span> </td>
</tr>
<tr>
<td class="h" >
<a name="11">11</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="12">12</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Configuration can be Project level, stored in .../.PerlySense/project.cfg</span> </td>
</tr>
<tr>
<td class="h" >
<a name="13">13</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="14">14</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=cut</span> </td>
</tr>
<tr>
<td class="h" >
<a name="15">15</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="16">16</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="17">17</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="18">18</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="19">19</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="20">20</a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html#20-1">
63
</a>
</td>
<td >
</td>
<td >
21502
</td>
<td class="s"> <span class="k">use</span> <span class="w">strict</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
82
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1579
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="21">21</a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html#21-1">
63
</a>
</td>
<td >
</td>
<td >
227
</td>
<td class="s"> <span class="k">use</span> <span class="w">warnings</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
106
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1379
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="22">22</a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html#22-1">
63
</a>
</td>
<td >
</td>
<td >
622
</td>
<td class="s"> <span class="k">use</span> <span class="w">utf8</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
94
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
291
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="23">23</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="24">24</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="k">package </span><span class="i">Devel::PerlySense::Config::Project</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="25">25</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="26">26</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="27">27</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="28">28</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="29">29</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="30">30</a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html#30-1">
63
</a>
</td>
<td >
</td>
<td >
2391
</td>
<td class="s"> <span class="k">use</span> <span class="w">Spiffy</span> -<span class="w">Base</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
4785
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
267
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="31">31</a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html#31-1">
63
</a>
</td>
<td >
</td>
<td >
92243
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html#-2">
63
</a>
</td>
<td >
</td>
<td >
85
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1430
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
218
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
67
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1363
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="32">32</a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html#32-1">
63
</a>
</td>
<td >
</td>
<td >
224
</td>
<td class="s"> <span class="k">use</span> <span class="w">Data::Dumper</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
68
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
5036
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="33">33</a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html#33-1">
63
</a>
</td>
<td >
</td>
<td >
248
</td>
<td class="s"> <span class="k">use</span> <span class="w">Carp</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
86
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
4009
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="34">34</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="35">35</a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html#35-1">
63
</a>
</td>
<td >
</td>
<td >
273
</td>
<td class="s"> <span class="k">use</span> <span class="w">File::Basename</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
78
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
4032
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="36">36</a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html#36-1">
63
</a>
</td>
<td >
</td>
<td >
245
</td>
<td class="s"> <span class="k">use</span> <span class="w">File::Path</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
90
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
2920
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="37">37</a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html#37-1">
63
</a>
</td>
<td >
</td>
<td >
230
</td>
<td class="s"> <span class="k">use</span> <span class="w">Path::Class</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
88
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
2827
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="38">38</a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html#38-1">
63
</a>
</td>
<td >
</td>
<td >
37714
</td>
<td class="s"> <span class="k">use</span> <span class="w">YAML::Tiny</span> <span class="s">(</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
362291
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1394
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="39">39</a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html#39-1">
63
</a>
</td>
<td >
</td>
<td >
23469
</td>
<td class="s"> <span class="k">use</span> <span class="w">HTTP::Date</span> <span class="q">qw/ time2iso /</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
349754
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
3692
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="40">40</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="41">41</a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html#41-1">
63
</a>
</td>
<td >
</td>
<td >
700
</td>
<td class="s"> <span class="k">use</span> <span class="w">Devel::PerlySense::Util</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
79
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
63
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
46949
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="42">42</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="43">43</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="44">44</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="45">45</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="46">46</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="47">47</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head1 PROPERTIES</span> </td>
</tr>
<tr>
<td class="h" >
<a name="48">48</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="49">49</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head2 nameFileConfig</span> </td>
</tr>
<tr>
<td class="h" >
<a name="50">50</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="51">51</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">The config file name relative to the root dir.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="52">52</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="53">53</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Default: ./PerlySenseProject/project.cfg</span> </td>
</tr>
<tr>
<td class="h" >
<a name="54">54</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="55">55</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=cut</span> </td>
</tr>
<tr>
<td class="h" >
<a name="56">56</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="w">field</span> <span class="q">"nameFileConfig"</span> <span class="cm">=></span> <span class="q">".PerlySenseProject/project.yml"</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="57">57</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="58">58</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="59">59</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="60">60</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="61">61</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="62">62</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="63">63</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head2 textConfigDefault</span> </td>
</tr>
<tr>
<td class="h" >
<a name="64">64</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="65">65</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">The default contents of the config file</span> </td>
</tr>
<tr>
<td class="h" >
<a name="66">66</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="67">67</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=cut</span> </td>
</tr>
<tr>
<td class="h" >
<a name="68">68</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="w">field</span> <span class="q">"textConfigDefault"</span> <span class="cm">=></span> <span class="q">q{#PerlySense Project Config</span> </td>
</tr>
<tr>
<td class="h" >
<a name="69">69</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="70">70</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#What's this all about? See: http://search.cpan.org/dist/Devel-PerlySense/</span> </td>
</tr>
<tr>
<td class="h" >
<a name="71">71</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="72">72</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">project:</span> </td>
</tr>
<tr>
<td class="h" >
<a name="73">73</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="74">74</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> #The human readable name of the Project</span> </td>
</tr>
<tr>
<td class="h" >
<a name="75">75</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> moniker: 'The Project Without a Name'</span> </td>
</tr>
<tr>
<td class="h" >
<a name="76">76</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="77">77</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> #Extra @INC directories, relative to the project root</span> </td>
</tr>
<tr>
<td class="h" >
<a name="78">78</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> #These come before the default inc directories "." and "lib"</span> </td>
</tr>
<tr>
<td class="h" >
<a name="79">79</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> inc_dir: []</span> </td>
</tr>
<tr>
<td class="h" >
<a name="80">80</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="81">81</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="82">82</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#Bookmarks are regexes that may match against a single line.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="83">83</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#</span> </td>
</tr>
<tr>
<td class="h" >
<a name="84">84</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#The "rex" is either a qr regex declaration, or an array ref of</span> </td>
</tr>
<tr>
<td class="h" >
<a name="85">85</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#regexes (any of them could match to make a bookmark for the line).</span> </td>
</tr>
<tr>
<td class="h" >
<a name="86">86</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#</span> </td>
</tr>
<tr>
<td class="h" >
<a name="87">87</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#The line, or $1 if captured, is displayed.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="88">88</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">bookmark:</span> </td>
</tr>
<tr>
<td class="h" >
<a name="89">89</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> -</span> </td>
</tr>
<tr>
<td class="h" >
<a name="90">90</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> moniker: Todo</span> </td>
</tr>
<tr>
<td class="h" >
<a name="91">91</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> rex:</span> </td>
</tr>
<tr>
<td class="h" >
<a name="92">92</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> - "qr/\# \s* TODO \s* : \s* (.+?) \s*$/x"</span> </td>
</tr>
<tr>
<td class="h" >
<a name="93">93</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="94">94</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="95">95</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">external:</span> </td>
</tr>
<tr>
<td class="h" >
<a name="96">96</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> editor:</span> </td>
</tr>
<tr>
<td class="h" >
<a name="97">97</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="98">98</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> #Emacs specific configuration</span> </td>
</tr>
<tr>
<td class="h" >
<a name="99">99</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> emacs:</span> </td>
</tr>
<tr>
<td class="h" >
<a name="100">100</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="101">101</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> #To enable flymake in Emacs, configure this in your .emacs file</span> </td>
</tr>
<tr>
<td class="h" >
<a name="102">102</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> #(setq perly-sense-load-flymake t)</span> </td>
</tr>
<tr>
<td class="h" >
<a name="103">103</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> #</span> </td>
</tr>
<tr>
<td class="h" >
<a name="104">104</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> #For more details, settings and colors, see:</span> </td>
</tr>
<tr>
<td class="h" >
<a name="105">105</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> #http://search.cpan.org/dist/Devel-PerlySense/lib/Devel/PerlySense.pm#Emacs_installation</span> </td>
</tr>
<tr>
<td class="h" >
<a name="106">106</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> #</span> </td>
</tr>
<tr>
<td class="h" >
<a name="107">107</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> flymake:</span> </td>
</tr>
<tr>
<td class="h" >
<a name="108">108</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="109">109</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> #During a flymake compilation, perly_sense can run:</span> </td>
</tr>
<tr>
<td class="h" >
<a name="110">110</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="111">111</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> #Check Syntax (perl -c)</span> </td>
</tr>
<tr>
<td class="h" >
<a name="112">112</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> #</span> </td>
</tr>
<tr>
<td class="h" >
<a name="113">113</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> #!!!NOTE!!!</span> </td>
</tr>
<tr>
<td class="h" >
<a name="114">114</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> # Running perl -c on random Perl code will execute</span> </td>
</tr>
<tr>
<td class="h" >
<a name="115">115</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> # the BEGIN blocks! Any funny business in them and you're toast!</span> </td>
</tr>
<tr>
<td class="h" >
<a name="116">116</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> #!!!NOTE!!!</span> </td>
</tr>
<tr>
<td class="h" >
<a name="117">117</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> syntax: 0</span> </td>
</tr>
<tr>
<td class="h" >
<a name="118">118</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="119">119</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> #Perl Critic</span> </td>
</tr>
<tr>
<td class="h" >
<a name="120">120</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> #PerlySense will point Critic to a .perlcritic file in this (the .PerlySense)</span> </td>
</tr>
<tr>
<td class="h" >
<a name="121">121</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> #directory. A default config file with fairly lenient rules is</span> </td>
</tr>
<tr>
<td class="h" >
<a name="122">122</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> #provided.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="123">123</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> critic: 0</span> </td>
</tr>
<tr>
<td class="h" >
<a name="124">124</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="125">125</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="126">126</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#Run File Configuration.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="127">127</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#"C-o C-r" to run "command" and "C-u C-o C-r" to run alternate_command</span> </td>
</tr>
<tr>
<td class="h" >
<a name="128">128</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#</span> </td>
</tr>
<tr>
<td class="h" >
<a name="129">129</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#These are evaluated in order to find a way to run a file. First</span> </td>
</tr>
<tr>
<td class="h" >
<a name="130">130</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#match is used.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="131">131</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">run_file:</span> </td>
</tr>
<tr>
<td class="h" >
<a name="132">132</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> -</span> </td>
</tr>
<tr>
<td class="h" >
<a name="133">133</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> command: "prove --nocolor -v ${INC} \"${SOURCE_FILE}\""</span> </td>
</tr>
<tr>
<td class="h" >
<a name="134">134</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> alternate_command: ""</span> </td>
</tr>
<tr>
<td class="h" >
<a name="135">135</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> moniker: Test</span> </td>
</tr>
<tr>
<td class="h" >
<a name="136">136</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> rex: \.t$</span> </td>
</tr>
<tr>
<td class="h" >
<a name="137">137</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> run_from: source_root_directory</span> </td>
</tr>
<tr>
<td class="h" >
<a name="138">138</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> -</span> </td>
</tr>
<tr>
<td class="h" >
<a name="139">139</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> command: "perl -c ${INC} \"${SOURCE_FILE}\" 2>&1| perl -ne \"/Subroutine \\w+ redefined at/ or print\""</span> </td>
</tr>
<tr>
<td class="h" >
<a name="140">140</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> alternate_command: ""</span> </td>
</tr>
<tr>
<td class="h" >
<a name="141">141</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> moniker: Module</span> </td>
</tr>
<tr>
<td class="h" >
<a name="142">142</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> rex: \.pm$</span> </td>
</tr>
<tr>
<td class="h" >
<a name="143">143</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> run_from: source_root_directory</span> </td>
</tr>
<tr>
<td class="h" >
<a name="144">144</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> -</span> </td>
</tr>
<tr>
<td class="h" >
<a name="145">145</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> command: "perl ${INC} \"${SOURCE_FILE}\""</span> </td>
</tr>
<tr>
<td class="h" >
<a name="146">146</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> alternate_command: ""</span> </td>
</tr>
<tr>
<td class="h" >
<a name="147">147</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> moniker: Script</span> </td>
</tr>
<tr>
<td class="h" >
<a name="148">148</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> rex: \.pl$</span> </td>
</tr>
<tr>
<td class="h" >
<a name="149">149</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> run_from: file_directory</span> </td>
</tr>
<tr>
<td class="h" >
<a name="150">150</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="151">151</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> #This is a catch-all for all other types of files</span> </td>
</tr>
<tr>
<td class="h" >
<a name="152">152</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> -</span> </td>
</tr>
<tr>
<td class="h" >
<a name="153">153</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> command: "perl ${INC} \"${SOURCE_FILE}\""</span> </td>
</tr>
<tr>
<td class="h" >
<a name="154">154</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> alternate_command: ""</span> </td>
</tr>
<tr>
<td class="h" >
<a name="155">155</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> moniker: 'Script (no .pl)'</span> </td>
</tr>
<tr>
<td class="h" >
<a name="156">156</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> rex: .</span> </td>
</tr>
<tr>
<td class="h" >
<a name="157">157</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> run_from: file_directory</span> </td>
</tr>
<tr>
<td class="h" >
<a name="158">158</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="159">159</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="160">160</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="161">161</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#Run File in Debugger Configuration.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="162">162</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#"C-o r d" to debug "command" and "C-u C-o r d" to debug alternate_command</span> </td>
</tr>
<tr>
<td class="h" >
<a name="163">163</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#</span> </td>
</tr>
<tr>
<td class="h" >
<a name="164">164</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#These are evaluated in order to find a way to debug a file. First</span> </td>
</tr>
<tr>
<td class="h" >
<a name="165">165</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#match is used.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="166">166</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">debug_file:</span> </td>
</tr>
<tr>
<td class="h" >
<a name="167">167</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> -</span> </td>
</tr>
<tr>
<td class="h" >
<a name="168">168</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> command: "perl -d ${INC} \"${SOURCE_FILE}\""</span> </td>
</tr>
<tr>
<td class="h" >
<a name="169">169</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> alternate_command: ""</span> </td>
</tr>
<tr>
<td class="h" >
<a name="170">170</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> moniker: Test</span> </td>
</tr>
<tr>
<td class="h" >
<a name="171">171</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> rex: \.t$</span> </td>
</tr>
<tr>
<td class="h" >
<a name="172">172</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> debug_from: source_root_directory</span> </td>
</tr>
<tr>
<td class="h" >
<a name="173">173</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> -</span> </td>
</tr>
<tr>
<td class="h" >
<a name="174">174</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> command: "perl -d ${INC} \"${SOURCE_FILE}\""</span> </td>
</tr>
<tr>
<td class="h" >
<a name="175">175</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> alternate_command: ""</span> </td>
</tr>
<tr>
<td class="h" >
<a name="176">176</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> moniker: Script</span> </td>
</tr>
<tr>
<td class="h" >
<a name="177">177</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> rex: \.pl$</span> </td>
</tr>
<tr>
<td class="h" >
<a name="178">178</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> debug_from: file_directory</span> </td>
</tr>
<tr>
<td class="h" >
<a name="179">179</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="180">180</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> -</span> </td>
</tr>
<tr>
<td class="h" >
<a name="181">181</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> command: "perl -d ${INC} \"${SOURCE_FILE}\""</span> </td>
</tr>
<tr>
<td class="h" >
<a name="182">182</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> alternate_command: ""</span> </td>
</tr>
<tr>
<td class="h" >
<a name="183">183</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> moniker: Module</span> </td>
</tr>
<tr>
<td class="h" >
<a name="184">184</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> rex: \.pm$</span> </td>
</tr>
<tr>
<td class="h" >
<a name="185">185</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> debug_from: source_root_directory</span> </td>
</tr>
<tr>
<td class="h" >
<a name="186">186</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="187">187</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> #This is a catch-all for all other types of files</span> </td>
</tr>
<tr>
<td class="h" >
<a name="188">188</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> -</span> </td>
</tr>
<tr>
<td class="h" >
<a name="189">189</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> command: "perl -d ${INC} \"${SOURCE_FILE}\""</span> </td>
</tr>
<tr>
<td class="h" >
<a name="190">190</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> alternate_command: ""</span> </td>
</tr>
<tr>
<td class="h" >
<a name="191">191</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> moniker: 'Script (no .pl)'</span> </td>
</tr>
<tr>
<td class="h" >
<a name="192">192</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> rex: .</span> </td>
</tr>
<tr>
<td class="h" >
<a name="193">193</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q"> debug_from: file_directory</span> </td>
</tr>
<tr>
<td class="h" >
<a name="194">194</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="195">195</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="196">196</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="197">197</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="198">198</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#EOF</span> </td>
</tr>
<tr>
<td class="h" >
<a name="199">199</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">}</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="200">200</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="201">201</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="202">202</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="203">203</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="204">204</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="205">205</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head2 nameFileCritic</span> </td>
</tr>
<tr>
<td class="h" >
<a name="206">206</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="207">207</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">The Perl::Critic config file name relative to the root dir.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="208">208</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="209">209</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Default: ./PerlySenseProject/.perlcritic</span> </td>
</tr>
<tr>
<td class="h" >
<a name="210">210</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="211">211</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=cut</span> </td>
</tr>
<tr>
<td class="h" >
<a name="212">212</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="w">field</span> <span class="q">"nameFileCritic"</span> <span class="cm">=></span> <span class="q">".PerlySenseProject/.perlcritic"</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="213">213</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="214">214</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="215">215</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="216">216</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="217">217</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="218">218</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="219">219</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head2 textCriticDefault</span> </td>
</tr>
<tr>
<td class="h" >
<a name="220">220</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="221">221</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">The default contents of the Perl::Critic config file</span> </td>
</tr>
<tr>
<td class="h" >
<a name="222">222</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="223">223</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=cut</span> </td>
</tr>
<tr>
<td class="h" >
<a name="224">224</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="w">field</span> <span class="q">"textCriticDefault"</span> <span class="cm">=></span> <span class="q">q{#Default Perl Critic config file</span> </td>
</tr>
<tr>
<td class="h" >
<a name="225">225</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#</span> </td>
</tr>
<tr>
<td class="h" >
<a name="226">226</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#To enable Perl::Critic highlighting in your source code,</span> </td>
</tr>
<tr>
<td class="h" >
<a name="227">227</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#edit .PerlysenseProject/project.yml and set flymake/critic: 1</span> </td>
</tr>
<tr>
<td class="h" >
<a name="228">228</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#</span> </td>
</tr>
<tr>
<td class="h" >
<a name="229">229</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#Make sure you read the documentation for Perl::Critic, and especially</span> </td>
</tr>
<tr>
<td class="h" >
<a name="230">230</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#the config docs.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="231">231</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#http://search.cpan.org/dist/Perl-Critic/lib/Perl/Critic.pm#CONFIGURATION</span> </td>
</tr>
<tr>
<td class="h" >
<a name="232">232</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#http://search.cpan.org/dist/Perl-Critic/lib/Perl/Critic/Config.pm</span> </td>
</tr>
<tr>
<td class="h" >
<a name="233">233</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#</span> </td>
</tr>
<tr>
<td class="h" >
<a name="234">234</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#You can obviously replace this file with your own Perl::Critic config</span> </td>
</tr>
<tr>
<td class="h" >
<a name="235">235</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#file, or a symlink to it.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="236">236</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#</span> </td>
</tr>
<tr>
<td class="h" >
<a name="237">237</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="238">238</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">severity = 5</span> </td>
</tr>
<tr>
<td class="h" >
<a name="239">239</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="240">240</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">theme = bugs + maintenance + security + complexity</span> </td>
</tr>
<tr>
<td class="h" >
<a name="241">241</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="242">242</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="243">243</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="244">244</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#This one must be disabled, since flymake will create temp files which</span> </td>
</tr>
<tr>
<td class="h" >
<a name="245">245</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#by definition never match the specified package name</span> </td>
</tr>
<tr>
<td class="h" >
<a name="246">246</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">[-Modules::RequireFilenameMatchesPackage]</span> </td>
</tr>
<tr>
<td class="h" >
<a name="247">247</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="248">248</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="249">249</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="250">250</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">[-Subroutines::ProhibitSubroutinePrototypes]</span> </td>
</tr>
<tr>
<td class="h" >
<a name="251">251</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">[-Subroutines::ProhibitExplicitReturnUndef]</span> </td>
</tr>
<tr>
<td class="h" >
<a name="252">252</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="253">253</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="254">254</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="255">255</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">#END</span> </td>
</tr>
<tr>
<td class="h" >
<a name="256">256</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">}</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="257">257</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="258">258</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="259">259</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="260">260</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="261">261</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="262">262</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head2 dirRoot</span> </td>
</tr>
<tr>
<td class="h" >
<a name="263">263</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="264">264</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">The root directory of the loaded config, or undef if no config is</span> </td>
</tr>
<tr>
<td class="h" >
<a name="265">265</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">loaded yet.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="266">266</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="267">267</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Default: undef</span> </td>
</tr>
<tr>
<td class="h" >
<a name="268">268</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="269">269</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=cut</span> </td>
</tr>
<tr>
<td class="h" >
<a name="270">270</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="w">field</span> <span class="q">"dirRoot"</span> <span class="cm">=></span> <span class="k">undef</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="271">271</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="272">272</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="273">273</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="274">274</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="275">275</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="276">276</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head2 rhConfig</span> </td>
</tr>
<tr>
<td class="h" >
<a name="277">277</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="278">278</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">The hash ref with the currently loaded config.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="279">279</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="280">280</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Default: { }</span> </td>
</tr>
<tr>
<td class="h" >
<a name="281">281</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="282">282</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=cut</span> </td>
</tr>
<tr>
<td class="h" >
<a name="283">283</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="w">field</span> <span class="q">"rhConfig"</span> <span class="cm">=></span> <span class="s">{</span> <span class="s">}</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="284">284</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="285">285</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="286">286</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="287">287</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="288">288</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="289">289</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head2 new()</span> </td>
</tr>
<tr>
<td class="h" >
<a name="290">290</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="291">291</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Create new object.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="292">292</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="293">293</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=cut</span> </td>
</tr>
<tr>
<td class="h" >
<a name="294">294</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="k">sub </span><span class="m">new(@)</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="295">295</a>
</td>
<td class="c3" >
116
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html#295-1">
116
</a>
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html#295-1">
1
</a>
</td>
<td >
218
</td>
<td class="s"> <span class="k">my</span> <span class="i">$pkg</span> = <span class="k">shift</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="296">296</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="297">297</a>
</td>
<td class="c3" >
116
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
751
</td>
<td class="s"> <span class="k">my</span> <span class="i">$self</span> = <span class="i">$pkg</span><span class="i">->SUPER::new</span><span class="s">(</span><span class="i">@_</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="298">298</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="299">299</a>
</td>
<td class="c3" >
116
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--branch.html#299-1">
100
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
7195
</td>
<td class="s"> <span class="i">$self</span><span class="i">->dirRoot</span> <span class="k">and</span> <span class="i">$self</span><span class="i">->loadConfig</span><span class="s">(</span><span class="w">dirRoot</span> <span class="cm">=></span> <span class="i">$self</span><span class="i">->dirRoot</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="300">300</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="301">301</a>
</td>
<td class="c3" >
116
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1731
</td>
<td class="s"> <span class="k">return</span><span class="s">(</span><span class="i">$self</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="302">302</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="s">}</span> </td>
</tr>
<tr>
<td class="h" >
<a name="303">303</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="304">304</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="305">305</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="306">306</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="307">307</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="308">308</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head1 METHODS</span> </td>
</tr>
<tr>
<td class="h" >
<a name="309">309</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="310">310</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head2 loadConfig(dirRoot => DIR)</span> </td>
</tr>
<tr>
<td class="h" >
<a name="311">311</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="312">312</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Load the file for $dirRoot and set dirDoor and rhConfig.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="313">313</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="314">314</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Return 1 if the file could be loaded, else die, e.g. if the file</span> </td>
</tr>
<tr>
<td class="h" >
<a name="315">315</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">contains syntax errors.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="316">316</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="317">317</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=cut</span> </td>
</tr>
<tr>
<td class="h" >
<a name="318">318</a>
</td>
<td class="c3" >
57
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html#318-1">
57
</a>
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html#318-1">
1
</a>
</td>
<td >
2023
</td>
<td class="s"> <span class="k">sub </span><span class="m">loadConfig</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="319">319</a>
</td>
<td class="c3" >
57
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
247
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</span><span class="i">$dirRoot</span><span class="s">)</span> = <span class="i">Devel::PerlySense::Util::aNamedArg</span><span class="s">(</span><span class="s">[</span><span class="q">"dirRoot"</span><span class="s">]</span><span class="cm">,</span> <span class="i">@_</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="320">320</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="321">321</a>
</td>
<td class="c3" >
57
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1556
</td>
<td class="s"> <span class="k">my</span> <span class="i">$fileConfig</span> = <span class="i">file</span><span class="s">(</span><span class="i">$dirRoot</span><span class="cm">,</span> <span class="i">$self</span><span class="i">->nameFileConfig</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="322">322</a>
</td>
<td class="c3" >
57
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--branch.html#322-1">
100
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
5252
</td>
<td class="s"> <span class="k">my</span> <span class="i">$sourceConfig</span> = <span class="i">slurp</span><span class="s">(</span><span class="i">$fileConfig</span><span class="s">)</span> <span class="k">or</span> </td>
</tr>
<tr>
<td class="h" >
<a name="323">323</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="k">die</span><span class="s">(</span><span class="q">"Could not open config file ($fileConfig)\n"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="324">324</a>
</td>
<td class="c3" >
56
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
157
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</span><span class="i">$rhConfig</span><span class="s">)</span> = <span class="k">eval</span> <span class="s">{</span> <span class="i">YAML::Tiny::Load</span><span class="s">(</span><span class="i">$sourceConfig</span><span class="s">)</span> <span class="s">}</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
56
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
271
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="325">325</a>
</td>
<td class="c3" >
56
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--branch.html#325-1">
100
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
130518
</td>
<td class="s"> <span class="i">$rhConfig</span> <span class="k">or</span> <span class="k">die</span><span class="s">(</span><span class="q">"Could not read .PerlySense Project config file ($fileConfig): "</span> . <span class="i">$YAML::Tiny::errstr</span> . <span class="q">"\n"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="326">326</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="327">327</a>
</td>
<td class="c3" >
55
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1715
</td>
<td class="s"> <span class="i">$self</span><span class="i">->dirRoot</span><span class="s">(</span><span class="i">$dirRoot</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="328">328</a>
</td>
<td class="c3" >
55
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1722
</td>
<td class="s"> <span class="i">$self</span><span class="i">->rhConfig</span><span class="s">(</span><span class="i">$rhConfig</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="329">329</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="330">330</a>
</td>
<td class="c3" >
55
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
811
</td>
<td class="s"> <span class="k">return</span> <span class="n">1</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="331">331</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="s">}</span> </td>
</tr>
<tr>
<td class="h" >
<a name="332">332</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="333">333</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="334">334</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="335">335</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="336">336</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="337">337</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head2 createFileConfigDefault(dirRoot => DIR)</span> </td>
</tr>
<tr>
<td class="h" >
<a name="338">338</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="339">339</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Create a config file under $dirRoot with the default config and load</span> </td>
</tr>
<tr>
<td class="h" >
<a name="340">340</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">it. Create directories as needed.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="341">341</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="342">342</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">If there is an existing config file, rename it first to end with the</span> </td>
</tr>
<tr>
<td class="h" >
<a name="343">343</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">current time.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="344">344</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="345">345</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Return 1, or die on errors.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="346">346</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="347">347</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=cut</span> </td>
</tr>
<tr>
<td class="h" >
<a name="348">348</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="349">349</a>
</td>
<td class="c3" >
5
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html#349-1">
5
</a>
</td>
<td >
</td>
<td >
767
</td>
<td class="s"> <span class="k">sub </span><span class="m">_createFileDefault</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="350">350</a>
</td>
<td class="c3" >
5
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
16
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</span><span class="i">$fileConfig</span><span class="cm">,</span> <span class="i">$text</span><span class="s">)</span> = <span class="i">Devel::PerlySense::Util::aNamedArg</span><span class="s">(</span><span class="s">[</span><span class="q">"file"</span><span class="cm">,</span> <span class="q">"text"</span><span class="s">]</span><span class="cm">,</span> <span class="i">@_</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="351">351</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="352">352</a>
</td>
<td class="c3" >
5
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
55
</td>
<td class="s"> <span class="k">my</span> <span class="i">$dirConfig</span> = <span class="i">dirname</span><span class="s">(</span><span class="i">$fileConfig</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="353">353</a>
</td>
<td class="c3" >
5
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
743
</td>
<td class="s"> <span class="i">mkpath</span><span class="s">(</span><span class="i">$dirConfig</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="354">354</a>
</td>
<td class="c3" >
5
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Config-Project-pm--branch.html#354-1">
50
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
29
</td>
<td class="s"> <span class="k">-d</span> <span class="i">$dirConfig</span> <span class="k">or</span> <span class="k">die</span><span class="s">(</span><span class="q">"Could not create config directory ($dirConfig)\n"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="355">355</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="356">356</a>
</td>
<td class="c3" >
5
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--branch.html#356-1">
100
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
18
</td>
<td class="s"> <span class="k">if</span><span class="s">(</span><span class="k">-e</span> <span class="i">$fileConfig</span><span class="s">)</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="357">357</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
142
</td>
<td class="s"> <span class="k">my</span> <span class="i">$textTime</span> = <span class="i">time2iso</span><span class="s">(</span> <span class="k">time</span><span class="s">(</span><span class="s">)</span> <span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="358">358</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
69
</td>
<td class="s"> <span class="i">$textTime</span> =~ <span class="q">s/\W+/_/g</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="359">359</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
9
</td>
<td class="s"> <span class="k">my</span> <span class="i">$fileConfigBackup</span> = <span class="i">$fileConfig</span> . <span class="q">"."</span> . <span class="i">$textTime</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="360">360</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="361">361</a>
</td>
<td class="c3" >
3
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Config-Project-pm--branch.html#361-1">
50
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
107
</td>
<td class="s"> <span class="k">rename</span><span class="s">(</span><span class="i">$fileConfig</span><span class="cm">,</span> <span class="i">$fileConfigBackup</span><span class="s">)</span> </td>
</tr>
<tr>
<td class="h" >
<a name="362">362</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="k">or</span> <span class="k">die</span><span class="s">(</span><span class="q">"Could not rename ($fileConfig) -> ($fileConfigBackup)\n"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="363">363</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="s">}</span> </td>
</tr>
<tr>
<td class="h" >
<a name="364">364</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="365">365</a>
</td>
<td class="c3" >
5
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Config-Project-pm--branch.html#365-1">
50
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
670
</td>
<td class="s"> <span class="i">spew</span><span class="s">(</span><span class="i">$fileConfig</span><span class="cm">,</span> <span class="i">$text</span><span class="s">)</span> <span class="k">or</span> </td>
</tr>
<tr>
<td class="h" >
<a name="366">366</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="k">die</span><span class="s">(</span><span class="q">"Could not create config file ($fileConfig)\n"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="367">367</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="368">368</a>
</td>
<td class="c3" >
5
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
9
</td>
<td class="s"> <span class="k">return</span> <span class="n">1</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="369">369</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="s">}</span> </td>
</tr>
<tr>
<td class="h" >
<a name="370">370</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="371">371</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html#371-1">
3
</a>
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html#371-1">
1
</a>
</td>
<td >
8
</td>
<td class="s"> <span class="k">sub </span><span class="m">createFileConfigDefault</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="372">372</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
20
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</span><span class="i">$dirRoot</span><span class="s">)</span> = <span class="i">Devel::PerlySense::Util::aNamedArg</span><span class="s">(</span><span class="s">[</span><span class="q">"dirRoot"</span><span class="s">]</span><span class="cm">,</span> <span class="i">@_</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="373">373</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="374">374</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
117
</td>
<td class="s"> <span class="i">$self</span><span class="i">->_createFileDefault</span><span class="s">(</span> </td>
</tr>
<tr>
<td class="h" >
<a name="375">375</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="w">file</span> <span class="cm">=></span> <span class="i">file</span><span class="s">(</span><span class="i">$dirRoot</span><span class="cm">,</span> <span class="i">$self</span><span class="i">->nameFileConfig</span><span class="s">)</span><span class="cm">,</span> </td>
</tr>
<tr>
<td class="h" >
<a name="376">376</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="w">text</span> <span class="cm">=></span> <span class="i">$self</span><span class="i">->textConfigDefault</span><span class="cm">,</span> </td>
</tr>
<tr>
<td class="h" >
<a name="377">377</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="378">378</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="379">379</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
18
</td>
<td class="s"> <span class="i">$self</span><span class="i">->loadConfig</span><span class="s">(</span><span class="w">dirRoot</span> <span class="cm">=></span> <span class="i">$dirRoot</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="380">380</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="381">381</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
18
</td>
<td class="s"> <span class="k">return</span> <span class="n">1</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="382">382</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="s">}</span> </td>
</tr>
<tr>
<td class="h" >
<a name="383">383</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="384">384</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="385">385</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="386">386</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="387">387</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="388">388</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head2 createFileCriticDefault(dirRoot => DIR)</span> </td>
</tr>
<tr>
<td class="h" >
<a name="389">389</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="390">390</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Create a Perl::Critic config file under $dirRoot with the default</span> </td>
</tr>
<tr>
<td class="h" >
<a name="391">391</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">config. Create directories as needed.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="392">392</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="393">393</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">If there is an existing config file, rename it first to end with the</span> </td>
</tr>
<tr>
<td class="h" >
<a name="394">394</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">current time.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="395">395</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="396">396</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Return 1, or die on errors.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="397">397</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="398">398</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=cut</span> </td>
</tr>
<tr>
<td class="h" >
<a name="399">399</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html#399-1">
2
</a>
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Config-Project-pm--subroutine.html#399-1">
1
</a>
</td>
<td >
4
</td>
<td class="s"> <span class="k">sub </span><span class="m">createFileCriticDefault</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="400">400</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
10
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</span><span class="i">$dirRoot</span><span class="s">)</span> = <span class="i">Devel::PerlySense::Util::aNamedArg</span><span class="s">(</span><span class="s">[</span><span class="q">"dirRoot"</span><span class="s">]</span><span class="cm">,</span> <span class="i">@_</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="401">401</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="402">402</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
59
</td>
<td class="s"> <span class="i">$self</span><span class="i">->_createFileDefault</span><span class="s">(</span> </td>
</tr>
<tr>
<td class="h" >
<a name="403">403</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="w">file</span> <span class="cm">=></span> <span class="i">file</span><span class="s">(</span><span class="i">$dirRoot</span><span class="cm">,</span> <span class="i">$self</span><span class="i">->nameFileCritic</span><span class="s">)</span><span class="cm">,</span> </td>
</tr>
<tr>
<td class="h" >
<a name="404">404</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="w">text</span> <span class="cm">=></span> <span class="i">$self</span><span class="i">->textCriticDefault</span><span class="cm">,</span> </td>
</tr>
<tr>
<td class="h" >
<a name="405">405</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="406">406</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="407">407</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
16
</td>
<td class="s"> <span class="k">return</span> <span class="n">1</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="408">408</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="s">}</span> </td>
</tr>
<tr>
<td class="h" >
<a name="409">409</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="410">410</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="411">411</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="412">412</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="413">413</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="414">414</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="n">1</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="415">415</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="416">416</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="417">417</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="418">418</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="419">419</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="420">420</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="k">__END__</span> </td>
</tr>
<tr>
<td class="h" >
<a name="421">421</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="422">422</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=encoding utf8</span> </td>
</tr>
<tr>
<td class="h" >
<a name="423">423</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="424">424</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head1 AUTHOR</span> </td>
</tr>
<tr>
<td class="h" >
<a name="425">425</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="426">426</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Johan Lindström, C<< <johanl[ÄT]DarSerMan.com> >></span> </td>
</tr>
<tr>
<td class="h" >
<a name="427">427</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="428">428</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head1 BUGS</span> </td>
</tr>
<tr>
<td class="h" >
<a name="429">429</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="430">430</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Please report any bugs or feature requests to</span> </td>
</tr>
<tr>
<td class="h" >
<a name="431">431</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">C<bug-devel-perlysense@rt.cpan.org>, or through the web interface at</span> </td>
</tr>
<tr>
<td class="h" >
<a name="432">432</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Devel-PerlySense>.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="433">433</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">I will be notified, and then you'll automatically be notified of progress on</span> </td>
</tr>
<tr>
<td class="h" >
<a name="434">434</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">your bug as I make changes.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="435">435</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="436">436</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head1 ACKNOWLEDGEMENTS</span> </td>
</tr>
<tr>
<td class="h" >
<a name="437">437</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="438">438</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head1 COPYRIGHT & LICENSE</span> </td>
</tr>
<tr>
<td class="h" >
<a name="439">439</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="440">440</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Copyright 2005 Johan Lindström, All Rights Reserved.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="441">441</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="442">442</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">This program is free software; you can redistribute it and/or modify it</span> </td>
</tr>
<tr>
<td class="h" >
<a name="443">443</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">under the same terms as Perl itself.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="444">444</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="445">445</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=cut</span> </td>
</tr>
</table>
</body>
</html>