<!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/Editor.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>197</td>
<td>222</td>
<td class="c1" title="197 / 222">
88.7
</td>
</tr>
<tr>
<td class="h">branch</td>
<td>8</td>
<td>14</td>
<td class="c0" title="8 / 14">
<a href="lib-Devel-PerlySense-Editor-pm--branch.html"> 57.1 </a>
</td>
</tr>
<tr>
<td class="h">condition</td>
<td>11</td>
<td>16</td>
<td class="c0" title="11 / 16">
<a href="lib-Devel-PerlySense-Editor-pm--condition.html"> 68.7 </a>
</td>
</tr>
<tr>
<td class="h">subroutine</td>
<td>35</td>
<td>40</td>
<td class="c1" title="35 / 40">
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html"> 87.5 </a>
</td>
</tr>
<tr>
<td class="h">pod</td>
<td>17</td>
<td>20</td>
<td class="c1" title="17 / 20">
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html"> 85.0 </a>
</td>
</tr>
<tr>
<td class="h">total</td>
<td>268</td>
<td>312</td>
<td class="c1" title="268 / 312">
85.9
</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::Editor - Integration with editors</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 DESCRIPTION</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"> <span class="pd">=cut</span> </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"> </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"> </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 class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#14-1">
7
</a>
</td>
<td >
</td>
<td >
2966
</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" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
8
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
185
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="15">15</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#15-1">
7
</a>
</td>
<td >
</td>
<td >
25
</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" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
16
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
154
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="16">16</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#16-1">
7
</a>
</td>
<td >
</td>
<td >
22
</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" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
8
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
25
</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"> <span class="k">package </span><span class="i">Devel::PerlySense::Editor</span><span class="sc">;</span> </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 >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="21">21</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="22">22</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="23">23</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#23-1">
7
</a>
</td>
<td >
</td>
<td >
542
</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" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
4522
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
59
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="24">24</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#24-1">
7
</a>
</td>
<td >
</td>
<td >
15058
</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" >
7
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#-2">
7
</a>
</td>
<td >
</td>
<td >
11
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#-3">
7
</a>
</td>
<td >
</td>
<td >
172
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
28
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
6
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
133
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
23
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
12
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
339
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="25">25</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#25-1">
7
</a>
</td>
<td >
</td>
<td >
32
</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" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
15
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
342
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="26">26</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#26-1">
7
</a>
</td>
<td >
</td>
<td >
32368
</td>
<td class="s"> <span class="k">use</span> <span class="w">Graph::Easy</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
895738
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
236
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="27">27</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#27-1">
7
</a>
</td>
<td >
</td>
<td >
25420
</td>
<td class="s"> <span class="k">use</span> <span class="w">Text::Table</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
109794
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
208
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="28">28</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#28-1">
7
</a>
</td>
<td >
</td>
<td >
45
</td>
<td class="s"> <span class="k">use</span> <span class="w">List::Util</span> <span class="q">qw/ max first /</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
9
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
408
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="29">29</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#29-1">
7
</a>
</td>
<td >
</td>
<td >
380
</td>
<td class="s"> <span class="k">use</span> <span class="w">POSIX</span> <span class="q">qw/ ceil /</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
5911
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
76
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="30">30</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#30-1">
7
</a>
</td>
<td >
</td>
<td >
1651
</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" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
34505
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
352
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="31">31</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="32">32</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#32-1">
7
</a>
</td>
<td >
</td>
<td >
1063
</td>
<td class="s"> <span class="k">use</span> <span class="w">Devel::PerlySense</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
10
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
59
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="33">33</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#33-1">
7
</a>
</td>
<td >
</td>
<td >
1940
</td>
<td class="s"> <span class="k">use</span> <span class="w">Devel::PerlySense::Class</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
10
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
49
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="34">34</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#34-1">
7
</a>
</td>
<td >
</td>
<td >
1305
</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" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
11
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
400
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="35">35</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#35-1">
7
</a>
</td>
<td >
</td>
<td >
26
</td>
<td class="s"> <span class="k">use</span> <span class="w">Devel::PerlySense::Util::Log</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
9
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
366
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="36">36</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#36-1">
7
</a>
</td>
<td >
</td>
<td >
2618
</td>
<td class="s"> <span class="k">use</span> <span class="w">Devel::PerlySense::Document::Api::Method</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
14
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
66
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="37">37</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="38">38</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="39">39</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="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 >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</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"> <span class="pd">=head1 PROPERTIES</span> </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"> <span class="pd">=head2 oPerlySense</span> </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"> <span class="pd">Devel::PerlySense object.</span> </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"> </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"> <span class="pd">Default: set during new()</span> </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"> </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"> <span class="pd">=cut</span> </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="w">field</span> <span class="q">"oPerlySense"</span> <span class="cm">=></span> <span class="k">undef</span><span class="sc">;</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"> </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"> </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"> </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"> <span class="pd">=head2 widthDisplay</span> </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"> <span class="pd">The width of the display in columns, or undef if N/A.</span> </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"> <span class="pd">Default: undef</span> </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">=cut</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"> <span class="w">field</span> <span class="q">"widthDisplay"</span> <span class="cm">=></span> <span class="k">undef</span><span class="sc">;</span> </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"> </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"> </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"> </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="pd">=head2 raClassOverviewShowDefault</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="pd">Names of features to show in the class overview by default.</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="pd">Default: { ... }</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"> </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"> <span class="pd">=cut</span> </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="w">field</span> <span class="q">"raClassOverviewShowDefault"</span> <span class="cm">=></span> <span class="s">[</span><span class="q">qw/</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">inheritance</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">api</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"> <span class="q">bookmarks</span> </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"> <span class="q">uses</span> </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">/</span><span class="s">]</span><span class="sc">;</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"> </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"> </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"> </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"> </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"> </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="pd">=head2 raClassOverviewShow</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"> </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="pd">Names of features to allow being show in the class overview.</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"> </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="pd">Default: { ... }</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"> <span class="pd">=cut</span> </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="w">field</span> <span class="q">"raClassOverviewShow"</span> <span class="cm">=></span> <span class="s">[</span><span class="q">qw/</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">inheritance</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"> <span class="q">api</span> </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">bookmarks</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">uses</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"> <span class="q">neighbourhood</span> </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">/</span><span class="s">]</span><span class="sc">;</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"> </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"> </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"> </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"> </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"> </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="pd">=head1 CLASS METHODS</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="pd">=head2 dirExtenal()</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="pd">Return the absolute directory of the external editor files.</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"> </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="pd">=cut</span> </td>
</tr>
<tr>
<td class="h" >
<a name="114">114</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#114-1">
1
</a>
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#114-1">
1
</a>
</td>
<td >
2
</td>
<td class="s"> <span class="k">sub </span><span class="m">dirExtenal</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="115">115</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
6
</td>
<td class="s"> <span class="k">return</span> <span class="i">dir</span><span class="s">(</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="i">file</span><span class="s">(</span><span class="w">__FILE__</span><span class="s">)</span><span class="i">->dir</span><span class="i">->absolute</span><span class="cm">,</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">"external"</span><span class="cm">,</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"> <span class="s">)</span> . <span class="q">""</span><span class="sc">;</span> </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="s">}</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"> </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"> </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"> </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"> </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"> <span class="pd">=head2 new(oPerlySense, widthDisplay = undef)</span> </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"> </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="pd">Create new Emcacs object.</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"> </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="pd">=cut</span> </td>
</tr>
<tr>
<td class="h" >
<a name="130">130</a>
</td>
<td class="c3" >
8
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#130-1">
8
</a>
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#130-1">
1
</a>
</td>
<td >
15
</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="131">131</a>
</td>
<td class="c3" >
8
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
33
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</span><span class="i">$oPerlySense</span><span class="cm">,</span> <span class="i">$widthDisplay</span><span class="s">)</span> = <span class="i">Devel::PerlySense::Util::aNamedArg</span><span class="s">(</span><span class="s">[</span><span class="q">"oPerlySense"</span><span class="cm">,</span> <span class="q">"widthDisplay"</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="132">132</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="133">133</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
31
</td>
<td class="s"> <span class="i">$self</span> = <span class="k">bless</span> <span class="s">{</span><span class="s">}</span><span class="cm">,</span> <span class="i">$self</span><span class="sc">;</span> <span class="c">#Create the object. It looks weird because of Spiffy</span> </td>
</tr>
<tr>
<td class="h" >
<a name="134">134</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
195
</td>
<td class="s"> <span class="i">$self</span><span class="i">->oPerlySense</span><span class="s">(</span><span class="i">$oPerlySense</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="135">135</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
237
</td>
<td class="s"> <span class="i">$self</span><span class="i">->widthDisplay</span><span class="s">(</span><span class="i">$widthDisplay</span><span class="s">)</span><span class="sc">;</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"> </td>
</tr>
<tr>
<td class="h" >
<a name="137">137</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
49
</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="138">138</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="139">139</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="140">140</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="141">141</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="142">142</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="143">143</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="144">144</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="145">145</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="146">146</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head2 classOverview(oClass)</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"> </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="pd">Return string representing the Class Overview of $oClass.</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"> </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"> <span class="pd">=cut</span> </td>
</tr>
<tr>
<td class="h" >
<a name="151">151</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#151-1">
7
</a>
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#151-1">
1
</a>
</td>
<td >
39
</td>
<td class="s"> <span class="k">sub </span><span class="m">classOverview</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="152">152</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
36
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</span><span class="i">$oClass</span><span class="cm">,</span> <span class="i">$raShow</span><span class="s">)</span> = <span class="i">Devel::PerlySense::Util::aNamedArg</span><span class="s">(</span><span class="s">[</span><span class="q">"oClass"</span><span class="cm">,</span> <span class="q">"raShow"</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="153">153</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="154">154</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
29
</td>
<td class="s"> <span class="k">my</span> <span class="i">%hNameHeading</span> = <span class="s">(</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="w">Api</span> <span class="cm">=></span> <span class="q">"API"</span><span class="cm">,</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="w">Neighbourhood</span> <span class="cm">=></span> <span class="q">"NeighbourHood"</span><span class="cm">,</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="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="158">158</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
8
</td>
<td class="s"> <span class="k">my</span> <span class="i">@aTextOutput</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="159">159</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
11
</td>
<td class="s"> <span class="k">for</span> <span class="k">my</span> <span class="i">$show</span> <span class="s">(</span><span class="i">@$raShow</span><span class="s">)</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="160">160</a>
</td>
<td class="c3" >
15
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
44
</td>
<td class="s"> <span class="k">my</span> <span class="i">$name</span> = <span class="k">ucfirst</span><span class="s">(</span><span class="i">$show</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="161">161</a>
</td>
<td class="c3" >
15
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
25
</td>
<td class="s"> <span class="k">my</span> <span class="i">$nameMethod</span> = <span class="q">"textClass$name"</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="162">162</a>
</td>
<td class="c3" >
15
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Editor-pm--branch.html#162-1">
50
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
70
</td>
<td class="s"> <span class="i">$self</span><span class="i">->can</span><span class="s">(</span><span class="i">$nameMethod</span><span class="s">)</span> <span class="k">or</span> <span class="k">die</span><span class="s">(</span><span class="q">"Internal error ($nameMethod)"</span><span class="s">)</span><span class="sc">;</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"> </td>
</tr>
<tr>
<td class="h" >
<a name="164">164</a>
</td>
<td class="c3" >
15
</td>
<td >
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Editor-pm--condition.html#164-1">
66
</a>
</td>
<td >
</td>
<td >
</td>
<td >
234
</td>
<td class="s"> <span class="k">my</span> <span class="i">$nameHeading</span> = <span class="i">$hNameHeading</span>{<span class="i">$name</span>} || <span class="i">$name</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="165">165</a>
</td>
<td class="c3" >
15
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
50
</td>
<td class="s"> <span class="k">my</span> <span class="i">$text</span> = <span class="q">"* $nameHeading *\n"</span> . <span class="i">$self</span><span class="i">->$nameMethod</span><span class="s">(</span><span class="w">oClass</span> <span class="cm">=></span> <span class="i">$oClass</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="166">166</a>
</td>
<td class="c3" >
15
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
21834
</td>
<td class="s"> <span class="k">push</span><span class="s">(</span><span class="i">@aTextOutput</span><span class="cm">,</span> <span class="i">$text</span><span class="s">)</span><span class="sc">;</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="s">}</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"> </td>
</tr>
<tr>
<td class="h" >
<a name="169">169</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
90
</td>
<td class="s"> <span class="k">my</span> <span class="i">$textOverview</span> = <span class="i">$self</span><span class="i">->stripTrailingWhitespace</span><span class="s">(</span> <span class="k">join</span><span class="s">(</span><span class="q">"\n"</span><span class="cm">,</span> <span class="i">@aTextOutput</span><span class="s">)</span> <span class="s">)</span><span class="sc">;</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"> </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="c">#Highlight the current class</span> </td>
</tr>
<tr>
<td class="h" >
<a name="172">172</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
44
</td>
<td class="s"> <span class="k">my</span> <span class="i">$leftBracket</span> = <span class="q">"[[]"</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="173">173</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
12
</td>
<td class="s"> <span class="k">my</span> <span class="i">$space</span> = <span class="q">"[ ]"</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="174">174</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
249
</td>
<td class="s"> <span class="k">my</span> <span class="i">$name</span> = <span class="i">$oClass</span><span class="i">->name</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="175">175</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
196
</td>
<td class="s"> <span class="i">$textOverview</span> =~ <span class="q">s| $leftBracket \s+ ( $name \s*? ) $space ] |[<$1>]|xg</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="176">176</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
35
</td>
<td class="s"> <span class="i">debug</span><span class="s">(</span><span class="i">$textOverview</span><span class="s">)</span><span class="sc">;</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"> </td>
</tr>
<tr>
<td class="h" >
<a name="178">178</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
65
</td>
<td class="s"> <span class="k">return</span> <span class="i">$textOverview</span><span class="sc">;</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"> <span class="s">}</span> </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"> </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"> </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"> </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"> </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"> </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="pd">=head2 textClassInheritance(oClass)</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="pd">Return string representing the class hierarchy of $oClass.</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"> </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="pd">=cut</span> </td>
</tr>
<tr>
<td class="h" >
<a name="190">190</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#190-1">
3
</a>
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#190-1">
1
</a>
</td>
<td >
4
</td>
<td class="s"> <span class="k">sub </span><span class="m">textClassInheritance</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="191">191</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
12
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</span><span class="i">$oClass</span><span class="s">)</span> = <span class="i">Devel::PerlySense::Util::aNamedArg</span><span class="s">(</span><span class="s">[</span><span class="q">"oClass"</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="192">192</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="193">193</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
26
</td>
<td class="s"> <span class="k">my</span> <span class="i">$oGraph</span> = <span class="w">Graph::Easy</span><span class="w">->new</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="194">194</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
302
</td>
<td class="s"> <span class="i">$oGraph</span><span class="i">->set_attribute</span><span class="s">(</span><span class="q">'graph'</span><span class="cm">,</span> <span class="w">flow</span> <span class="cm">=></span> <span class="q">"up"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="195">195</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
466
</td>
<td class="s"> <span class="i">$oGraph</span><span class="i">->set_attribute</span><span class="s">(</span><span class="q">'node'</span><span class="cm">,</span> <span class="w">border</span> <span class="cm">=></span> <span class="q">"dotted"</span><span class="s">)</span><span class="sc">;</span> </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 class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
368
</td>
<td class="s"> <span class="i">$oGraph</span><span class="i">->add_node</span><span class="s">(</span><span class="i">$oClass</span><span class="i">->name</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="198">198</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
217
</td>
<td class="s"> <span class="k">my</span> <span class="i">$rhSeenEdge</span> = <span class="s">{</span> <span class="s">}</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="199">199</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
14
</td>
<td class="s"> <span class="i">$self</span><span class="i">->addBaseClassNameToGraph</span><span class="s">(</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"> <span class="w">oGraph</span> <span class="cm">=></span> <span class="i">$oGraph</span><span class="cm">,</span> </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"> <span class="w">oClass</span> <span class="cm">=></span> <span class="i">$oClass</span><span class="cm">,</span> </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"> <span class="w">rhSeenEdge</span> <span class="cm">=></span> <span class="i">$rhSeenEdge</span><span class="cm">,</span> </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"> <span class="s">)</span><span class="sc">;</span> </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"> </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"> <span class="c"># Disable the subclass view until it either becomes faster and/or</span> </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="c"># is better rendered. The Neighbourhood view may be quite enough.</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="c"># $self->addSubClassNameToGraph(</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"> <span class="c"># oGraph => $oGraph,</span> </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="c"># oClass => $oClass,</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="c"># rhSeenEdge => $rhSeenEdge,</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"> <span class="c"># );</span> </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 class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
14
</td>
<td class="s"> <span class="k">my</span> <span class="i">$textInheritance</span> = <span class="i">$self</span><span class="i">->textCompactGraph</span><span class="s">(</span><span class="w">text</span> <span class="cm">=></span> <span class="i">$oGraph</span><span class="i">->as_ascii</span><span class="s">(</span><span class="s">)</span><span class="s">)</span> . <span class="q">"\n"</span><span class="sc">;</span> </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 class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
24
</td>
<td class="s"> <span class="k">return</span> <span class="i">$textInheritance</span><span class="sc">;</span> </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"> <span class="s">}</span> </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"> </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"> </td>
</tr>
<tr>
<td class="h" >
<a name="222">222</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#222-1">
7
</a>
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#222-1">
0
</a>
</td>
<td >
6
</td>
<td class="s"> <span class="k">sub </span><span class="m">addBaseClassNameToGraph</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="223">223</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
25
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</span><span class="i">$oClass</span><span class="cm">,</span> <span class="i">$oGraph</span><span class="cm">,</span> <span class="i">$rhSeenEdge</span><span class="s">)</span> = <span class="i">Devel::PerlySense::Util::aNamedArg</span><span class="s">(</span><span class="s">[</span><span class="q">"oClass"</span><span class="cm">,</span> <span class="q">"oGraph"</span><span class="cm">,</span> <span class="q">"rhSeenEdge"</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="224">224</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="225">225</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
13
</td>
<td class="s"> <span class="k">for</span> <span class="k">my</span> <span class="i">$oClassBase</span> <span class="s">(</span><span class="k">values</span> <span class="i">%</span>{<span class="i">$oClass</span><span class="i">->rhClassBase</span>}<span class="s">)</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
185
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="226">226</a>
</td>
<td class="c3" >
4
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Editor-pm--branch.html#226-1">
50
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
163
</td>
<td class="s"> <span class="i">$rhSeenEdge</span>->{<span class="i">$oClass</span><span class="i">->name</span> . <span class="q">"->"</span> .<span class="i">$oClassBase</span><span class="i">->name</span>}++ <span class="k">and</span> <span class="k">next</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="227">227</a>
</td>
<td class="c3" >
4
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
129
</td>
<td class="s"> <span class="i">$oGraph</span><span class="i">->add_edge</span><span class="s">(</span><span class="i">$oClass</span><span class="i">->name</span><span class="cm">,</span> <span class="i">$oClassBase</span><span class="i">->name</span><span class="s">)</span><span class="sc">;</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"> </td>
</tr>
<tr>
<td class="h" >
<a name="229">229</a>
</td>
<td class="c3" >
4
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
372
</td>
<td class="s"> <span class="i">$self</span><span class="i">->addBaseClassNameToGraph</span><span class="s">(</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="w">oGraph</span> <span class="cm">=></span> <span class="i">$oGraph</span><span class="cm">,</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="w">oClass</span> <span class="cm">=></span> <span class="i">$oClassBase</span><span class="cm">,</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="w">rhSeenEdge</span> <span class="cm">=></span> <span class="i">$rhSeenEdge</span><span class="cm">,</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="s">)</span><span class="sc">;</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="s">}</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"> </td>
</tr>
<tr>
<td class="h" >
<a name="236">236</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
29
</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="237">237</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="238">238</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="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"> </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 class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#243-1">
0
</a>
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#243-1">
0
</a>
</td>
<td >
0
</td>
<td class="s"> <span class="k">sub </span><span class="m">addSubClassNameToGraph</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="244">244</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
0
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</span><span class="i">$oClass</span><span class="cm">,</span> <span class="i">$oGraph</span><span class="cm">,</span> <span class="i">$rhSeenEdge</span><span class="s">)</span> = <span class="i">Devel::PerlySense::Util::aNamedArg</span><span class="s">(</span><span class="s">[</span><span class="q">"oClass"</span><span class="cm">,</span> <span class="q">"oGraph"</span><span class="cm">,</span> <span class="q">"rhSeenEdge"</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="245">245</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="246">246</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
0
</td>
<td class="s"> <span class="k">for</span> <span class="k">my</span> <span class="i">$oClassSub</span> <span class="s">(</span><span class="k">values</span> <span class="i">%</span>{<span class="i">$oClass</span><span class="i">->rhClassSub</span>}<span class="s">)</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
0
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="247">247</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Editor-pm--branch.html#247-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
0
</td>
<td class="s"> <span class="i">$rhSeenEdge</span>->{<span class="i">$oClassSub</span><span class="i">->name</span> . <span class="q">"->"</span> .<span class="i">$oClass</span><span class="i">->name</span>}++ <span class="k">and</span> <span class="k">next</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="248">248</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
0
</td>
<td class="s"> <span class="i">$oGraph</span><span class="i">->add_edge</span><span class="s">(</span><span class="i">$oClassSub</span><span class="i">->name</span><span class="cm">,</span> <span class="i">$oClass</span><span class="i">->name</span><span class="s">)</span><span class="sc">;</span> </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 class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
0
</td>
<td class="s"> <span class="i">$self</span><span class="i">->addSubClassNameToGraph</span><span class="s">(</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="w">oGraph</span> <span class="cm">=></span> <span class="i">$oGraph</span><span class="cm">,</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"> <span class="w">oClass</span> <span class="cm">=></span> <span class="i">$oClassSub</span><span class="cm">,</span> </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"> <span class="w">rhSeenEdge</span> <span class="cm">=></span> <span class="i">$rhSeenEdge</span><span class="cm">,</span> </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"> <span class="s">)</span><span class="sc">;</span> </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="s">}</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"> </td>
</tr>
<tr>
<td class="h" >
<a name="257">257</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
0
</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="258">258</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="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"> </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">=head2 textClassNeighbourhood(oClass)</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"> </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"> <span class="pd">Return string representing the neighbourhood of $oClass.</span> </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"> </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"> <span class="pd">=cut</span> </td>
</tr>
<tr>
<td class="h" >
<a name="269">269</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#269-1">
3
</a>
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#269-1">
1
</a>
</td>
<td >
6
</td>
<td class="s"> <span class="k">sub </span><span class="m">textClassNeighbourhood</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="270">270</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
13
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</span><span class="i">$oClass</span><span class="s">)</span> = <span class="i">Devel::PerlySense::Util::aNamedArg</span><span class="s">(</span><span class="s">[</span><span class="q">"oClass"</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="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 class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
16
</td>
<td class="s"> <span class="k">my</span> <span class="i">$rhDirClass</span> = <span class="i">$oClass</span><span class="i">->rhDirNameClassInNeighbourhood</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span> </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 class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
25
</td>
<td class="s"> <span class="k">my</span> <span class="i">@aColText</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="275">275</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
10
</td>
<td class="s"> <span class="k">for</span> <span class="k">my</span> <span class="i">$raNameClass</span> <span class="s">(</span><span class="k">map</span> <span class="s">{</span> <span class="i">$rhDirClass</span>->{<span class="i">$_</span>} <span class="s">}</span> <span class="q">qw/ up current down /</span><span class="s">)</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
9
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
19
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="276">276</a>
</td>
<td class="c3" >
9
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
17
</td>
<td class="s"> <span class="k">my</span> <span class="i">$lenMax</span> = <span class="i">max</span><span class="s">(</span> <span class="k">map</span> <span class="s">{</span> <span class="k">length</span> <span class="s">}</span> <span class="i">@$raNameClass</span> <span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
31
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
35
</td>
<td class="s"> </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="k">my</span> <span class="i">$text</span> = <span class="k">join</span><span class="s">(</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"> <span class="q">"\n"</span><span class="cm">,</span> </td>
</tr>
<tr>
<td class="h" >
<a name="280">280</a>
</td>
<td class="c3" >
9
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--condition.html#280-1">
100
</a>
</td>
<td >
</td>
<td >
</td>
<td >
30
</td>
<td class="s"> <span class="k">map</span> <span class="s">{</span> <span class="k">sprintf</span><span class="s">(</span><span class="q">"[ %-*s ]"</span><span class="cm">,</span> <span class="i">$lenMax</span><span class="cm">,</span> <span class="i">$_</span><span class="s">)</span> <span class="s">}</span> <span class="i">@$raNameClass</span><span class="cm">,</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"> <span class="s">)</span> || <span class="q">"-none-"</span><span class="sc">;</span> </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"> </td>
</tr>
<tr>
<td class="h" >
<a name="283">283</a>
</td>
<td class="c3" >
9
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
25
</td>
<td class="s"> <span class="k">push</span><span class="s">(</span><span class="i">@aColText</span><span class="cm">,</span> <span class="i">$text</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"> <span class="s">}</span> </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 class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
37
</td>
<td class="s"> <span class="k">my</span> <span class="i">$oTable</span> = <span class="w">Text::Table</span><span class="w">->new</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="287">287</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
299
</td>
<td class="s"> <span class="i">$oTable</span><span class="i">->load</span><span class="s">(</span><span class="s">[</span> <span class="i">@aColText</span> <span class="s">]</span><span class="s">)</span><span class="sc">;</span> </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 class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1708
</td>
<td class="s"> <span class="k">return</span> <span class="q">"$oTable"</span><span class="sc">;</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"> <span class="s">}</span> </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"> </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"> </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"> </td>
</tr>
<tr>
<td class="h" >
<a name="295">295</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="296">296</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head2 textClassUses(oClass)</span> </td>
</tr>
<tr>
<td class="h" >
<a name="297">297</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="298">298</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Return string representing the modules used by $oClass. Use the least</span> </td>
</tr>
<tr>
<td class="h" >
<a name="299">299</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">number of columns to display this.</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 >
</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="302">302</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#302-1">
3
</a>
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#302-1">
1
</a>
</td>
<td >
6
</td>
<td class="s"> <span class="k">sub </span><span class="m">textClassUses</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="303">303</a>
</td>
<td class="c3" >
3
</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">$oClass</span><span class="s">)</span> = <span class="i">Devel::PerlySense::Util::aNamedArg</span><span class="s">(</span><span class="s">[</span><span class="q">"oClass"</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="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 class="c3" >
3
</td>
<td >
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Editor-pm--condition.html#305-1">
50
</a>
</td>
<td >
</td>
<td >
</td>
<td >
83
</td>
<td class="s"> <span class="k">my</span> <span class="i">$columnsToFitWithin</span> = <span class="i">$self</span><span class="i">->widthDisplay</span> || <span class="n">90</span><span class="sc">;</span> <span class="c">###TODO: Move to config</span> </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"> <span class="k">return</span><span class="s">(</span> </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="i">$self</span><span class="i">->textTable</span><span class="s">(</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"> <span class="s">[</span> <span class="i">$oClass</span><span class="i">->aNameModuleUse</span><span class="s">(</span><span class="s">)</span> <span class="s">]</span><span class="cm">,</span> </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="i">$columnsToFitWithin</span><span class="cm">,</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"> <span class="k">sub</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="312">312</a>
</td>
<td class="c3" >
19
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#312-1">
19
</a>
</td>
<td >
</td>
<td >
19
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</span><span class="i">$item</span><span class="cm">,</span> <span class="i">$raItem</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="313">313</a>
</td>
<td class="c3" >
19
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
19
</td>
<td class="s"> <span class="k">my</span> <span class="i">$lenMax</span> = <span class="i">max</span><span class="s">(</span> <span class="k">map</span> <span class="s">{</span> <span class="k">length</span> <span class="s">}</span> <span class="i">@$raItem</span> <span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
27
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
39
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="314">314</a>
</td>
<td class="c3" >
19
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
48
</td>
<td class="s"> <span class="k">sprintf</span><span class="s">(</span><span class="q">"[ %-*s ]"</span><span class="cm">,</span> <span class="i">$lenMax</span><span class="cm">,</span> <span class="i">$item</span><span class="s">)</span><span class="sc">;</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="s">}</span><span class="cm">,</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"> <span class="s">)</span> </td>
</tr>
<tr>
<td class="h" >
<a name="317">317</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
30
</td>
<td class="s"> <span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="318">318</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="319">319</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="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 >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="322">322</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="323">323</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="324">324</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head2 textTable($raItem, $columnWidthMax, [$rsRenderItem = string-as-is])</span> </td>
</tr>
<tr>
<td class="h" >
<a name="325">325</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="326">326</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Return string with the items in $raItem rendered as a table, with as</span> </td>
</tr>
<tr>
<td class="h" >
<a name="327">327</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">few columns as possible.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="328">328</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="329">329</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">If the $rsRenderItem sub ref is passed, it is called for each item to</span> </td>
</tr>
<tr>
<td class="h" >
<a name="330">330</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">be rendered:</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"> </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"> <span class="pd"> $rsRenderItem->($stringItem, $rsItemColumn)</span> </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"> <span class="pd">where $stringItem is each individual item, and $rsItemColumn is the</span> </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"> <span class="pd">items in the current column. The default is to just pass through the</span> </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"> <span class="pd">$stringItem text.</span> </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"> </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"> <span class="pd">=cut</span> </td>
</tr>
<tr>
<td class="h" >
<a name="339">339</a>
</td>
<td class="c3" >
15
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#339-1">
15
</a>
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#339-1">
1
</a>
</td>
<td >
22
</td>
<td class="s"> <span class="k">sub </span><span class="m">textTable</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="340">340</a>
</td>
<td class="c3" >
15
</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">$raItemAll</span><span class="cm">,</span> <span class="i">$columnsToFitWithin</span><span class="cm">,</span> <span class="i">$rsRenderItem</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="341">341</a>
</td>
<td class="c3" >
15
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--condition.html#341-1">
100
</a>
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#341-1">
3127
</a>
</td>
<td >
</td>
<td >
78
</td>
<td class="s"> <span class="i">$rsRenderItem</span> ||= <span class="k">sub</span> <span class="s">{</span> <span class="i">$_</span>[<span class="n">0</span>] <span class="s">}</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
3127
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
4373
</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"> </td>
</tr>
<tr>
<td class="h" >
<a name="343">343</a>
</td>
<td class="c3" >
15
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
21
</td>
<td class="s"> <span class="k">my</span> <span class="i">$text</span> = <span class="q">""</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="344">344</a>
</td>
<td class="c3" >
15
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
46
</td>
<td class="s"> <span class="k">for</span> <span class="k">my</span> <span class="i">$columns</span> <span class="s">(</span><span class="k">reverse</span> <span class="n">1</span> .. <span class="i">@$raItemAll</span><span class="s">)</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="345">345</a>
</td>
<td class="c3" >
97
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
146
</td>
<td class="s"> <span class="k">my</span> <span class="i">@aColText</span><span class="sc">;</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 class="c3" >
97
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
507
</td>
<td class="s"> <span class="k">for</span> <span class="k">my</span> <span class="i">$raItem</span> <span class="s">(</span> <span class="i">@</span>{<span class="i">$self</span><span class="i">->raItemInNGroups</span><span class="s">(</span><span class="i">$raItemAll</span><span class="cm">,</span> <span class="i">$columns</span><span class="s">)</span>} <span class="s">)</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
97
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
297
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="348">348</a>
</td>
<td class="c3" >
1247
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1132
</td>
<td class="s"> <span class="k">my</span> <span class="i">$text</span> = <span class="k">join</span><span class="s">(</span><span class="q">"\n"</span><span class="cm">,</span> <span class="k">map</span> <span class="s">{</span> <span class="i">$rsRenderItem</span>-><span class="s">(</span><span class="i">$_</span><span class="cm">,</span> <span class="i">$raItem</span><span class="s">)</span> <span class="s">}</span> <span class="i">@$raItem</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
3150
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
2688
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="349">349</a>
</td>
<td class="c3" >
1247
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1784
</td>
<td class="s"> <span class="k">push</span><span class="s">(</span><span class="i">@aColText</span><span class="cm">,</span> <span class="i">$text</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="350">350</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="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" >
97
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
960
</td>
<td class="s"> <span class="k">my</span> <span class="i">$oTable</span> = <span class="w">Text::Table</span><span class="w">->new</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="353">353</a>
</td>
<td class="c3" >
97
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
7297
</td>
<td class="s"> <span class="i">$oTable</span><span class="i">->load</span><span class="s">(</span><span class="s">[</span> <span class="i">@aColText</span> <span class="s">]</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="354">354</a>
</td>
<td class="c3" >
97
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
136467
</td>
<td class="s"> <span class="i">$text</span> = <span class="q">"$oTable"</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" >
97
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--branch.html#356-1">
100
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1690351
</td>
<td class="s"> <span class="k">length</span><span class="s">(</span> <span class="s">(</span><span class="k">split</span><span class="s">(</span><span class="q">/\n/</span><span class="cm">,</span> <span class="i">$text</span><span class="s">)</span><span class="s">)</span>[<span class="n">0</span>] <span class="s">)</span> <= <span class="i">$columnsToFitWithin</span> <span class="k">and</span> <span class="k">last</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="357">357</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="358">358</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="359">359</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="360">360</a>
</td>
<td class="c3" >
15
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
110
</td>
<td class="s"> <span class="k">return</span> <span class="i">$text</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="361">361</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="362">362</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="363">363</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="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 >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </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"> </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"> <span class="pd">=head2 textClassBookmarks(oClass)</span> </td>
</tr>
<tr>
<td class="h" >
<a name="368">368</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="369">369</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Return string representing the Bookmarks of $oClass.</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 >
</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="372">372</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#372-1">
3
</a>
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#372-1">
1
</a>
</td>
<td >
5
</td>
<td class="s"> <span class="k">sub </span><span class="m">textClassBookmarks</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="373">373</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
18
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</span><span class="i">$oClass</span><span class="s">)</span> = <span class="i">Devel::PerlySense::Util::aNamedArg</span><span class="s">(</span><span class="s">[</span><span class="q">"oClass"</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="374">374</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="375">375</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
19
</td>
<td class="s"> <span class="k">my</span> <span class="i">@aBookmarkMatchResult</span> = <span class="i">$oClass</span><span class="i">->aBookmarkMatchResult</span><span class="s">(</span><span class="s">)</span><span class="sc">;</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"> </td>
</tr>
<tr>
<td class="h" >
<a name="377">377</a>
</td>
<td class="c3" >
4
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
378
</td>
<td class="s"> <span class="k">my</span> <span class="i">$matches</span> = <span class="k">join</span><span class="s">(</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"> <span class="q">"\n"</span><span class="cm">,</span> </td>
</tr>
<tr>
<td class="h" >
<a name="379">379</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="k">map</span><span class="s">(</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"> <span class="s">{</span> </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 >
14
</td>
<td class="s"> <span class="q">"- "</span> . <span class="i">$_</span><span class="i">->oDefinition</span><span class="i">->moniker</span> . <span class="q">"\n"</span> . <span class="k">join</span><span class="s">(</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="q">"\n"</span><span class="cm">,</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"> <span class="k">map</span><span class="s">(</span> </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"> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="385">385</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
167
</td>
<td class="s"> <span class="k">sprintf</span><span class="s">(</span> </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"> <span class="q">"%s:%s: %s"</span><span class="cm">,</span> </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"> <span class="i">basename</span><span class="s">(</span><span class="i">$_</span><span class="i">->oLocation</span><span class="i">->file</span><span class="s">)</span><span class="cm">,</span> </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="i">$_</span><span class="i">->oLocation</span><span class="i">->row</span><span class="cm">,</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"> <span class="i">$_</span><span class="i">->text</span><span class="cm">,</span> <span class="c">##TODO: text escaped for { }</span> </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="s">)</span><span class="sc">;</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="s">}</span> </td>
</tr>
<tr>
<td class="h" >
<a name="392">392</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
167
</td>
<td class="s"> <span class="i">@</span>{<span class="i">$_</span><span class="i">->raMatch</span>}<span class="cm">,</span> </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="s">)</span><span class="cm">,</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="s">)</span><span class="cm">,</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"> <span class="s">}</span> </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="i">@aBookmarkMatchResult</span><span class="cm">,</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"> <span class="s">)</span><span class="cm">,</span> </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="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="399">399</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Editor-pm--condition.html#399-1">
66
</a>
</td>
<td >
</td>
<td >
</td>
<td >
139
</td>
<td class="s"> <span class="i">$matches</span> &&= <span class="q">"$matches\n"</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="400">400</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="401">401</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
54
</td>
<td class="s"> <span class="k">return</span> <span class="i">$matches</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="402">402</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="403">403</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="404">404</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="405">405</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="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 >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </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="pd">=head2 textClassStructure(oClass)</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"> <span class="pd">Return string representing the structure of $oClass.</span> </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"> <span class="pd">This includes a Signature Survey string.</span> </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="pd">=cut</span> </td>
</tr>
<tr>
<td class="h" >
<a name="415">415</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#415-1">
0
</a>
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#415-1">
1
</a>
</td>
<td >
0
</td>
<td class="s"> <span class="k">sub </span><span class="m">textClassStructure</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="416">416</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
0
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</span><span class="i">$oClass</span><span class="s">)</span> = <span class="i">Devel::PerlySense::Util::aNamedArg</span><span class="s">(</span><span class="s">[</span><span class="q">"oClass"</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="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 class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
0
</td>
<td class="s"> <span class="k">my</span> <span class="i">$textSignature</span> = <span class="i">$self</span><span class="i">->textLineWrapped</span><span class="s">(</span> </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"> <span class="k">join</span><span class="s">(</span> </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="q">""</span><span class="cm">,</span> </td>
</tr>
<tr>
<td class="h" >
<a name="421">421</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
0
</td>
<td class="s"> <span class="k">map</span> <span class="s">{</span> <span class="i">$_</span><span class="i">->stringSignatureSurveyFromFile</span> <span class="s">}</span> <span class="i">@</span>{<span class="i">$oClass</span><span class="i">->raDocument</span>}<span class="cm">,</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
0
</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="s">)</span><span class="cm">,</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"> <span class="s">)</span><span class="sc">;</span> </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"> </td>
</tr>
<tr>
<td class="h" >
<a name="425">425</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
0
</td>
<td class="s"> <span class="k">return</span> <span class="q">"$textSignature\n"</span><span class="sc">;</span> </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="s">}</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"> </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"> </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"> </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">=head2 textClassApi(oClass)</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"> </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">Return string representing the API of $oClass.</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">=cut</span> </td>
</tr>
<tr>
<td class="h" >
<a name="437">437</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#437-1">
3
</a>
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#437-1">
1
</a>
</td>
<td >
8
</td>
<td class="s"> <span class="k">sub </span><span class="m">textClassApi</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="438">438</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
14
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</span><span class="i">$oClass</span><span class="s">)</span> = <span class="i">Devel::PerlySense::Util::aNamedArg</span><span class="s">(</span><span class="s">[</span><span class="q">"oClass"</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="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 class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
110
</td>
<td class="s"> <span class="k">my</span> <span class="i">$oDocument</span> = <span class="i">$oClass</span><span class="i">->raDocument</span>->[<span class="n">0</span>]<span class="sc">;</span> <span class="c">### or die</span> </td>
</tr>
<tr>
<td class="h" >
<a name="441">441</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
92
</td>
<td class="s"> <span class="i">$oDocument</span><span class="i">->determineLikelyApi</span><span class="s">(</span><span class="w">nameModule</span> <span class="cm">=></span> <span class="i">$oClass</span><span class="i">->name</span><span class="s">)</span><span class="sc">;</span> </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"> </td>
</tr>
<tr>
<td class="h" >
<a name="443">443</a>
</td>
<td class="c3" >
3
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Editor-pm--branch.html#443-1">
50
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
73
</td>
<td class="s"> <span class="k">my</span> <span class="i">$oApi</span> = <span class="i">$oDocument</span><span class="i">->rhPackageApiLikely</span>->{<span class="i">$oClass</span><span class="i">->name</span>} <span class="k">or</span> <span class="k">do</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="444">444</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
0
</td>
<td class="s"> <span class="i">debug</span><span class="s">(</span><span class="q">"Could not find API for ("</span> </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="i">$oClass</span><span class="i">->name</span> . <span class="q">") in ("</span> </td>
</tr>
<tr>
<td class="h" >
<a name="446">446</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> . <span class="i">$oDocument</span><span class="i">->file</span> . <span class="q">")"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="447">447</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
0
</td>
<td class="s"> <span class="k">return</span><span class="s">(</span><span class="q">""</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="448">448</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="449">449</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="450">450</a>
</td>
<td class="c3" >
69
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
246
</td>
<td class="s"> <span class="k">my</span> <span class="i">@aColText</span> = <span class="k">map</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="451">451</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
184
</td>
<td class="s"> <span class="k">my</span> <span class="i">$nameMethod</span> = <span class="i">$_</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="452">452</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="453">453</a>
</td>
<td class="c3" >
69
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1157
</td>
<td class="s"> <span class="k">my</span> <span class="i">$oMethod</span> = <span class="w">Devel::PerlySense::Document::Api::Method</span><span class="w">->new</span><span class="s">(</span> </td>
</tr>
<tr>
<td class="h" >
<a name="454">454</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="w">name</span> <span class="cm">=></span> <span class="i">$nameMethod</span><span class="cm">,</span> </td>
</tr>
<tr>
<td class="h" >
<a name="455">455</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="w">oDocument</span> <span class="cm">=></span> <span class="i">$oDocument</span><span class="cm">,</span> </td>
</tr>
<tr>
<td class="h" >
<a name="456">456</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="457">457</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="458">458</a>
</td>
<td class="c3" >
69
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1776
</td>
<td class="s"> <span class="k">my</span> <span class="i">$oLocationDeclaration</span> = <span class="i">$oApi</span><span class="i">->rhSub</span>->{<span class="i">$nameMethod</span>}<span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="459">459</a>
</td>
<td class="c3" >
69
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
580
</td>
<td class="s"> <span class="i">$oMethod</span><span class="i">->signatureCall</span><span class="s">(</span><span class="i">$oLocationDeclaration</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="460">460</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="s">}</span> <span class="i">$oApi</span><span class="i">->aNameSubVisible</span><span class="s">(</span> </td>
</tr>
<tr>
<td class="h" >
<a name="461">461</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="w">oPerlySense</span> <span class="cm">=></span> <span class="i">$self</span><span class="i">->oPerlySense</span><span class="cm">,</span> </td>
</tr>
<tr>
<td class="h" >
<a name="462">462</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="w">fileCurrent</span> <span class="cm">=></span> <span class="i">$oDocument</span><span class="i">->file</span><span class="cm">,</span> </td>
</tr>
<tr>
<td class="h" >
<a name="463">463</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="464">464</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="465">465</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Editor-pm--condition.html#465-1">
50
</a>
</td>
<td >
</td>
<td >
</td>
<td >
104
</td>
<td class="s"> <span class="k">my</span> <span class="i">$columnsToFitWithin</span> = <span class="i">$self</span><span class="i">->widthDisplay</span> || <span class="n">90</span><span class="sc">;</span> <span class="c">###TODO: Move to config</span> </td>
</tr>
<tr>
<td class="h" >
<a name="466">466</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
30
</td>
<td class="s"> <span class="k">return</span><span class="s">(</span> <span class="i">$self</span><span class="i">->textTable</span><span class="s">(</span>\<span class="i">@aColText</span><span class="cm">,</span> <span class="i">$columnsToFitWithin</span><span class="s">)</span> <span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="467">467</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="468">468</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="469">469</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="470">470</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="471">471</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="472">472</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="473">473</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head2 textLineWrapped($text)</span> </td>
</tr>
<tr>
<td class="h" >
<a name="474">474</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="475">475</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Return $text wrapped hard at the available number of columns.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="476">476</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="477">477</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="478">478</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#478-1">
7
</a>
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#478-1">
1
</a>
</td>
<td >
6
</td>
<td class="s"> <span class="k">sub </span><span class="m">textLineWrapped</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="479">479</a>
</td>
<td class="c3" >
7
</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">$text</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="480">480</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="481">481</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Editor-pm--condition.html#481-1">
50
</a>
</td>
<td >
</td>
<td >
</td>
<td >
176
</td>
<td class="s"> <span class="k">my</span> <span class="i">$columnsToFitWithin</span> = <span class="i">$self</span><span class="i">->widthDisplay</span> || <span class="n">90</span><span class="sc">;</span> <span class="c">###TODO: Move to config</span> </td>
</tr>
<tr>
<td class="h" >
<a name="482">482</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="483">483</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
8594
</td>
<td class="s"> <span class="k">my</span> <span class="i">@aLine</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="484">484</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
15
</td>
<td class="s"> <span class="k">while</span> <span class="s">(</span><span class="k">length</span><span class="s">(</span><span class="i">$text</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="485">485</a>
</td>
<td class="c3" >
14
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
33
</td>
<td class="s"> <span class="k">push</span><span class="s">(</span><span class="i">@aLine</span><span class="cm">,</span> <span class="k">substr</span><span class="s">(</span><span class="i">$text</span><span class="cm">,</span> <span class="n">0</span><span class="cm">,</span> <span class="i">$columnsToFitWithin</span><span class="cm">,</span> <span class="q">""</span><span class="s">)</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="486">486</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="487">487</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="488">488</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
12
</td>
<td class="s"> <span class="k">my</span> <span class="i">$textWrapped</span> = <span class="k">join</span><span class="s">(</span><span class="q">"\n"</span><span class="cm">,</span> <span class="i">@aLine</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="489">489</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="490">490</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
32
</td>
<td class="s"> <span class="k">return</span> <span class="i">$textWrapped</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="491">491</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="492">492</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="493">493</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="494">494</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="495">495</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="496">496</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="497">497</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head2 raItemInNGroups($raItem, $countGroup)</span> </td>
</tr>
<tr>
<td class="h" >
<a name="498">498</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="499">499</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Split up the items in $raItem so that they form at most $countGroup</span> </td>
</tr>
<tr>
<td class="h" >
<a name="500">500</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">array refs.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="501">501</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="502">502</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">The items are evenly distributed between the group with the same numer</span> </td>
</tr>
<tr>
<td class="h" >
<a name="503">503</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">of items in each, except for the last one which may contain fewer</span> </td>
</tr>
<tr>
<td class="h" >
<a name="504">504</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">items.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="505">505</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="506">506</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Return array ref with $countGroup items, each of which is an array ref</span> </td>
</tr>
<tr>
<td class="h" >
<a name="507">507</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">with the elements in $raItem.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="508">508</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="509">509</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="510">510</a>
</td>
<td class="c3" >
109
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#510-1">
109
</a>
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#510-1">
1
</a>
</td>
<td >
153
</td>
<td class="s"> <span class="k">sub </span><span class="m">raItemInNGroups</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="511">511</a>
</td>
<td class="c3" >
109
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
148
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</span><span class="i">$raItem</span><span class="cm">,</span> <span class="i">$countGroup</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="512">512</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="513">513</a>
</td>
<td class="c3" >
109
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1916
</td>
<td class="s"> <span class="k">my</span> <span class="i">@aItem</span> = <span class="i">@$raItem</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="514">514</a>
</td>
<td class="c3" >
109
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--branch.html#514-1">
100
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
616
</td>
<td class="s"> <span class="k">my</span> <span class="i">$countItemPerGroup</span> = <span class="i">ceil</span><span class="s">(</span><span class="i">@aItem</span> / <span class="i">$countGroup</span><span class="s">)</span> <span class="k">or</span> <span class="k">return</span><span class="s">(</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="515">515</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="516">516</a>
</td>
<td class="c3" >
107
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
268
</td>
<td class="s"> <span class="k">my</span> <span class="i">@aGroupItem</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="517">517</a>
</td>
<td class="c3" >
107
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
303
</td>
<td class="s"> <span class="k">while</span><span class="s">(</span><span class="k">scalar</span> <span class="i">@aItem</span><span class="s">)</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="518">518</a>
</td>
<td class="c3" >
1265
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
3174
</td>
<td class="s"> <span class="k">push</span><span class="s">(</span><span class="i">@aGroupItem</span><span class="cm">,</span> <span class="s">[</span> <span class="k">splice</span><span class="s">(</span><span class="i">@aItem</span><span class="cm">,</span> <span class="n">0</span><span class="cm">,</span> <span class="i">$countItemPerGroup</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="519">519</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="520">520</a>
</td>
<td class="c3" >
107
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Editor-pm--branch.html#520-1">
50
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
281
</td>
<td class="s"> <span class="i">@aItem</span> <span class="k">and</span> <span class="k">push</span><span class="s">(</span><span class="i">@aGroupItem</span><span class="cm">,</span> <span class="s">[</span> <span class="i">@aItem</span> <span class="s">]</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="521">521</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="522">522</a>
</td>
<td class="c3" >
107
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
551
</td>
<td class="s"> <span class="k">return</span> <span class="s">[</span> <span class="i">@aGroupItem</span> <span class="s">]</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="523">523</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="524">524</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="525">525</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="526">526</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="527">527</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="528">528</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="529">529</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head2 textCompactGraph(text)</span> </td>
</tr>
<tr>
<td class="h" >
<a name="530">530</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="531">531</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Return compact version of $text.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="532">532</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="533">533</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="534">534</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#534-1">
3
</a>
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#534-1">
1
</a>
</td>
<td >
77624
</td>
<td class="s"> <span class="k">sub </span><span class="m">textCompactGraph</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="535">535</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
17
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</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">"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="536">536</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="537">537</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="c"># debug($text);</span> </td>
</tr>
<tr>
<td class="h" >
<a name="538">538</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="539">539</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
17
</td>
<td class="s"> <span class="k">my</span> <span class="i">@aLine</span> = <span class="k">split</span><span class="s">(</span><span class="q">/\n/</span><span class="cm">,</span> <span class="i">$text</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="540">540</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="541">541</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="c">#Remove blank lines</span> </td>
</tr>
<tr>
<td class="h" >
<a name="542">542</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
10
</td>
<td class="s"> <span class="i">@aLine</span> = <span class="k">grep</span> <span class="s">{</span> <span class="i">$_</span> <span class="s">}</span> <span class="i">@aLine</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
21
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
32
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="543">543</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="544">544</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="c">#Put [ Class::Name ] around module names</span> </td>
</tr>
<tr>
<td class="h" >
<a name="545">545</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
60
</td>
<td class="s"> <span class="q">s{ : ( \s+ [\w:]+ \s+ ) : }{[$1]}xg</span> <span class="k">for</span> <span class="s">(</span><span class="i">@aLine</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="546">546</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="547">547</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="c">#Make [ Class::Name ] left-aligned in the box</span> </td>
</tr>
<tr>
<td class="h" >
<a name="548">548</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
7
</td>
<td class="s"> <span class="k">my</span> <span class="i">$leftBracket</span> = <span class="q">"[[]"</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="549">549</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
4
</td>
<td class="s"> <span class="k">my</span> <span class="i">$space</span> = <span class="q">"[ ]"</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="550">550</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
106
</td>
<td class="s"> <span class="q">s{ $leftBracket $space (\s+) ([\w:]+) }{[ $2$1}xg</span> <span class="k">for</span> <span class="s">(</span><span class="i">@aLine</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="551">551</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="552">552</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="c">#Remove border-only lines</span> </td>
</tr>
<tr>
<td class="h" >
<a name="553">553</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
8
</td>
<td class="s"> <span class="i">@aLine</span> = <span class="k">grep</span> <span class="s">{</span> ! <span class="q">/[.]/</span> <span class="s">}</span> <span class="i">@aLine</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
21
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
40
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="554">554</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="555">555</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="c">#Remove vertical-lines-only lines</span> </td>
</tr>
<tr>
<td class="h" >
<a name="556">556</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
5
</td>
<td class="s"> <span class="i">@aLine</span> = <span class="k">grep</span> <span class="s">{</span> <span class="q">/[^ |^]/</span> <span class="s">}</span> <span class="i">@aLine</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
11
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
26
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="557">557</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="558">558</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
7
</td>
<td class="s"> <span class="i">$text</span> = <span class="k">join</span><span class="s">(</span><span class="q">"\n"</span><span class="cm">,</span> <span class="i">@aLine</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="559">559</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="560">560</a>
</td>
<td class="c3" >
3
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
9
</td>
<td class="s"> <span class="k">return</span> <span class="i">$text</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="561">561</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="562">562</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="563">563</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="564">564</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="565">565</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="566">566</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="567">567</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head2 formatOutputDataStructure(rhData)</span> </td>
</tr>
<tr>
<td class="h" >
<a name="568">568</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="569">569</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Return stringification of $rhData suited for the Editor.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="570">570</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="571">571</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="572">572</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#572-1">
0
</a>
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#572-1">
1
</a>
</td>
<td >
0
</td>
<td class="s"> <span class="k">sub </span><span class="m">formatOutputDataStructure</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="573">573</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
0
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</span><span class="i">$rhData</span><span class="s">)</span> = <span class="i">Devel::PerlySense::Util::aNamedArg</span><span class="s">(</span><span class="s">[</span><span class="q">"rhData"</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="574">574</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
0
</td>
<td class="s"> <span class="i">croak</span><span class="s">(</span><span class="q">"Abstract method called (formatOutputDataStructure)"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="575">575</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="576">576</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="577">577</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="578">578</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="579">579</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="580">580</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="581">581</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head2 formatOutputItem($item)</span> </td>
</tr>
<tr>
<td class="h" >
<a name="582">582</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="583">583</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Return stringification of $item suited for the Editor. $item can be a</span> </td>
</tr>
<tr>
<td class="h" >
<a name="584">584</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">scalar, array ref or hash ref.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="585">585</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="586">586</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="587">587</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#587-1">
0
</a>
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#587-1">
1
</a>
</td>
<td >
0
</td>
<td class="s"> <span class="k">sub </span><span class="m">formatOutputItem</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="588">588</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
0
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</span><span class="i">$value</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="589">589</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
0
</td>
<td class="s"> <span class="i">croak</span><span class="s">(</span><span class="q">"Abstract method called (formatOutputDataStructure)"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="590">590</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="591">591</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="592">592</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="593">593</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="594">594</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="595">595</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="596">596</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head2 renameIdentifier($identifier)</span> </td>
</tr>
<tr>
<td class="h" >
<a name="597">597</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="598">598</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Return $identifier changed to suit the Editor.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="599">599</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="600">600</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Default is to do nothing.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="601">601</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="602">602</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="603">603</a>
</td>
<td class="c3" >
21
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#603-1">
21
</a>
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#603-1">
1
</a>
</td>
<td >
17
</td>
<td class="s"> <span class="k">sub </span><span class="m">renameIdentifier</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="604">604</a>
</td>
<td class="c3" >
21
</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">$identifier</span><span class="s">)</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="605">605</a>
</td>
<td class="c3" >
21
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
33
</td>
<td class="s"> <span class="k">return</span> <span class="i">$identifier</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="606">606</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="607">607</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="608">608</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="609">609</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="610">610</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="611">611</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="612">612</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#612-1">
0
</a>
</td>
<td class="c0" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#612-1">
0
</a>
</td>
<td >
0
</td>
<td class="s"> <span class="k">sub </span><span class="m">escapeValue</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="613">613</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
0
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</span><span class="i">$value</span><span class="s">)</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="614">614</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
0
</td>
<td class="s"> <span class="k">return</span> <span class="i">$value</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="615">615</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="616">616</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="617">617</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="618">618</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="619">619</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="620">620</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="621">621</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">=head2 stripTrailingWhitespace($string)</span> </td>
</tr>
<tr>
<td class="h" >
<a name="622">622</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="623">623</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">Return $string with each line in $string stripped of trailing</span> </td>
</tr>
<tr>
<td class="h" >
<a name="624">624</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="pd">whitespace.</span> </td>
</tr>
<tr>
<td class="h" >
<a name="625">625</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="626">626</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="627">627</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#627-1">
7
</a>
</td>
<td class="c3" >
<a href="lib-Devel-PerlySense-Editor-pm--subroutine.html#627-1">
1
</a>
</td>
<td >
13
</td>
<td class="s"> <span class="k">sub </span><span class="m">stripTrailingWhitespace</span> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="628">628</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
13
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</span><span class="i">$string</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="629">629</a>
</td>
<td class="c3" >
120
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
171
</td>
<td class="s"> <span class="k">return</span> <span class="k">join</span><span class="s">(</span> </td>
</tr>
<tr>
<td class="h" >
<a name="630">630</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">"\n"</span><span class="cm">,</span> </td>
</tr>
<tr>
<td class="h" >
<a name="631">631</a>
</td>
<td class="c3" >
7
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
51
</td>
<td class="s"> <span class="k">map</span> <span class="s">{</span> <span class="i">$_</span> =~ <span class="q">s/\s+$//</span><span class="sc">;</span> <span class="i">$_</span> <span class="s">}</span> <span class="k">split</span><span class="s">(</span><span class="q">"\n"</span><span class="cm">,</span> <span class="i">$string</span><span class="s">)</span><span class="cm">,</span> <span class="c">## no critic</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
120
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
147
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="632">632</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="633">633</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="634">634</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="635">635</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="636">636</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="637">637</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="638">638</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="639">639</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="640">640</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="641">641</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="642">642</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="643">643</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="644">644</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="645">645</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="646">646</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="647">647</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="648">648</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="649">649</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="650">650</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="651">651</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="652">652</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="653">653</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="654">654</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="655">655</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="656">656</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="657">657</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="658">658</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="659">659</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="660">660</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="661">661</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="662">662</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="663">663</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="664">664</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="665">665</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="666">666</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="667">667</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="668">668</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="669">669</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="670">670</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>