<!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">t/PerlySense-Document-api-likely.t</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>90</td>
<td>96</td>
<td class="c2" title="90 / 96">
93.7
</td>
</tr>
<tr>
<td class="h">branch</td>
<td>1</td>
<td>2</td>
<td class="c0" title="1 / 2">
<a href="t-PerlySense-Document-api-likely-t--branch.html"> 50.0 </a>
</td>
</tr>
<tr>
<td class="h">condition</td>
<td></td>
<td></td>
<td title="">
n/a
</td>
</tr>
<tr>
<td class="h">subroutine</td>
<td>10</td>
<td>10</td>
<td class="c3" title="10 / 10">
<a href="t-PerlySense-Document-api-likely-t--subroutine.html"> 100.0 </a>
</td>
</tr>
<tr>
<td class="h">pod</td>
<td></td>
<td></td>
<td title="">
n/a
</td>
</tr>
<tr>
<td class="h">total</td>
<td>101</td>
<td>108</td>
<td class="c2" title="101 / 108">
93.5
</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"> #!/usr/bin/perl -w </td>
</tr>
<tr>
<td class="h" >
<a name="2">2</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="t-PerlySense-Document-api-likely-t--subroutine.html#2-1">
1
</a>
</td>
<td >
</td>
<td >
118464
</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" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
2
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
83
</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"> </td>
</tr>
<tr>
<td class="h" >
<a name="4">4</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="t-PerlySense-Document-api-likely-t--subroutine.html#4-1">
1
</a>
</td>
<td >
</td>
<td >
596
</td>
<td class="s"> <span class="k">use</span> <span class="w">Test::More</span> <span class="w">tests</span> <span class="cm">=></span> <span class="n">40</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
15099
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
7
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="5">5</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="t-PerlySense-Document-api-likely-t--subroutine.html#5-1">
1
</a>
</td>
<td >
</td>
<td >
640
</td>
<td class="s"> <span class="k">use</span> <span class="w">Test::Exception</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
2498
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
4
</td>
<td class="s"> </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 class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="t-PerlySense-Document-api-likely-t--subroutine.html#7-1">
1
</a>
</td>
<td >
</td>
<td >
211
</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" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
107
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="8">8</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="t-PerlySense-Document-api-likely-t--subroutine.html#8-1">
1
</a>
</td>
<td >
</td>
<td >
991
</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" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
7280
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
75
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="9">9</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="10">10</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="t-PerlySense-Document-api-likely-t--subroutine.html#10-1">
1
</a>
</td>
<td >
</td>
<td >
373
</td>
<td class="s"> <span class="k">use</span> <span class="w">lib</span> <span class="q">"../lib"</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
544
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
3
</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 class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="t-PerlySense-Document-api-likely-t--subroutine.html#12-1">
1
</a>
</td>
<td >
</td>
<td >
82093
</td>
<td class="s"> <span class="i">use_ok</span><span class="s">(</span><span class="q">"Devel::PerlySense::Document"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
471
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
3
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
12
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="13">13</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="t-PerlySense-Document-api-likely-t--subroutine.html#13-1">
1
</a>
</td>
<td >
</td>
<td >
1471
</td>
<td class="s"> <span class="i">use_ok</span><span class="s">(</span><span class="q">"Devel::PerlySense::Document::Api"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
110
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
2
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
8
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="14">14</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td class="c3" >
<a href="t-PerlySense-Document-api-likely-t--subroutine.html#14-1">
1
</a>
</td>
<td >
</td>
<td >
629
</td>
<td class="s"> <span class="i">use_ok</span><span class="s">(</span><span class="q">"Devel::PerlySense::Document::Location"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
72
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
2
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
6
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="15">15</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="16">16</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="17">17</a>
</td>
<td class="c3" >
1
</td>
<td class="c0" >
<a href="t-PerlySense-Document-api-likely-t--branch.html#17-1">
50
</a>
</td>
<td >
</td>
<td class="c3" >
<a href="t-PerlySense-Document-api-likely-t--subroutine.html#17-1">
1
</a>
</td>
<td >
</td>
<td >
2024
</td>
<td class="s"> <span class="k">BEGIN</span> <span class="s">{</span> <span class="k">-d</span> <span class="q">"t"</span> <span class="k">and</span> <span class="k">chdir</span><span class="s">(</span><span class="q">"t"</span><span class="s">)</span><span class="sc">;</span> <span class="s">}</span> </td>
</tr>
<tr>
<td class="h" >
<a name="18">18</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="19">19</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="20">20</a>
</td>
<td >
</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="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 class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
396
</td>
<td class="s"> <span class="i">ok</span><span class="s">(</span><span class="k">my</span> <span class="i">$oDocument</span> = <span class="w">Devel::PerlySense::Document</span><span class="w">->new</span><span class="s">(</span><span class="w">oPerlySense</span> <span class="cm">=></span> <span class="w">Devel::PerlySense</span><span class="w">->new</span><span class="s">(</span><span class="s">)</span><span class="s">)</span><span class="cm">,</span> <span class="q">"new ok"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
7
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="23">23</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="24">24</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1779
</td>
<td class="s"> <span class="k">my</span> <span class="i">$dirData</span> = <span class="q">"data/project-lib"</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="25">25</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
3
</td>
<td class="s"> <span class="k">my</span> <span class="i">$fileOrigin</span> = <span class="q">"$dirData/Game/Lawn.pm"</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="26">26</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
3
</td>
<td class="s"> <span class="k">my</span> <span class="i">$nameModule</span> = <span class="q">"Game::Lawn"</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="27">27</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="28">28</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
1
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</span><span class="i">$object</span><span class="cm">,</span> <span class="i">$method</span><span class="cm">,</span> <span class="i">$oNodeSub</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="29">29</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">@aMethod</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="30">30</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">$oApi</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="31">31</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">$oLocation</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="32">32</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
5
</td>
<td class="s"> <span class="k">my</span> <span class="i">$rexFile</span> = <span class="q">qr/.Game.Lawn.pm$/</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="33">33</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="34">34</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="35">35</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="36">36</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
12
</td>
<td class="s"> <span class="k">print</span> <span class="q">"\n* No inheritance\n"</span><span class="sc">;</span> </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 class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
6
</td>
<td class="s"> <span class="i">ok</span><span class="s">(</span><span class="i">$oDocument</span><span class="i">->parse</span><span class="s">(</span><span class="w">file</span> <span class="cm">=></span> <span class="i">$fileOrigin</span><span class="s">)</span><span class="cm">,</span> <span class="q">"Parsed file ok"</span><span class="s">)</span><span class="sc">;</span> </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 class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
339
</td>
<td class="s"> <span class="i">ok</span><span class="s">(</span><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">$nameModule</span><span class="s">)</span><span class="cm">,</span> <span class="q">" determineLikelyApi ok"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="41">41</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
300
</td>
<td class="s"> <span class="i">is</span><span class="s">(</span><span class="k">scalar</span><span class="s">(</span><span class="k">keys</span> <span class="i">%</span>{<span class="i">$oDocument</span><span class="i">->rhPackageApiLikely</span>}<span class="s">)</span><span class="cm">,</span> <span class="n">1</span><span class="cm">,</span> <span class="q">" rhPackageApiLikely key count ok"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
27
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="42">42</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
217
</td>
<td class="s"> <span class="i">ok</span><span class="s">(</span><span class="i">$oApi</span> = <span class="i">$oDocument</span><span class="i">->rhPackageApiLikely</span>->{<span class="q">"Game::Lawn"</span>}<span class="cm">,</span> <span class="q">" Got Game::Lawn API"</span><span class="s">)</span><span class="sc">;</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"> <span class="c">#warn(Dumper($oApi->rhSub));</span> </td>
</tr>
<tr>
<td class="h" >
<a name="44">44</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
190
</td>
<td class="s"> <span class="i">is_deeply</span><span class="s">(</span><span class="s">[</span><span class="k">sort</span> <span class="k">keys</span> <span class="i">%</span>{<span class="i">$oApi</span><span class="i">->rhSub</span>}<span class="s">]</span><span class="cm">,</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
25
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="45">45</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="s">[</span><span class="k">sort</span> <span class="q">qw/</span> </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="q">END</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"> <span class="q">width</span> </td>
</tr>
<tr>
<td class="h" >
<a name="48">48</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">buildBodyRight</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"> <span class="q">color</span> </td>
</tr>
<tr>
<td class="h" >
<a name="50">50</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">oLocation</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="q">oLawn</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"> <span class="q">raBodyLocation</span> </td>
</tr>
<tr>
<td class="h" >
<a name="53">53</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">raBodyChar</span> </td>
</tr>
<tr>
<td class="h" >
<a name="54">54</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">isBlocking</span> </td>
</tr>
<tr>
<td class="h" >
<a name="55">55</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">height</span> </td>
</tr>
<tr>
<td class="h" >
<a name="56">56</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">rhGrid</span> </td>
</tr>
<tr>
<td class="h" >
<a name="57">57</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">oUI</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"> <span class="q">oController</span> </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="q">rhPrize</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"> <span class="q">new</span> </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="q">oPlaceWorm</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"> <span class="q">oPlacePrize</span> </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="q">prizeWasClaimedBy</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="q">placeObjectAt</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"> <span class="q">objectHasMoved</span> </td>
</tr>
<tr>
<td class="h" >
<a name="66">66</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">removeObject</span> </td>
</tr>
<tr>
<td class="h" >
<a name="67">67</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">isObjectAt</span> </td>
</tr>
<tr>
<td class="h" >
<a name="68">68</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">isAnythingAt</span> </td>
</tr>
<tr>
<td class="h" >
<a name="69">69</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">isAnythingBlockingAt</span> </td>
</tr>
<tr>
<td class="h" >
<a name="70">70</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">oLocationRandom</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"> <span class="q">isLocationOnLawn</span> </td>
</tr>
<tr>
<td class="h" >
<a name="72">72</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">isLocationValidForMove</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"> <span class="q">isLocationValidForPlacement</span> </td>
</tr>
<tr>
<td class="h" >
<a name="74">74</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">isObjectLocationValidForPlacement</span> </td>
</tr>
<tr>
<td class="h" >
<a name="75">75</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">oDirectionToPrize</span> </td>
</tr>
<tr>
<td class="h" >
<a name="76">76</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">placeObjectBodyPartAt</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="q">removeObjectBodyPartAt</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">wormHasCrashed</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">/</span><span class="s">]</span><span class="cm">,</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">" API raSub ok"</span><span class="s">)</span><span class="sc">;</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"> </td>
</tr>
<tr>
<td class="h" >
<a name="82">82</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
671
</td>
<td class="s"> <span class="i">ok</span><span class="s">(</span><span class="i">$oLocation</span> = <span class="i">$oApi</span><span class="i">->rhSub</span>->{<span class="w">width</span>}<span class="cm">,</span> <span class="q">" Got location"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="83">83</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
213
</td>
<td class="s"> <span class="i">like</span><span class="s">(</span><span class="i">$oLocation</span><span class="i">->file</span><span class="cm">,</span> <span class="i">$rexFile</span><span class="cm">,</span> <span class="q">" Correct file name"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="84">84</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
430
</td>
<td class="s"> <span class="i">is</span><span class="s">(</span><span class="i">$oLocation</span><span class="i">->row</span><span class="cm">,</span> <span class="n">0</span><span class="cm">,</span> <span class="q">" row"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="85">85</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
217
</td>
<td class="s"> <span class="i">is</span><span class="s">(</span><span class="i">$oLocation</span><span class="i">->col</span><span class="cm">,</span> <span class="n">0</span><span class="cm">,</span> <span class="q">" row"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="86">86</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
215
</td>
<td class="s"> <span class="i">is</span><span class="s">(</span><span class="i">$oLocation</span><span class="i">->rhProperty</span>->{<span class="w">sub</span>}<span class="cm">,</span> <span class="q">"width"</span><span class="cm">,</span> <span class="q">" rhProperty->sub"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="87">87</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="88">88</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
215
</td>
<td class="s"> <span class="i">ok</span><span class="s">(</span><span class="i">$oLocation</span> = <span class="i">$oApi</span><span class="i">->rhSub</span>->{<span class="w">removeObject</span>}<span class="cm">,</span> <span class="q">" Got location"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="89">89</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
216
</td>
<td class="s"> <span class="i">like</span><span class="s">(</span><span class="i">$oLocation</span><span class="i">->file</span><span class="cm">,</span> <span class="i">$rexFile</span><span class="cm">,</span> <span class="q">" Correct file name"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="90">90</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
214
</td>
<td class="s"> <span class="i">is</span><span class="s">(</span><span class="i">$oLocation</span><span class="i">->row</span><span class="cm">,</span> <span class="n">280</span><span class="cm">,</span> <span class="q">" row"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="91">91</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
213
</td>
<td class="s"> <span class="i">is</span><span class="s">(</span><span class="i">$oLocation</span><span class="i">->col</span><span class="cm">,</span> <span class="n">1</span><span class="cm">,</span> <span class="q">" row"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="92">92</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
213
</td>
<td class="s"> <span class="i">is</span><span class="s">(</span><span class="i">$oLocation</span><span class="i">->rhProperty</span>->{<span class="w">sub</span>}<span class="cm">,</span> <span class="q">"removeObject"</span><span class="cm">,</span> <span class="q">" rhProperty->sub"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="93">93</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="94">94</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="95">95</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="c">#print Dumper($oLocation);</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="c">#print Dumper([ sort keys %{$oApi->rhSub} ]);</span> </td>
</tr>
<tr>
<td class="h" >
<a name="97">97</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="98">98</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="s">}</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"> </td>
</tr>
<tr>
<td class="h" >
<a name="100">100</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="101">101</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </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"> <span class="s">{</span> </td>
</tr>
<tr>
<td class="h" >
<a name="105">105</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="106">106</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
18399
</td>
<td class="s"> <span class="i">ok</span><span class="s">(</span><span class="k">my</span> <span class="i">$oDocument</span> = <span class="w">Devel::PerlySense::Document</span><span class="w">->new</span><span class="s">(</span><span class="w">oPerlySense</span> <span class="cm">=></span> <span class="w">Devel::PerlySense</span><span class="w">->new</span><span class="s">(</span><span class="s">)</span><span class="s">)</span><span class="cm">,</span> <span class="q">"new ok"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
17
</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"> </td>
</tr>
<tr>
<td class="h" >
<a name="108">108</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
888
</td>
<td class="s"> <span class="k">my</span> <span class="i">$dirData</span> = <span class="q">"data/project-lib"</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="109">109</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
4
</td>
<td class="s"> <span class="k">my</span> <span class="i">$fileOrigin</span> = <span class="q">"$dirData/Game/Object/Worm.pm"</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="110">110</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
2
</td>
<td class="s"> <span class="k">my</span> <span class="i">$nameModule</span> = <span class="q">"Game::Object::Worm"</span><span class="sc">;</span> </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"> </td>
</tr>
<tr>
<td class="h" >
<a name="112">112</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
2
</td>
<td class="s"> <span class="k">my</span> <span class="s">(</span><span class="i">$object</span><span class="cm">,</span> <span class="i">$method</span><span class="cm">,</span> <span class="i">$oNodeSub</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="113">113</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">@aMethod</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="114">114</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">$oApi</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="115">115</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">$oLocation</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="116">116</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
5
</td>
<td class="s"> <span class="k">my</span> <span class="i">$rexFileWorm</span> = <span class="q">qr/.Game.Object.Worm.pm$/</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="117">117</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
3
</td>
<td class="s"> <span class="k">my</span> <span class="i">$rexFileObject</span> = <span class="q">qr/.Game.Object.pm$/</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="118">118</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="119">119</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </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 class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
281
</td>
<td class="s"> <span class="k">print</span> <span class="q">"\n* Single inheritance, one ancestor\n"</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="122">122</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="123">123</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
7
</td>
<td class="s"> <span class="i">ok</span><span class="s">(</span><span class="i">$oDocument</span><span class="i">->parse</span><span class="s">(</span><span class="w">file</span> <span class="cm">=></span> <span class="i">$fileOrigin</span><span class="s">)</span><span class="cm">,</span> <span class="q">"Parsed file ok"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="124">124</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="125">125</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
337
</td>
<td class="s"> <span class="i">ok</span><span class="s">(</span><span class="i">$oDocument</span><span class="i">->determineLikelyApi</span><span class="s">(</span><span class="q">"nameModule"</span><span class="cm">,</span> <span class="i">$nameModule</span><span class="s">)</span><span class="cm">,</span> <span class="q">" determineLikelyApi ok"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="126">126</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
998
</td>
<td class="s"> <span class="i">is</span><span class="s">(</span><span class="k">scalar</span><span class="s">(</span><span class="k">keys</span> <span class="i">%</span>{<span class="i">$oDocument</span><span class="i">->rhPackageApiLikely</span>}<span class="s">)</span><span class="cm">,</span> <span class="n">1</span><span class="cm">,</span> <span class="q">" rhPackageApiLikely key count ok"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
51
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="127">127</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
464
</td>
<td class="s"> <span class="i">ok</span><span class="s">(</span><span class="i">$oApi</span> = <span class="i">$oDocument</span><span class="i">->rhPackageApiLikely</span>->{<span class="q">"Game::Object::Worm"</span>}<span class="cm">,</span> <span class="q">" Got Game::Object::Worm API"</span><span class="s">)</span><span class="sc">;</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 class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
472
</td>
<td class="s"> <span class="i">is_deeply</span><span class="s">(</span><span class="s">[</span><span class="k">sort</span> <span class="k">keys</span> <span class="i">%</span>{<span class="i">$oApi</span><span class="i">->rhSub</span>}<span class="s">]</span><span class="cm">,</span> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
31
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="130">130</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="s">[</span><span class="k">sort</span> <span class="q">qw/</span> </td>
</tr>
<tr>
<td class="h" >
<a name="131">131</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">isRealPlayer</span> </td>
</tr>
<tr>
<td class="h" >
<a name="132">132</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">oDirection</span> </td>
</tr>
<tr>
<td class="h" >
<a name="133">133</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">oEventMove</span> </td>
</tr>
<tr>
<td class="h" >
<a name="134">134</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">score</span> </td>
</tr>
<tr>
<td class="h" >
<a name="135">135</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">lengthIdeal</span> </td>
</tr>
<tr>
<td class="h" >
<a name="136">136</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">lengthActual</span> </td>
</tr>
<tr>
<td class="h" >
<a name="137">137</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="138">138</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">oLocation</span> </td>
</tr>
<tr>
<td class="h" >
<a name="139">139</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">oLawn</span> </td>
</tr>
<tr>
<td class="h" >
<a name="140">140</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">raBodyLocation</span> </td>
</tr>
<tr>
<td class="h" >
<a name="141">141</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">raBodyChar</span> </td>
</tr>
<tr>
<td class="h" >
<a name="142">142</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">isBlocking</span> </td>
</tr>
<tr>
<td class="h" >
<a name="143">143</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">color</span> </td>
</tr>
<tr>
<td class="h" >
<a name="144">144</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="145">145</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">moveForward</span> </td>
</tr>
<tr>
<td class="h" >
<a name="146">146</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">oValidLocationAfterMove</span> </td>
</tr>
<tr>
<td class="h" >
<a name="147">147</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">turn</span> </td>
</tr>
<tr>
<td class="h" >
<a name="148">148</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">grow</span> </td>
</tr>
<tr>
<td class="h" >
<a name="149">149</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">crash</span> </td>
</tr>
<tr>
<td class="h" >
<a name="150">150</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">checkTick</span> </td>
</tr>
<tr>
<td class="h" >
<a name="151">151</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">awardScorePoints</span> </td>
</tr>
<tr>
<td class="h" >
<a name="152">152</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">loadFile</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 >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">new</span> </td>
</tr>
<tr>
<td class="h" >
<a name="155">155</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">buildBodyRight</span> </td>
</tr>
<tr>
<td class="h" >
<a name="156">156</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="q">/</span><span class="s">]</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="q">" API raSub ok"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="158">158</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="159">159</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
615
</td>
<td class="s"> <span class="i">ok</span><span class="s">(</span><span class="i">$oLocation</span> = <span class="i">$oApi</span><span class="i">->rhSub</span>->{<span class="w">oLocation</span>}<span class="cm">,</span> <span class="q">" Got location"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="160">160</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
381
</td>
<td class="s"> <span class="i">like</span><span class="s">(</span><span class="i">$oLocation</span><span class="i">->file</span><span class="cm">,</span> <span class="i">$rexFileObject</span><span class="cm">,</span> <span class="q">" Correct file name"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="161">161</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
213
</td>
<td class="s"> <span class="i">is</span><span class="s">(</span><span class="i">$oLocation</span><span class="i">->row</span><span class="cm">,</span> <span class="n">0</span><span class="cm">,</span> <span class="q">" row"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="162">162</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
212
</td>
<td class="s"> <span class="i">is</span><span class="s">(</span><span class="i">$oLocation</span><span class="i">->col</span><span class="cm">,</span> <span class="n">0</span><span class="cm">,</span> <span class="q">" row"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="163">163</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
210
</td>
<td class="s"> <span class="i">is</span><span class="s">(</span><span class="i">$oLocation</span><span class="i">->rhProperty</span>->{<span class="w">sub</span>}<span class="cm">,</span> <span class="q">"oLocation"</span><span class="cm">,</span> <span class="q">" rhProperty->sub"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="164">164</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="165">165</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
216
</td>
<td class="s"> <span class="i">ok</span><span class="s">(</span><span class="i">$oLocation</span> = <span class="i">$oApi</span><span class="i">->rhSub</span>->{<span class="w">buildBodyRight</span>}<span class="cm">,</span> <span class="q">" Got location"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="166">166</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
212
</td>
<td class="s"> <span class="i">like</span><span class="s">(</span><span class="i">$oLocation</span><span class="i">->file</span><span class="cm">,</span> <span class="i">$rexFileObject</span><span class="cm">,</span> <span class="q">" Correct file name"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="167">167</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
210
</td>
<td class="s"> <span class="i">is</span><span class="s">(</span><span class="i">$oLocation</span><span class="i">->row</span><span class="cm">,</span> <span class="n">153</span><span class="cm">,</span> <span class="q">" row"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="168">168</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
209
</td>
<td class="s"> <span class="i">is</span><span class="s">(</span><span class="i">$oLocation</span><span class="i">->col</span><span class="cm">,</span> <span class="n">1</span><span class="cm">,</span> <span class="q">" row"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="169">169</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
209
</td>
<td class="s"> <span class="i">is</span><span class="s">(</span><span class="i">$oLocation</span><span class="i">->rhProperty</span>->{<span class="w">sub</span>}<span class="cm">,</span> <span class="q">"buildBodyRight"</span><span class="cm">,</span> <span class="q">" rhProperty->sub"</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 class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
209
</td>
<td class="s"> <span class="i">ok</span><span class="s">(</span><span class="i">$oLocation</span> = <span class="i">$oApi</span><span class="i">->rhSub</span>->{<span class="w">new</span>}<span class="cm">,</span> <span class="q">" Got location"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="172">172</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
215
</td>
<td class="s"> <span class="i">like</span><span class="s">(</span><span class="i">$oLocation</span><span class="i">->file</span><span class="cm">,</span> <span class="i">$rexFileWorm</span><span class="cm">,</span> <span class="q">" Correct file name"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="173">173</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
384
</td>
<td class="s"> <span class="i">is</span><span class="s">(</span><span class="i">$oLocation</span><span class="i">->row</span><span class="cm">,</span> <span class="n">142</span><span class="cm">,</span> <span class="q">" row"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="174">174</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
215
</td>
<td class="s"> <span class="i">is</span><span class="s">(</span><span class="i">$oLocation</span><span class="i">->col</span><span class="cm">,</span> <span class="n">1</span><span class="cm">,</span> <span class="q">" row"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="175">175</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
210
</td>
<td class="s"> <span class="i">is</span><span class="s">(</span><span class="i">$oLocation</span><span class="i">->rhProperty</span>->{<span class="w">sub</span>}<span class="cm">,</span> <span class="q">"new"</span><span class="cm">,</span> <span class="q">" rhProperty->sub"</span><span class="s">)</span><span class="sc">;</span> </td>
</tr>
<tr>
<td class="h" >
<a name="176">176</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </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 >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="c">#print Dumper($oLocation);</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="c">#print Dumper([ sort keys %{$oApi->rhSub} ]);</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"> <span class="s">}</span> </td>
</tr>
<tr>
<td class="h" >
<a name="182">182</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </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"> </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="c">#buildBodyRight</span> </td>
</tr>
<tr>
<td class="h" >
<a name="188">188</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="c">#new</span> </td>
</tr>
<tr>
<td class="h" >
<a name="189">189</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="190">190</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="191">191</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> <span class="k">__END__</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 >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="194">194</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
</table>
</body>
</html>