| 66 | <a·href="all_8pm.html">Go·to·the·documentation·of·this·file.</a><div·class="fragment"><div·class="line"><a·name="l00001"></a><span·class="lineno">····1</span> <span·class="preprocessor">#**·@class·Geo::GDAL</span></div><div·class="line"><a·name="l00002"></a><span·class="lineno">····2</span> <span·class="preprocessor">#·@brief·GDAL·utility·functions·and·a·root·class·for·raster·classes.</span></div><div·class="line"><a·name="l00003"></a><span·class="lineno">····3</span> <span·class="preprocessor">#·@details·Geo::GDAL·wraps·many·GDAL·utility·functions·and·is·as·a·root·class</span></div><div·class="line"><a·name="l00004"></a><span·class="lineno">····4</span> <span·class="preprocessor">#·for·all·GDAL·raster·classes.·A·"raster"·is·an·object,·whose·core·is</span></div><div·class="line"><a·name="l00005"></a><span·class="lineno">····5</span> <span·class="preprocessor">#·a·rectagular·grid·of·cells,·called·a·"band"·in·GDAL.·Each·cell</span></div><div·class="line"><a·name="l00006"></a><span·class="lineno">····6</span> <span·class="preprocessor">#·contains·a·numeric·value·of·a·specific·data·type.</span></div><div·class="line"><a·name="l00007"></a><span·class="lineno">····7</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00008"></a><span·class="lineno">····8</span> <span·class="keyword">package·</span>Geo::GDAL;</div><div·class="line"><a·name="l00009"></a><span·class="lineno">····9</span> </div><div·class="line"><a·name="l00010"></a><span·class="lineno">···10</span> <span·class="preprocessor">#**·@method·ApplyVerticalShiftGrid()</span></div><div·class="line"><a·name="l00011"></a><span·class="lineno">···11</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00012"></a><span·class="lineno">···12</span> sub·ApplyVerticalShiftGrid·{</div><div·class="line"><a·name="l00013"></a><span·class="lineno">···13</span> }</div><div·class="line"><a·name="l00014"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL.html">···14</a></span> </div><div·class="line"><a·name="l00015"></a><span·class="lineno">···15</span> <span·class="preprocessor">#**·@method·BuildVRT()</span></div><div·class="line"><a·name="l00016"></a><span·class="lineno">···16</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00017"></a><span·class="lineno">···17</span> sub·BuildVRT·{</div><div·class="line"><a·name="l00018"></a><span·class="lineno">···18</span> ·····<span·class="keywordflow">for</span>·(keys·%Geo::GDAL::Const::)·{</div><div·class="line"><a·name="l00019"></a><span·class="lineno">···19</span> ·········next·<span·class="keywordflow">if</span>·/TypeCount/;</div><div·class="line"><a·name="l00020"></a><span·class="lineno">···20</span> ·········push(@DATA_TYPES,·$1),·next·<span·class="keywordflow">if</span>·/^GDT_(\w+)/;</div><div·class="line"><a·name="l00021"></a><span·class="lineno">···21</span> ·········push(@OPEN_FLAGS,·$1),·next·<span·class="keywordflow">if</span>·/^OF_(\w+)/;</div><div·class="line"><a·name="l00022"></a><span·class="lineno">···22</span> ·········push(@RESAMPLING_TYPES,·$1),·next·<span·class="keywordflow">if</span>·/^GRA_(\w+)/;</div><div·class="line"><a·name="l00023"></a><span·class="lineno">···23</span> ·········push(@RIO_RESAMPLING_TYPES,·$1),·next·<span·class="keywordflow">if</span>·/^GRIORA_(\w+)/;</div><div·class="line"><a·name="l00024"></a><span·class="lineno">···24</span> ·········push(@NODE_TYPES,·$1),·next·<span·class="keywordflow">if</span>·/^CXT_(\w+)/;</div><div·class="line"><a·name="l00025"></a><span·class="lineno">···25</span> ·····}</div><div·class="line"><a·name="l00026"></a><span·class="lineno">···26</span> ·····<span·class="keywordflow">for</span>·my·$string·(@DATA_TYPES)·{</div><div·class="line"><a·name="l00027"></a><span·class="lineno">···27</span> ·········my·$int·=·eval·<span·class="stringliteral">"\$Geo::GDAL::Const::GDT_$string"</span>;</div><div·class="line"><a·name="l00028"></a><span·class="lineno">···28</span> ·········$S2I{data_type}{$string}·=·$int;</div><div·class="line"><a·name="l00029"></a><span·class="lineno">···29</span> ·········$I2S{data_type}{$int}·=·$string;</div><div·class="line"><a·name="l00030"></a><span·class="lineno">···30</span> ·····}</div><div·class="line"><a·name="l00031"></a><span·class="lineno">···31</span> ·····<span·class="keywordflow">for</span>·my·$string·(@OPEN_FLAGS)·{</div><div·class="line"><a·name="l00032"></a><span·class="lineno">···32</span> ·········my·$int·=·eval·<span·class="stringliteral">"\$Geo::GDAL::Const::OF_$string"</span>;</div><div·class="line"><a·name="l00033"></a><span·class="lineno">···33</span> ·········$S2I{open_flag}{$string}·=·$int;</div><div·class="line"><a·name="l00034"></a><span·class="lineno">···34</span> ·····}</div><div·class="line"><a·name="l00035"></a><span·class="lineno">···35</span> ·····<span·class="keywordflow">for</span>·my·$string·(@RESAMPLING_TYPES)·{</div><div·class="line"><a·name="l00036"></a><span·class="lineno">···36</span> ·········my·$int·=·eval·<span·class="stringliteral">"\$Geo::GDAL::Const::GRA_$string"</span>;</div><div·class="line"><a·name="l00037"></a><span·class="lineno">···37</span> ·········$S2I{resampling}{$string}·=·$int;</div><div·class="line"><a·name="l00038"></a><span·class="lineno">···38</span> ·········$I2S{resampling}{$int}·=·$string;</div><div·class="line"><a·name="l00039"></a><span·class="lineno">···39</span> ·····}</div><div·class="line"><a·name="l00040"></a><span·class="lineno">···40</span> ·····<span·class="keywordflow">for</span>·my·$string·(@RIO_RESAMPLING_TYPES)·{</div><div·class="line"><a·name="l00041"></a><span·class="lineno">···41</span> ·········my·$int·=·eval·<span·class="stringliteral">"\$Geo::GDAL::Const::GRIORA_$string"</span>;</div><div·class="line"><a·name="l00042"></a><span·class="lineno">···42</span> ·········$S2I{rio_resampling}{$string}·=·$int;</div><div·class="line"><a·name="l00043"></a><span·class="lineno">···43</span> ·········$I2S{rio_resampling}{$int}·=·$string;</div><div·class="line"><a·name="l00044"></a><span·class="lineno">···44</span> ·····}</div><div·class="line"><a·name="l00045"></a><span·class="lineno">···45</span> ·····<span·class="keywordflow">for</span>·my·$string·(@NODE_TYPES)·{</div><div·class="line"><a·name="l00046"></a><span·class="lineno">···46</span> ·········my·$int·=·eval·<span·class="stringliteral">"\$Geo::GDAL::Const::CXT_$string"</span>;</div><div·class="line"><a·name="l00047"></a><span·class="lineno">···47</span> ·········$S2I{node_type}{$string}·=·$int;</div><div·class="line"><a·name="l00048"></a><span·class="lineno">···48</span> ·········$I2S{node_type}{$int}·=·$string;</div><div·class="line"><a·name="l00049"></a><span·class="lineno">···49</span> ·····}</div><div·class="line"><a·name="l00050"></a><span·class="lineno">···50</span> ·····our·$HAVE_PDL;</div><div·class="line"><a·name="l00051"></a><span·class="lineno">···51</span> ·····eval·<span·class="stringliteral">'require·PDL'</span>;</div><div·class="line"><a·name="l00052"></a><span·class="lineno">···52</span> ·····$HAVE_PDL·=·1·unless·$@;</div><div·class="line"><a·name="l00053"></a><span·class="lineno">···53</span> }</div><div·class="line"><a·name="l00054"></a><span·class="lineno">···54</span> </div><div·class="line"><a·name="l00055"></a><span·class="lineno">···55</span> <span·class="preprocessor">#**·@method·CPLBinaryToHex()</span></div><div·class="line"><a·name="l00056"></a><span·class="lineno">···56</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00057"></a><span·class="lineno">···57</span> sub·CPLBinaryToHex·{</div><div·class="line"><a·name="l00058"></a><span·class="lineno">···58</span> }</div><div·class="line"><a·name="l00059"></a><span·class="lineno">···59</span> </div><div·class="line"><a·name="l00060"></a><span·class="lineno">···60</span> <span·class="preprocessor">#**·@method·CPLHexToBinary()</span></div><div·class="line"><a·name="l00061"></a><span·class="lineno">···61</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00062"></a><span·class="lineno">···62</span> sub·CPLHexToBinary·{</div><div·class="line"><a·name="l00063"></a><span·class="lineno">···63</span> }</div><div·class="line"><a·name="l00064"></a><span·class="lineno">···64</span> </div><div·class="line"><a·name="l00065"></a><span·class="lineno">···65</span> <span·class="preprocessor">#**·@method·ContourGenerateEx()</span></div><div·class="line"><a·name="l00066"></a><span·class="lineno">···66</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00067"></a><span·class="lineno">···67</span> sub·ContourGenerateEx·{</div><div·class="line"><a·name="l00068"></a><span·class="lineno">···68</span> }</div><div·class="line"><a·name="l00069"></a><span·class="lineno">···69</span> </div><div·class="line"><a·name="l00070"></a><span·class="lineno">···70</span> <span·class="preprocessor">#**·@method·CreatePansharpenedVRT()</span></div><div·class="line"><a·name="l00071"></a><span·class="lineno">···71</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00072"></a><span·class="lineno">···72</span> sub·CreatePansharpenedVRT·{</div><div·class="line"><a·name="l00073"></a><span·class="lineno">···73</span> }</div><div·class="line"><a·name="l00074"></a><span·class="lineno">···74</span> </div><div·class="line"><a·name="l00075"></a><span·class="lineno">···75</span> <span·class="preprocessor">#**·@method·scalar·DataTypeIsComplex($DataType)</span></div><div·class="line"><a·name="l00076"></a><span·class="lineno">···76</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00077"></a><span·class="lineno">···77</span> <span·class="preprocessor">#·@param·DataType·A·GDAL·raster·cell·data·type·(one·of·those·listed·by·Geo::GDAL::DataTypes).</span></div><div·class="line"><a·name="l00078"></a><span·class="lineno">···78</span> <span·class="preprocessor">#·@return·true·if·the·data·type·is·a·complex·number.</span></div><div·class="line"><a·name="l00079"></a><span·class="lineno">···79</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00080"></a><span·class="lineno">···80</span> sub·DataTypeIsComplex·{</div><div·class="line"><a·name="l00081"></a><span·class="lineno">···81</span> ····<span·class="keywordflow">return</span>·_DataTypeIsComplex(s2i(data_type·=>·shift));</div><div·class="line"><a·name="l00082"></a><span·class="lineno">···82</span> }</div><div·class="line"><a·name="l00083"></a><span·class="lineno">···83</span> </div><div·class="line"><a·name="l00084"></a><span·class="lineno">···84</span> <span·class="preprocessor">#**·@method·list·DataTypeValueRange($DataType)</span></div><div·class="line"><a·name="l00085"></a><span·class="lineno">···85</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00086"></a><span·class="lineno">···86</span> <span·class="preprocessor">#·@param·DataType·Data·type·(one·of·those·listed·by·Geo::GDAL::DataTypes).</span></div><div·class="line"><a·name="l00087"></a><span·class="lineno">···87</span> <span·class="preprocessor">#·@note·Some·returned·values·are·inaccurate.</span></div><div·class="line"><a·name="l00088"></a><span·class="lineno">···88</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00089"></a><span·class="lineno">···89</span> <span·class="preprocessor">#·@return·the·minimum,·maximum·range·of·the·data·type.</span></div><div·class="line"><a·name="l00090"></a><span·class="lineno">···90</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00091"></a><span·class="lineno">···91</span> sub·DataTypeValueRange·{</div><div·class="line"><a·name="l00092"></a><span·class="lineno">···92</span> ····my·$t·=·shift;</div><div·class="line"><a·name="l00093"></a><span·class="lineno">···93</span> ····s2i(data_type·=>·$t);</div><div·class="line"><a·name="l00094"></a><span·class="lineno">···94</span> <span·class="preprocessor">····#·these·values·are·from·gdalrasterband.cpp</span></div><div·class="line"><a·name="l00095"></a><span·class="lineno">···95</span> ····<span·class="keywordflow">return</span>·(0,255)·<span·class="keywordflow">if</span>·$t·=~·/Byte/;</div><div·class="line"><a·name="l00096"></a><span·class="lineno">···96</span> ····<span·class="keywordflow">return</span>·(0,65535)·<span·class="keywordflow">if</span>·$t·=~/UInt16/;</div><div·class="line"><a·name="l00097"></a><span·class="lineno">···97</span> ····<span·class="keywordflow">return</span>·(-32768,32767)·<span·class="keywordflow">if</span>·$t·=~/Int16/;</div><div·class="line"><a·name="l00098"></a><span·class="lineno">···98</span> ····<span·class="keywordflow">return</span>·(0,4294967295)·<span·class="keywordflow">if</span>·$t·=~/UInt32/;</div><div·class="line"><a·name="l00099"></a><span·class="lineno">···99</span> ····<span·class="keywordflow">return</span>·(-2147483648,2147483647)·<span·class="keywordflow">if</span>·$t·=~/Int32/;</div><div·class="line"><a·name="l00100"></a><span·class="lineno">··100</span> ····<span·class="keywordflow">return</span>·(-4294967295.0,4294967295.0)·<span·class="keywordflow">if</span>·$t·=~/Float32/;</div><div·class="line"><a·name="l00101"></a><span·class="lineno">··101</span> ····<span·class="keywordflow">return</span>·(-4294967295.0,4294967295.0)·<span·class="keywordflow">if</span>·$t·=~/Float64/;</div><div·class="line"><a·name="l00102"></a><span·class="lineno">··102</span> }</div><div·class="line"><a·name="l00103"></a><span·class="lineno">··103</span> </div><div·class="line"><a·name="l00104"></a><span·class="lineno">··104</span> <span·class="preprocessor">#**·@method·list·DataTypes()</span></div><div·class="line"><a·name="l00105"></a><span·class="lineno">··105</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00106"></a><span·class="lineno">··106</span> <span·class="preprocessor">#·@return·a·list·of·GDAL·raster·cell·data·types.·These·are·currently:</span></div><div·class="line"><a·name="l00107"></a><span·class="lineno">··107</span> <span·class="preprocessor">#·Byte,·CFloat32,·CFloat64,·CInt16,·CInt32,·Float32,·Float64,·Int16,·Int32,·UInt16,·UInt32,·and·Unknown.</span></div><div·class="line"><a·name="l00108"></a><span·class="lineno">··108</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00109"></a><span·class="lineno">··109</span> sub·DataTypes·{</div><div·class="line"><a·name="l00110"></a><span·class="lineno">··110</span> ····<span·class="keywordflow">return</span>·@DATA_TYPES;</div><div·class="line"><a·name="l00111"></a><span·class="lineno">··111</span> }</div><div·class="line"><a·name="l00112"></a><span·class="lineno">··112</span> </div><div·class="line"><a·name="l00113"></a><span·class="lineno">··113</span> <span·class="preprocessor">#**·@method·scalar·DecToDMS($angle,·$axis,·$precision=2)</span></div><div·class="line"><a·name="l00114"></a><span·class="lineno">··114</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00115"></a><span·class="lineno">··115</span> <span·class="preprocessor">#·Convert·decimal·degrees·to·degrees,·minutes,·and·seconds·string</span></div><div·class="line"><a·name="l00116"></a><span·class="lineno">··116</span> <span·class="preprocessor">#·@param·angle·A·number</span></div><div·class="line"><a·name="l00117"></a><span·class="lineno">··117</span> <span·class="preprocessor">#·@param·axis·A·string·specifying·latitude·or·longitude·('Long').</span></div><div·class="line"><a·name="l00118"></a><span·class="lineno">··118</span> <span·class="preprocessor">#·@param·precision</span></div><div·class="line"><a·name="l00119"></a><span·class="lineno">··119</span> <span·class="preprocessor">#·@return·a·string·nndnn'nn.nn'"L·where·n·is·a·number·and·L·is·either</span></div><div·class="line"><a·name="l00120"></a><span·class="lineno">··120</span> <span·class="preprocessor">#·N·or·E</span></div><div·class="line"><a·name="l00121"></a><span·class="lineno">··121</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00122"></a><span·class="lineno">··122</span> sub·DecToDMS·{</div><div·class="line"><a·name="l00123"></a><span·class="lineno">··123</span> }</div><div·class="line"><a·name="l00124"></a><span·class="lineno">··124</span> </div><div·class="line"><a·name="l00125"></a><span·class="lineno">··125</span> <span·class="preprocessor">#**·@method·scalar·DecToPackedDMS($dec)</span></div><div·class="line"><a·name="l00126"></a><span·class="lineno">··126</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00127"></a><span·class="lineno">··127</span> <span·class="preprocessor">#·@param·dec·Decimal·degrees</span></div><div·class="line"><a·name="l00128"></a><span·class="lineno">··128</span> <span·class="preprocessor">#·@return·packed·DMS,·i.e.,·a·number·DDDMMMSSS.SS</span></div><div·class="line"><a·name="l00129"></a><span·class="lineno">··129</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00130"></a><span·class="lineno">··130</span> sub·DecToPackedDMS·{</div><div·class="line"><a·name="l00131"></a><span·class="lineno">··131</span> }</div><div·class="line"><a·name="l00132"></a><span·class="lineno">··132</span> </div><div·class="line"><a·name="l00133"></a><span·class="lineno">··133</span> <span·class="preprocessor">#**·@method·DontUseExceptions()</span></div><div·class="line"><a·name="l00134"></a><span·class="lineno">··134</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00135"></a><span·class="lineno">··135</span> <span·class="preprocessor">#·Do·not·use·the·Perl·exception·mechanism·for·GDAL·messages.·Instead</span></div><div·class="line"><a·name="l00136"></a><span·class="lineno">··136</span> <span·class="preprocessor">#·the·messages·are·printed·to·standard·error.</span></div><div·class="line"><a·name="l00137"></a><span·class="lineno">··137</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00138"></a><span·class="lineno">··138</span> sub·DontUseExceptions·{</div><div·class="line"><a·name="l00139"></a><span·class="lineno">··139</span> }</div><div·class="line"><a·name="l00140"></a><span·class="lineno">··140</span> </div><div·class="line"><a·name="l00141"></a><span·class="lineno">··141</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Driver·Driver($Name)</span></div><div·class="line"><a·name="l00142"></a><span·class="lineno">··142</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00143"></a><span·class="lineno">··143</span> <span·class="preprocessor">#·Access·a·format·driver.</span></div><div·class="line"><a·name="l00144"></a><span·class="lineno">··144</span> <span·class="preprocessor">#·@param·Name·The·short·name·of·the·driver.·One·of</span></div><div·class="line"><a·name="l00145"></a><span·class="lineno">··145</span> <span·class="preprocessor">#·Geo::GDAL::DriverNames·or·Geo::OGR::DriverNames.</span></div><div·class="line"><a·name="l00146"></a><span·class="lineno">··146</span> <span·class="preprocessor">#·@note·This·subroutine·is·imported·into·the·main·namespace·if·Geo::GDAL</span></div><div·class="line"><a·name="l00147"></a><span·class="lineno">··147</span> <span·class="preprocessor">#·is·used·with·qw/:all/.</span></div><div·class="line"><a·name="l00148"></a><span·class="lineno">··148</span> <span·class="preprocessor">#·@return·a·Geo::GDAL::Driver·object.</span></div><div·class="line"><a·name="l00149"></a><span·class="lineno">··149</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00150"></a><span·class="lineno">··150</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1Driver.html">Driver</a>·{</div><div·class="line"><a·name="l00151"></a><span·class="lineno">··151</span> ····<span·class="keywordflow">return</span>·<span·class="stringliteral">'Geo::GDAL::Driver'</span>·unless·@_;</div><div·class="line"><a·name="l00152"></a><span·class="lineno">··152</span> ····my·$name·=·shift;</div><div·class="line"><a·name="l00153"></a><span·class="lineno">··153</span> ····my·$driver·=·GetDriver($name);</div><div·class="line"><a·name="l00154"></a><span·class="lineno">··154</span> ····error(<span·class="stringliteral">"Driver·\"$name\"·not·found.·Is·it·built·in?·Check·with·Geo::GDAL::Drivers·or·Geo::OGR::Drivers."</span>)</div><div·class="line"><a·name="l00155"></a><span·class="lineno">··155</span> ········unless·$driver;</div><div·class="line"><a·name="l00156"></a><span·class="lineno">··156</span> ····<span·class="keywordflow">return</span>·$driver;</div><div·class="line"><a·name="l00157"></a><span·class="lineno">··157</span> }</div><div·class="line"><a·name="l00158"></a><span·class="lineno">··158</span> </div><div·class="line"><a·name="l00159"></a><span·class="lineno">··159</span> <span·class="preprocessor">#**·@method·list·DriverNames()</span></div><div·class="line"><a·name="l00160"></a><span·class="lineno">··160</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00161"></a><span·class="lineno">··161</span> <span·class="preprocessor">#·Available·raster·format·drivers.</span></div><div·class="line"><a·name="l00162"></a><span·class="lineno">··162</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l00163"></a><span·class="lineno">··163</span> <span·class="preprocessor">#·perl·-MGeo::GDAL·-e·'@d=Geo::GDAL::DriverNames;print·"@d\n"'</span></div><div·class="line"><a·name="l00164"></a><span·class="lineno">··164</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l00165"></a><span·class="lineno">··165</span> <span·class="preprocessor">#·@note·Use·Geo::OGR::DriverNames·for·vector·drivers.</span></div><div·class="line"><a·name="l00166"></a><span·class="lineno">··166</span> <span·class="preprocessor">#·@return·a·list·of·the·short·names·of·all·available·GDAL·raster·drivers.</span></div><div·class="line"><a·name="l00167"></a><span·class="lineno">··167</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00168"></a><span·class="lineno">··168</span> sub·DriverNames·{</div><div·class="line"><a·name="l00169"></a><span·class="lineno">··169</span> }</div><div·class="line"><a·name="l00170"></a><span·class="lineno">··170</span> </div><div·class="line"><a·name="l00171"></a><span·class="lineno">··171</span> <span·class="preprocessor">#**·@method·list·Drivers()</span></div><div·class="line"><a·name="l00172"></a><span·class="lineno">··172</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00173"></a><span·class="lineno">··173</span> <span·class="preprocessor">#·@note·Use·Geo::OGR::Drivers·for·vector·drivers.</span></div><div·class="line"><a·name="l00174"></a><span·class="lineno">··174</span> <span·class="preprocessor">#·@return·a·list·of·all·available·GDAL·raster·drivers.</span></div><div·class="line"><a·name="l00175"></a><span·class="lineno">··175</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00176"></a><span·class="lineno">··176</span> sub·Drivers·{</div><div·class="line"><a·name="l00177"></a><span·class="lineno">··177</span> ····my·@drivers;</div><div·class="line"><a·name="l00178"></a><span·class="lineno">··178</span> ····<span·class="keywordflow">for</span>·my·$i·(0..GetDriverCount()-1)·{</div><div·class="line"><a·name="l00179"></a><span·class="lineno">··179</span> ········my·$driver·=·GetDriver($i);</div><div·class="line"><a·name="l00180"></a><span·class="lineno">··180</span> ········push·@drivers,·$driver·<span·class="keywordflow">if</span>·$driver->TestCapability(<span·class="stringliteral">'RASTER'</span>);</div><div·class="line"><a·name="l00181"></a><span·class="lineno">··181</span> ····}</div><div·class="line"><a·name="l00182"></a><span·class="lineno">··182</span> ····<span·class="keywordflow">return</span>·@drivers;</div><div·class="line"><a·name="l00183"></a><span·class="lineno">··183</span> }</div><div·class="line"><a·name="l00184"></a><span·class="lineno">··184</span> </div><div·class="line"><a·name="l00185"></a><span·class="lineno">··185</span> <span·class="preprocessor">#**·@method·EscapeString()</span></div><div·class="line"><a·name="l00186"></a><span·class="lineno">··186</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00187"></a><span·class="lineno">··187</span> sub·EscapeString·{</div><div·class="line"><a·name="l00188"></a><span·class="lineno">··188</span> }</div><div·class="line"><a·name="l00189"></a><span·class="lineno">··189</span> </div><div·class="line"><a·name="l00190"></a><span·class="lineno">··190</span> <span·class="preprocessor">#**·@method·scalar·FindFile($basename)</span></div><div·class="line"><a·name="l00191"></a><span·class="lineno">··191</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00192"></a><span·class="lineno">··192</span> <span·class="preprocessor">#·Search·for·GDAL·support·files.</span></div><div·class="line"><a·name="l00193"></a><span·class="lineno">··193</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00194"></a><span·class="lineno">··194</span> <span·class="preprocessor">#·An·example:</span></div><div·class="line"><a·name="l00195"></a><span·class="lineno">··195</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l00196"></a><span·class="lineno">··196</span> <span·class="preprocessor">#·use·Geo::GDAL;</span></div><div·class="line"><a·name="l00197"></a><span·class="lineno">··197</span> <span·class="preprocessor">#·$a·=·Geo::GDAL::FindFile('pcs.csv');</span></div><div·class="line"><a·name="l00198"></a><span·class="lineno">··198</span> <span·class="preprocessor">#·print·STDERR·"$a\n";</span></div><div·class="line"><a·name="l00199"></a><span·class="lineno">··199</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l00200"></a><span·class="lineno">··200</span> <span·class="preprocessor">#·Prints·(for·example):</span></div><div·class="line"><a·name="l00201"></a><span·class="lineno">··201</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l00202"></a><span·class="lineno">··202</span> <span·class="preprocessor">#·c:\msys\1.0\local\share\gdal\pcs.csv</span></div><div·class="line"><a·name="l00203"></a><span·class="lineno">··203</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l00204"></a><span·class="lineno">··204</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00205"></a><span·class="lineno">··205</span> <span·class="preprocessor">#·@param·basename·The·name·of·the·file·to·search·for.·For·example</span></div><div·class="line"><a·name="l00206"></a><span·class="lineno">··206</span> <span·class="preprocessor">#·'pcs.csv'.</span></div><div·class="line"><a·name="l00207"></a><span·class="lineno">··207</span> <span·class="preprocessor">#·@return·the·path·to·the·searched·file·or·undef.</span></div><div·class="line"><a·name="l00208"></a><span·class="lineno">··208</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00209"></a><span·class="lineno">··209</span> sub·FindFile·{</div><div·class="line"><a·name="l00210"></a><span·class="lineno">··210</span> ····<span·class="keywordflow">if</span>·(@_·==·1)·{</div><div·class="line"><a·name="l00211"></a><span·class="lineno">··211</span> ········_FindFile(<span·class="stringliteral">''</span>,·@_);</div><div·class="line"><a·name="l00212"></a><span·class="lineno">··212</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l00213"></a><span·class="lineno">··213</span> ········_FindFile(@_);</div><div·class="line"><a·name="l00214"></a><span·class="lineno">··214</span> ····}</div><div·class="line"><a·name="l00215"></a><span·class="lineno">··215</span> }</div><div·class="line"><a·name="l00216"></a><span·class="lineno">··216</span> </div><div·class="line"><a·name="l00217"></a><span·class="lineno">··217</span> <span·class="preprocessor">#**·@method·FinderClean()</span></div><div·class="line"><a·name="l00218"></a><span·class="lineno">··218</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00219"></a><span·class="lineno">··219</span> <span·class="preprocessor">#·Clear·the·set·of·support·file·search·paths.</span></div><div·class="line"><a·name="l00220"></a><span·class="lineno">··220</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00221"></a><span·class="lineno">··221</span> sub·FinderClean·{</div><div·class="line"><a·name="l00222"></a><span·class="lineno">··222</span> }</div><div·class="line"><a·name="l00223"></a><span·class="lineno">··223</span> </div><div·class="line"><a·name="l00224"></a><span·class="lineno">··224</span> <span·class="preprocessor">#**·@method·GOA2GetAccessToken()</span></div><div·class="line"><a·name="l00225"></a><span·class="lineno">··225</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00226"></a><span·class="lineno">··226</span> sub·GOA2GetAccessToken·{</div><div·class="line"><a·name="l00227"></a><span·class="lineno">··227</span> }</div><div·class="line"><a·name="l00228"></a><span·class="lineno">··228</span> </div><div·class="line"><a·name="l00229"></a><span·class="lineno">··229</span> <span·class="preprocessor">#**·@method·GOA2GetAuthorizationURL()</span></div><div·class="line"><a·name="l00230"></a><span·class="lineno">··230</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00231"></a><span·class="lineno">··231</span> sub·GOA2GetAuthorizationURL·{</div><div·class="line"><a·name="l00232"></a><span·class="lineno">··232</span> }</div><div·class="line"><a·name="l00233"></a><span·class="lineno">··233</span> </div><div·class="line"><a·name="l00234"></a><span·class="lineno">··234</span> <span·class="preprocessor">#**·@method·GOA2GetRefreshToken()</span></div><div·class="line"><a·name="l00235"></a><span·class="lineno">··235</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00236"></a><span·class="lineno">··236</span> sub·GOA2GetRefreshToken·{</div><div·class="line"><a·name="l00237"></a><span·class="lineno">··237</span> }</div><div·class="line"><a·name="l00238"></a><span·class="lineno">··238</span> </div><div·class="line"><a·name="l00239"></a><span·class="lineno">··239</span> <span·class="preprocessor">#**·@method·GetActualURL()</span></div><div·class="line"><a·name="l00240"></a><span·class="lineno">··240</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00241"></a><span·class="lineno">··241</span> sub·GetActualURL·{</div><div·class="line"><a·name="l00242"></a><span·class="lineno">··242</span> }</div><div·class="line"><a·name="l00243"></a><span·class="lineno">··243</span> </div><div·class="line"><a·name="l00244"></a><span·class="lineno">··244</span> <span·class="preprocessor">#**·@method·scalar·GetCacheMax()</span></div><div·class="line"><a·name="l00245"></a><span·class="lineno">··245</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00246"></a><span·class="lineno">··246</span> <span·class="preprocessor">#·@return·maximum·amount·of·memory·(as·bytes)·for·caching·within·GDAL.</span></div><div·class="line"><a·name="l00247"></a><span·class="lineno">··247</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00248"></a><span·class="lineno">··248</span> sub·GetCacheMax·{</div><div·class="line"><a·name="l00249"></a><span·class="lineno">··249</span> }</div><div·class="line"><a·name="l00250"></a><span·class="lineno">··250</span> </div><div·class="line"><a·name="l00251"></a><span·class="lineno">··251</span> <span·class="preprocessor">#**·@method·scalar·GetCacheUsed()</span></div><div·class="line"><a·name="l00252"></a><span·class="lineno">··252</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00253"></a><span·class="lineno">··253</span> <span·class="preprocessor">#·@return·the·amount·of·memory·currently·used·for·caching·within·GDAL.</span></div><div·class="line"><a·name="l00254"></a><span·class="lineno">··254</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00255"></a><span·class="lineno">··255</span> sub·GetCacheUsed·{</div><div·class="line"><a·name="l00256"></a><span·class="lineno">··256</span> }</div><div·class="line"><a·name="l00257"></a><span·class="lineno">··257</span> </div><div·class="line"><a·name="l00258"></a><span·class="lineno">··258</span> <span·class="preprocessor">#**·@method·scalar·GetConfigOption($key)</span></div><div·class="line"><a·name="l00259"></a><span·class="lineno">··259</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00260"></a><span·class="lineno">··260</span> <span·class="preprocessor">#·@param·key·A·GDAL·config·option.··Consult·<a</span></div><div·class="line"><a·name="l00261"></a><span·class="lineno">··261</span> <span·class="preprocessor">#·href="https://trac.osgeo.org/gdal/wiki/ConfigOptions">the·GDAL</span></div><div·class="line"><a·name="l00262"></a><span·class="lineno">··262</span> <span·class="preprocessor">#·documentation</a>·for·available·options·and·their·use.</span></div><div·class="line"><a·name="l00263"></a><span·class="lineno">··263</span> <span·class="preprocessor">#·@return·the·value·of·the·GDAL·config·option.</span></div><div·class="line"><a·name="l00264"></a><span·class="lineno">··264</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00265"></a><span·class="lineno">··265</span> sub·GetConfigOption·{</div><div·class="line"><a·name="l00266"></a><span·class="lineno">··266</span> }</div><div·class="line"><a·name="l00267"></a><span·class="lineno">··267</span> </div><div·class="line"><a·name="l00268"></a><span·class="lineno">··268</span> <span·class="preprocessor">#**·@method·scalar·GetDataTypeSize($DataType)</span></div><div·class="line"><a·name="l00269"></a><span·class="lineno">··269</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00270"></a><span·class="lineno">··270</span> <span·class="preprocessor">#·@param·DataType·A·GDAL·raster·cell·data·type·(one·of·those·listed·by·Geo::GDAL::DataTypes).</span></div><div·class="line"><a·name="l00271"></a><span·class="lineno">··271</span> <span·class="preprocessor">#·@return·the·size·as·the·number·of·bits.</span></div><div·class="line"><a·name="l00272"></a><span·class="lineno">··272</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00273"></a><span·class="lineno">··273</span> sub·GetDataTypeSize·{</div><div·class="line"><a·name="l00274"></a><span·class="lineno">··274</span> ····<span·class="keywordflow">return</span>·_GetDataTypeSize(s2i(data_type·=>·shift,·1));</div><div·class="line"><a·name="l00275"></a><span·class="lineno">··275</span> }</div><div·class="line"><a·name="l00276"></a><span·class="lineno">··276</span> </div><div·class="line"><a·name="l00277"></a><span·class="lineno">··277</span> <span·class="preprocessor">#**·@method·GetErrorCounter()</span></div><div·class="line"><a·name="l00278"></a><span·class="lineno">··278</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00279"></a><span·class="lineno">··279</span> sub·GetErrorCounter·{</div><div·class="line"><a·name="l00280"></a><span·class="lineno">··280</span> }</div><div·class="line"><a·name="l00281"></a><span·class="lineno">··281</span> </div><div·class="line"><a·name="l00282"></a><span·class="lineno">··282</span> <span·class="preprocessor">#**·@method·GetFileSystemOptions()</span></div><div·class="line"><a·name="l00283"></a><span·class="lineno">··283</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00284"></a><span·class="lineno">··284</span> sub·GetFileSystemOptions·{</div><div·class="line"><a·name="l00285"></a><span·class="lineno">··285</span> }</div><div·class="line"><a·name="l00286"></a><span·class="lineno">··286</span> </div><div·class="line"><a·name="l00287"></a><span·class="lineno">··287</span> <span·class="preprocessor">#**·@method·GetFileSystemsPrefixes()</span></div><div·class="line"><a·name="l00288"></a><span·class="lineno">··288</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00289"></a><span·class="lineno">··289</span> sub·GetFileSystemsPrefixes·{</div><div·class="line"><a·name="l00290"></a><span·class="lineno">··290</span> }</div><div·class="line"><a·name="l00291"></a><span·class="lineno">··291</span> </div><div·class="line"><a·name="l00292"></a><span·class="lineno">··292</span> <span·class="preprocessor">#**·@method·GetJPEG2000StructureAsString()</span></div><div·class="line"><a·name="l00293"></a><span·class="lineno">··293</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00294"></a><span·class="lineno">··294</span> sub·GetJPEG2000StructureAsString·{</div><div·class="line"><a·name="l00295"></a><span·class="lineno">··295</span> }</div><div·class="line"><a·name="l00296"></a><span·class="lineno">··296</span> </div><div·class="line"><a·name="l00297"></a><span·class="lineno">··297</span> <span·class="preprocessor">#**·@method·GetSignedURL()</span></div><div·class="line"><a·name="l00298"></a><span·class="lineno">··298</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00299"></a><span·class="lineno">··299</span> sub·GetSignedURL·{</div><div·class="line"><a·name="l00300"></a><span·class="lineno">··300</span> }</div><div·class="line"><a·name="l00301"></a><span·class="lineno">··301</span> </div><div·class="line"><a·name="l00302"></a><span·class="lineno">··302</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Driver·IdentifyDriver($path,·$siblings)</span></div><div·class="line"><a·name="l00303"></a><span·class="lineno">··303</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00304"></a><span·class="lineno">··304</span> <span·class="preprocessor">#·@param·path·a·dataset·path.</span></div><div·class="line"><a·name="l00305"></a><span·class="lineno">··305</span> <span·class="preprocessor">#·@param·siblings·[optional]·A·list·of·names·of·files·that·belong·to·the·data·format.</span></div><div·class="line"><a·name="l00306"></a><span·class="lineno">··306</span> <span·class="preprocessor">#·@return·a·Geo::GDAL::Driver.</span></div><div·class="line"><a·name="l00307"></a><span·class="lineno">··307</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00308"></a><span·class="lineno">··308</span> sub·IdentifyDriver·{</div><div·class="line"><a·name="l00309"></a><span·class="lineno">··309</span> }</div><div·class="line"><a·name="l00310"></a><span·class="lineno">··310</span> </div><div·class="line"><a·name="l00311"></a><span·class="lineno">··311</span> <span·class="preprocessor">#**·@method·IdentifyDriverEx()</span></div><div·class="line"><a·name="l00312"></a><span·class="lineno">··312</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00313"></a><span·class="lineno">··313</span> sub·IdentifyDriverEx·{</div><div·class="line"><a·name="l00314"></a><span·class="lineno">··314</span> }</div><div·class="line"><a·name="l00315"></a><span·class="lineno">··315</span> </div><div·class="line"><a·name="l00316"></a><span·class="lineno">··316</span> <span·class="preprocessor">#**·@method·MkdirRecursive()</span></div><div·class="line"><a·name="l00317"></a><span·class="lineno">··317</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00318"></a><span·class="lineno">··318</span> sub·MkdirRecursive·{</div><div·class="line"><a·name="l00319"></a><span·class="lineno">··319</span> }</div><div·class="line"><a·name="l00320"></a><span·class="lineno">··320</span> </div><div·class="line"><a·name="l00321"></a><span·class="lineno">··321</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Open(%params)</span></div><div·class="line"><a·name="l00322"></a><span·class="lineno">··322</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00323"></a><span·class="lineno">··323</span> <span·class="preprocessor">#·Open·a·dataset.</span></div><div·class="line"><a·name="l00324"></a><span·class="lineno">··324</span> <span·class="preprocessor">#·An·example,·which·opens·an·existing·raster·dataset·for·editing:</span></div><div·class="line"><a·name="l00325"></a><span·class="lineno">··325</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l00326"></a><span·class="lineno">··326</span> <span·class="preprocessor">#·use·Geo::GDAL·qw/:all/;</span></div><div·class="line"><a·name="l00327"></a><span·class="lineno">··327</span> <span·class="preprocessor">#·$ds·=·Open(Name·=>·'existing.tiff',·Access·=>·'Update');</span></div><div·class="line"><a·name="l00328"></a><span·class="lineno">··328</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l00329"></a><span·class="lineno">··329</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l00330"></a><span·class="lineno">··330</span> <span·class="preprocessor">#·-·\a·Name·Dataset·string·(typically·a·filename).·Default·is·'.'.</span></div><div·class="line"><a·name="l00331"></a><span·class="lineno">··331</span> <span·class="preprocessor">#·-·\a·Access·Access·type,·either·'ReadOnly'·or·'Update'.·Default·is·'ReadOnly'.</span></div><div·class="line"><a·name="l00332"></a><span·class="lineno">··332</span> <span·class="preprocessor">#·-·\a·Type·Dataset·type,·either·'Raster',·'Vector',·or·'Any'.·Default·is·'Any'.</span></div><div·class="line"><a·name="l00333"></a><span·class="lineno">··333</span> <span·class="preprocessor">#·-·\a·Options·A·hash·of·GDAL·open·options·passed·to·candidate·drivers.·Default·is·{}.</span></div><div·class="line"><a·name="l00334"></a><span·class="lineno">··334</span> <span·class="preprocessor">#·-·\a·Files·A·list·of·names·of·files·that·are·auxiliary·to·the·main·file.·Default·is·[].</span></div><div·class="line"><a·name="l00335"></a><span·class="lineno">··335</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00336"></a><span·class="lineno">··336</span> <span·class="preprocessor">#·@note·This·subroutine·is·imported·into·the·main·namespace·if·Geo::GDAL</span></div><div·class="line"><a·name="l00337"></a><span·class="lineno">··337</span> <span·class="preprocessor">#·is·use'd·with·qw/:all/.</span></div><div·class="line"><a·name="l00338"></a><span·class="lineno">··338</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00339"></a><span·class="lineno">··339</span> <span·class="preprocessor">#·@note·Some·datasets·/·dataset·strings·do·not·explicitly·imply·the</span></div><div·class="line"><a·name="l00340"></a><span·class="lineno">··340</span> <span·class="preprocessor">#·dataset·type·(for·example·a·PostGIS·database).·If·the·type·is·not</span></div><div·class="line"><a·name="l00341"></a><span·class="lineno">··341</span> <span·class="preprocessor">#·specified·in·such·a·case·the·returned·dataset·may·be·of·either·type.</span></div><div·class="line"><a·name="l00342"></a><span·class="lineno">··342</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00343"></a><span·class="lineno">··343</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::Dataset·object·if·success.</span></div><div·class="line"><a·name="l00344"></a><span·class="lineno">··344</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00345"></a><span·class="lineno">··345</span> sub·Open·{</div><div·class="line"><a·name="l00346"></a><span·class="lineno">··346</span> ····my·$p·=·named_parameters(\@_,·Name·=>·<span·class="charliteral">'.'</span>,·Access·=>·<span·class="stringliteral">'ReadOnly'</span>,·Type·=>·<span·class="stringliteral">'Any'</span>,·Options·=>·{},·Files·=>·[]);</div><div·class="line"><a·name="l00347"></a><span·class="lineno">··347</span> ····my·@flags;</div><div·class="line"><a·name="l00348"></a><span·class="lineno">··348</span> ····my·%o·=·(READONLY·=>·1,·UPDATE·=>·1);</div><div·class="line"><a·name="l00349"></a><span·class="lineno">··349</span> ····error(1,·$p->{access},·\%o)·unless·$o{uc($p->{access})};</div><div·class="line"><a·name="l00350"></a><span·class="lineno">··350</span> ····push·@flags,·uc($p->{access});</div><div·class="line"><a·name="l00351"></a><span·class="lineno">··351</span> ····%o·=·(RASTER·=>·1,·VECTOR·=>·1,·ANY·=>·1);</div><div·class="line"><a·name="l00352"></a><span·class="lineno">··352</span> ····error(1,·$p->{type},·\%o)·unless·$o{uc($p->{type})};</div><div·class="line"><a·name="l00353"></a><span·class="lineno">··353</span> ····push·@flags,·uc($p->{type})·unless·uc($p->{type})·eq·<span·class="stringliteral">'ANY'</span>;</div><div·class="line"><a·name="l00354"></a><span·class="lineno">··354</span> ····my·$dataset·=·OpenEx(Name·=>·$p->{name},·Flags·=>·\@flags,·Options·=>·$p->{options},·Files·=>·$p->{files});</div><div·class="line"><a·name="l00355"></a><span·class="lineno">··355</span> ····unless·($dataset)·{</div><div·class="line"><a·name="l00356"></a><span·class="lineno">··356</span> ········my·$t·=·<span·class="stringliteral">"Failed·to·open·$p->{name}."</span>;</div><div·class="line"><a·name="l00357"></a><span·class="lineno">··357</span> ········$t·.=·<span·class="stringliteral">"·Is·it·a·"</span>.lc($p->{type}).<span·class="stringliteral">"·dataset?"</span>·unless·uc($p->{type})·eq·<span·class="stringliteral">'ANY'</span>;</div><div·class="line"><a·name="l00358"></a><span·class="lineno">··358</span> ········error($t);</div><div·class="line"><a·name="l00359"></a><span·class="lineno">··359</span> ····}</div><div·class="line"><a·name="l00360"></a><span·class="lineno">··360</span> ····<span·class="keywordflow">return</span>·$dataset;</div><div·class="line"><a·name="l00361"></a><span·class="lineno">··361</span> }</div><div·class="line"><a·name="l00362"></a><span·class="lineno">··362</span> </div><div·class="line"><a·name="l00363"></a><span·class="lineno">··363</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·OpenEx(%params)</span></div><div·class="line"><a·name="l00364"></a><span·class="lineno">··364</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00365"></a><span·class="lineno">··365</span> <span·class="preprocessor">#·The·generic·dataset·open·method,·used·internally·by·all·Open·and·OpenShared·methods.</span></div><div·class="line"><a·name="l00366"></a><span·class="lineno">··366</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l00367"></a><span·class="lineno">··367</span> <span·class="preprocessor">#·-·\a·Name·The·name·of·the·data·set·or·source·to·open.·(Default·is·'.')</span></div><div·class="line"><a·name="l00368"></a><span·class="lineno">··368</span> <span·class="preprocessor">#·-·\a·Flags·A·list·of·access·mode·flags.·Available·flags·are·listed·by·Geo::GDAL::OpenFlags().·(Default·is·[])</span></div><div·class="line"><a·name="l00369"></a><span·class="lineno">··369</span> <span·class="preprocessor">#·-·\a·Drivers·A·list·of·short·names·of·drivers·that·may·be·used.·Empty·list·means·all.·(Default·is·[])</span></div><div·class="line"><a·name="l00370"></a><span·class="lineno">··370</span> <span·class="preprocessor">#·-·\a·Options·A·hash·of·GDAL·open·options·passed·to·candidate·drivers.·(Default·is·{})</span></div><div·class="line"><a·name="l00371"></a><span·class="lineno">··371</span> <span·class="preprocessor">#·-·\a·Files·A·list·of·names·of·files·that·are·auxiliary·to·the·main·file.·(Default·is·[])</span></div><div·class="line"><a·name="l00372"></a><span·class="lineno">··372</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00373"></a><span·class="lineno">··373</span> <span·class="preprocessor">#·An·example</span></div><div·class="line"><a·name="l00374"></a><span·class="lineno">··374</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l00375"></a><span·class="lineno">··375</span> <span·class="preprocessor">#·$ds·=·Geo::GDAL::OpenEx(Name·=>·'existing.tiff',·Flags·=>·[qw/RASTER·UPDATE/]);</span></div><div·class="line"><a·name="l00376"></a><span·class="lineno">··376</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l00377"></a><span·class="lineno">··377</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::Dataset·object.</span></div><div·class="line"><a·name="l00378"></a><span·class="lineno">··378</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00379"></a><span·class="lineno">··379</span> sub·OpenEx·{</div><div·class="line"><a·name="l00380"></a><span·class="lineno">··380</span> ····my·$p·=·named_parameters(\@_,·Name·=>·<span·class="charliteral">'.'</span>,·Flags·=>·[],·Drivers·=>·[],·Options·=>·{},·Files·=>·[]);</div><div·class="line"><a·name="l00381"></a><span·class="lineno">··381</span> ····unless·($p)·{</div><div·class="line"><a·name="l00382"></a><span·class="lineno">··382</span> ········my·$name·=·shift·<span·class="comment">//·'';</span></div><div·class="line"><a·name="l00383"></a><span·class="lineno">··383</span> ········my·@flags·=·@_;</div><div·class="line"><a·name="l00384"></a><span·class="lineno">··384</span> ········$p·=·{name·=>·$name,·flags·=>·\@flags,·drivers·=>·[],·options·=>·{},·files·=>·[]};</div><div·class="line"><a·name="l00385"></a><span·class="lineno">··385</span> ····}</div><div·class="line"><a·name="l00386"></a><span·class="lineno">··386</span> ····<span·class="keywordflow">if</span>·($p->{flags})·{</div><div·class="line"><a·name="l00387"></a><span·class="lineno">··387</span> ········my·$f·=·0;</div><div·class="line"><a·name="l00388"></a><span·class="lineno">··388</span> ········<span·class="keywordflow">for</span>·my·$flag·(@{$p->{flags}})·{</div><div·class="line"><a·name="l00389"></a><span·class="lineno">··389</span> ············$f·|=·s2i(open_flag·=>·$flag);</div><div·class="line"><a·name="l00390"></a><span·class="lineno">··390</span> ········}</div><div·class="line"><a·name="l00391"></a><span·class="lineno">··391</span> ········$p->{flags}·=·$f;</div><div·class="line"><a·name="l00392"></a><span·class="lineno">··392</span> ····}</div><div·class="line"><a·name="l00393"></a><span·class="lineno">··393</span> ····<span·class="keywordflow">return</span>·_OpenEx($p->{name},·$p->{flags},·$p->{drivers},·$p->{options},·$p->{files});</div><div·class="line"><a·name="l00394"></a><span·class="lineno">··394</span> }</div><div·class="line"><a·name="l00395"></a><span·class="lineno">··395</span> </div><div·class="line"><a·name="l00396"></a><span·class="lineno">··396</span> <span·class="preprocessor">#**·@method·list·OpenFlags()</span></div><div·class="line"><a·name="l00397"></a><span·class="lineno">··397</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00398"></a><span·class="lineno">··398</span> <span·class="preprocessor">#·@return·a·list·of·GDAL·data·set·open·modes.·These·are·currently:</span></div><div·class="line"><a·name="l00399"></a><span·class="lineno">··399</span> <span·class="preprocessor">#·ALL,·GNM,·RASTER,·READONLY,·SHARED,·UPDATE,·VECTOR,·and·VERBOSE_ERROR.</span></div><div·class="line"><a·name="l00400"></a><span·class="lineno">··400</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00401"></a><span·class="lineno">··401</span> sub·OpenFlags·{</div><div·class="line"><a·name="l00402"></a><span·class="lineno">··402</span> ····<span·class="keywordflow">return</span>·@DATA_TYPES;</div><div·class="line"><a·name="l00403"></a><span·class="lineno">··403</span> }</div><div·class="line"><a·name="l00404"></a><span·class="lineno">··404</span> </div><div·class="line"><a·name="l00405"></a><span·class="lineno">··405</span> <span·class="preprocessor">#**·@method·scalar·PackCharacter($DataType)</span></div><div·class="line"><a·name="l00406"></a><span·class="lineno">··406</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00407"></a><span·class="lineno">··407</span> <span·class="preprocessor">#·Get·the·character·that·is·needed·for·Perl's·pack·and·unpack·when</span></div><div·class="line"><a·name="l00408"></a><span·class="lineno">··408</span> <span·class="preprocessor">#·they·are·used·with·Geo::GDAL::Band::ReadRaster·and</span></div><div·class="line"><a·name="l00409"></a><span·class="lineno">··409</span> <span·class="preprocessor">#·Geo::GDAL::Band::WriteRaster.·Note·that·Geo::GDAL::Band::ReadTile</span></div><div·class="line"><a·name="l00410"></a><span·class="lineno">··410</span> <span·class="preprocessor">#·and·Geo::GDAL::Band::WriteTile·have·simpler·interfaces·that·do·not</span></div><div·class="line"><a·name="l00411"></a><span·class="lineno">··411</span> <span·class="preprocessor">#·require·pack·and·unpack.</span></div><div·class="line"><a·name="l00412"></a><span·class="lineno">··412</span> <span·class="preprocessor">#·@param·DataType·A·GDAL·raster·cell·data·type,·typically·from·$band->DataType.</span></div><div·class="line"><a·name="l00413"></a><span·class="lineno">··413</span> <span·class="preprocessor">#·@return·a·character·which·can·be·used·in·Perl's·pack·and·unpack.</span></div><div·class="line"><a·name="l00414"></a><span·class="lineno">··414</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00415"></a><span·class="lineno">··415</span> sub·PackCharacter·{</div><div·class="line"><a·name="l00416"></a><span·class="lineno">··416</span> ····my·$t·=·shift;</div><div·class="line"><a·name="l00417"></a><span·class="lineno">··417</span> ····$t·=·i2s(data_type·=>·$t);</div><div·class="line"><a·name="l00418"></a><span·class="lineno">··418</span> ····s2i(data_type·=>·$t);·#·test</div><div·class="line"><a·name="l00419"></a><span·class="lineno">··419</span> ····my·$is_big_endian·=·unpack(<span·class="stringliteral">"h*"</span>,·pack(<span·class="stringliteral">"s"</span>,·1))·=~·/01/;·#·from·Programming·Perl</div><div·class="line"><a·name="l00420"></a><span·class="lineno">··420</span> ····<span·class="keywordflow">return</span>·<span·class="charliteral">'C'</span>·<span·class="keywordflow">if</span>·$t·=~·/^Byte$/;</div><div·class="line"><a·name="l00421"></a><span·class="lineno">··421</span> ····<span·class="keywordflow">return</span>·($is_big_endian·?·<span·class="charliteral">'n'</span>:·<span·class="charliteral">'v'</span>)·<span·class="keywordflow">if</span>·$t·=~·/^UInt16$/;</div><div·class="line"><a·name="l00422"></a><span·class="lineno">··422</span> ····<span·class="keywordflow">return</span>·<span·class="charliteral">'s'</span>·<span·class="keywordflow">if</span>·$t·=~·/^Int16$/;</div><div·class="line"><a·name="l00423"></a><span·class="lineno">··423</span> ····<span·class="keywordflow">return</span>·($is_big_endian·?·<span·class="charliteral">'N'</span>·:·<span·class="charliteral">'V'</span>)·<span·class="keywordflow">if</span>·$t·=~·/^UInt32$/;</div><div·class="line"><a·name="l00424"></a><span·class="lineno">··424</span> ····<span·class="keywordflow">return</span>·<span·class="charliteral">'l'</span>·<span·class="keywordflow">if</span>·$t·=~·/^Int32$/;</div><div·class="line"><a·name="l00425"></a><span·class="lineno">··425</span> ····<span·class="keywordflow">return</span>·<span·class="charliteral">'f'</span>·<span·class="keywordflow">if</span>·$t·=~·/^Float32$/;</div><div·class="line"><a·name="l00426"></a><span·class="lineno">··426</span> ····<span·class="keywordflow">return</span>·<span·class="charliteral">'d'</span>·<span·class="keywordflow">if</span>·$t·=~·/^Float64$/;</div><div·class="line"><a·name="l00427"></a><span·class="lineno">··427</span> }</div><div·class="line"><a·name="l00428"></a><span·class="lineno">··428</span> </div><div·class="line"><a·name="l00429"></a><span·class="lineno">··429</span> <span·class="preprocessor">#**·@method·scalar·PackedDMSToDec($packed)</span></div><div·class="line"><a·name="l00430"></a><span·class="lineno">··430</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00431"></a><span·class="lineno">··431</span> <span·class="preprocessor">#·@param·packed·DMS·as·a·number·DDDMMMSSS.SS</span></div><div·class="line"><a·name="l00432"></a><span·class="lineno">··432</span> <span·class="preprocessor">#·@return·decimal·degrees</span></div><div·class="line"><a·name="l00433"></a><span·class="lineno">··433</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00434"></a><span·class="lineno">··434</span> sub·PackedDMSToDec·{</div><div·class="line"><a·name="l00435"></a><span·class="lineno">··435</span> }</div><div·class="line"><a·name="l00436"></a><span·class="lineno">··436</span> </div><div·class="line"><a·name="l00437"></a><span·class="lineno">··437</span> <span·class="preprocessor">#**·@method·PopFinderLocation()</span></div><div·class="line"><a·name="l00438"></a><span·class="lineno">··438</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00439"></a><span·class="lineno">··439</span> <span·class="preprocessor">#·Remove·the·latest·addition·from·the·set·of·support·file·search</span></div><div·class="line"><a·name="l00440"></a><span·class="lineno">··440</span> <span·class="preprocessor">#·paths.·Note·that·calling·this·subroutine·may·remove·paths·GDAL·put</span></div><div·class="line"><a·name="l00441"></a><span·class="lineno">··441</span> <span·class="preprocessor">#·into·the·finder.</span></div><div·class="line"><a·name="l00442"></a><span·class="lineno">··442</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00443"></a><span·class="lineno">··443</span> sub·PopFinderLocation·{</div><div·class="line"><a·name="l00444"></a><span·class="lineno">··444</span> }</div><div·class="line"><a·name="l00445"></a><span·class="lineno">··445</span> </div><div·class="line"><a·name="l00446"></a><span·class="lineno">··446</span> <span·class="preprocessor">#**·@method·PushFinderLocation($path)</span></div><div·class="line"><a·name="l00447"></a><span·class="lineno">··447</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00448"></a><span·class="lineno">··448</span> <span·class="preprocessor">#·Add·a·path·to·the·set·of·paths·from·where·GDAL·support·files·are</span></div><div·class="line"><a·name="l00449"></a><span·class="lineno">··449</span> <span·class="preprocessor">#·sought.·Note·that·GDAL·puts·initially·into·the·finder·the·current</span></div><div·class="line"><a·name="l00450"></a><span·class="lineno">··450</span> <span·class="preprocessor">#·directory·and·value·of·GDAL_DATA·environment·variable·(if·it</span></div><div·class="line"><a·name="l00451"></a><span·class="lineno">··451</span> <span·class="preprocessor">#·exists),·installation·directory·(prepended·with·'/share/gdal'·or</span></div><div·class="line"><a·name="l00452"></a><span·class="lineno">··452</span> <span·class="preprocessor">#·'/Resources/gdal'),·or·'/usr/local/share/gdal'.·It·is·usually·only</span></div><div·class="line"><a·name="l00453"></a><span·class="lineno">··453</span> <span·class="preprocessor">#·needed·to·add·paths·to·the·finder·if·using·an·alternate·set·of·data</span></div><div·class="line"><a·name="l00454"></a><span·class="lineno">··454</span> <span·class="preprocessor">#·files·or·a·non-installed·GDAL·is·used·(as·in·testing).</span></div><div·class="line"><a·name="l00455"></a><span·class="lineno">··455</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00456"></a><span·class="lineno">··456</span> sub·PushFinderLocation·{</div><div·class="line"><a·name="l00457"></a><span·class="lineno">··457</span> }</div><div·class="line"><a·name="l00458"></a><span·class="lineno">··458</span> </div><div·class="line"><a·name="l00459"></a><span·class="lineno">··459</span> <span·class="preprocessor">#**·@method·list·RIOResamplingTypes()</span></div><div·class="line"><a·name="l00460"></a><span·class="lineno">··460</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00461"></a><span·class="lineno">··461</span> <span·class="preprocessor">#·@return·a·list·of·GDAL·raster·IO·resampling·methods.·These·are·currently:</span></div><div·class="line"><a·name="l00462"></a><span·class="lineno">··462</span> <span·class="preprocessor">#·Average,·Bilinear,·Cubic,·CubicSpline,·Gauss,·Lanczos,·Mode,·and·NearestNeighbour.</span></div><div·class="line"><a·name="l00463"></a><span·class="lineno">··463</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00464"></a><span·class="lineno">··464</span> sub·RIOResamplingTypes·{</div><div·class="line"><a·name="l00465"></a><span·class="lineno">··465</span> ····<span·class="keywordflow">return</span>·@RIO_RESAMPLING_TYPES;</div><div·class="line"><a·name="l00466"></a><span·class="lineno">··466</span> }</div><div·class="line"><a·name="l00467"></a><span·class="lineno">··467</span> </div><div·class="line"><a·name="l00468"></a><span·class="lineno">··468</span> <span·class="preprocessor">#**·@method·list·ResamplingTypes()</span></div><div·class="line"><a·name="l00469"></a><span·class="lineno">··469</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00470"></a><span·class="lineno">··470</span> <span·class="preprocessor">#·@return·a·list·of·GDAL·resampling·methods.·These·are·currently:</span></div><div·class="line"><a·name="l00471"></a><span·class="lineno">··471</span> <span·class="preprocessor">#·Average,·Bilinear,·Cubic,·CubicSpline,·Lanczos,·Max,·Med,·Min,·Mode,·NearestNeighbour,·Q1,·and·Q3.</span></div><div·class="line"><a·name="l00472"></a><span·class="lineno">··472</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00473"></a><span·class="lineno">··473</span> sub·ResamplingTypes·{</div><div·class="line"><a·name="l00474"></a><span·class="lineno">··474</span> ····<span·class="keywordflow">return</span>·@RESAMPLING_TYPES;</div><div·class="line"><a·name="l00475"></a><span·class="lineno">··475</span> }</div><div·class="line"><a·name="l00476"></a><span·class="lineno">··476</span> </div><div·class="line"><a·name="l00477"></a><span·class="lineno">··477</span> <span·class="preprocessor">#**·@method·RmdirRecursive()</span></div><div·class="line"><a·name="l00478"></a><span·class="lineno">··478</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00479"></a><span·class="lineno">··479</span> sub·RmdirRecursive·{</div><div·class="line"><a·name="l00480"></a><span·class="lineno">··480</span> }</div><div·class="line"><a·name="l00481"></a><span·class="lineno">··481</span> </div><div·class="line"><a·name="l00482"></a><span·class="lineno">··482</span> <span·class="preprocessor">#**·@method·SetCacheMax($Bytes)</span></div><div·class="line"><a·name="l00483"></a><span·class="lineno">··483</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00484"></a><span·class="lineno">··484</span> <span·class="preprocessor">#·@param·Bytes·New·maximum·amount·of·memory·for·caching·within·GDAL.</span></div><div·class="line"><a·name="l00485"></a><span·class="lineno">··485</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00486"></a><span·class="lineno">··486</span> sub·SetCacheMax·{</div><div·class="line"><a·name="l00487"></a><span·class="lineno">··487</span> }</div><div·class="line"><a·name="l00488"></a><span·class="lineno">··488</span> </div><div·class="line"><a·name="l00489"></a><span·class="lineno">··489</span> <span·class="preprocessor">#**·@method·SetConfigOption($key,·$value)</span></div><div·class="line"><a·name="l00490"></a><span·class="lineno">··490</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00491"></a><span·class="lineno">··491</span> <span·class="preprocessor">#·@param·key·A·GDAL·config·option.··Consult·<a</span></div><div·class="line"><a·name="l00492"></a><span·class="lineno">··492</span> <span·class="preprocessor">#·href="https://trac.osgeo.org/gdal/wiki/ConfigOptions">the·GDAL</span></div><div·class="line"><a·name="l00493"></a><span·class="lineno">··493</span> <span·class="preprocessor">#·documentation</a>·for·available·options·and·their·use.</span></div><div·class="line"><a·name="l00494"></a><span·class="lineno">··494</span> <span·class="preprocessor">#·@param·value·A·value·for·the·option,·typically·'YES',·'NO',</span></div><div·class="line"><a·name="l00495"></a><span·class="lineno">··495</span> <span·class="preprocessor">#·undef,·path,·numeric·value,·or·a·filename.</span></div><div·class="line"><a·name="l00496"></a><span·class="lineno">··496</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00497"></a><span·class="lineno">··497</span> sub·SetConfigOption·{</div><div·class="line"><a·name="l00498"></a><span·class="lineno">··498</span> }</div><div·class="line"><a·name="l00499"></a><span·class="lineno">··499</span> </div><div·class="line"><a·name="l00500"></a><span·class="lineno">··500</span> <span·class="preprocessor">#**·@method·UseExceptions()</span></div><div·class="line"><a·name="l00501"></a><span·class="lineno">··501</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00502"></a><span·class="lineno">··502</span> <span·class="preprocessor">#·Use·the·Perl·exception·mechanism·for·GDAL·messages·(failures·are</span></div><div·class="line"><a·name="l00503"></a><span·class="lineno">··503</span> <span·class="preprocessor">#·confessed·and·warnings·are·warned)·and·collect·the·messages</span></div><div·class="line"><a·name="l00504"></a><span·class="lineno">··504</span> <span·class="preprocessor">#·into·\@Geo::GDAL::error.·This·is·the·default.</span></div><div·class="line"><a·name="l00505"></a><span·class="lineno">··505</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00506"></a><span·class="lineno">··506</span> sub·UseExceptions·{</div><div·class="line"><a·name="l00507"></a><span·class="lineno">··507</span> }</div><div·class="line"><a·name="l00508"></a><span·class="lineno">··508</span> </div><div·class="line"><a·name="l00509"></a><span·class="lineno">··509</span> <span·class="preprocessor">#**·@method·VSICurlClearCache()</span></div><div·class="line"><a·name="l00510"></a><span·class="lineno">··510</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00511"></a><span·class="lineno">··511</span> sub·VSICurlClearCache·{</div><div·class="line"><a·name="l00512"></a><span·class="lineno">··512</span> }</div><div·class="line"><a·name="l00513"></a><span·class="lineno">··513</span> </div><div·class="line"><a·name="l00514"></a><span·class="lineno">··514</span> <span·class="preprocessor">#**·@method·VSICurlPartialClearCache()</span></div><div·class="line"><a·name="l00515"></a><span·class="lineno">··515</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00516"></a><span·class="lineno">··516</span> sub·VSICurlPartialClearCache·{</div><div·class="line"><a·name="l00517"></a><span·class="lineno">··517</span> }</div><div·class="line"><a·name="l00518"></a><span·class="lineno">··518</span> </div><div·class="line"><a·name="l00519"></a><span·class="lineno">··519</span> <span·class="preprocessor">#**·@method·VSIErrorReset()</span></div><div·class="line"><a·name="l00520"></a><span·class="lineno">··520</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00521"></a><span·class="lineno">··521</span> sub·VSIErrorReset·{</div><div·class="line"><a·name="l00522"></a><span·class="lineno">··522</span> }</div><div·class="line"><a·name="l00523"></a><span·class="lineno">··523</span> </div><div·class="line"><a·name="l00524"></a><span·class="lineno">··524</span> <span·class="preprocessor">#**·@method·VSIFEofL()</span></div><div·class="line"><a·name="l00525"></a><span·class="lineno">··525</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00526"></a><span·class="lineno">··526</span> sub·VSIFEofL·{</div><div·class="line"><a·name="l00527"></a><span·class="lineno">··527</span> }</div><div·class="line"><a·name="l00528"></a><span·class="lineno">··528</span> </div><div·class="line"><a·name="l00529"></a><span·class="lineno">··529</span> <span·class="preprocessor">#**·@method·VSIFFlushL()</span></div><div·class="line"><a·name="l00530"></a><span·class="lineno">··530</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00531"></a><span·class="lineno">··531</span> sub·VSIFFlushL·{</div><div·class="line"><a·name="l00532"></a><span·class="lineno">··532</span> }</div><div·class="line"><a·name="l00533"></a><span·class="lineno">··533</span> </div><div·class="line"><a·name="l00534"></a><span·class="lineno">··534</span> <span·class="preprocessor">#**·@method·VSIFOpenExL()</span></div><div·class="line"><a·name="l00535"></a><span·class="lineno">··535</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00536"></a><span·class="lineno">··536</span> sub·VSIFOpenExL·{</div><div·class="line"><a·name="l00537"></a><span·class="lineno">··537</span> }</div><div·class="line"><a·name="l00538"></a><span·class="lineno">··538</span> </div><div·class="line"><a·name="l00539"></a><span·class="lineno">··539</span> <span·class="preprocessor">#**·@method·VSIGetLastErrorMsg()</span></div><div·class="line"><a·name="l00540"></a><span·class="lineno">··540</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00541"></a><span·class="lineno">··541</span> sub·VSIGetLastErrorMsg·{</div><div·class="line"><a·name="l00542"></a><span·class="lineno">··542</span> }</div><div·class="line"><a·name="l00543"></a><span·class="lineno">··543</span> </div><div·class="line"><a·name="l00544"></a><span·class="lineno">··544</span> <span·class="preprocessor">#**·@method·VSIGetLastErrorNo()</span></div><div·class="line"><a·name="l00545"></a><span·class="lineno">··545</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00546"></a><span·class="lineno">··546</span> sub·VSIGetLastErrorNo·{</div><div·class="line"><a·name="l00547"></a><span·class="lineno">··547</span> }</div><div·class="line"><a·name="l00548"></a><span·class="lineno">··548</span> </div><div·class="line"><a·name="l00549"></a><span·class="lineno">··549</span> <span·class="preprocessor">#**·@method·scalar·VersionInfo($request·=·'VERSION_NUM')</span></div><div·class="line"><a·name="l00550"></a><span·class="lineno">··550</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00551"></a><span·class="lineno">··551</span> <span·class="preprocessor">#·@param·request·A·string·specifying·the·request.·Currently·either</span></div><div·class="line"><a·name="l00552"></a><span·class="lineno">··552</span> <span·class="preprocessor">#·"VERSION_NUM",·"RELEASE_DATE",·"RELEASE_NAME",·or</span></div><div·class="line"><a·name="l00553"></a><span·class="lineno">··553</span> <span·class="preprocessor">#·"--version".·Default·is·"VERSION_NUM".</span></div><div·class="line"><a·name="l00554"></a><span·class="lineno">··554</span> <span·class="preprocessor">#·@return·Requested·information.</span></div><div·class="line"><a·name="l00555"></a><span·class="lineno">··555</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00556"></a><span·class="lineno">··556</span> sub·VersionInfo·{</div><div·class="line"><a·name="l00557"></a><span·class="lineno">··557</span> }</div><div·class="line"><a·name="l00558"></a><span·class="lineno">··558</span> </div><div·class="line"><a·name="l00559"></a><span·class="lineno">··559</span> <span·class="preprocessor">#**·@method·scalar·errstr()</span></div><div·class="line"><a·name="l00560"></a><span·class="lineno">··560</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00561"></a><span·class="lineno">··561</span> <span·class="preprocessor">#·Clear·the·error·stack·and·return·all·generated·GDAL·error·messages·in·one·(possibly·multiline)·string.</span></div><div·class="line"><a·name="l00562"></a><span·class="lineno">··562</span> <span·class="preprocessor">#·@return·the·chomped·error·stack·joined·with·newlines.</span></div><div·class="line"><a·name="l00563"></a><span·class="lineno">··563</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00564"></a><span·class="lineno">··564</span> sub·errstr·{</div><div·class="line"><a·name="l00565"></a><span·class="lineno">··565</span> ····my·@stack·=·@error;</div><div·class="line"><a·name="l00566"></a><span·class="lineno">··566</span> ····chomp(@stack);</div><div·class="line"><a·name="l00567"></a><span·class="lineno">··567</span> ····@error·=·();</div><div·class="line"><a·name="l00568"></a><span·class="lineno">··568</span> ····<span·class="keywordflow">return</span>·join(<span·class="stringliteral">"\n"</span>,·@stack);</div><div·class="line"><a·name="l00569"></a><span·class="lineno">··569</span> }</div><div·class="line"><a·name="l00570"></a><span·class="lineno">··570</span> <span·class="preprocessor">#·usage:·named_parameters(\@_,·key·value·list·of·default·parameters);</span></div><div·class="line"><a·name="l00571"></a><span·class="lineno">··571</span> <span·class="preprocessor">#·returns·parameters·in·a·hash·with·low-case-without-_·keys</span></div><div·class="line"><a·name="l00572"></a><span·class="lineno">··572</span> }</div><div·class="line"><a·name="l00573"></a><span·class="lineno">··573</span> </div><div·class="line"><a·name="l00574"></a><span·class="lineno">··574</span> <span·class="preprocessor">#**·@class·Geo::GDAL::AsyncReader</span></div><div·class="line"><a·name="l00575"></a><span·class="lineno">··575</span> <span·class="preprocessor">#·@brief·Enable·asynchronous·requests.</span></div><div·class="line"><a·name="l00576"></a><span·class="lineno">··576</span> <span·class="preprocessor">#·@details·This·class·is·not·yet·documented·nor·tested·in·the·GDAL·Perl·wrappers</span></div><div·class="line"><a·name="l00577"></a><span·class="lineno">··577</span> <span·class="preprocessor">#·@todo·Test·and·document.</span></div><div·class="line"><a·name="l00578"></a><span·class="lineno">··578</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00579"></a><span·class="lineno">··579</span> <span·class="keyword">package·</span>Geo::GDAL::AsyncReader;</div><div·class="line"><a·name="l00580"></a><span·class="lineno">··580</span> </div><div·class="line"><a·name="l00581"></a><span·class="lineno">··581</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1GDAL.html">Geo::GDAL</a>)</div><div·class="line"><a·name="l00582"></a><span·class="lineno">··582</span> </div><div·class="line"><a·name="l00583"></a><span·class="lineno">··583</span> <span·class="preprocessor">#**·@method·GetNextUpdatedRegion()</span></div><div·class="line"><a·name="l00584"></a><span·class="lineno">··584</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00585"></a><span·class="lineno">··585</span> sub·GetNextUpdatedRegion·{</div><div·class="line"><a·name="l00586"></a><span·class="lineno">··586</span> }</div><div·class="line"><a·name="l00587"></a><span·class="lineno">··587</span> </div><div·class="line"><a·name="l00588"></a><span·class="lineno">··588</span> <span·class="preprocessor">#**·@method·LockBuffer()</span></div><div·class="line"><a·name="l00589"></a><span·class="lineno">··589</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00590"></a><span·class="lineno">··590</span> sub·LockBuffer·{</div><div·class="line"><a·name="l00591"></a><span·class="lineno">··591</span> }</div><div·class="line"><a·name="l00592"></a><span·class="lineno">··592</span> </div><div·class="line"><a·name="l00593"></a><span·class="lineno">··593</span> <span·class="preprocessor">#**·@method·UnlockBuffer()</span></div><div·class="line"><a·name="l00594"></a><span·class="lineno">··594</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00595"></a><span·class="lineno">··595</span> sub·UnlockBuffer·{</div><div·class="line"><a·name="l00596"></a><span·class="lineno">··596</span> }</div><div·class="line"><a·name="l00597"></a><span·class="lineno">··597</span> </div><div·class="line"><a·name="l00598"></a><span·class="lineno">··598</span> <span·class="preprocessor">#**·@class·Geo::GDAL::Band</span></div><div·class="line"><a·name="l00599"></a><span·class="lineno">··599</span> <span·class="preprocessor">#·@brief·A·raster·band.</span></div><div·class="line"><a·name="l00600"></a><span·class="lineno">··600</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l00601"></a><span·class="lineno">··601</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00602"></a><span·class="lineno">··602</span> <span·class="keyword">package·</span>Geo::GDAL::Band;</div><div·class="line"><a·name="l00603"></a><span·class="lineno">··603</span> </div><div·class="line"><a·name="l00604"></a><span·class="lineno">··604</span> use·base·qw(<a·class="code"·href="classGeo_1_1GDAL_1_1MajorObject.html">Geo::GDAL::MajorObject</a>·<a·class="code"·href="namespaceGeo_1_1GDAL.html">Geo::GDAL</a>)</div><div·class="line"><a·name="l00605"></a><span·class="lineno">··605</span> </div><div·class="line"><a·name="l00606"></a><span·class="lineno">··606</span> <span·class="preprocessor">#**·@attr·$XSize·</span></div><div·class="line"><a·name="l00607"></a><span·class="lineno">··607</span> <span·class="preprocessor">#·Object·attribute.</span></div><div·class="line"><a·name="l00608"></a><span·class="lineno">··608</span> <span·class="preprocessor">#·scalar·(access·as·$band->{XSize})</span></div><div·class="line"><a·name="l00609"></a><span·class="lineno">··609</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00610"></a><span·class="lineno">··610</span> </div><div·class="line"><a·name="l00611"></a><span·class="lineno">··611</span> <span·class="preprocessor">#**·@attr·$YSize·</span></div><div·class="line"><a·name="l00612"></a><span·class="lineno">··612</span> <span·class="preprocessor">#·Object·attribute.</span></div><div·class="line"><a·name="l00613"></a><span·class="lineno">··613</span> <span·class="preprocessor">#·scalar·(access·as·$band->{YSize})</span></div><div·class="line"><a·name="l00614"></a><span·class="lineno">··614</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00615"></a><span·class="lineno">··615</span> </div><div·class="line"><a·name="l00616"></a><span·class="lineno">··616</span> <span·class="preprocessor">#**·@method·AdviseRead()</span></div><div·class="line"><a·name="l00617"></a><span·class="lineno">··617</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00618"></a><span·class="lineno">··618</span> sub·AdviseRead·{</div><div·class="line"><a·name="l00619"></a><span·class="lineno">··619</span> }</div><div·class="line"><a·name="l00620"></a><span·class="lineno">··620</span> </div><div·class="line"><a·name="l00621"></a><span·class="lineno">··621</span> <span·class="preprocessor">#**·@method·Geo::GDAL::RasterAttributeTable·AttributeTable($AttributeTable)</span></div><div·class="line"><a·name="l00622"></a><span·class="lineno">··622</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00623"></a><span·class="lineno">··623</span> <span·class="preprocessor">#·@param·AttributeTable·[optional]·A·Geo::GDAL::RasterAttributeTable·object.</span></div><div·class="line"><a·name="l00624"></a><span·class="lineno">··624</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::RasterAttributeTable·object,·whose·data·is</span></div><div·class="line"><a·name="l00625"></a><span·class="lineno">··625</span> <span·class="preprocessor">#·contained·within·the·band.</span></div><div·class="line"><a·name="l00626"></a><span·class="lineno">··626</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00627"></a><span·class="lineno">··627</span> sub·AttributeTable·{</div><div·class="line"><a·name="l00628"></a><span·class="lineno">··628</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l00629"></a><span·class="lineno">··629</span> ····SetDefaultRAT($self,·$_[0])·<span·class="keywordflow">if</span>·@_·and·defined·$_[0];</div><div·class="line"><a·name="l00630"></a><span·class="lineno">··630</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l00631"></a><span·class="lineno">··631</span> ····my·$r·=·GetDefaultRAT($self);</div><div·class="line"><a·name="l00632"></a><span·class="lineno">··632</span> ····keep($r,·$self)·<span·class="keywordflow">if</span>·$r;</div><div·class="line"><a·name="l00633"></a><span·class="lineno">··633</span> }</div><div·class="line"><a·name="l00634"></a><span·class="lineno">··634</span> </div><div·class="line"><a·name="l00635"></a><span·class="lineno">··635</span> <span·class="preprocessor">#**·@method·list·BlockSize()</span></div><div·class="line"><a·name="l00636"></a><span·class="lineno">··636</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00637"></a><span·class="lineno">··637</span> <span·class="preprocessor">#·A.k.a·GetBlockSize</span></div><div·class="line"><a·name="l00638"></a><span·class="lineno">··638</span> <span·class="preprocessor">#·@return·The·size·of·a·preferred·i/o·raster·block·size·as·a·list</span></div><div·class="line"><a·name="l00639"></a><span·class="lineno">··639</span> <span·class="preprocessor">#·(width,·height).</span></div><div·class="line"><a·name="l00640"></a><span·class="lineno">··640</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00641"></a><span·class="lineno">··641</span> sub·BlockSize·{</div><div·class="line"><a·name="l00642"></a><span·class="lineno">··642</span> }</div><div·class="line"><a·name="l00643"></a><span·class="lineno">··643</span> </div><div·class="line"><a·name="l00644"></a><span·class="lineno">··644</span> <span·class="preprocessor">#**·@method·list·CategoryNames(@names)</span></div><div·class="line"><a·name="l00645"></a><span·class="lineno">··645</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00646"></a><span·class="lineno">··646</span> <span·class="preprocessor">#·@param·names·[optional]</span></div><div·class="line"><a·name="l00647"></a><span·class="lineno">··647</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l00648"></a><span·class="lineno">··648</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00649"></a><span·class="lineno">··649</span> sub·CategoryNames·{</div><div·class="line"><a·name="l00650"></a><span·class="lineno">··650</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l00651"></a><span·class="lineno">··651</span> ····SetRasterCategoryNames($self,·\@_)·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l00652"></a><span·class="lineno">··652</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l00653"></a><span·class="lineno">··653</span> ····my·$n·=·GetRasterCategoryNames($self);</div><div·class="line"><a·name="l00654"></a><span·class="lineno">··654</span> ····<span·class="keywordflow">return</span>·@$n;</div><div·class="line"><a·name="l00655"></a><span·class="lineno">··655</span> }</div><div·class="line"><a·name="l00656"></a><span·class="lineno">··656</span> </div><div·class="line"><a·name="l00657"></a><span·class="lineno">··657</span> <span·class="preprocessor">#**·@method·scalar·Checksum($xoff·=·0,·$yoff·=·0,·$xsize·=·undef,·$ysize·=·undef)</span></div><div·class="line"><a·name="l00658"></a><span·class="lineno">··658</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00659"></a><span·class="lineno">··659</span> <span·class="preprocessor">#·Computes·a·checksum·from·the·raster·or·a·part·of·it.</span></div><div·class="line"><a·name="l00660"></a><span·class="lineno">··660</span> <span·class="preprocessor">#·@param·xoff</span></div><div·class="line"><a·name="l00661"></a><span·class="lineno">··661</span> <span·class="preprocessor">#·@param·yoff</span></div><div·class="line"><a·name="l00662"></a><span·class="lineno">··662</span> <span·class="preprocessor">#·@param·xsize</span></div><div·class="line"><a·name="l00663"></a><span·class="lineno">··663</span> <span·class="preprocessor">#·@param·ysize</span></div><div·class="line"><a·name="l00664"></a><span·class="lineno">··664</span> <span·class="preprocessor">#·@return·the·checksum.</span></div><div·class="line"><a·name="l00665"></a><span·class="lineno">··665</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00666"></a><span·class="lineno">··666</span> sub·Checksum·{</div><div·class="line"><a·name="l00667"></a><span·class="lineno">··667</span> }</div><div·class="line"><a·name="l00668"></a><span·class="lineno">··668</span> </div><div·class="line"><a·name="l00669"></a><span·class="lineno">··669</span> <span·class="preprocessor">#**·@method·hashref·ClassCounts($classifier,·$progress·=·undef,·$progress_data·=·undef)</span></div><div·class="line"><a·name="l00670"></a><span·class="lineno">··670</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00671"></a><span·class="lineno">··671</span> <span·class="preprocessor">#·Compute·the·counts·of·cell·values·or·number·of·cell·values·in·ranges.</span></div><div·class="line"><a·name="l00672"></a><span·class="lineno">··672</span> <span·class="preprocessor">#·@note·Classifier·is·required·only·for·float·bands.</span></div><div·class="line"><a·name="l00673"></a><span·class="lineno">··673</span> <span·class="preprocessor">#·@note·NoData·values·are·counted·similar·to·other·values·when</span></div><div·class="line"><a·name="l00674"></a><span·class="lineno">··674</span> <span·class="preprocessor">#·classifier·is·not·defined·for·integer·rasters.</span></div><div·class="line"><a·name="l00675"></a><span·class="lineno">··675</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00676"></a><span·class="lineno">··676</span> <span·class="preprocessor">#·@param·classifier·Anonymous·array·of·format·[·$comparison,</span></div><div·class="line"><a·name="l00677"></a><span·class="lineno">··677</span> <span·class="preprocessor">#·$classifier·],·where·$comparison·is·a·string·'<',·'<=',·'>',·or·'>='</span></div><div·class="line"><a·name="l00678"></a><span·class="lineno">··678</span> <span·class="preprocessor">#·and·$classifier·is·an·anonymous·array·of·format·[·$value,</span></div><div·class="line"><a·name="l00679"></a><span·class="lineno">··679</span> <span·class="preprocessor">#·$value|$classifier,·$value|$classifier·],·where·$value·is·a·numeric</span></div><div·class="line"><a·name="l00680"></a><span·class="lineno">··680</span> <span·class="preprocessor">#·value·against·which·the·reclassified·value·is·compared·to.·If·the</span></div><div·class="line"><a·name="l00681"></a><span·class="lineno">··681</span> <span·class="preprocessor">#·comparison·returns·true,·then·the·second·$value·or·$classifier·is</span></div><div·class="line"><a·name="l00682"></a><span·class="lineno">··682</span> <span·class="preprocessor">#·applied,·and·if·not·then·the·third·$value·or·$classifier.</span></div><div·class="line"><a·name="l00683"></a><span·class="lineno">··683</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00684"></a><span·class="lineno">··684</span> <span·class="preprocessor">#·In·the·example·below,·the·line·is·divided·into·ranges</span></div><div·class="line"><a·name="l00685"></a><span·class="lineno">··685</span> <span·class="preprocessor">#·[-inf..3),·[3..5),·and·[5..inf],·i.e.,·three·ranges·with·class</span></div><div·class="line"><a·name="l00686"></a><span·class="lineno">··686</span> <span·class="preprocessor">#·indexes·0,·1,·and·2.·Note·that·the·indexes·are·used·as·keys·for</span></div><div·class="line"><a·name="l00687"></a><span·class="lineno">··687</span> <span·class="preprocessor">#·class·counts·and·not·the·class·values·(here·1.0,·2.0,·and·3.0),</span></div><div·class="line"><a·name="l00688"></a><span·class="lineno">··688</span> <span·class="preprocessor">#·which·are·used·in·Geo::GDAL::Band::Reclassify.</span></div><div·class="line"><a·name="l00689"></a><span·class="lineno">··689</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l00690"></a><span·class="lineno">··690</span> <span·class="preprocessor">#·$classifier·=·[·'<',·[5.0,·[3.0,·1.0,·2.0],·3.0]·];</span></div><div·class="line"><a·name="l00691"></a><span·class="lineno">··691</span> <span·class="preprocessor">#·#·Howto·create·this·$classifier·from·@class_boundaries:</span></div><div·class="line"><a·name="l00692"></a><span·class="lineno">··692</span> <span·class="preprocessor">#·my·$classifier·=·['<='];</span></div><div·class="line"><a·name="l00693"></a><span·class="lineno">··693</span> <span·class="preprocessor">#·my·$tree·=·[$class_boundaries[0],·0,·1];</span></div><div·class="line"><a·name="l00694"></a><span·class="lineno">··694</span> <span·class="preprocessor">#·for·my·$i·(1·..·$#class_boundaries)·{</span></div><div·class="line"><a·name="l00695"></a><span·class="lineno">··695</span> <span·class="preprocessor">#·····$tree·=·[$class_boundaries[$i],·[@$tree],·$i+1];</span></div><div·class="line"><a·name="l00696"></a><span·class="lineno">··696</span> <span·class="preprocessor">#·}</span></div><div·class="line"><a·name="l00697"></a><span·class="lineno">··697</span> <span·class="preprocessor">#·push·@$classifier,·$tree;</span></div><div·class="line"><a·name="l00698"></a><span·class="lineno">··698</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l00699"></a><span·class="lineno">··699</span> <span·class="preprocessor">#·@return·a·reference·to·an·anonymous·hash,·which·contains·the·class</span></div><div·class="line"><a·name="l00700"></a><span·class="lineno">··700</span> <span·class="preprocessor">#·values·(indexes)·as·keys·and·the·number·of·cells·with·that·value·or</span></div><div·class="line"><a·name="l00701"></a><span·class="lineno">··701</span> <span·class="preprocessor">#·in·that·range·as·values.·If·the·subroutine·is·user·terminated·an</span></div><div·class="line"><a·name="l00702"></a><span·class="lineno">··702</span> <span·class="preprocessor">#·error·is·raised.</span></div><div·class="line"><a·name="l00703"></a><span·class="lineno">··703</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00704"></a><span·class="lineno">··704</span> sub·ClassCounts·{</div><div·class="line"><a·name="l00705"></a><span·class="lineno">··705</span> }</div><div·class="line"><a·name="l00706"></a><span·class="lineno">··706</span> </div><div·class="line"><a·name="l00707"></a><span·class="lineno">··707</span> <span·class="preprocessor">#**·@method·scalar·ColorInterpretation($color_interpretation)</span></div><div·class="line"><a·name="l00708"></a><span·class="lineno">··708</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00709"></a><span·class="lineno">··709</span> <span·class="preprocessor">#·@note·a.k.a.·GetRasterColorInterpretation·and·GetColorInterpretation</span></div><div·class="line"><a·name="l00710"></a><span·class="lineno">··710</span> <span·class="preprocessor">#·(get·only·and·returns·an·integer),·SetRasterColorInterpretation·and</span></div><div·class="line"><a·name="l00711"></a><span·class="lineno">··711</span> <span·class="preprocessor">#·SetColorInterpretation·(set·only·and·requires·an·integer)</span></div><div·class="line"><a·name="l00712"></a><span·class="lineno">··712</span> <span·class="preprocessor">#·@param·color_interpretation·[optional]·new·color·interpretation,·one</span></div><div·class="line"><a·name="l00713"></a><span·class="lineno">··713</span> <span·class="preprocessor">#·of·Geo::GDAL::Band::ColorInterpretations.</span></div><div·class="line"><a·name="l00714"></a><span·class="lineno">··714</span> <span·class="preprocessor">#·@return·The·color·interpretation·of·this·band.·One·of·Geo::GDAL::Band::ColorInterpretations.</span></div><div·class="line"><a·name="l00715"></a><span·class="lineno">··715</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00716"></a><span·class="lineno">··716</span> sub·ColorInterpretation·{</div><div·class="line"><a·name="l00717"></a><span·class="lineno">··717</span> ····my($self,·$ci)·=·@_;</div><div·class="line"><a·name="l00718"></a><span·class="lineno">··718</span> ····<span·class="keywordflow">if</span>·(defined·$ci)·{</div><div·class="line"><a·name="l00719"></a><span·class="lineno">··719</span> ········$ci·=·s2i(color_interpretation·=>·$ci);</div><div·class="line"><a·name="l00720"></a><span·class="lineno">··720</span> ········SetRasterColorInterpretation($self,·$ci);</div><div·class="line"><a·name="l00721"></a><span·class="lineno">··721</span> ····}</div><div·class="line"><a·name="l00722"></a><span·class="lineno">··722</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l00723"></a><span·class="lineno">··723</span> ····i2s(color_interpretation·=>·GetRasterColorInterpretation($self));</div><div·class="line"><a·name="l00724"></a><span·class="lineno">··724</span> }</div><div·class="line"><a·name="l00725"></a><span·class="lineno">··725</span> </div><div·class="line"><a·name="l00726"></a><span·class="lineno">··726</span> <span·class="preprocessor">#**·@method·ColorInterpretations()</span></div><div·class="line"><a·name="l00727"></a><span·class="lineno">··727</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00728"></a><span·class="lineno">··728</span> <span·class="preprocessor">#·@return·a·list·of·types·of·color·interpretation·for·raster</span></div><div·class="line"><a·name="l00729"></a><span·class="lineno">··729</span> <span·class="preprocessor">#·bands.·These·are·currently:</span></div><div·class="line"><a·name="l00730"></a><span·class="lineno">··730</span> <span·class="preprocessor">#·AlphaBand,·BlackBand,·BlueBand,·CyanBand,·GrayIndex,·GreenBand,·HueBand,·LightnessBand,·MagentaBand,·PaletteIndex,·RedBand,·SaturationBand,·Undefined,·YCbCr_CbBand,·YCbCr_CrBand,·YCbCr_YBand,·and·YellowBand.</span></div><div·class="line"><a·name="l00731"></a><span·class="lineno">··731</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00732"></a><span·class="lineno">··732</span> sub·ColorInterpretations·{</div><div·class="line"><a·name="l00733"></a><span·class="lineno">··733</span> ····<span·class="keywordflow">return</span>·@COLOR_INTERPRETATIONS;</div><div·class="line"><a·name="l00734"></a><span·class="lineno">··734</span> }</div><div·class="line"><a·name="l00735"></a><span·class="lineno">··735</span> </div><div·class="line"><a·name="l00736"></a><span·class="lineno">··736</span> <span·class="preprocessor">#**·@method·Geo::GDAL::ColorTable·ColorTable($ColorTable)</span></div><div·class="line"><a·name="l00737"></a><span·class="lineno">··737</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00738"></a><span·class="lineno">··738</span> <span·class="preprocessor">#·Get·or·set·the·color·table·of·this·band.</span></div><div·class="line"><a·name="l00739"></a><span·class="lineno">··739</span> <span·class="preprocessor">#·@param·ColorTable·[optional]·a·Geo::GDAL::ColorTable·object</span></div><div·class="line"><a·name="l00740"></a><span·class="lineno">··740</span> <span·class="preprocessor">#·@return·A·new·Geo::GDAL::ColorTable·object·which·represents·the</span></div><div·class="line"><a·name="l00741"></a><span·class="lineno">··741</span> <span·class="preprocessor">#·internal·color·table·associated·with·this·band.·Returns·undef·this</span></div><div·class="line"><a·name="l00742"></a><span·class="lineno">··742</span> <span·class="preprocessor">#·band·does·not·have·an·associated·color·table.</span></div><div·class="line"><a·name="l00743"></a><span·class="lineno">··743</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00744"></a><span·class="lineno">··744</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1ColorTable.html">ColorTable</a>·{</div><div·class="line"><a·name="l00745"></a><span·class="lineno">··745</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l00746"></a><span·class="lineno">··746</span> ····SetRasterColorTable($self,·$_[0])·<span·class="keywordflow">if</span>·@_·and·defined·$_[0];</div><div·class="line"><a·name="l00747"></a><span·class="lineno">··747</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l00748"></a><span·class="lineno">··748</span> ····GetRasterColorTable($self);</div><div·class="line"><a·name="l00749"></a><span·class="lineno">··749</span> }</div><div·class="line"><a·name="l00750"></a><span·class="lineno">··750</span> </div><div·class="line"><a·name="l00751"></a><span·class="lineno">··751</span> <span·class="preprocessor">#**·@method·ComputeBandStats($samplestep·=·1)</span></div><div·class="line"><a·name="l00752"></a><span·class="lineno">··752</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00753"></a><span·class="lineno">··753</span> <span·class="preprocessor">#·@param·samplestep·the·row·increment·in·computing·the·statistics.</span></div><div·class="line"><a·name="l00754"></a><span·class="lineno">··754</span> <span·class="preprocessor">#·@note·Returns·uncorrected·sample·standard·deviation.</span></div><div·class="line"><a·name="l00755"></a><span·class="lineno">··755</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00756"></a><span·class="lineno">··756</span> <span·class="preprocessor">#·See·also·Geo::GDAL::Band::ComputeStatistics.</span></div><div·class="line"><a·name="l00757"></a><span·class="lineno">··757</span> <span·class="preprocessor">#·@return·a·list·(mean,·stddev).</span></div><div·class="line"><a·name="l00758"></a><span·class="lineno">··758</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00759"></a><span·class="lineno">··759</span> sub·ComputeBandStats·{</div><div·class="line"><a·name="l00760"></a><span·class="lineno">··760</span> }</div><div·class="line"><a·name="l00761"></a><span·class="lineno">··761</span> </div><div·class="line"><a·name="l00762"></a><span·class="lineno">··762</span> <span·class="preprocessor">#**·@method·ComputeRasterMinMax($approx_ok·=·0)</span></div><div·class="line"><a·name="l00763"></a><span·class="lineno">··763</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00764"></a><span·class="lineno">··764</span> <span·class="preprocessor">#·@return·arrayref·MinMax·=·[min,·max]</span></div><div·class="line"><a·name="l00765"></a><span·class="lineno">··765</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00766"></a><span·class="lineno">··766</span> sub·ComputeRasterMinMax·{</div><div·class="line"><a·name="l00767"></a><span·class="lineno">··767</span> }</div><div·class="line"><a·name="l00768"></a><span·class="lineno">··768</span> </div><div·class="line"><a·name="l00769"></a><span·class="lineno">··769</span> <span·class="preprocessor">#**·@method·list·ComputeStatistics($approx_ok,·$progress·=·undef,·$progress_data·=·undef)</span></div><div·class="line"><a·name="l00770"></a><span·class="lineno">··770</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00771"></a><span·class="lineno">··771</span> <span·class="preprocessor">#·@param·approx_ok·Whether·it·is·allowed·to·compute·the·statistics</span></div><div·class="line"><a·name="l00772"></a><span·class="lineno">··772</span> <span·class="preprocessor">#·based·on·overviews·or·similar.</span></div><div·class="line"><a·name="l00773"></a><span·class="lineno">··773</span> <span·class="preprocessor">#·@note·Returns·uncorrected·sample·standard·deviation.</span></div><div·class="line"><a·name="l00774"></a><span·class="lineno">··774</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00775"></a><span·class="lineno">··775</span> <span·class="preprocessor">#·See·also·Geo::GDAL::Band::ComputeBandStats.</span></div><div·class="line"><a·name="l00776"></a><span·class="lineno">··776</span> <span·class="preprocessor">#·@return·a·list·($min,·$max,·$mean,·$stddev).</span></div><div·class="line"><a·name="l00777"></a><span·class="lineno">··777</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00778"></a><span·class="lineno">··778</span> sub·ComputeStatistics·{</div><div·class="line"><a·name="l00779"></a><span·class="lineno">··779</span> }</div><div·class="line"><a·name="l00780"></a><span·class="lineno">··780</span> </div><div·class="line"><a·name="l00781"></a><span·class="lineno">··781</span> <span·class="preprocessor">#**·@method·Geo::OGR::Layer·Contours($DataSource,·hashref·LayerConstructor,·$ContourInterval,·$ContourBase,·arrayref·FixedLevels,·$NoDataValue,·$IDField,·$ElevField,·coderef·Progress,·$ProgressData)</span></div><div·class="line"><a·name="l00782"></a><span·class="lineno">··782</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00783"></a><span·class="lineno">··783</span> <span·class="preprocessor">#·Generate·contours·for·this·raster·band.·This·method·can·also·be·used·with·named·parameters.</span></div><div·class="line"><a·name="l00784"></a><span·class="lineno">··784</span> <span·class="preprocessor">#·@note·This·method·is·a·wrapper·for·ContourGenerate.</span></div><div·class="line"><a·name="l00785"></a><span·class="lineno">··785</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00786"></a><span·class="lineno">··786</span> <span·class="preprocessor">#·An·example:</span></div><div·class="line"><a·name="l00787"></a><span·class="lineno">··787</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l00788"></a><span·class="lineno">··788</span> <span·class="preprocessor">#·use·Geo::GDAL;</span></div><div·class="line"><a·name="l00789"></a><span·class="lineno">··789</span> <span·class="preprocessor">#·$dem·=·Geo::GDAL::Open('dem.gtiff');</span></div><div·class="line"><a·name="l00790"></a><span·class="lineno">··790</span> <span·class="preprocessor">#·$contours·=·$dem->Band->Contours(ContourInterval·=>·10,·ElevField·=>·'z');</span></div><div·class="line"><a·name="l00791"></a><span·class="lineno">··791</span> <span·class="preprocessor">#·$n·=·$contours->GetFeatureCount;</span></div><div·class="line"><a·name="l00792"></a><span·class="lineno">··792</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l00793"></a><span·class="lineno">··793</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00794"></a><span·class="lineno">··794</span> <span·class="preprocessor">#·@param·DataSource·a·Geo::OGR::DataSource·object,·default·is·a·Memory·data·source</span></div><div·class="line"><a·name="l00795"></a><span·class="lineno">··795</span> <span·class="preprocessor">#·@param·LayerConstructor·data·for·Geo::OGR::DataSource::CreateLayer,·default·is·{Name·=>·'contours'}</span></div><div·class="line"><a·name="l00796"></a><span·class="lineno">··796</span> <span·class="preprocessor">#·@param·ContourInterval·default·is·100</span></div><div·class="line"><a·name="l00797"></a><span·class="lineno">··797</span> <span·class="preprocessor">#·@param·ContourBase·default·is·0</span></div><div·class="line"><a·name="l00798"></a><span·class="lineno">··798</span> <span·class="preprocessor">#·@param·FixedLevels·a·reference·to·a·list·of·fixed·contour·levels,·default·is·[]</span></div><div·class="line"><a·name="l00799"></a><span·class="lineno">··799</span> <span·class="preprocessor">#·@param·NoDataValue·default·is·undef</span></div><div·class="line"><a·name="l00800"></a><span·class="lineno">··800</span> <span·class="preprocessor">#·@param·IDField·default·is·'',·i.e.,·no·field·(the·field·is·created·if·this·is·given)</span></div><div·class="line"><a·name="l00801"></a><span·class="lineno">··801</span> <span·class="preprocessor">#·@param·ElevField·default·is·'',·i.e.,·no·field·(the·field·is·created·if·this·is·given)</span></div><div·class="line"><a·name="l00802"></a><span·class="lineno">··802</span> <span·class="preprocessor">#·@param·progress·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l00803"></a><span·class="lineno">··803</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·progress_data)</span></div><div·class="line"><a·name="l00804"></a><span·class="lineno">··804</span> <span·class="preprocessor">#·@param·progress_data·[optional]</span></div><div·class="line"><a·name="l00805"></a><span·class="lineno">··805</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l00806"></a><span·class="lineno">··806</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00807"></a><span·class="lineno">··807</span> sub·Contours·{</div><div·class="line"><a·name="l00808"></a><span·class="lineno">··808</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l00809"></a><span·class="lineno">··809</span> ····my·$p·=·named_parameters(\@_,</div><div·class="line"><a·name="l00810"></a><span·class="lineno">··810</span> ·····························DataSource·=>·undef,</div><div·class="line"><a·name="l00811"></a><span·class="lineno">··811</span> ·····························LayerConstructor·=>·{Name·=>·<span·class="stringliteral">'contours'</span>},</div><div·class="line"><a·name="l00812"></a><span·class="lineno">··812</span> ·····························ContourInterval·=>·100,</div><div·class="line"><a·name="l00813"></a><span·class="lineno">··813</span> ·····························ContourBase·=>·0,</div><div·class="line"><a·name="l00814"></a><span·class="lineno">··814</span> ·····························FixedLevels·=>·[],</div><div·class="line"><a·name="l00815"></a><span·class="lineno">··815</span> ·····························NoDataValue·=>·undef,</div><div·class="line"><a·name="l00816"></a><span·class="lineno">··816</span> ·····························IDField·=>·-1,</div><div·class="line"><a·name="l00817"></a><span·class="lineno">··817</span> ·····························ElevField·=>·-1,</div><div·class="line"><a·name="l00818"></a><span·class="lineno">··818</span> ·····························Progress·=>·undef,</div><div·class="line"><a·name="l00819"></a><span·class="lineno">··819</span> ·····························ProgressData·=>·undef);</div><div·class="line"><a·name="l00820"></a><span·class="lineno">··820</span> ····$p->{datasource}·<span·class="comment">//=·Geo::OGR::GetDriver('Memory')->CreateDataSource('ds');</span></div><div·class="line"><a·name="l00821"></a><span·class="lineno">··821</span> ····$p->{layerconstructor}->{Schema}·<span·class="comment">//=·{};</span></div><div·class="line"><a·name="l00822"></a><span·class="lineno">··822</span> ····$p->{layerconstructor}->{Schema}{Fields}·<span·class="comment">//=·[];</span></div><div·class="line"><a·name="l00823"></a><span·class="lineno">··823</span> ····my·%fields;</div><div·class="line"><a·name="l00824"></a><span·class="lineno">··824</span> ····unless·($p->{idfield}·=~·/^[+-]?\d+$/·or·$fields{$p->{idfield}})·{</div><div·class="line"><a·name="l00825"></a><span·class="lineno">··825</span> ········push·@{$p->{layerconstructor}->{Schema}{Fields}},·{Name·=>·$p->{idfield},·Type·=>·<span·class="stringliteral">'Integer'</span>};</div><div·class="line"><a·name="l00826"></a><span·class="lineno">··826</span> ····}</div><div·class="line"><a·name="l00827"></a><span·class="lineno">··827</span> ····unless·($p->{elevfield}·=~·/^[+-]?\d+$/·or·$fields{$p->{elevfield}})·{</div><div·class="line"><a·name="l00828"></a><span·class="lineno">··828</span> ········my·$type·=·$self->DataType()·=~·/Float/·?·<span·class="stringliteral">'Real'</span>·:·<span·class="stringliteral">'Integer'</span>;</div><div·class="line"><a·name="l00829"></a><span·class="lineno">··829</span> ········push·@{$p->{layerconstructor}->{Schema}{Fields}},·{Name·=>·$p->{elevfield},·Type·=>·$type};</div><div·class="line"><a·name="l00830"></a><span·class="lineno">··830</span> ····}</div><div·class="line"><a·name="l00831"></a><span·class="lineno">··831</span> ····my·$layer·=·$p->{datasource}->CreateLayer($p->{layerconstructor});</div><div·class="line"><a·name="l00832"></a><span·class="lineno">··832</span> ····my·$schema·=·$layer->GetLayerDefn;</div><div·class="line"><a·name="l00833"></a><span·class="lineno">··833</span> ····<span·class="keywordflow">for</span>·(<span·class="stringliteral">'idfield'</span>,·<span·class="stringliteral">'elevfield'</span>)·{</div><div·class="line"><a·name="l00834"></a><span·class="lineno">··834</span> ········$p->{$_}·=·$schema->GetFieldIndex($p->{$_})·unless·$p->{$_}·=~·/^[+-]?\d+$/;</div><div·class="line"><a·name="l00835"></a><span·class="lineno">··835</span> ····}</div><div·class="line"><a·name="l00836"></a><span·class="lineno">··836</span> ····$p->{progressdata}·=·1·<span·class="keywordflow">if</span>·$p->{progress}·and·not·defined·$p->{progressdata};</div><div·class="line"><a·name="l00837"></a><span·class="lineno">··837</span> ····ContourGenerate($self,·$p->{contourinterval},·$p->{contourbase},·$p->{fixedlevels},</div><div·class="line"><a·name="l00838"></a><span·class="lineno">··838</span> ····················$p->{nodatavalue},·$layer,·$p->{idfield},·$p->{elevfield},</div><div·class="line"><a·name="l00839"></a><span·class="lineno">··839</span> ····················$p->{progress},·$p->{progressdata});</div><div·class="line"><a·name="l00840"></a><span·class="lineno">··840</span> ····<span·class="keywordflow">return</span>·$layer;</div><div·class="line"><a·name="l00841"></a><span·class="lineno">··841</span> }</div><div·class="line"><a·name="l00842"></a><span·class="lineno">··842</span> </div><div·class="line"><a·name="l00843"></a><span·class="lineno">··843</span> <span·class="preprocessor">#**·@method·CreateMaskBand(@flags)</span></div><div·class="line"><a·name="l00844"></a><span·class="lineno">··844</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00845"></a><span·class="lineno">··845</span> <span·class="preprocessor">#·@note·May·invalidate·any·previous·mask·band·obtained·with·Geo::GDAL::Band::GetMaskBand.</span></div><div·class="line"><a·name="l00846"></a><span·class="lineno">··846</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00847"></a><span·class="lineno">··847</span> <span·class="preprocessor">#·@param·flags·one·or·more·mask·flags.·The·flags·are·Geo::GDAL::Band::MaskFlags.</span></div><div·class="line"><a·name="l00848"></a><span·class="lineno">··848</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00849"></a><span·class="lineno">··849</span> sub·CreateMaskBand·{</div><div·class="line"><a·name="l00850"></a><span·class="lineno">··850</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l00851"></a><span·class="lineno">··851</span> ····my·$f·=·0;</div><div·class="line"><a·name="l00852"></a><span·class="lineno">··852</span> ····<span·class="keywordflow">if</span>·(@_·and·$_[0]·=~·/^\d$/)·{</div><div·class="line"><a·name="l00853"></a><span·class="lineno">··853</span> ········$f·=·shift;</div><div·class="line"><a·name="l00854"></a><span·class="lineno">··854</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l00855"></a><span·class="lineno">··855</span> ········<span·class="keywordflow">for</span>·my·$flag·(@_)·{</div><div·class="line"><a·name="l00856"></a><span·class="lineno">··856</span> ············carp·<span·class="stringliteral">"Unknown·mask·flag:·'$flag'."</span>·unless·$MASK_FLAGS{$flag};</div><div·class="line"><a·name="l00857"></a><span·class="lineno">··857</span> ············$f·|=·$MASK_FLAGS{$flag};</div><div·class="line"><a·name="l00858"></a><span·class="lineno">··858</span> ········}</div><div·class="line"><a·name="l00859"></a><span·class="lineno">··859</span> ····}</div><div·class="line"><a·name="l00860"></a><span·class="lineno">··860</span> ····$self->_CreateMaskBand($f);</div><div·class="line"><a·name="l00861"></a><span·class="lineno">··861</span> }</div><div·class="line"><a·name="l00862"></a><span·class="lineno">··862</span> </div><div·class="line"><a·name="l00863"></a><span·class="lineno">··863</span> <span·class="preprocessor">#**·@method·scalar·DataType()</span></div><div·class="line"><a·name="l00864"></a><span·class="lineno">··864</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00865"></a><span·class="lineno">··865</span> <span·class="preprocessor">#·@return·The·data·type·of·this·band.·One·of·Geo::GDAL::DataTypes.</span></div><div·class="line"><a·name="l00866"></a><span·class="lineno">··866</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00867"></a><span·class="lineno">··867</span> sub·DataType·{</div><div·class="line"><a·name="l00868"></a><span·class="lineno">··868</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l00869"></a><span·class="lineno">··869</span> ····<span·class="keywordflow">return</span>·i2s(data_type·=>·$self->{DataType});</div><div·class="line"><a·name="l00870"></a><span·class="lineno">··870</span> }</div><div·class="line"><a·name="l00871"></a><span·class="lineno">··871</span> </div><div·class="line"><a·name="l00872"></a><span·class="lineno">··872</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Dataset()</span></div><div·class="line"><a·name="l00873"></a><span·class="lineno">··873</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00874"></a><span·class="lineno">··874</span> <span·class="preprocessor">#·@return·The·dataset·which·this·band·belongs·to.</span></div><div·class="line"><a·name="l00875"></a><span·class="lineno">··875</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00876"></a><span·class="lineno">··876</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1Dataset.html">Dataset</a>·{</div><div·class="line"><a·name="l00877"></a><span·class="lineno">··877</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l00878"></a><span·class="lineno">··878</span> ····parent($self);</div><div·class="line"><a·name="l00879"></a><span·class="lineno">··879</span> }</div><div·class="line"><a·name="l00880"></a><span·class="lineno">··880</span> </div><div·class="line"><a·name="l00881"></a><span·class="lineno">··881</span> <span·class="preprocessor">#**·@method·scalar·DeleteNoDataValue()</span></div><div·class="line"><a·name="l00882"></a><span·class="lineno">··882</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00883"></a><span·class="lineno">··883</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00884"></a><span·class="lineno">··884</span> sub·DeleteNoDataValue·{</div><div·class="line"><a·name="l00885"></a><span·class="lineno">··885</span> }</div><div·class="line"><a·name="l00886"></a><span·class="lineno">··886</span> </div><div·class="line"><a·name="l00887"></a><span·class="lineno">··887</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Band·Distance(%params)</span></div><div·class="line"><a·name="l00888"></a><span·class="lineno">··888</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00889"></a><span·class="lineno">··889</span> <span·class="preprocessor">#·Compute·distances·to·specific·cells·of·this·raster.</span></div><div·class="line"><a·name="l00890"></a><span·class="lineno">··890</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l00891"></a><span·class="lineno">··891</span> <span·class="preprocessor">#·-·\a·Distance·A·raster·band,·into·which·the·distances·are·computed.·If·not·given,·a·not·given,·a·new·in-memory·raster·band·is·created·and·returned.·The·data·type·of·the·raster·can·be·given·in·the·options.</span></div><div·class="line"><a·name="l00892"></a><span·class="lineno">··892</span> <span·class="preprocessor">#·-·\a·Options·Hash·of·options.·Options·are:</span></div><div·class="line"><a·name="l00893"></a><span·class="lineno">··893</span> <span·class="preprocessor">#···-·\a·Values·A·list·of·cell·values·in·this·band·to·measure·the·distance·from.·If·this·option·is·not·provided,·the·distance·will·be·computed·to·non-zero·pixel·values.·Currently·pixel·values·are·internally·processed·as·integers.</span></div><div·class="line"><a·name="l00894"></a><span·class="lineno">··894</span> <span·class="preprocessor">#···-·\a·DistUnits=PIXEL|GEO·Indicates·whether·distances·will·be·computed·in·cells·or·in·georeferenced·units.·The·default·is·pixel·units.·This·also·determines·the·interpretation·of·MaxDist.</span></div><div·class="line"><a·name="l00895"></a><span·class="lineno">··895</span> <span·class="preprocessor">#···-·\a·MaxDist=n·The·maximum·distance·to·search.·Distances·greater·than·this·value·will·not·be·computed.·Instead·output·cells·will·be·set·to·a·NoData·value.</span></div><div·class="line"><a·name="l00896"></a><span·class="lineno">··896</span> <span·class="preprocessor">#···-·\a·NoData=n·The·NoData·value·to·use·on·the·distance·band·for·cells·that·are·beyond·MaxDist.·If·not·provided,·the·distance·band·will·be·queried·for·a·NoData·value.·If·one·is·not·found,·65535·will·be·used·(255·if·the·type·is·Byte).</span></div><div·class="line"><a·name="l00897"></a><span·class="lineno">··897</span> <span·class="preprocessor">#···-·\a·Use_Input_NoData=YES|NO·If·this·option·is·set,·the·NoData·value·of·this·band·will·be·respected.·Leaving·NoData·cells·in·the·input·as·NoData·pixels·in·the·distance·raster.</span></div><div·class="line"><a·name="l00898"></a><span·class="lineno">··898</span> <span·class="preprocessor">#···-·\a·Fixed_Buf_Val=n·If·this·option·is·set,·all·cells·within·the·MaxDist·threshold·are·set·to·this·value·instead·of·the·distance·value.</span></div><div·class="line"><a·name="l00899"></a><span·class="lineno">··899</span> <span·class="preprocessor">#···-·\a·DataType·The·data·type·for·the·result·if·it·is·not·given.</span></div><div·class="line"><a·name="l00900"></a><span·class="lineno">··900</span> <span·class="preprocessor">#·-·\a·Progress·Progress·function.</span></div><div·class="line"><a·name="l00901"></a><span·class="lineno">··901</span> <span·class="preprocessor">#·-·\a·ProgressData·Additional·parameter·for·the·progress·function.</span></div><div·class="line"><a·name="l00902"></a><span·class="lineno">··902</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00903"></a><span·class="lineno">··903</span> <span·class="preprocessor">#·@note·This·GDAL·function·behind·this·API·is·called·GDALComputeProximity.</span></div><div·class="line"><a·name="l00904"></a><span·class="lineno">··904</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00905"></a><span·class="lineno">··905</span> <span·class="preprocessor">#·@return·The·distance·raster.</span></div><div·class="line"><a·name="l00906"></a><span·class="lineno">··906</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00907"></a><span·class="lineno">··907</span> sub·Distance·{</div><div·class="line"><a·name="l00908"></a><span·class="lineno">··908</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l00909"></a><span·class="lineno">··909</span> ····my·$p·=·named_parameters(\@_,·Distance·=>·undef,·Options·=>·undef,·Progress·=>·undef,·ProgressData·=>·undef);</div><div·class="line"><a·name="l00910"></a><span·class="lineno">··910</span> ····<span·class="keywordflow">for</span>·my·$key·(keys·%{$p->{options}})·{</div><div·class="line"><a·name="l00911"></a><span·class="lineno">··911</span> ········$p->{options}{uc($key)}·=·$p->{options}{$key};</div><div·class="line"><a·name="l00912"></a><span·class="lineno">··912</span> ····}</div><div·class="line"><a·name="l00913"></a><span·class="lineno">··913</span> ····$p->{options}{TYPE}·<span·class="comment">//=·$p->{options}{DATATYPE}·//=·'Float32';</span></div><div·class="line"><a·name="l00914"></a><span·class="lineno">··914</span> ····unless·($p->{distance})·{</div><div·class="line"><a·name="l00915"></a><span·class="lineno">··915</span> ········my·($w,·$h)·=·$self->Size;</div><div·class="line"><a·name="l00916"></a><span·class="lineno">··916</span> ········$p->{distance}·=·<a·class="code"·href="classGeo_1_1GDAL.html#ac6041428faeb7a6b21c380a2011cd25c">Geo::GDAL::Driver</a>(<span·class="stringliteral">'MEM'</span>)-><a·class="code"·href="classGeo_1_1GDAL_1_1Driver.html#a2bdbed29da0cc19770b7295793c7d85f">Create</a>(Name·=>·<span·class="stringliteral">'distance'</span>,·Width·=>·$w,·Height·=>·$h,·Type·=>·$p->{options}{TYPE})-><a·class="code"·href="classGeo_1_1GDAL_1_1Band.html">Band</a>;</div><div·class="line"><a·name="l00917"></a><span·class="lineno">··917</span> ····}</div><div·class="line"><a·name="l00918"></a><span·class="lineno">··918</span> ····Geo::GDAL::ComputeProximity($self,·$p->{distance},·$p->{options},·$p->{progress},·$p->{progressdata});</div><div·class="line"><a·name="l00919"></a><span·class="lineno">··919</span> ····<span·class="keywordflow">return</span>·$p->{distance};</div><div·class="line"><a·name="l00920"></a><span·class="lineno">··920</span> }</div><div·class="line"><a·name="l00921"></a><span·class="lineno">··921</span> </div><div·class="line"><a·name="l00922"></a><span·class="lineno">··922</span> <span·class="preprocessor">#**·@method·Domains()</span></div><div·class="line"><a·name="l00923"></a><span·class="lineno">··923</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00924"></a><span·class="lineno">··924</span> sub·Domains·{</div><div·class="line"><a·name="l00925"></a><span·class="lineno">··925</span> ····<span·class="keywordflow">return</span>·@DOMAINS;</div><div·class="line"><a·name="l00926"></a><span·class="lineno">··926</span> }</div><div·class="line"><a·name="l00927"></a><span·class="lineno">··927</span> </div><div·class="line"><a·name="l00928"></a><span·class="lineno">··928</span> <span·class="preprocessor">#**·@method·Fill($real_part,·$imag_part·=·0.0)</span></div><div·class="line"><a·name="l00929"></a><span·class="lineno">··929</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00930"></a><span·class="lineno">··930</span> <span·class="preprocessor">#·Fill·the·band·with·a·constant·value.</span></div><div·class="line"><a·name="l00931"></a><span·class="lineno">··931</span> <span·class="preprocessor">#·@param·real_part·Real·component·of·fill·value.</span></div><div·class="line"><a·name="l00932"></a><span·class="lineno">··932</span> <span·class="preprocessor">#·@param·imag_part·Imaginary·component·of·fill·value.</span></div><div·class="line"><a·name="l00933"></a><span·class="lineno">··933</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00934"></a><span·class="lineno">··934</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00935"></a><span·class="lineno">··935</span> sub·Fill·{</div><div·class="line"><a·name="l00936"></a><span·class="lineno">··936</span> }</div><div·class="line"><a·name="l00937"></a><span·class="lineno">··937</span> </div><div·class="line"><a·name="l00938"></a><span·class="lineno">··938</span> <span·class="preprocessor">#**·@method·FillNoData($mask,·$max_search_dist,·$smoothing_iterations,·$options,·coderef·progress,·$progress_data)</span></div><div·class="line"><a·name="l00939"></a><span·class="lineno">··939</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00940"></a><span·class="lineno">··940</span> <span·class="preprocessor">#·Interpolate·values·for·cells·in·this·raster.·The·cells·to·fill</span></div><div·class="line"><a·name="l00941"></a><span·class="lineno">··941</span> <span·class="preprocessor">#·should·be·marked·in·the·mask·band·with·zero.</span></div><div·class="line"><a·name="l00942"></a><span·class="lineno">··942</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00943"></a><span·class="lineno">··943</span> <span·class="preprocessor">#·@param·mask·[optional]·a·mask·band·indicating·cells·to·be·interpolated·(zero·valued)·(default·is·to·get·it·with·Geo::GDAL::Band::GetMaskBand).</span></div><div·class="line"><a·name="l00944"></a><span·class="lineno">··944</span> <span·class="preprocessor">#·@param·max_search_dist·[optional]·the·maximum·number·of·cells·to</span></div><div·class="line"><a·name="l00945"></a><span·class="lineno">··945</span> <span·class="preprocessor">#·search·in·all·directions·to·find·values·to·interpolate·from·(default·is·10).</span></div><div·class="line"><a·name="l00946"></a><span·class="lineno">··946</span> <span·class="preprocessor">#·@param·smoothing_iterations·[optional]·the·number·of·3x3·smoothing·filter·passes·to·run·(0·or·more)·(default·is·0).</span></div><div·class="line"><a·name="l00947"></a><span·class="lineno">··947</span> <span·class="preprocessor">#·@param·options·[optional]·A·reference·to·a·hash.·No·options·have·been·defined·so·far·for·this·algorithm·(default·is·{}).</span></div><div·class="line"><a·name="l00948"></a><span·class="lineno">··948</span> <span·class="preprocessor">#·@param·progress·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l00949"></a><span·class="lineno">··949</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·progress_data)·(default·is·undef).</span></div><div·class="line"><a·name="l00950"></a><span·class="lineno">··950</span> <span·class="preprocessor">#·@param·progress_data·[optional]·(default·is·undef).</span></div><div·class="line"><a·name="l00951"></a><span·class="lineno">··951</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00952"></a><span·class="lineno">··952</span> <span·class="preprocessor">#·<a·href="http://www.gdal.org/gdal__alg_8h.html">Documentation·for·GDAL·algorithms</a></span></div><div·class="line"><a·name="l00953"></a><span·class="lineno">··953</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00954"></a><span·class="lineno">··954</span> sub·FillNoData·{</div><div·class="line"><a·name="l00955"></a><span·class="lineno">··955</span> }</div><div·class="line"><a·name="l00956"></a><span·class="lineno">··956</span> </div><div·class="line"><a·name="l00957"></a><span·class="lineno">··957</span> <span·class="preprocessor">#**·@method·FlushCache()</span></div><div·class="line"><a·name="l00958"></a><span·class="lineno">··958</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00959"></a><span·class="lineno">··959</span> <span·class="preprocessor">#·Write·cached·data·to·disk.·There·is·usually·no·need·to·call·this</span></div><div·class="line"><a·name="l00960"></a><span·class="lineno">··960</span> <span·class="preprocessor">#·method.</span></div><div·class="line"><a·name="l00961"></a><span·class="lineno">··961</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00962"></a><span·class="lineno">··962</span> sub·FlushCache·{</div><div·class="line"><a·name="l00963"></a><span·class="lineno">··963</span> }</div><div·class="line"><a·name="l00964"></a><span·class="lineno">··964</span> </div><div·class="line"><a·name="l00965"></a><span·class="lineno">··965</span> <span·class="preprocessor">#**·@method·scalar·GetBandNumber()</span></div><div·class="line"><a·name="l00966"></a><span·class="lineno">··966</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00967"></a><span·class="lineno">··967</span> <span·class="preprocessor">#·@return·The·index·of·this·band·in·the·parent·dataset·list·of·bands.</span></div><div·class="line"><a·name="l00968"></a><span·class="lineno">··968</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00969"></a><span·class="lineno">··969</span> sub·GetBandNumber·{</div><div·class="line"><a·name="l00970"></a><span·class="lineno">··970</span> }</div><div·class="line"><a·name="l00971"></a><span·class="lineno">··971</span> </div><div·class="line"><a·name="l00972"></a><span·class="lineno">··972</span> <span·class="preprocessor">#**·@method·GetBlockSize()</span></div><div·class="line"><a·name="l00973"></a><span·class="lineno">··973</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00974"></a><span·class="lineno">··974</span> sub·GetBlockSize·{</div><div·class="line"><a·name="l00975"></a><span·class="lineno">··975</span> }</div><div·class="line"><a·name="l00976"></a><span·class="lineno">··976</span> </div><div·class="line"><a·name="l00977"></a><span·class="lineno">··977</span> <span·class="preprocessor">#**·@method·list·GetDefaultHistogram($force·=·1,·coderef·progress·=·undef,·$progress_data·=·undef)</span></div><div·class="line"><a·name="l00978"></a><span·class="lineno">··978</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00979"></a><span·class="lineno">··979</span> <span·class="preprocessor">#·@param·force·true·to·force·the·computation</span></div><div·class="line"><a·name="l00980"></a><span·class="lineno">··980</span> <span·class="preprocessor">#·@param·progress·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l00981"></a><span·class="lineno">··981</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·progress_data)</span></div><div·class="line"><a·name="l00982"></a><span·class="lineno">··982</span> <span·class="preprocessor">#·@param·progress_data·[optional]</span></div><div·class="line"><a·name="l00983"></a><span·class="lineno">··983</span> <span·class="preprocessor">#·@note·See·Note·in·Geo::GDAL::Band::GetHistogram.</span></div><div·class="line"><a·name="l00984"></a><span·class="lineno">··984</span> <span·class="preprocessor">#·@return·a·list:·($min,·$max,·arrayref·histogram).</span></div><div·class="line"><a·name="l00985"></a><span·class="lineno">··985</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00986"></a><span·class="lineno">··986</span> sub·GetDefaultHistogram·{</div><div·class="line"><a·name="l00987"></a><span·class="lineno">··987</span> }</div><div·class="line"><a·name="l00988"></a><span·class="lineno">··988</span> </div><div·class="line"><a·name="l00989"></a><span·class="lineno">··989</span> <span·class="preprocessor">#**·@method·list·GetHistogram(%parameters)</span></div><div·class="line"><a·name="l00990"></a><span·class="lineno">··990</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00991"></a><span·class="lineno">··991</span> <span·class="preprocessor">#·Compute·histogram·from·the·raster.</span></div><div·class="line"><a·name="l00992"></a><span·class="lineno">··992</span> <span·class="preprocessor">#·@param·parameters·Named·parameters:</span></div><div·class="line"><a·name="l00993"></a><span·class="lineno">··993</span> <span·class="preprocessor">#·-·\a·Min·the·lower·bound,·default·is·-0.5</span></div><div·class="line"><a·name="l00994"></a><span·class="lineno">··994</span> <span·class="preprocessor">#·-·\a·Max·the·upper·bound,·default·is·255.5</span></div><div·class="line"><a·name="l00995"></a><span·class="lineno">··995</span> <span·class="preprocessor">#·-·\a·Buckets·the·number·of·buckets·in·the·histogram,·default·is·256</span></div><div·class="line"><a·name="l00996"></a><span·class="lineno">··996</span> <span·class="preprocessor">#·-·\a·IncludeOutOfRange·whether·to·use·the·first·and·last·values·in·the·returned·list</span></div><div·class="line"><a·name="l00997"></a><span·class="lineno">··997</span> <span·class="preprocessor">#·for·out·of·range·values,·default·is·false;</span></div><div·class="line"><a·name="l00998"></a><span·class="lineno">··998</span> <span·class="preprocessor">#·the·bucket·size·is·(Max-Min)·/·Buckets·if·this·is·false·and</span></div><div·class="line"><a·name="l00999"></a><span·class="lineno">··999</span> <span·class="preprocessor">#·(Max-Min)·/·(Buckets-2)·if·this·is·true</span></div><div·class="line"><a·name="l01000"></a><span·class="lineno">·1000</span> <span·class="preprocessor">#·-·\a·ApproxOK·if·histogram·can·be·computed·from·overviews,·default·is·false</span></div><div·class="line"><a·name="l01001"></a><span·class="lineno">·1001</span> <span·class="preprocessor">#·-·\a·Progress·an·optional·progress·function,·the·default·is·undef</span></div><div·class="line"><a·name="l01002"></a><span·class="lineno">·1002</span> <span·class="preprocessor">#·-·\a·ProgressData·data·for·the·progress·function,·the·default·is·undef</span></div><div·class="line"><a·name="l01003"></a><span·class="lineno">·1003</span> <span·class="preprocessor">#·@note·Histogram·counts·are·treated·as·strings·in·the·bindings·to·be</span></div><div·class="line"><a·name="l01004"></a><span·class="lineno">·1004</span> <span·class="preprocessor">#·able·to·use·large·integers·(if·GUIntBig·is·larger·than·Perl·IV).·In</span></div><div·class="line"><a·name="l01005"></a><span·class="lineno">·1005</span> <span·class="preprocessor">#·practice·this·is·only·important·if·you·have·a·32·bit·machine·and</span></div><div·class="line"><a·name="l01006"></a><span·class="lineno">·1006</span> <span·class="preprocessor">#·very·large·bucket·counts.·In·those·cases·it·may·also·be·necessary·to</span></div><div·class="line"><a·name="l01007"></a><span·class="lineno">·1007</span> <span·class="preprocessor">#·use·Math::BigInt.</span></div><div·class="line"><a·name="l01008"></a><span·class="lineno">·1008</span> <span·class="preprocessor">#·@return·a·list·which·contains·the·count·of·values·in·each·bucket</span></div><div·class="line"><a·name="l01009"></a><span·class="lineno">·1009</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01010"></a><span·class="lineno">·1010</span> sub·GetHistogram·{</div><div·class="line"><a·name="l01011"></a><span·class="lineno">·1011</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01012"></a><span·class="lineno">·1012</span> ····my·$p·=·named_parameters(\@_,</div><div·class="line"><a·name="l01013"></a><span·class="lineno">·1013</span> ·····························Min·=>·-0.5,</div><div·class="line"><a·name="l01014"></a><span·class="lineno">·1014</span> ·····························Max·=>·255.5,</div><div·class="line"><a·name="l01015"></a><span·class="lineno">·1015</span> ·····························Buckets·=>·256,</div><div·class="line"><a·name="l01016"></a><span·class="lineno">·1016</span> ·····························IncludeOutOfRange·=>·0,</div><div·class="line"><a·name="l01017"></a><span·class="lineno">·1017</span> ·····························ApproxOK·=>·0,</div><div·class="line"><a·name="l01018"></a><span·class="lineno">·1018</span> ·····························Progress·=>·undef,</div><div·class="line"><a·name="l01019"></a><span·class="lineno">·1019</span> ·····························ProgressData·=>·undef);</div><div·class="line"><a·name="l01020"></a><span·class="lineno">·1020</span> ····$p->{progressdata}·=·1·<span·class="keywordflow">if</span>·$p->{progress}·and·not·defined·$p->{progressdata};</div><div·class="line"><a·name="l01021"></a><span·class="lineno">·1021</span> ····_GetHistogram($self,·$p->{min},·$p->{max},·$p->{buckets},</div><div·class="line"><a·name="l01022"></a><span·class="lineno">·1022</span> ··················$p->{includeoutofrange},·$p->{approxok},</div><div·class="line"><a·name="l01023"></a><span·class="lineno">·1023</span> ··················$p->{progress},·$p->{progressdata});</div><div·class="line"><a·name="l01024"></a><span·class="lineno">·1024</span> }</div><div·class="line"><a·name="l01025"></a><span·class="lineno">·1025</span> </div><div·class="line"><a·name="l01026"></a><span·class="lineno">·1026</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Band·GetMaskBand()</span></div><div·class="line"><a·name="l01027"></a><span·class="lineno">·1027</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01028"></a><span·class="lineno">·1028</span> <span·class="preprocessor">#·@return·the·mask·band·associated·with·this</span></div><div·class="line"><a·name="l01029"></a><span·class="lineno">·1029</span> <span·class="preprocessor">#·band.</span></div><div·class="line"><a·name="l01030"></a><span·class="lineno">·1030</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01031"></a><span·class="lineno">·1031</span> sub·GetMaskBand·{</div><div·class="line"><a·name="l01032"></a><span·class="lineno">·1032</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01033"></a><span·class="lineno">·1033</span> ····my·$band·=·_GetMaskBand($self);</div><div·class="line"><a·name="l01034"></a><span·class="lineno">·1034</span> ····keep($band,·$self);</div><div·class="line"><a·name="l01035"></a><span·class="lineno">·1035</span> }</div><div·class="line"><a·name="l01036"></a><span·class="lineno">·1036</span> </div><div·class="line"><a·name="l01037"></a><span·class="lineno">·1037</span> <span·class="preprocessor">#**·@method·list·GetMaskFlags()</span></div><div·class="line"><a·name="l01038"></a><span·class="lineno">·1038</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01039"></a><span·class="lineno">·1039</span> <span·class="preprocessor">#·@return·the·mask·flags·of·the·mask·band·associated·with·this</span></div><div·class="line"><a·name="l01040"></a><span·class="lineno">·1040</span> <span·class="preprocessor">#·band.·The·flags·are·one·or·more·of·Geo::GDAL::Band::MaskFlags.</span></div><div·class="line"><a·name="l01041"></a><span·class="lineno">·1041</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01042"></a><span·class="lineno">·1042</span> sub·GetMaskFlags·{</div><div·class="line"><a·name="l01043"></a><span·class="lineno">·1043</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01044"></a><span·class="lineno">·1044</span> ····my·$f·=·$self->_GetMaskFlags;</div><div·class="line"><a·name="l01045"></a><span·class="lineno">·1045</span> ····my·@f;</div><div·class="line"><a·name="l01046"></a><span·class="lineno">·1046</span> ····<span·class="keywordflow">for</span>·my·$flag·(keys·%MASK_FLAGS)·{</div><div·class="line"><a·name="l01047"></a><span·class="lineno">·1047</span> ········push·@f,·$flag·<span·class="keywordflow">if</span>·$f·&·$MASK_FLAGS{$flag};</div><div·class="line"><a·name="l01048"></a><span·class="lineno">·1048</span> ····}</div><div·class="line"><a·name="l01049"></a><span·class="lineno">·1049</span> ····<span·class="keywordflow">return</span>·wantarray·?·@f·:·$f;</div><div·class="line"><a·name="l01050"></a><span·class="lineno">·1050</span> }</div><div·class="line"><a·name="l01051"></a><span·class="lineno">·1051</span> </div><div·class="line"><a·name="l01052"></a><span·class="lineno">·1052</span> <span·class="preprocessor">#**·@method·scalar·GetMaximum()</span></div><div·class="line"><a·name="l01053"></a><span·class="lineno">·1053</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01054"></a><span·class="lineno">·1054</span> <span·class="preprocessor">#·@note·Call·Geo::GDAL::Band::ComputeStatistics·before·calling</span></div><div·class="line"><a·name="l01055"></a><span·class="lineno">·1055</span> <span·class="preprocessor">#·GetMaximum·to·make·sure·the·value·is·computed.</span></div><div·class="line"><a·name="l01056"></a><span·class="lineno">·1056</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01057"></a><span·class="lineno">·1057</span> <span·class="preprocessor">#·@return·statistical·minimum·of·the·band·or·undef·if·statistics·are</span></div><div·class="line"><a·name="l01058"></a><span·class="lineno">·1058</span> <span·class="preprocessor">#·not·kept·or·computed·in·scalar·context.·In·list·context·returns·the</span></div><div·class="line"><a·name="l01059"></a><span·class="lineno">·1059</span> <span·class="preprocessor">#·maximum·value·or·a·(kind·of)·maximum·value·supported·by·the·data</span></div><div·class="line"><a·name="l01060"></a><span·class="lineno">·1060</span> <span·class="preprocessor">#·type·and·a·boolean·value,·which·indicates·which·is·the·case·(true·is</span></div><div·class="line"><a·name="l01061"></a><span·class="lineno">·1061</span> <span·class="preprocessor">#·first,·false·is·second).</span></div><div·class="line"><a·name="l01062"></a><span·class="lineno">·1062</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01063"></a><span·class="lineno">·1063</span> sub·GetMaximum·{</div><div·class="line"><a·name="l01064"></a><span·class="lineno">·1064</span> }</div><div·class="line"><a·name="l01065"></a><span·class="lineno">·1065</span> </div><div·class="line"><a·name="l01066"></a><span·class="lineno">·1066</span> <span·class="preprocessor">#**·@method·scalar·GetMinimum()</span></div><div·class="line"><a·name="l01067"></a><span·class="lineno">·1067</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01068"></a><span·class="lineno">·1068</span> <span·class="preprocessor">#·@note·Call·Geo::GDAL::Band::ComputeStatistics·before·calling</span></div><div·class="line"><a·name="l01069"></a><span·class="lineno">·1069</span> <span·class="preprocessor">#·GetMinimum·to·make·sure·the·value·is·computed.</span></div><div·class="line"><a·name="l01070"></a><span·class="lineno">·1070</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01071"></a><span·class="lineno">·1071</span> <span·class="preprocessor">#·@return·statistical·minimum·of·the·band·or·undef·if·statistics·are</span></div><div·class="line"><a·name="l01072"></a><span·class="lineno">·1072</span> <span·class="preprocessor">#·not·kept·or·computed·in·scalar·context.·In·list·context·returns·the</span></div><div·class="line"><a·name="l01073"></a><span·class="lineno">·1073</span> <span·class="preprocessor">#·minimum·value·or·a·(kind·of)·minimum·value·supported·by·the·data</span></div><div·class="line"><a·name="l01074"></a><span·class="lineno">·1074</span> <span·class="preprocessor">#·type·and·a·boolean·value,·which·indicates·which·is·the·case·(true·is</span></div><div·class="line"><a·name="l01075"></a><span·class="lineno">·1075</span> <span·class="preprocessor">#·first,·false·is·second).</span></div><div·class="line"><a·name="l01076"></a><span·class="lineno">·1076</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01077"></a><span·class="lineno">·1077</span> sub·GetMinimum·{</div><div·class="line"><a·name="l01078"></a><span·class="lineno">·1078</span> }</div><div·class="line"><a·name="l01079"></a><span·class="lineno">·1079</span> </div><div·class="line"><a·name="l01080"></a><span·class="lineno">·1080</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Band·GetOverview($index)</span></div><div·class="line"><a·name="l01081"></a><span·class="lineno">·1081</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01082"></a><span·class="lineno">·1082</span> <span·class="preprocessor">#·@param·index·0..GetOverviewCount-1</span></div><div·class="line"><a·name="l01083"></a><span·class="lineno">·1083</span> <span·class="preprocessor">#·@return·a·Geo::GDAL::Band·object,·which·represents·the·internal</span></div><div·class="line"><a·name="l01084"></a><span·class="lineno">·1084</span> <span·class="preprocessor">#·overview·band,·or·undef.··if·the·index·is·out·of·bounds.</span></div><div·class="line"><a·name="l01085"></a><span·class="lineno">·1085</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01086"></a><span·class="lineno">·1086</span> sub·GetOverview·{</div><div·class="line"><a·name="l01087"></a><span·class="lineno">·1087</span> ····my·($self,·$index)·=·@_;</div><div·class="line"><a·name="l01088"></a><span·class="lineno">·1088</span> ····my·$band·=·_GetOverview($self,·$index);</div><div·class="line"><a·name="l01089"></a><span·class="lineno">·1089</span> ····keep($band,·$self);</div><div·class="line"><a·name="l01090"></a><span·class="lineno">·1090</span> }</div><div·class="line"><a·name="l01091"></a><span·class="lineno">·1091</span> </div><div·class="line"><a·name="l01092"></a><span·class="lineno">·1092</span> <span·class="preprocessor">#**·@method·scalar·GetOverviewCount()</span></div><div·class="line"><a·name="l01093"></a><span·class="lineno">·1093</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01094"></a><span·class="lineno">·1094</span> <span·class="preprocessor">#·@return·the·number·of·overviews·available·of·the·band.</span></div><div·class="line"><a·name="l01095"></a><span·class="lineno">·1095</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01096"></a><span·class="lineno">·1096</span> sub·GetOverviewCount·{</div><div·class="line"><a·name="l01097"></a><span·class="lineno">·1097</span> }</div><div·class="line"><a·name="l01098"></a><span·class="lineno">·1098</span> </div><div·class="line"><a·name="l01099"></a><span·class="lineno">·1099</span> <span·class="preprocessor">#**·@method·list·GetStatistics($approx_ok,·$force)</span></div><div·class="line"><a·name="l01100"></a><span·class="lineno">·1100</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01101"></a><span·class="lineno">·1101</span> <span·class="preprocessor">#·@param·approx_ok·Whether·it·is·allowed·to·compute·the·statistics</span></div><div·class="line"><a·name="l01102"></a><span·class="lineno">·1102</span> <span·class="preprocessor">#·based·on·overviews·or·similar.</span></div><div·class="line"><a·name="l01103"></a><span·class="lineno">·1103</span> <span·class="preprocessor">#·@param·force·Whether·to·force·scanning·of·the·whole·raster.</span></div><div·class="line"><a·name="l01104"></a><span·class="lineno">·1104</span> <span·class="preprocessor">#·@note·Uses·Geo::GDAL::Band::ComputeStatistics·internally.</span></div><div·class="line"><a·name="l01105"></a><span·class="lineno">·1105</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01106"></a><span·class="lineno">·1106</span> <span·class="preprocessor">#·@return·a·list·($min,·$max,·$mean,·$stddev).</span></div><div·class="line"><a·name="l01107"></a><span·class="lineno">·1107</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01108"></a><span·class="lineno">·1108</span> sub·GetStatistics·{</div><div·class="line"><a·name="l01109"></a><span·class="lineno">·1109</span> }</div><div·class="line"><a·name="l01110"></a><span·class="lineno">·1110</span> </div><div·class="line"><a·name="l01111"></a><span·class="lineno">·1111</span> <span·class="preprocessor">#**·@method·HasArbitraryOverviews()</span></div><div·class="line"><a·name="l01112"></a><span·class="lineno">·1112</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01113"></a><span·class="lineno">·1113</span> <span·class="preprocessor">#·@return·true·or·false.</span></div><div·class="line"><a·name="l01114"></a><span·class="lineno">·1114</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01115"></a><span·class="lineno">·1115</span> sub·HasArbitraryOverviews·{</div><div·class="line"><a·name="l01116"></a><span·class="lineno">·1116</span> }</div><div·class="line"><a·name="l01117"></a><span·class="lineno">·1117</span> </div><div·class="line"><a·name="l01118"></a><span·class="lineno">·1118</span> <span·class="preprocessor">#**·@method·list·MaskFlags()</span></div><div·class="line"><a·name="l01119"></a><span·class="lineno">·1119</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l01120"></a><span·class="lineno">·1120</span> <span·class="preprocessor">#·@return·the·list·of·mask·flags.·These·are</span></div><div·class="line"><a·name="l01121"></a><span·class="lineno">·1121</span> <span·class="preprocessor">#·-·\a·AllValid:·There·are·no·invalid·cell,·all·mask·values·will·be·255.</span></div><div·class="line"><a·name="l01122"></a><span·class="lineno">·1122</span> <span·class="preprocessor">#·When·used·this·will·normally·be·the·only·flag·set.</span></div><div·class="line"><a·name="l01123"></a><span·class="lineno">·1123</span> <span·class="preprocessor">#·-·\a·PerDataset:·The·mask·band·is·shared·between·all·bands·on·the·dataset.</span></div><div·class="line"><a·name="l01124"></a><span·class="lineno">·1124</span> <span·class="preprocessor">#·-·\a·Alpha:·The·mask·band·is·actually·an·alpha·band·and·may·have·values</span></div><div·class="line"><a·name="l01125"></a><span·class="lineno">·1125</span> <span·class="preprocessor">#·other·than·0·and·255.</span></div><div·class="line"><a·name="l01126"></a><span·class="lineno">·1126</span> <span·class="preprocessor">#·-·\a·NoData:·Indicates·the·mask·is·actually·being·generated·from·NoData·values.</span></div><div·class="line"><a·name="l01127"></a><span·class="lineno">·1127</span> <span·class="preprocessor">#·(mutually·exclusive·of·Alpha).</span></div><div·class="line"><a·name="l01128"></a><span·class="lineno">·1128</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01129"></a><span·class="lineno">·1129</span> sub·MaskFlags·{</div><div·class="line"><a·name="l01130"></a><span·class="lineno">·1130</span> ····my·@f·=·sort·{$MASK_FLAGS{$a}·<=>·$MASK_FLAGS{$b}}·keys·%MASK_FLAGS;</div><div·class="line"><a·name="l01131"></a><span·class="lineno">·1131</span> ····<span·class="keywordflow">return</span>·@f;</div><div·class="line"><a·name="l01132"></a><span·class="lineno">·1132</span> }</div><div·class="line"><a·name="l01133"></a><span·class="lineno">·1133</span> </div><div·class="line"><a·name="l01134"></a><span·class="lineno">·1134</span> <span·class="preprocessor">#**·@method·scalar·NoDataValue($NoDataValue)</span></div><div·class="line"><a·name="l01135"></a><span·class="lineno">·1135</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01136"></a><span·class="lineno">·1136</span> <span·class="preprocessor">#·Get·or·set·the·"no·data"·value.</span></div><div·class="line"><a·name="l01137"></a><span·class="lineno">·1137</span> <span·class="preprocessor">#·@param·NoDataValue·[optional]</span></div><div·class="line"><a·name="l01138"></a><span·class="lineno">·1138</span> <span·class="preprocessor">#·@note·$band->NoDataValue(undef)·sets·the·NoData·value·to·the</span></div><div·class="line"><a·name="l01139"></a><span·class="lineno">·1139</span> <span·class="preprocessor">#·Posix·floating·point·maximum.·Use·Geo::GDAL::Band::DeleteNoDataValue</span></div><div·class="line"><a·name="l01140"></a><span·class="lineno">·1140</span> <span·class="preprocessor">#·to·stop·this·band·using·a·NoData·value.</span></div><div·class="line"><a·name="l01141"></a><span·class="lineno">·1141</span> <span·class="preprocessor">#·@return·The·NoData·value·or·undef·in·scalar·context.·An·undef</span></div><div·class="line"><a·name="l01142"></a><span·class="lineno">·1142</span> <span·class="preprocessor">#·value·indicates·that·there·is·no·NoData·value·associated·with·this</span></div><div·class="line"><a·name="l01143"></a><span·class="lineno">·1143</span> <span·class="preprocessor">#·band.</span></div><div·class="line"><a·name="l01144"></a><span·class="lineno">·1144</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01145"></a><span·class="lineno">·1145</span> sub·NoDataValue·{</div><div·class="line"><a·name="l01146"></a><span·class="lineno">·1146</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01147"></a><span·class="lineno">·1147</span> ····<span·class="keywordflow">if</span>·(@_·>·0)·{</div><div·class="line"><a·name="l01148"></a><span·class="lineno">·1148</span> ········<span·class="keywordflow">if</span>·(defined·$_[0])·{</div><div·class="line"><a·name="l01149"></a><span·class="lineno">·1149</span> ············SetNoDataValue($self,·$_[0]);</div><div·class="line"><a·name="l01150"></a><span·class="lineno">·1150</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l01151"></a><span·class="lineno">·1151</span> ············SetNoDataValue($self,·POSIX::FLT_MAX);·#·hopefully·an·<span·class="stringliteral">"out·of·range"</span>·value</div><div·class="line"><a·name="l01152"></a><span·class="lineno">·1152</span> ········}</div><div·class="line"><a·name="l01153"></a><span·class="lineno">·1153</span> ····}</div><div·class="line"><a·name="l01154"></a><span·class="lineno">·1154</span> ····GetNoDataValue($self);</div><div·class="line"><a·name="l01155"></a><span·class="lineno">·1155</span> }</div><div·class="line"><a·name="l01156"></a><span·class="lineno">·1156</span> </div><div·class="line"><a·name="l01157"></a><span·class="lineno">·1157</span> <span·class="preprocessor">#**·@method·scalar·PackCharacter()</span></div><div·class="line"><a·name="l01158"></a><span·class="lineno">·1158</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01159"></a><span·class="lineno">·1159</span> <span·class="preprocessor">#·@return·The·character·to·use·in·Perl·pack·and·unpack·for·the·data·of·this·band.</span></div><div·class="line"><a·name="l01160"></a><span·class="lineno">·1160</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01161"></a><span·class="lineno">·1161</span> sub·PackCharacter·{</div><div·class="line"><a·name="l01162"></a><span·class="lineno">·1162</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01163"></a><span·class="lineno">·1163</span> ····<span·class="keywordflow">return</span>·<a·class="code"·href="classGeo_1_1GDAL.html#abbc0c1d362bc306a1916c51116b7a0ff">Geo::GDAL::PackCharacter</a>($self->DataType);</div><div·class="line"><a·name="l01164"></a><span·class="lineno">·1164</span> }</div><div·class="line"><a·name="l01165"></a><span·class="lineno">·1165</span> </div><div·class="line"><a·name="l01166"></a><span·class="lineno">·1166</span> <span·class="preprocessor">#**·@method·Piddle($piddle,·$xoff·=·0,·$yoff·=·0,·$xsize·=·<width>,·$ysize·=·<height>,·$xdim,·$ydim)</span></div><div·class="line"><a·name="l01167"></a><span·class="lineno">·1167</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01168"></a><span·class="lineno">·1168</span> <span·class="preprocessor">#·Read·or·write·band·data·from/into·a·piddle.</span></div><div·class="line"><a·name="l01169"></a><span·class="lineno">·1169</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01170"></a><span·class="lineno">·1170</span> <span·class="preprocessor">#·\note·The·PDL·module·must·be·available·for·this·method·to·work.·Also,·you</span></div><div·class="line"><a·name="l01171"></a><span·class="lineno">·1171</span> <span·class="preprocessor">#·should·'use·PDL'·in·the·code·that·you·use·this·method.</span></div><div·class="line"><a·name="l01172"></a><span·class="lineno">·1172</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01173"></a><span·class="lineno">·1173</span> <span·class="preprocessor">#·@param·piddle·[only·when·writing]·The·piddle·from·which·to·read·the·data·to·be·written·into·the·band.</span></div><div·class="line"><a·name="l01174"></a><span·class="lineno">·1174</span> <span·class="preprocessor">#·@param·xoff,·yoff·The·offset·for·data·in·the·band,·default·is·top·left·(0,·0).</span></div><div·class="line"><a·name="l01175"></a><span·class="lineno">·1175</span> <span·class="preprocessor">#·@param·xsize,·ysize·[optional]·The·size·of·the·window·in·the·band.</span></div><div·class="line"><a·name="l01176"></a><span·class="lineno">·1176</span> <span·class="preprocessor">#·@param·xdim,·ydim·[optional,·only·when·reading·from·a·band]·The·size·of·the·piddle·to·create.</span></div><div·class="line"><a·name="l01177"></a><span·class="lineno">·1177</span> <span·class="preprocessor">#·@return·A·new·piddle·when·reading·from·a·band·(no·not·use·when·writing·into·a·band).</span></div><div·class="line"><a·name="l01178"></a><span·class="lineno">·1178</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01179"></a><span·class="lineno">·1179</span> sub·Piddle·{</div><div·class="line"><a·name="l01180"></a><span·class="lineno">·1180</span> <span·class="preprocessor">····#·TODO:·add·Piddle·sub·to·dataset·too·to·make·Width·x·Height·x·Bands·piddles</span></div><div·class="line"><a·name="l01181"></a><span·class="lineno">·1181</span> ····error(<span·class="stringliteral">"PDL·is·not·available."</span>)·unless·$Geo::GDAL::HAVE_PDL;</div><div·class="line"><a·name="l01182"></a><span·class="lineno">·1182</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01183"></a><span·class="lineno">·1183</span> ····my·$t·=·$self->{DataType};</div><div·class="line"><a·name="l01184"></a><span·class="lineno">·1184</span> ····unless·(defined·wantarray)·{</div><div·class="line"><a·name="l01185"></a><span·class="lineno">·1185</span> ········my·$pdl·=·shift;</div><div·class="line"><a·name="l01186"></a><span·class="lineno">·1186</span> ········error(<span·class="stringliteral">"The·datatype·of·the·Piddle·and·the·band·do·not·match."</span>)</div><div·class="line"><a·name="l01187"></a><span·class="lineno">·1187</span> ··········unless·$PDL2DATATYPE{$pdl->get_datatype}·==·$t;</div><div·class="line"><a·name="l01188"></a><span·class="lineno">·1188</span> ········my·($xoff,·$yoff,·$xsize,·$ysize)·=·@_;</div><div·class="line"><a·name="l01189"></a><span·class="lineno">·1189</span> ········$xoff·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l01190"></a><span·class="lineno">·1190</span> ········$yoff·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l01191"></a><span·class="lineno">·1191</span> ········my·$data·=·$pdl->get_dataref();</div><div·class="line"><a·name="l01192"></a><span·class="lineno">·1192</span> ········my·($xdim,·$ydim)·=·$pdl->dims();</div><div·class="line"><a·name="l01193"></a><span·class="lineno">·1193</span> ········<span·class="keywordflow">if</span>·($xdim·>·$self->{XSize}·-·$xoff)·{</div><div·class="line"><a·name="l01194"></a><span·class="lineno">·1194</span> ············warn·<span·class="stringliteral">"Piddle·XSize·too·large·($xdim)·for·this·raster·band·(width·=·$self->{XSize},·offset·=·$xoff)."</span>;</div><div·class="line"><a·name="l01195"></a><span·class="lineno">·1195</span> ············$xdim·=·$self->{XSize}·-·$xoff;</div><div·class="line"><a·name="l01196"></a><span·class="lineno">·1196</span> ········}</div><div·class="line"><a·name="l01197"></a><span·class="lineno">·1197</span> ········<span·class="keywordflow">if</span>·($ydim·>·$self->{YSize}·-·$yoff)·{</div><div·class="line"><a·name="l01198"></a><span·class="lineno">·1198</span> ············$ydim·=·$self->{YSize}·-·$yoff;</div><div·class="line"><a·name="l01199"></a><span·class="lineno">·1199</span> ············warn·<span·class="stringliteral">"Piddle·YSize·too·large·($ydim)·for·this·raster·band·(height·=·$self->{YSize},·offset·=·$yoff)."</span>;</div><div·class="line"><a·name="l01200"></a><span·class="lineno">·1200</span> ········}</div><div·class="line"><a·name="l01201"></a><span·class="lineno">·1201</span> ········$xsize·<span·class="comment">//=·$xdim;</span></div><div·class="line"><a·name="l01202"></a><span·class="lineno">·1202</span> ········$ysize·<span·class="comment">//=·$ydim;</span></div><div·class="line"><a·name="l01203"></a><span·class="lineno">·1203</span> ········$self->_WriteRaster($xoff,·$yoff,·$xsize,·$ysize,·$data,·$xdim,·$ydim,·$t,·0,·0);</div><div·class="line"><a·name="l01204"></a><span·class="lineno">·1204</span> ········<span·class="keywordflow">return</span>;</div><div·class="line"><a·name="l01205"></a><span·class="lineno">·1205</span> ····}</div><div·class="line"><a·name="l01206"></a><span·class="lineno">·1206</span> ····my·($xoff,·$yoff,·$xsize,·$ysize,·$xdim,·$ydim,·$alg)·=·@_;</div><div·class="line"><a·name="l01207"></a><span·class="lineno">·1207</span> ····$xoff·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l01208"></a><span·class="lineno">·1208</span> ····$yoff·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l01209"></a><span·class="lineno">·1209</span> ····$xsize·<span·class="comment">//=·$self->{XSize}·-·$xoff;</span></div><div·class="line"><a·name="l01210"></a><span·class="lineno">·1210</span> ····$ysize·<span·class="comment">//=·$self->{YSize}·-·$yoff;</span></div><div·class="line"><a·name="l01211"></a><span·class="lineno">·1211</span> ····$xdim·<span·class="comment">//=·$xsize;</span></div><div·class="line"><a·name="l01212"></a><span·class="lineno">·1212</span> ····$ydim·<span·class="comment">//=·$ysize;</span></div><div·class="line"><a·name="l01213"></a><span·class="lineno">·1213</span> ····$alg·<span·class="comment">//=·'NearestNeighbour';</span></div><div·class="line"><a·name="l01214"></a><span·class="lineno">·1214</span> ····$alg·=·s2i(rio_resampling·=>·$alg);</div><div·class="line"><a·name="l01215"></a><span·class="lineno">·1215</span> ····my·$buf·=·$self->_ReadRaster($xoff,·$yoff,·$xsize,·$ysize,·$xdim,·$ydim,·$t,·0,·0,·$alg);</div><div·class="line"><a·name="l01216"></a><span·class="lineno">·1216</span> ····my·$pdl·=·PDL->new;</div><div·class="line"><a·name="l01217"></a><span·class="lineno">·1217</span> ····my·$datatype·=·$DATATYPE2PDL{$t};</div><div·class="line"><a·name="l01218"></a><span·class="lineno">·1218</span> ····error(<span·class="stringliteral">"The·band·datatype·is·not·supported·by·PDL."</span>)·<span·class="keywordflow">if</span>·$datatype·<·0;</div><div·class="line"><a·name="l01219"></a><span·class="lineno">·1219</span> ····$pdl->set_datatype($datatype);</div><div·class="line"><a·name="l01220"></a><span·class="lineno">·1220</span> ····$pdl->setdims([$xdim,·$ydim]);</div><div·class="line"><a·name="l01221"></a><span·class="lineno">·1221</span> ····my·$data·=·$pdl->get_dataref();</div><div·class="line"><a·name="l01222"></a><span·class="lineno">·1222</span> ····$$data·=·$buf;</div><div·class="line"><a·name="l01223"></a><span·class="lineno">·1223</span> ····$pdl->upd_data;</div><div·class="line"><a·name="l01224"></a><span·class="lineno">·1224</span> <span·class="preprocessor">····#·FIXME:·we·want·approximate·equality·since·no·data·value·can·be·very·large·floating·point·value</span></div><div·class="line"><a·name="l01225"></a><span·class="lineno">·1225</span> ····my·$bad·=·GetNoDataValue($self);</div><div·class="line"><a·name="l01226"></a><span·class="lineno">·1226</span> ····<span·class="keywordflow">return</span>·$pdl->setbadif($pdl·==·$bad)·<span·class="keywordflow">if</span>·defined·$bad;</div><div·class="line"><a·name="l01227"></a><span·class="lineno">·1227</span> ····<span·class="keywordflow">return</span>·$pdl;</div><div·class="line"><a·name="l01228"></a><span·class="lineno">·1228</span> }</div><div·class="line"><a·name="l01229"></a><span·class="lineno">·1229</span> </div><div·class="line"><a·name="l01230"></a><span·class="lineno">·1230</span> <span·class="preprocessor">#**·@method·Geo::OGR::Layer·Polygonize(%params)</span></div><div·class="line"><a·name="l01231"></a><span·class="lineno">·1231</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01232"></a><span·class="lineno">·1232</span> <span·class="preprocessor">#·Polygonize·this·raster·band.</span></div><div·class="line"><a·name="l01233"></a><span·class="lineno">·1233</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01234"></a><span·class="lineno">·1234</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l01235"></a><span·class="lineno">·1235</span> <span·class="preprocessor">#·-·\a·Mask·A·raster·band,·which·is·used·as·a·mask·to·select·polygonized·areas.·Default·is·undef.</span></div><div·class="line"><a·name="l01236"></a><span·class="lineno">·1236</span> <span·class="preprocessor">#·-·\a·OutLayer·A·vector·layer·into·which·the·polygons·are·written.·If·not·given,·an·in-memory·layer·'polygonized'·is·created·and·returned.</span></div><div·class="line"><a·name="l01237"></a><span·class="lineno">·1237</span> <span·class="preprocessor">#·-·\a·PixValField·The·name·of·the·field·in·the·output·layer·into·which·the·cell·value·of·the·polygon·area·is·stored.·Default·is·'val'.</span></div><div·class="line"><a·name="l01238"></a><span·class="lineno">·1238</span> <span·class="preprocessor">#·-·\a·Options·Hash·or·list·of·options.·Connectedness·can·be·set·to·8</span></div><div·class="line"><a·name="l01239"></a><span·class="lineno">·1239</span> <span·class="preprocessor">#·to·use·8-connectedness,·otherwise·4-connectedness·is</span></div><div·class="line"><a·name="l01240"></a><span·class="lineno">·1240</span> <span·class="preprocessor">#·used.·ForceIntPixel·can·be·set·to·1·to·force·using·a·32·bit·int·buffer</span></div><div·class="line"><a·name="l01241"></a><span·class="lineno">·1241</span> <span·class="preprocessor">#·for·cell·values·in·the·process.·If·this·is·not·set·and·the·data·type</span></div><div·class="line"><a·name="l01242"></a><span·class="lineno">·1242</span> <span·class="preprocessor">#·of·this·raster·does·not·fit·into·a·32·bit·int·buffer,·a·32·bit·float</span></div><div·class="line"><a·name="l01243"></a><span·class="lineno">·1243</span> <span·class="preprocessor">#·buffer·is·used.</span></div><div·class="line"><a·name="l01244"></a><span·class="lineno">·1244</span> <span·class="preprocessor">#·-·\a·Progress·Progress·function.</span></div><div·class="line"><a·name="l01245"></a><span·class="lineno">·1245</span> <span·class="preprocessor">#·-·\a·ProgressData·Additional·parameter·for·the·progress·function.</span></div><div·class="line"><a·name="l01246"></a><span·class="lineno">·1246</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01247"></a><span·class="lineno">·1247</span> <span·class="preprocessor">#·@return·Output·vector·layer.</span></div><div·class="line"><a·name="l01248"></a><span·class="lineno">·1248</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01249"></a><span·class="lineno">·1249</span> sub·Polygonize·{</div><div·class="line"><a·name="l01250"></a><span·class="lineno">·1250</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01251"></a><span·class="lineno">·1251</span> ····my·$p·=·named_parameters(\@_,·Mask·=>·undef,·OutLayer·=>·undef,·PixValField·=>·<span·class="stringliteral">'val'</span>,·Options·=>·undef,·Progress·=>·undef,·ProgressData·=>·undef);</div><div·class="line"><a·name="l01252"></a><span·class="lineno">·1252</span> ····my·%known_options·=·(Connectedness·=>·1,·ForceIntPixel·=>·1,·DATASET_FOR_GEOREF·=>·1,·<span·class="stringliteral">'8CONNECTED'</span>·=>·1);</div><div·class="line"><a·name="l01253"></a><span·class="lineno">·1253</span> ····<span·class="keywordflow">for</span>·my·$option·(keys·%{$p->{options}})·{</div><div·class="line"><a·name="l01254"></a><span·class="lineno">·1254</span> ········error(1,·$option,·\%known_options)·unless·exists·$known_options{$option};</div><div·class="line"><a·name="l01255"></a><span·class="lineno">·1255</span> ····}</div><div·class="line"><a·name="l01256"></a><span·class="lineno">·1256</span> ····my·$dt·=·$self->DataType;</div><div·class="line"><a·name="l01257"></a><span·class="lineno">·1257</span> ····my·%leInt32·=·(Byte·=>·1,·Int16·=>·1,·Int32·=>·1,·UInt16·=>·1);</div><div·class="line"><a·name="l01258"></a><span·class="lineno">·1258</span> ····my·$leInt32·=·$leInt32{$dt};</div><div·class="line"><a·name="l01259"></a><span·class="lineno">·1259</span> ····$dt·=·$dt·=~·/Float/·?·<span·class="stringliteral">'Real'</span>·:·<span·class="stringliteral">'Integer'</span>;</div><div·class="line"><a·name="l01260"></a><span·class="lineno">·1260</span> ····$p->{outlayer}·<span·class="comment">//=·Geo::OGR::Driver('Memory')->Create()-></span></div><div·class="line"><a·name="l01261"></a><span·class="lineno">·1261</span> ········CreateLayer(Name·=>·<span·class="stringliteral">'polygonized'</span>,</div><div·class="line"><a·name="l01262"></a><span·class="lineno">·1262</span> ····················Fields·=>·[{Name·=>·<span·class="stringliteral">'val'</span>,·Type·=>·$dt},</div><div·class="line"><a·name="l01263"></a><span·class="lineno">·1263</span> ·······························{Name·=>·<span·class="stringliteral">'geom'</span>,·Type·=>·<span·class="stringliteral">'Polygon'</span>}]);</div><div·class="line"><a·name="l01264"></a><span·class="lineno">·1264</span> ····$p->{pixvalfield}·=·$p->{outlayer}->GetLayerDefn->GetFieldIndex($p->{pixvalfield});</div><div·class="line"><a·name="l01265"></a><span·class="lineno">·1265</span> ····$p->{options}{<span·class="stringliteral">'8CONNECTED'</span>}·=·1·<span·class="keywordflow">if</span>·$p->{options}{Connectedness}·&&·$p->{options}{Connectedness}·==·8;</div><div·class="line"><a·name="l01266"></a><span·class="lineno">·1266</span> ····<span·class="keywordflow">if</span>·($leInt32·||·$p->{options}{ForceIntPixel})·{</div><div·class="line"><a·name="l01267"></a><span·class="lineno">·1267</span> ········Geo::GDAL::_Polygonize($self,·$p->{mask},·$p->{outlayer},·$p->{pixvalfield},·$p->{options},·$p->{progress},·$p->{progressdata});</div><div·class="line"><a·name="l01268"></a><span·class="lineno">·1268</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l01269"></a><span·class="lineno">·1269</span> ········Geo::GDAL::FPolygonize($self,·$p->{mask},·$p->{outlayer},·$p->{pixvalfield},·$p->{options},·$p->{progress},·$p->{progressdata});</div><div·class="line"><a·name="l01270"></a><span·class="lineno">·1270</span> ····}</div><div·class="line"><a·name="l01271"></a><span·class="lineno">·1271</span> ····<span·class="keyword">set</span>·the·srs·of·the·outlayer·<span·class="keywordflow">if</span>·it·was·created·here</div><div·class="line"><a·name="l01272"></a><span·class="lineno">·1272</span> ····<span·class="keywordflow">return</span>·$p->{outlayer};</div><div·class="line"><a·name="l01273"></a><span·class="lineno">·1273</span> }</div><div·class="line"><a·name="l01274"></a><span·class="lineno">·1274</span> </div><div·class="line"><a·name="l01275"></a><span·class="lineno">·1275</span> <span·class="preprocessor">#**·@method·RasterAttributeTable()</span></div><div·class="line"><a·name="l01276"></a><span·class="lineno">·1276</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01277"></a><span·class="lineno">·1277</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1RasterAttributeTable.html">RasterAttributeTable</a>·{</div><div·class="line"><a·name="l01278"></a><span·class="lineno">·1278</span> }</div><div·class="line"><a·name="l01279"></a><span·class="lineno">·1279</span> </div><div·class="line"><a·name="l01280"></a><span·class="lineno">·1280</span> <span·class="preprocessor">#**·@method·scalar·ReadRaster(%params)</span></div><div·class="line"><a·name="l01281"></a><span·class="lineno">·1281</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01282"></a><span·class="lineno">·1282</span> <span·class="preprocessor">#·Read·data·from·the·band.</span></div><div·class="line"><a·name="l01283"></a><span·class="lineno">·1283</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01284"></a><span·class="lineno">·1284</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l01285"></a><span·class="lineno">·1285</span> <span·class="preprocessor">#·-·\a·XOff·x·offset·(cell·coordinates)·(default·is·0)</span></div><div·class="line"><a·name="l01286"></a><span·class="lineno">·1286</span> <span·class="preprocessor">#·-·\a·YOff·y·offset·(cell·coordinates)·(default·is·0)</span></div><div·class="line"><a·name="l01287"></a><span·class="lineno">·1287</span> <span·class="preprocessor">#·-·\a·XSize·width·of·the·area·to·read·(default·is·the·width·of·the·band)</span></div><div·class="line"><a·name="l01288"></a><span·class="lineno">·1288</span> <span·class="preprocessor">#·-·\a·YSize·height·of·the·area·to·read·(default·is·the·height·of·the·band)</span></div><div·class="line"><a·name="l01289"></a><span·class="lineno">·1289</span> <span·class="preprocessor">#·-·\a·BufXSize·(default·is·undef,·i.e.,·the·same·as·XSize)</span></div><div·class="line"><a·name="l01290"></a><span·class="lineno">·1290</span> <span·class="preprocessor">#·-·\a·BufYSize·(default·is·undef,·i.e.,·the·same·as·YSize)</span></div><div·class="line"><a·name="l01291"></a><span·class="lineno">·1291</span> <span·class="preprocessor">#·-·\a·BufType·data·type·of·the·buffer·(default·is·the·data·type·of·the·band)</span></div><div·class="line"><a·name="l01292"></a><span·class="lineno">·1292</span> <span·class="preprocessor">#·-·\a·BufPixelSpace·(default·is·0)</span></div><div·class="line"><a·name="l01293"></a><span·class="lineno">·1293</span> <span·class="preprocessor">#·-·\a·BufLineSpace·(default·is·0)</span></div><div·class="line"><a·name="l01294"></a><span·class="lineno">·1294</span> <span·class="preprocessor">#·-·\a·ResampleAlg·one·of·Geo::GDAL::RIOResamplingTypes·(default·is·'NearestNeighbour'),</span></div><div·class="line"><a·name="l01295"></a><span·class="lineno">·1295</span> <span·class="preprocessor">#·-·\a·Progress·reference·to·a·progress·function·(default·is·undef)</span></div><div·class="line"><a·name="l01296"></a><span·class="lineno">·1296</span> <span·class="preprocessor">#·-·\a·ProgressData·(default·is·undef)</span></div><div·class="line"><a·name="l01297"></a><span·class="lineno">·1297</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01298"></a><span·class="lineno">·1298</span> <span·class="preprocessor">#·<a·href="http://www.gdal.org/classGDALDataset.html">Entry·in·GDAL·docs·(method·RasterIO)</a></span></div><div·class="line"><a·name="l01299"></a><span·class="lineno">·1299</span> <span·class="preprocessor">#·@return·a·buffer,·open·the·buffer·with·\a·unpack·function·of·Perl.·See·Geo::GDAL::Band::PackCharacter.</span></div><div·class="line"><a·name="l01300"></a><span·class="lineno">·1300</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01301"></a><span·class="lineno">·1301</span> sub·ReadRaster·{</div><div·class="line"><a·name="l01302"></a><span·class="lineno">·1302</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01303"></a><span·class="lineno">·1303</span> ····my·($width,·$height)·=·$self->Size;</div><div·class="line"><a·name="l01304"></a><span·class="lineno">·1304</span> ····my·($type)·=·$self->DataType;</div><div·class="line"><a·name="l01305"></a><span·class="lineno">·1305</span> ····my·$p·=·named_parameters(\@_,</div><div·class="line"><a·name="l01306"></a><span·class="lineno">·1306</span> ·····························XOff·=>·0,</div><div·class="line"><a·name="l01307"></a><span·class="lineno">·1307</span> ·····························YOff·=>·0,</div><div·class="line"><a·name="l01308"></a><span·class="lineno">·1308</span> ·····························XSize·=>·$width,</div><div·class="line"><a·name="l01309"></a><span·class="lineno">·1309</span> ·····························YSize·=>·$height,</div><div·class="line"><a·name="l01310"></a><span·class="lineno">·1310</span> ·····························BufXSize·=>·undef,</div><div·class="line"><a·name="l01311"></a><span·class="lineno">·1311</span> ·····························BufYSize·=>·undef,</div><div·class="line"><a·name="l01312"></a><span·class="lineno">·1312</span> ·····························BufType·=>·$type,</div><div·class="line"><a·name="l01313"></a><span·class="lineno">·1313</span> ·····························BufPixelSpace·=>·0,</div><div·class="line"><a·name="l01314"></a><span·class="lineno">·1314</span> ·····························BufLineSpace·=>·0,</div><div·class="line"><a·name="l01315"></a><span·class="lineno">·1315</span> ·····························ResampleAlg·=>·<span·class="stringliteral">'NearestNeighbour'</span>,</div><div·class="line"><a·name="l01316"></a><span·class="lineno">·1316</span> ·····························Progress·=>·undef,</div><div·class="line"><a·name="l01317"></a><span·class="lineno">·1317</span> ·····························ProgressData·=>·undef</div><div·class="line"><a·name="l01318"></a><span·class="lineno">·1318</span> ········);</div><div·class="line"><a·name="l01319"></a><span·class="lineno">·1319</span> ····$p->{resamplealg}·=·s2i(rio_resampling·=>·$p->{resamplealg});</div><div·class="line"><a·name="l01320"></a><span·class="lineno">·1320</span> ····$p->{buftype}·=·s2i(data_type·=>·$p->{buftype},·1);</div><div·class="line"><a·name="l01321"></a><span·class="lineno">·1321</span> ····$self->_ReadRaster($p->{xoff},$p->{yoff},$p->{xsize},$p->{ysize},$p->{bufxsize},$p->{bufysize},$p->{buftype},$p->{bufpixelspace},$p->{buflinespace},$p->{resamplealg},$p->{progress},$p->{progressdata});</div><div·class="line"><a·name="l01322"></a><span·class="lineno">·1322</span> }</div><div·class="line"><a·name="l01323"></a><span·class="lineno">·1323</span> </div><div·class="line"><a·name="l01324"></a><span·class="lineno">·1324</span> <span·class="preprocessor">#**·@method·array·reference·ReadTile($xoff·=·0,·$yoff·=·0,·$xsize·=·<width>,·$ysize·=·<height>)</span></div><div·class="line"><a·name="l01325"></a><span·class="lineno">·1325</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01326"></a><span·class="lineno">·1326</span> <span·class="preprocessor">#·Read·band·data·into·a·Perl·array.</span></div><div·class="line"><a·name="l01327"></a><span·class="lineno">·1327</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01328"></a><span·class="lineno">·1328</span> <span·class="preprocessor">#·\note·Accessing·band·data·in·this·way·is·slow.·Consider·using·PDL·and·Geo::GDAL::Band::Piddle.</span></div><div·class="line"><a·name="l01329"></a><span·class="lineno">·1329</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01330"></a><span·class="lineno">·1330</span> <span·class="preprocessor">#·Usage·example·(print·the·data·from·a·band):</span></div><div·class="line"><a·name="l01331"></a><span·class="lineno">·1331</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l01332"></a><span·class="lineno">·1332</span> <span·class="preprocessor">#·print·"@$_\n"·for·(·@{·$band->ReadTile()·}·);</span></div><div·class="line"><a·name="l01333"></a><span·class="lineno">·1333</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l01334"></a><span·class="lineno">·1334</span> <span·class="preprocessor">#·Another·usage·example·(process·the·data·of·a·large·dataset·that·has·one·band):</span></div><div·class="line"><a·name="l01335"></a><span·class="lineno">·1335</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l01336"></a><span·class="lineno">·1336</span> <span·class="preprocessor">#·my($W,$H)·=·$dataset->Band()->Size();</span></div><div·class="line"><a·name="l01337"></a><span·class="lineno">·1337</span> <span·class="preprocessor">#·my($xoff,$yoff,$w,$h)·=·(0,0,200,200);</span></div><div·class="line"><a·name="l01338"></a><span·class="lineno">·1338</span> <span·class="preprocessor">#·while·(1)·{</span></div><div·class="line"><a·name="l01339"></a><span·class="lineno">·1339</span> <span·class="preprocessor">#·····if·($xoff·>=·$W)·{</span></div><div·class="line"><a·name="l01340"></a><span·class="lineno">·1340</span> <span·class="preprocessor">#·········$xoff·=·0;</span></div><div·class="line"><a·name="l01341"></a><span·class="lineno">·1341</span> <span·class="preprocessor">#·········$yoff·+=·$h;</span></div><div·class="line"><a·name="l01342"></a><span·class="lineno">·1342</span> <span·class="preprocessor">#·········last·if·$yoff·>=·$H;</span></div><div·class="line"><a·name="l01343"></a><span·class="lineno">·1343</span> <span·class="preprocessor">#·····}</span></div><div·class="line"><a·name="l01344"></a><span·class="lineno">·1344</span> <span·class="preprocessor">#·····my·$data·=·$dataset->Band(1)->ReadTile($xoff,$yoff,min($W-$xoff,$w),min($H-$yoff,$h));</span></div><div·class="line"><a·name="l01345"></a><span·class="lineno">·1345</span> <span·class="preprocessor">#·····#·add·your·data·processing·code·here</span></div><div·class="line"><a·name="l01346"></a><span·class="lineno">·1346</span> <span·class="preprocessor">#·····$dataset->Band(1)->WriteTile($data,$xoff,$yoff);</span></div><div·class="line"><a·name="l01347"></a><span·class="lineno">·1347</span> <span·class="preprocessor">#·····$xoff·+=·$w;</span></div><div·class="line"><a·name="l01348"></a><span·class="lineno">·1348</span> <span·class="preprocessor">#·}</span></div><div·class="line"><a·name="l01349"></a><span·class="lineno">·1349</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01350"></a><span·class="lineno">·1350</span> <span·class="preprocessor">#·sub·min·{</span></div><div·class="line"><a·name="l01351"></a><span·class="lineno">·1351</span> <span·class="preprocessor">#·····return·$_[0]·<·$_[1]·?·$_[0]·:·$_[1];</span></div><div·class="line"><a·name="l01352"></a><span·class="lineno">·1352</span> <span·class="preprocessor">#·}</span></div><div·class="line"><a·name="l01353"></a><span·class="lineno">·1353</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l01354"></a><span·class="lineno">·1354</span> <span·class="preprocessor">#·@param·xoff·Number·of·cell·to·skip·before·starting·to·read·from·a·row.·Pixels·are·read·from·left·to·right.</span></div><div·class="line"><a·name="l01355"></a><span·class="lineno">·1355</span> <span·class="preprocessor">#·@param·yoff·Number·of·cells·to·skip·before·starting·to·read·from·a·column.·Pixels·are·read·from·top·to·bottom.</span></div><div·class="line"><a·name="l01356"></a><span·class="lineno">·1356</span> <span·class="preprocessor">#·@param·xsize·Number·of·cells·to·read·from·each·row.</span></div><div·class="line"><a·name="l01357"></a><span·class="lineno">·1357</span> <span·class="preprocessor">#·@param·ysize·Number·of·cells·to·read·from·each·column.</span></div><div·class="line"><a·name="l01358"></a><span·class="lineno">·1358</span> <span·class="preprocessor">#·@return·a·two-dimensional·Perl·array,·organizes·as·data->[y][x],·y·=</span></div><div·class="line"><a·name="l01359"></a><span·class="lineno">·1359</span> <span·class="preprocessor">#·0..height-1,·x·=·0..width-1.·I.e.,·y·is·row·and·x·is·column.</span></div><div·class="line"><a·name="l01360"></a><span·class="lineno">·1360</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01361"></a><span·class="lineno">·1361</span> sub·ReadTile·{</div><div·class="line"><a·name="l01362"></a><span·class="lineno">·1362</span> ····my($self,·$xoff,·$yoff,·$xsize,·$ysize,·$w_tile,·$h_tile,·$alg)·=·@_;</div><div·class="line"><a·name="l01363"></a><span·class="lineno">·1363</span> ····$xoff·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l01364"></a><span·class="lineno">·1364</span> ····$yoff·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l01365"></a><span·class="lineno">·1365</span> ····$xsize·<span·class="comment">//=·$self->{XSize}·-·$xoff;</span></div><div·class="line"><a·name="l01366"></a><span·class="lineno">·1366</span> ····$ysize·<span·class="comment">//=·$self->{YSize}·-·$yoff;</span></div><div·class="line"><a·name="l01367"></a><span·class="lineno">·1367</span> ····$w_tile·<span·class="comment">//=·$xsize;</span></div><div·class="line"><a·name="l01368"></a><span·class="lineno">·1368</span> ····$h_tile·<span·class="comment">//=·$ysize;</span></div><div·class="line"><a·name="l01369"></a><span·class="lineno">·1369</span> ····$alg·<span·class="comment">//=·'NearestNeighbour';</span></div><div·class="line"><a·name="l01370"></a><span·class="lineno">·1370</span> ····$alg·=·s2i(rio_resampling·=>·$alg);</div><div·class="line"><a·name="l01371"></a><span·class="lineno">·1371</span> ····my·$t·=·$self->{DataType};</div><div·class="line"><a·name="l01372"></a><span·class="lineno">·1372</span> ····my·$buf·=·$self->_ReadRaster($xoff,·$yoff,·$xsize,·$ysize,·$w_tile,·$h_tile,·$t,·0,·0,·$alg);</div><div·class="line"><a·name="l01373"></a><span·class="lineno">·1373</span> ····my·$pc·=·<a·class="code"·href="classGeo_1_1GDAL.html#abbc0c1d362bc306a1916c51116b7a0ff">Geo::GDAL::PackCharacter</a>($t);</div><div·class="line"><a·name="l01374"></a><span·class="lineno">·1374</span> ····my·$w·=·$w_tile·*·<a·class="code"·href="classGeo_1_1GDAL.html#a64c34de570dffa792ca09d64fc6fb77c">Geo::GDAL::GetDataTypeSize</a>($t)/8;</div><div·class="line"><a·name="l01375"></a><span·class="lineno">·1375</span> ····my·$offset·=·0;</div><div·class="line"><a·name="l01376"></a><span·class="lineno">·1376</span> ····my·@data;</div><div·class="line"><a·name="l01377"></a><span·class="lineno">·1377</span> ····<span·class="keywordflow">for</span>·my·$y·(0..$h_tile-1)·{</div><div·class="line"><a·name="l01378"></a><span·class="lineno">·1378</span> ········my·@d·=·unpack($pc.<span·class="stringliteral">"[$w_tile]"</span>,·substr($buf,·$offset,·$w));</div><div·class="line"><a·name="l01379"></a><span·class="lineno">·1379</span> ········push·@data,·\@d;</div><div·class="line"><a·name="l01380"></a><span·class="lineno">·1380</span> ········$offset·+=·$w;</div><div·class="line"><a·name="l01381"></a><span·class="lineno">·1381</span> ····}</div><div·class="line"><a·name="l01382"></a><span·class="lineno">·1382</span> ····<span·class="keywordflow">return</span>·\@data;</div><div·class="line"><a·name="l01383"></a><span·class="lineno">·1383</span> }</div><div·class="line"><a·name="l01384"></a><span·class="lineno">·1384</span> </div><div·class="line"><a·name="l01385"></a><span·class="lineno">·1385</span> <span·class="preprocessor">#**·@method·Reclassify($classifier,·$progress·=·undef,·$progress_data·=·undef)</span></div><div·class="line"><a·name="l01386"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1AsyncReader.html">·1386</a></span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01387"></a><span·class="lineno">·1387</span> <span·class="preprocessor">#·Reclassify·the·cells·in·the·band.</span></div><div·class="line"><a·name="l01388"></a><span·class="lineno">·1388</span> <span·class="preprocessor">#·@note·NoData·values·in·integer·rasters·are·reclassified·if</span></div><div·class="line"><a·name="l01389"></a><span·class="lineno">·1389</span> <span·class="preprocessor">#·explicitly·specified·in·the·hash·classifier.·However,·they·are·not</span></div><div·class="line"><a·name="l01390"></a><span·class="lineno">·1390</span> <span·class="preprocessor">#·reclassified·to·the·default·value,·if·one·is·specified.·In·real</span></div><div·class="line"><a·name="l01391"></a><span·class="lineno">·1391</span> <span·class="preprocessor">#·valued·rasters·nodata·cells·are·not·reclassified.</span></div><div·class="line"><a·name="l01392"></a><span·class="lineno">·1392</span> <span·class="preprocessor">#·@note·If·the·subroutine·is·user·terminated·or·the·classifier·is</span></div><div·class="line"><a·name="l01393"></a><span·class="lineno">·1393</span> <span·class="preprocessor">#·incorrect,·already·reclassified·cells·will·stay·reclassified·but·an</span></div><div·class="line"><a·name="l01394"></a><span·class="lineno">·1394</span> <span·class="preprocessor">#·error·is·raised.</span></div><div·class="line"><a·name="l01395"></a><span·class="lineno">·1395</span> <span·class="preprocessor">#·@param·classifier·For·integer·rasters·an·anonymous·hash,·which</span></div><div·class="line"><a·name="l01396"></a><span·class="lineno">·1396</span> <span·class="preprocessor">#·contains·old·class·values·as·keys·and·new·class·values·as·values,·or</span></div><div·class="line"><a·name="l01397"></a><span·class="lineno">·1397</span> <span·class="preprocessor">#·an·array·classifier·as·in·Geo::GDAL::Band::ClassCounts.·In·a·hash</span></div><div·class="line"><a·name="l01398"></a><span·class="lineno">·1398</span> <span·class="preprocessor">#·classifier·a·special·key·'*'·(star)·can·be·used·as·default,·to·act</span></div><div·class="line"><a·name="l01399"></a><span·class="lineno">·1399</span> <span·class="preprocessor">#·as·a·fallback·new·class·value.·For·real·valued·rasters·the</span></div><div·class="line"><a·name="l01400"></a><span·class="lineno">·1400</span> <span·class="preprocessor">#·classifier·is·as·in·Geo::GDAL::Band::ClassCounts.</span></div><div·class="line"><a·name="l01401"></a><span·class="lineno">·1401</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01402"></a><span·class="lineno">·1402</span> sub·Reclassify·{</div><div·class="line"><a·name="l01403"></a><span·class="lineno">·1403</span> }</div><div·class="line"><a·name="l01404"></a><span·class="lineno">·1404</span> </div><div·class="line"><a·name="l01405"></a><span·class="lineno">·1405</span> <span·class="preprocessor">#**·@method·RegenerateOverview(Geo::GDAL::Band·overview,·$resampling,·coderef·progress,·$progress_data)</span></div><div·class="line"><a·name="l01406"></a><span·class="lineno">·1406</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01407"></a><span·class="lineno">·1407</span> <span·class="preprocessor">#·@param·overview·a·Geo::GDAL::Band·object·for·the·overview.</span></div><div·class="line"><a·name="l01408"></a><span·class="lineno">·1408</span> <span·class="preprocessor">#·@param·resampling·[optional]·the·resampling·method·(one·of·Geo::GDAL::RIOResamplingTypes)·(default·is·Average).</span></div><div·class="line"><a·name="l01409"></a><span·class="lineno">·1409</span> <span·class="preprocessor">#·@param·progress·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l01410"></a><span·class="lineno">·1410</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·progress_data)</span></div><div·class="line"><a·name="l01411"></a><span·class="lineno">·1411</span> <span·class="preprocessor">#·@param·progress_data·[optional]</span></div><div·class="line"><a·name="l01412"></a><span·class="lineno">·1412</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01413"></a><span·class="lineno">·1413</span> sub·RegenerateOverview·{</div><div·class="line"><a·name="l01414"></a><span·class="lineno">·1414</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01415"></a><span·class="lineno">·1415</span> <span·class="preprocessor">····#Geo::GDAL::Band·overview,·scalar·resampling,·subref·callback,·scalar·callback_data</span></div><div·class="line"><a·name="l01416"></a><span·class="lineno">·1416</span> ····my·@p·=·@_;</div><div·class="line"><a·name="l01417"></a><span·class="lineno">·1417</span> ····Geo::GDAL::RegenerateOverview($self,·@p);</div><div·class="line"><a·name="l01418"></a><span·class="lineno">·1418</span> }</div><div·class="line"><a·name="l01419"></a><span·class="lineno">·1419</span> </div><div·class="line"><a·name="l01420"></a><span·class="lineno">·1420</span> <span·class="preprocessor">#**·@method·RegenerateOverviews(arrayref·overviews,·$resampling,·coderef·progress,·$progress_data)</span></div><div·class="line"><a·name="l01421"></a><span·class="lineno">·1421</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01422"></a><span·class="lineno">·1422</span> <span·class="preprocessor">#·@todo·This·is·not·yet·available</span></div><div·class="line"><a·name="l01423"></a><span·class="lineno">·1423</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01424"></a><span·class="lineno">·1424</span> <span·class="preprocessor">#·@param·overviews·a·list·of·Geo::GDAL::Band·objects·for·the·overviews.</span></div><div·class="line"><a·name="l01425"></a><span·class="lineno">·1425</span> <span·class="preprocessor">#·@param·resampling·[optional]·the·resampling·method·(one·of·Geo::GDAL::RIOResamplingTypes)·(default·is·Average).</span></div><div·class="line"><a·name="l01426"></a><span·class="lineno">·1426</span> <span·class="preprocessor">#·@param·progress·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l01427"></a><span·class="lineno">·1427</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·progress_data)</span></div><div·class="line"><a·name="l01428"></a><span·class="lineno">·1428</span> <span·class="preprocessor">#·@param·progress_data·[optional]</span></div><div·class="line"><a·name="l01429"></a><span·class="lineno">·1429</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01430"></a><span·class="lineno">·1430</span> sub·RegenerateOverviews·{</div><div·class="line"><a·name="l01431"></a><span·class="lineno">·1431</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01432"></a><span·class="lineno">·1432</span> <span·class="preprocessor">····#arrayref·overviews,·scalar·resampling,·subref·callback,·scalar·callback_data</span></div><div·class="line"><a·name="l01433"></a><span·class="lineno">·1433</span> ····my·@p·=·@_;</div><div·class="line"><a·name="l01434"></a><span·class="lineno">·1434</span> ····Geo::GDAL::RegenerateOverviews($self,·@p);</div><div·class="line"><a·name="l01435"></a><span·class="lineno">·1435</span> }</div><div·class="line"><a·name="l01436"></a><span·class="lineno">·1436</span> </div><div·class="line"><a·name="l01437"></a><span·class="lineno">·1437</span> <span·class="preprocessor">#**·@method·ScaleAndOffset($scale,·$offset)</span></div><div·class="line"><a·name="l01438"></a><span·class="lineno">·1438</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01439"></a><span·class="lineno">·1439</span> <span·class="preprocessor">#·Scale·and·offset·are·used·to·transform·raw·cell·values·into·the</span></div><div·class="line"><a·name="l01440"></a><span·class="lineno">·1440</span> <span·class="preprocessor">#·units·returned·by·GetUnits().·The·conversion·function·is:</span></div><div·class="line"><a·name="l01441"></a><span·class="lineno">·1441</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l01442"></a><span·class="lineno">·1442</span> <span·class="preprocessor">#·Units·value·=·(raw·value·*·scale)·+·offset</span></div><div·class="line"><a·name="l01443"></a><span·class="lineno">·1443</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l01444"></a><span·class="lineno">·1444</span> <span·class="preprocessor">#·@return·a·list·($scale,·$offset),·the·values·are·undefined·if·they</span></div><div·class="line"><a·name="l01445"></a><span·class="lineno">·1445</span> <span·class="preprocessor">#·are·not·set.</span></div><div·class="line"><a·name="l01446"></a><span·class="lineno">·1446</span> <span·class="preprocessor">#·@since·version·1.9·of·the·bindings.</span></div><div·class="line"><a·name="l01447"></a><span·class="lineno">·1447</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01448"></a><span·class="lineno">·1448</span> sub·ScaleAndOffset·{</div><div·class="line"><a·name="l01449"></a><span·class="lineno">·1449</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01450"></a><span·class="lineno">·1450</span> ····SetScale($self,·$_[0])·<span·class="keywordflow">if</span>·@_·>·0·and·defined·$_[0];</div><div·class="line"><a·name="l01451"></a><span·class="lineno">·1451</span> ····SetOffset($self,·$_[1])·<span·class="keywordflow">if</span>·@_·>·1·and·defined·$_[1];</div><div·class="line"><a·name="l01452"></a><span·class="lineno">·1452</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l01453"></a><span·class="lineno">·1453</span> ····my·$scale·=·GetScale($self);</div><div·class="line"><a·name="l01454"></a><span·class="lineno">·1454</span> ····my·$offset·=·GetOffset($self);</div><div·class="line"><a·name="l01455"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Band.html">·1455</a></span> ····<span·class="keywordflow">return</span>·($scale,·$offset);</div><div·class="line"><a·name="l01456"></a><span·class="lineno">·1456</span> }</div><div·class="line"><a·name="l01457"></a><span·class="lineno">·1457</span> </div><div·class="line"><a·name="l01458"></a><span·class="lineno">·1458</span> <span·class="preprocessor">#**·@method·list·SetDefaultHistogram($min,·$max,·$histogram)</span></div><div·class="line"><a·name="l01459"></a><span·class="lineno">·1459</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01460"></a><span·class="lineno">·1460</span> <span·class="preprocessor">#·@param·min</span></div><div·class="line"><a·name="l01461"></a><span·class="lineno">·1461</span> <span·class="preprocessor">#·@param·max</span></div><div·class="line"><a·name="l01462"></a><span·class="lineno">·1462</span> <span·class="preprocessor">#·@note·See·Note·in·Geo::GDAL::Band::GetHistogram.</span></div><div·class="line"><a·name="l01463"></a><span·class="lineno">·1463</span> <span·class="preprocessor">#·@param·histogram·reference·to·an·array·containing·the·histogram</span></div><div·class="line"><a·name="l01464"></a><span·class="lineno">·1464</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01465"></a><span·class="lineno">·1465</span> sub·SetDefaultHistogram·{</div><div·class="line"><a·name="l01466"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Band.html#a04331d99d8d216b1808f1029e7ef7bc0">·1466</a></span> }</div><div·class="line"><a·name="l01467"></a><span·class="lineno">·1467</span> </div><div·class="line"><a·name="l01468"></a><span·class="lineno">·1468</span> <span·class="preprocessor">#**·@method·SetStatistics($min,·$max,·$mean,·$stddev)</span></div><div·class="line"><a·name="l01469"></a><span·class="lineno">·1469</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01470"></a><span·class="lineno">·1470</span> <span·class="preprocessor">#·Save·the·statistics·of·the·band·if·possible·(the·format·can·save</span></div><div·class="line"><a·name="l01471"></a><span·class="lineno">·1471</span> <span·class="preprocessor">#·arbitrary·metadata).</span></div><div·class="line"><a·name="l01472"></a><span·class="lineno">·1472</span> <span·class="preprocessor">#·@param·min</span></div><div·class="line"><a·name="l01473"></a><span·class="lineno">·1473</span> <span·class="preprocessor">#·@param·max</span></div><div·class="line"><a·name="l01474"></a><span·class="lineno">·1474</span> <span·class="preprocessor">#·@param·mean</span></div><div·class="line"><a·name="l01475"></a><span·class="lineno">·1475</span> <span·class="preprocessor">#·@param·stddev</span></div><div·class="line"><a·name="l01476"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Band.html#af5df9bd30353293ee00a9fc0370ffcb1">·1476</a></span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01477"></a><span·class="lineno">·1477</span> sub·SetStatistics·{</div><div·class="line"><a·name="l01478"></a><span·class="lineno">·1478</span> }</div><div·class="line"><a·name="l01479"></a><span·class="lineno">·1479</span> </div><div·class="line"><a·name="l01480"></a><span·class="lineno">·1480</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Band·Sieve(%params)</span></div><div·class="line"><a·name="l01481"></a><span·class="lineno">·1481</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01482"></a><span·class="lineno">·1482</span> <span·class="preprocessor">#·Remove·small·areas·by·merging·them·into·the·largest·neighbour·area.</span></div><div·class="line"><a·name="l01483"></a><span·class="lineno">·1483</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l01484"></a><span·class="lineno">·1484</span> <span·class="preprocessor">#·-·\a·Mask·A·raster·band,·which·is·used·as·a·mask·to·select·sieved·areas.·Default·is·undef.</span></div><div·class="line"><a·name="l01485"></a><span·class="lineno">·1485</span> <span·class="preprocessor">#·-·\a·Dest·A·raster·band·into·which·the·result·is·written.·If·not·given,·an·new·in-memory·raster·band·is·created·and·returned.</span></div><div·class="line"><a·name="l01486"></a><span·class="lineno">·1486</span> <span·class="preprocessor">#·-·\a·Threshold·The·smallest·area·size·(in·number·of·cells)·which·are·not·sieved·away.</span></div><div·class="line"><a·name="l01487"></a><span·class="lineno">·1487</span> <span·class="preprocessor">#·-·\a·Options·Hash·or·list·of·options.·{Connectedness·=>·4}·can·be·specified·to·use·4-connectedness,·otherwise·8-connectedness·is·used.</span></div><div·class="line"><a·name="l01488"></a><span·class="lineno">·1488</span> <span·class="preprocessor">#·-·\a·Progress·Progress·function.</span></div><div·class="line"><a·name="l01489"></a><span·class="lineno">·1489</span> <span·class="preprocessor">#·-·\a·ProgressData·Additional·parameter·for·the·progress·function.</span></div><div·class="line"><a·name="l01490"></a><span·class="lineno">·1490</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01491"></a><span·class="lineno">·1491</span> <span·class="preprocessor">#·@return·The·filtered·raster·band.</span></div><div·class="line"><a·name="l01492"></a><span·class="lineno">·1492</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01493"></a><span·class="lineno">·1493</span> sub·Sieve·{</div><div·class="line"><a·name="l01494"></a><span·class="lineno">·1494</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01495"></a><span·class="lineno">·1495</span> ····my·$p·=·named_parameters(\@_,·Mask·=>·undef,·Dest·=>·undef,·Threshold·=>·10,·Options·=>·undef,·Progress·=>·undef,·ProgressData·=>·undef);</div><div·class="line"><a·name="l01496"></a><span·class="lineno">·1496</span> ····unless·($p->{dest})·{</div><div·class="line"><a·name="l01497"></a><span·class="lineno">·1497</span> ········my·($w,·$h)·=·$self->Size;</div><div·class="line"><a·name="l01498"></a><span·class="lineno">·1498</span> ········$p->{dest}·=·<a·class="code"·href="classGeo_1_1GDAL.html#ac6041428faeb7a6b21c380a2011cd25c">Geo::GDAL::Driver</a>(<span·class="stringliteral">'MEM'</span>)-><a·class="code"·href="classGeo_1_1GDAL_1_1Driver.html#a2bdbed29da0cc19770b7295793c7d85f">Create</a>(Name·=>·<span·class="stringliteral">'sieved'</span>,·Width·=>·$w,·Height·=>·$h,·Type·=>·$self->DataType)-><a·class="code"·href="classGeo_1_1GDAL_1_1Dataset.html#a04a00dec508168000c835cb0db7a23ae">Band</a>;</div><div·class="line"><a·name="l01499"></a><span·class="lineno">·1499</span> ····}</div><div·class="line"><a·name="l01500"></a><span·class="lineno">·1500</span> ····my·$c·=·8;</div><div·class="line"><a·name="l01501"></a><span·class="lineno">·1501</span> ····<span·class="keywordflow">if</span>·($p->{options}{Connectedness})·{</div><div·class="line"><a·name="l01502"></a><span·class="lineno">·1502</span> ········$c·=·$p->{options}{Connectedness};</div><div·class="line"><a·name="l01503"></a><span·class="lineno">·1503</span> ········<span·class="keyword">delete</span>·$p->{options}{Connectedness};</div><div·class="line"><a·name="l01504"></a><span·class="lineno">·1504</span> ····}</div><div·class="line"><a·name="l01505"></a><span·class="lineno">·1505</span> ····Geo::GDAL::SieveFilter($self,·$p->{mask},·$p->{dest},·$p->{threshold},·$c,·$p->{options},·$p->{progress},·$p->{progressdata});</div><div·class="line"><a·name="l01506"></a><span·class="lineno">·1506</span> ····<span·class="keywordflow">return</span>·$p->{dest};</div><div·class="line"><a·name="l01507"></a><span·class="lineno">·1507</span> }</div><div·class="line"><a·name="l01508"></a><span·class="lineno">·1508</span> </div><div·class="line"><a·name="l01509"></a><span·class="lineno">·1509</span> <span·class="preprocessor">#**·@method·list·Size()</span></div><div·class="line"><a·name="l01510"></a><span·class="lineno">·1510</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01511"></a><span·class="lineno">·1511</span> <span·class="preprocessor">#·@return·The·size·of·the·band·as·a·list·(width,·height).</span></div><div·class="line"><a·name="l01512"></a><span·class="lineno">·1512</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01513"></a><span·class="lineno">·1513</span> sub·Size·{</div><div·class="line"><a·name="l01514"></a><span·class="lineno">·1514</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01515"></a><span·class="lineno">·1515</span> ····<span·class="keywordflow">return</span>·($self->{XSize},·$self->{YSize});</div><div·class="line"><a·name="l01516"></a><span·class="lineno">·1516</span> }</div><div·class="line"><a·name="l01517"></a><span·class="lineno">·1517</span> </div><div·class="line"><a·name="l01518"></a><span·class="lineno">·1518</span> <span·class="preprocessor">#**·@method·Unit($type)</span></div><div·class="line"><a·name="l01519"></a><span·class="lineno">·1519</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01520"></a><span·class="lineno">·1520</span> <span·class="preprocessor">#·@param·type·[optional]·the·unit·(a·string).</span></div><div·class="line"><a·name="l01521"></a><span·class="lineno">·1521</span> <span·class="preprocessor">#·@note·$band->Unit(undef)·sets·the·unit·value·to·an·empty·string.</span></div><div·class="line"><a·name="l01522"></a><span·class="lineno">·1522</span> <span·class="preprocessor">#·@return·the·unit·(a·string).</span></div><div·class="line"><a·name="l01523"></a><span·class="lineno">·1523</span> <span·class="preprocessor">#·@since·version·1.9·of·the·bindings.</span></div><div·class="line"><a·name="l01524"></a><span·class="lineno">·1524</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01525"></a><span·class="lineno">·1525</span> sub·Unit·{</div><div·class="line"><a·name="l01526"></a><span·class="lineno">·1526</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01527"></a><span·class="lineno">·1527</span> ····<span·class="keywordflow">if</span>·(@_·>·0)·{</div><div·class="line"><a·name="l01528"></a><span·class="lineno">·1528</span> ········my·$unit·=·shift;</div><div·class="line"><a·name="l01529"></a><span·class="lineno">·1529</span> ········$unit·<span·class="comment">//=·'';</span></div><div·class="line"><a·name="l01530"></a><span·class="lineno">·1530</span> ········SetUnitType($self,·$unit);</div><div·class="line"><a·name="l01531"></a><span·class="lineno">·1531</span> ····}</div><div·class="line"><a·name="l01532"></a><span·class="lineno">·1532</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l01533"></a><span·class="lineno">·1533</span> ····GetUnitType($self);</div><div·class="line"><a·name="l01534"></a><span·class="lineno">·1534</span> }</div><div·class="line"><a·name="l01535"></a><span·class="lineno">·1535</span> </div><div·class="line"><a·name="l01536"></a><span·class="lineno">·1536</span> <span·class="preprocessor">#**·@method·WriteRaster(%params)</span></div><div·class="line"><a·name="l01537"></a><span·class="lineno">·1537</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01538"></a><span·class="lineno">·1538</span> <span·class="preprocessor">#·Write·data·into·the·band.</span></div><div·class="line"><a·name="l01539"></a><span·class="lineno">·1539</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01540"></a><span·class="lineno">·1540</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l01541"></a><span·class="lineno">·1541</span> <span·class="preprocessor">#·-·\a·XOff·x·offset·(cell·coordinates)·(default·is·0)</span></div><div·class="line"><a·name="l01542"></a><span·class="lineno">·1542</span> <span·class="preprocessor">#·-·\a·YOff·y·offset·(cell·coordinates)·(default·is·0)</span></div><div·class="line"><a·name="l01543"></a><span·class="lineno">·1543</span> <span·class="preprocessor">#·-·\a·XSize·width·of·the·area·to·write·(default·is·the·width·of·the·band)</span></div><div·class="line"><a·name="l01544"></a><span·class="lineno">·1544</span> <span·class="preprocessor">#·-·\a·YSize·height·of·the·area·to·write·(default·is·the·height·of·the·band)</span></div><div·class="line"><a·name="l01545"></a><span·class="lineno">·1545</span> <span·class="preprocessor">#·-·\a·Buf·a·buffer·(or·a·reference·to·a·buffer)·containing·the·data.·Create·the·buffer·with·\a·pack·function·of·Perl.·See·Geo::GDAL::Band::PackCharacter.</span></div><div·class="line"><a·name="l01546"></a><span·class="lineno">·1546</span> <span·class="preprocessor">#·-·\a·BufXSize·(default·is·undef,·i.e.,·the·same·as·XSize)</span></div><div·class="line"><a·name="l01547"></a><span·class="lineno">·1547</span> <span·class="preprocessor">#·-·\a·BufYSize·(default·is·undef,·i.e.,·the·same·as·YSize)</span></div><div·class="line"><a·name="l01548"></a><span·class="lineno">·1548</span> <span·class="preprocessor">#·-·\a·BufType·data·type·of·the·buffer·(default·is·the·data·type·of·the·band)</span></div><div·class="line"><a·name="l01549"></a><span·class="lineno">·1549</span> <span·class="preprocessor">#·-·\a·BufPixelSpace·(default·is·0)</span></div><div·class="line"><a·name="l01550"></a><span·class="lineno">·1550</span> <span·class="preprocessor">#·-·\a·BufLineSpace·(default·is·0)</span></div><div·class="line"><a·name="l01551"></a><span·class="lineno">·1551</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01552"></a><span·class="lineno">·1552</span> <span·class="preprocessor">#·<a·href="http://www.gdal.org/classGDALDataset.html">Entry·in·GDAL·docs·(method·RasterIO)</a></span></div><div·class="line"><a·name="l01553"></a><span·class="lineno">·1553</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01554"></a><span·class="lineno">·1554</span> sub·WriteRaster·{</div><div·class="line"><a·name="l01555"></a><span·class="lineno">·1555</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01556"></a><span·class="lineno">·1556</span> ····my·($width,·$height)·=·$self->Size;</div><div·class="line"><a·name="l01557"></a><span·class="lineno">·1557</span> ····my·($type)·=·$self->DataType;</div><div·class="line"><a·name="l01558"></a><span·class="lineno">·1558</span> ····my·$p·=·named_parameters(\@_,</div><div·class="line"><a·name="l01559"></a><span·class="lineno">·1559</span> ·····························XOff·=>·0,</div><div·class="line"><a·name="l01560"></a><span·class="lineno">·1560</span> ·····························YOff·=>·0,</div><div·class="line"><a·name="l01561"></a><span·class="lineno">·1561</span> ·····························XSize·=>·$width,</div><div·class="line"><a·name="l01562"></a><span·class="lineno">·1562</span> ·····························YSize·=>·$height,</div><div·class="line"><a·name="l01563"></a><span·class="lineno">·1563</span> ·····························Buf·=>·undef,</div><div·class="line"><a·name="l01564"></a><span·class="lineno">·1564</span> ·····························BufXSize·=>·undef,</div><div·class="line"><a·name="l01565"></a><span·class="lineno">·1565</span> ·····························BufYSize·=>·undef,</div><div·class="line"><a·name="l01566"></a><span·class="lineno">·1566</span> ·····························BufType·=>·$type,</div><div·class="line"><a·name="l01567"></a><span·class="lineno">·1567</span> ·····························BufPixelSpace·=>·0,</div><div·class="line"><a·name="l01568"></a><span·class="lineno">·1568</span> ·····························BufLineSpace·=>·0</div><div·class="line"><a·name="l01569"></a><span·class="lineno">·1569</span> ········);</div><div·class="line"><a·name="l01570"></a><span·class="lineno">·1570</span> ····confess·<span·class="stringliteral">"Usage:·\$band->WriteRaster(·Buf·=>·\$data,·...·)"</span>·unless·defined·$p->{buf};</div><div·class="line"><a·name="l01571"></a><span·class="lineno">·1571</span> ····$p->{buftype}·=·s2i(data_type·=>·$p->{buftype},·1);</div><div·class="line"><a·name="l01572"></a><span·class="lineno">·1572</span> ····$self->_WriteRaster($p->{xoff},$p->{yoff},$p->{xsize},$p->{ysize},$p->{buf},$p->{bufxsize},$p->{bufysize},$p->{buftype},$p->{bufpixelspace},$p->{buflinespace});</div><div·class="line"><a·name="l01573"></a><span·class="lineno">·1573</span> }</div><div·class="line"><a·name="l01574"></a><span·class="lineno">·1574</span> </div><div·class="line"><a·name="l01575"></a><span·class="lineno">·1575</span> <span·class="preprocessor">#**·@method·WriteTile($data,·$xoff·=·0,·$yoff·=·0)</span></div><div·class="line"><a·name="l01576"></a><span·class="lineno">·1576</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01577"></a><span·class="lineno">·1577</span> <span·class="preprocessor">#·Write·band·data·from·a·Perl·array.</span></div><div·class="line"><a·name="l01578"></a><span·class="lineno">·1578</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01579"></a><span·class="lineno">·1579</span> <span·class="preprocessor">#·\note·Accessing·band·data·in·this·way·is·slow.·Consider·using·PDL·and·Geo::GDAL::Band::Piddle.</span></div><div·class="line"><a·name="l01580"></a><span·class="lineno">·1580</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01581"></a><span·class="lineno">·1581</span> <span·class="preprocessor">#·@param·data·A·two-dimensional·Perl·array,·organizes·as·data->[y][x],·y·=</span></div><div·class="line"><a·name="l01582"></a><span·class="lineno">·1582</span> <span·class="preprocessor">#·0..height-1,·x·=·0..width-1.</span></div><div·class="line"><a·name="l01583"></a><span·class="lineno">·1583</span> <span·class="preprocessor">#·@param·xoff</span></div><div·class="line"><a·name="l01584"></a><span·class="lineno">·1584</span> <span·class="preprocessor">#·@param·yoff</span></div><div·class="line"><a·name="l01585"></a><span·class="lineno">·1585</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01586"></a><span·class="lineno">·1586</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01587"></a><span·class="lineno">·1587</span> sub·WriteTile·{</div><div·class="line"><a·name="l01588"></a><span·class="lineno">·1588</span> ····my($self,·$data,·$xoff,·$yoff)·=·@_;</div><div·class="line"><a·name="l01589"></a><span·class="lineno">·1589</span> ····$xoff·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l01590"></a><span·class="lineno">·1590</span> ····$yoff·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l01591"></a><span·class="lineno">·1591</span> ····error(<span·class="stringliteral">'The·data·must·be·in·a·two-dimensional·array'</span>)·unless·ref·$data·eq·<span·class="stringliteral">'ARRAY'</span>·&&·ref·$data->[0]·eq·<span·class="stringliteral">'ARRAY'</span>;</div><div·class="line"><a·name="l01592"></a><span·class="lineno">·1592</span> ····my·$xsize·=·@{$data->[0]};</div><div·class="line"><a·name="l01593"></a><span·class="lineno">·1593</span> ····<span·class="keywordflow">if</span>·($xsize·>·$self->{XSize}·-·$xoff)·{</div><div·class="line"><a·name="l01594"></a><span·class="lineno">·1594</span> ········warn·<span·class="stringliteral">"Buffer·XSize·too·large·($xsize)·for·this·raster·band·(width·=·$self->{XSize},·offset·=·$xoff)."</span>;</div><div·class="line"><a·name="l01595"></a><span·class="lineno">·1595</span> ········$xsize·=·$self->{XSize}·-·$xoff;</div><div·class="line"><a·name="l01596"></a><span·class="lineno">·1596</span> ····}</div><div·class="line"><a·name="l01597"></a><span·class="lineno">·1597</span> ····my·$ysize·=·@{$data};</div><div·class="line"><a·name="l01598"></a><span·class="lineno">·1598</span> ····<span·class="keywordflow">if</span>·($ysize·>·$self->{YSize}·-·$yoff)·{</div><div·class="line"><a·name="l01599"></a><span·class="lineno">·1599</span> ········$ysize·=·$self->{YSize}·-·$yoff;</div><div·class="line"><a·name="l01600"></a><span·class="lineno">·1600</span> ········warn·<span·class="stringliteral">"Buffer·YSize·too·large·($ysize)·for·this·raster·band·(height·=·$self->{YSize},·offset·=·$yoff)."</span>;</div><div·class="line"><a·name="l01601"></a><span·class="lineno">·1601</span> ····}</div><div·class="line"><a·name="l01602"></a><span·class="lineno">·1602</span> ····my·$pc·=·<a·class="code"·href="classGeo_1_1GDAL.html#abbc0c1d362bc306a1916c51116b7a0ff">Geo::GDAL::PackCharacter</a>($self->{DataType});</div><div·class="line"><a·name="l01603"></a><span·class="lineno">·1603</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$ysize-1)·{</div><div·class="line"><a·name="l01604"></a><span·class="lineno">·1604</span> ········my·$scanline·=·pack($pc.<span·class="stringliteral">"[$xsize]"</span>,·@{$data->[$i]});</div><div·class="line"><a·name="l01605"></a><span·class="lineno">·1605</span> ········$self->WriteRaster(·$xoff,·$yoff+$i,·$xsize,·1,·$scanline·);</div><div·class="line"><a·name="l01606"></a><span·class="lineno">·1606</span> ····}</div><div·class="line"><a·name="l01607"></a><span·class="lineno">·1607</span> }</div><div·class="line"><a·name="l01608"></a><span·class="lineno">·1608</span> </div><div·class="line"><a·name="l01609"></a><span·class="lineno">·1609</span> <span·class="preprocessor">#**·@class·Geo::GDAL::ColorTable</span></div><div·class="line"><a·name="l01610"></a><span·class="lineno">·1610</span> <span·class="preprocessor">#·@brief·A·color·table·from·a·raster·band·or·a·color·table,·which·can·be·used·for·a·band.</span></div><div·class="line"><a·name="l01611"></a><span·class="lineno">·1611</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l01612"></a><span·class="lineno">·1612</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01613"></a><span·class="lineno">·1613</span> <span·class="keyword">package·</span>Geo::GDAL::ColorTable;</div><div·class="line"><a·name="l01614"></a><span·class="lineno">·1614</span> </div><div·class="line"><a·name="l01615"></a><span·class="lineno">·1615</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1GDAL.html">Geo::GDAL</a>)</div><div·class="line"><a·name="l01616"></a><span·class="lineno">·1616</span> </div><div·class="line"><a·name="l01617"></a><span·class="lineno">·1617</span> <span·class="preprocessor">#**·@method·Geo::GDAL::ColorTable·Clone()</span></div><div·class="line"><a·name="l01618"></a><span·class="lineno">·1618</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01619"></a><span·class="lineno">·1619</span> <span·class="preprocessor">#·Clone·an·existing·color·table.</span></div><div·class="line"><a·name="l01620"></a><span·class="lineno">·1620</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::ColorTable·object</span></div><div·class="line"><a·name="l01621"></a><span·class="lineno">·1621</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01622"></a><span·class="lineno">·1622</span> sub·Clone·{</div><div·class="line"><a·name="l01623"></a><span·class="lineno">·1623</span> }</div><div·class="line"><a·name="l01624"></a><span·class="lineno">·1624</span> </div><div·class="line"><a·name="l01625"></a><span·class="lineno">·1625</span> <span·class="preprocessor">#**·@method·list·Color($index,·@color)</span></div><div·class="line"><a·name="l01626"></a><span·class="lineno">·1626</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01627"></a><span·class="lineno">·1627</span> <span·class="preprocessor">#·Get·or·set·a·color·in·this·color·table.</span></div><div·class="line"><a·name="l01628"></a><span·class="lineno">·1628</span> <span·class="preprocessor">#·@param·index·The·index·of·the·color·in·the·table.·Note·that·the</span></div><div·class="line"><a·name="l01629"></a><span·class="lineno">·1629</span> <span·class="preprocessor">#·color·table·may·expand·if·the·index·is·larger·than·the·current·max</span></div><div·class="line"><a·name="l01630"></a><span·class="lineno">·1630</span> <span·class="preprocessor">#·index·of·this·table·and·a·color·is·given.·An·attempt·to·retrieve·a</span></div><div·class="line"><a·name="l01631"></a><span·class="lineno">·1631</span> <span·class="preprocessor">#·color·out·of·the·current·size·of·the·table·causes·an·error.</span></div><div·class="line"><a·name="l01632"></a><span·class="lineno">·1632</span> <span·class="preprocessor">#·@param·color·[optional]·The·color,·either·a·list·or·a·reference·to·a</span></div><div·class="line"><a·name="l01633"></a><span·class="lineno">·1633</span> <span·class="preprocessor">#·list.·If·the·list·is·too·short·or·has·undef·values,·the·undef·values</span></div><div·class="line"><a·name="l01634"></a><span·class="lineno">·1634</span> <span·class="preprocessor">#·are·taken·as·0·except·for·alpha,·which·is·taken·as·255.</span></div><div·class="line"><a·name="l01635"></a><span·class="lineno">·1635</span> <span·class="preprocessor">#·@note·A·color·is·an·array·of·four·integers·having·a·value·between·0</span></div><div·class="line"><a·name="l01636"></a><span·class="lineno">·1636</span> <span·class="preprocessor">#·and·255:·(gray,·red,·cyan·or·hue;·green,·magenta,·or·lightness;</span></div><div·class="line"><a·name="l01637"></a><span·class="lineno">·1637</span> <span·class="preprocessor">#·blue,·yellow,·or·saturation;·alpha·or·blackband)</span></div><div·class="line"><a·name="l01638"></a><span·class="lineno">·1638</span> <span·class="preprocessor">#·@return·A·color,·in·list·context·a·list·and·in·scalar·context·a·reference·to·an·anonymous·array.</span></div><div·class="line"><a·name="l01639"></a><span·class="lineno">·1639</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01640"></a><span·class="lineno">·1640</span> sub·Color·{</div><div·class="line"><a·name="l01641"></a><span·class="lineno">·1641</span> }</div><div·class="line"><a·name="l01642"></a><span·class="lineno">·1642</span> </div><div·class="line"><a·name="l01643"></a><span·class="lineno">·1643</span> <span·class="preprocessor">#**·@method·list·Colors(@colors)</span></div><div·class="line"><a·name="l01644"></a><span·class="lineno">·1644</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01645"></a><span·class="lineno">·1645</span> <span·class="preprocessor">#·Get·or·set·the·colors·in·this·color·table.</span></div><div·class="line"><a·name="l01646"></a><span·class="lineno">·1646</span> <span·class="preprocessor">#·@note·The·color·table·will·expand·to·the·size·of·the·input·list·but</span></div><div·class="line"><a·name="l01647"></a><span·class="lineno">·1647</span> <span·class="preprocessor">#·it·will·not·shrink.</span></div><div·class="line"><a·name="l01648"></a><span·class="lineno">·1648</span> <span·class="preprocessor">#·@param·colors·[optional]·A·list·of·all·colors·(a·list·of·lists)·for·this·color·table.</span></div><div·class="line"><a·name="l01649"></a><span·class="lineno">·1649</span> <span·class="preprocessor">#·@return·A·list·of·colors·(a·list·of·lists).</span></div><div·class="line"><a·name="l01650"></a><span·class="lineno">·1650</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01651"></a><span·class="lineno">·1651</span> sub·Colors·{</div><div·class="line"><a·name="l01652"></a><span·class="lineno">·1652</span> }</div><div·class="line"><a·name="l01653"></a><span·class="lineno">·1653</span> </div><div·class="line"><a·name="l01654"></a><span·class="lineno">·1654</span> <span·class="preprocessor">#**·@method·CreateColorRamp($start_index,·arrayref·start_color,·$end_index,·arrayref·end_color)</span></div><div·class="line"><a·name="l01655"></a><span·class="lineno">·1655</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01656"></a><span·class="lineno">·1656</span> <span·class="preprocessor">#·@param·start_index</span></div><div·class="line"><a·name="l01657"></a><span·class="lineno">·1657</span> <span·class="preprocessor">#·@param·start_color</span></div><div·class="line"><a·name="l01658"></a><span·class="lineno">·1658</span> <span·class="preprocessor">#·@param·end_index</span></div><div·class="line"><a·name="l01659"></a><span·class="lineno">·1659</span> <span·class="preprocessor">#·@param·end_color</span></div><div·class="line"><a·name="l01660"></a><span·class="lineno">·1660</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01661"></a><span·class="lineno">·1661</span> sub·CreateColorRamp·{</div><div·class="line"><a·name="l01662"></a><span·class="lineno">·1662</span> }</div><div·class="line"><a·name="l01663"></a><span·class="lineno">·1663</span> </div><div·class="line"><a·name="l01664"></a><span·class="lineno">·1664</span> <span·class="preprocessor">#**·@method·scalar·GetCount()</span></div><div·class="line"><a·name="l01665"></a><span·class="lineno">·1665</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01666"></a><span·class="lineno">·1666</span> <span·class="preprocessor">#·@return·The·number·of·colors·in·this·color·table.</span></div><div·class="line"><a·name="l01667"></a><span·class="lineno">·1667</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01668"></a><span·class="lineno">·1668</span> sub·GetCount·{</div><div·class="line"><a·name="l01669"></a><span·class="lineno">·1669</span> }</div><div·class="line"><a·name="l01670"></a><span·class="lineno">·1670</span> </div><div·class="line"><a·name="l01671"></a><span·class="lineno">·1671</span> <span·class="preprocessor">#**·@method·scalar·GetPaletteInterpretation()</span></div><div·class="line"><a·name="l01672"></a><span·class="lineno">·1672</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01673"></a><span·class="lineno">·1673</span> <span·class="preprocessor">#·@return·palette·interpretation·(string)</span></div><div·class="line"><a·name="l01674"></a><span·class="lineno">·1674</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01675"></a><span·class="lineno">·1675</span> sub·GetPaletteInterpretation·{</div><div·class="line"><a·name="l01676"></a><span·class="lineno">·1676</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01677"></a><span·class="lineno">·1677</span> ····<span·class="keywordflow">return</span>·i2s(palette_interpretation·=>·GetPaletteInterpretation($self));</div><div·class="line"><a·name="l01678"></a><span·class="lineno">·1678</span> }</div><div·class="line"><a·name="l01679"></a><span·class="lineno">·1679</span> </div><div·class="line"><a·name="l01680"></a><span·class="lineno">·1680</span> <span·class="preprocessor">#**·@method·Geo::GDAL::ColorTable·new($GDALPaletteInterp·=·'RGB')</span></div><div·class="line"><a·name="l01681"></a><span·class="lineno">·1681</span> <span·class="preprocessor">#·Class·method.</span></div><div·class="line"><a·name="l01682"></a><span·class="lineno">·1682</span> <span·class="preprocessor">#·Create·a·new·empty·color·table.</span></div><div·class="line"><a·name="l01683"></a><span·class="lineno">·1683</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::ColorTable·object</span></div><div·class="line"><a·name="l01684"></a><span·class="lineno">·1684</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01685"></a><span·class="lineno">·1685</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l01686"></a><span·class="lineno">·1686</span> ····my($pkg,·$pi)·=·@_;</div><div·class="line"><a·name="l01687"></a><span·class="lineno">·1687</span> ····$pi·<span·class="comment">//=·'RGB';</span></div><div·class="line"><a·name="l01688"></a><span·class="lineno">·1688</span> ····$pi·=·s2i(palette_interpretation·=>·$pi);</div><div·class="line"><a·name="l01689"></a><span·class="lineno">·1689</span> ····my·$self·=·Geo::GDALc::new_ColorTable($pi);</div><div·class="line"><a·name="l01690"></a><span·class="lineno">·1690</span> ····bless·$self,·$pkg·<span·class="keywordflow">if</span>·defined($self);</div><div·class="line"><a·name="l01691"></a><span·class="lineno">·1691</span> }</div><div·class="line"><a·name="l01692"></a><span·class="lineno">·1692</span> </div><div·class="line"><a·name="l01693"></a><span·class="lineno">·1693</span> <span·class="preprocessor">#**·@class·Geo::GDAL::Dataset</span></div><div·class="line"><a·name="l01694"></a><span·class="lineno">·1694</span> <span·class="preprocessor">#·@brief·A·set·of·associated·raster·bands·or·vector·layer·source.</span></div><div·class="line"><a·name="l01695"></a><span·class="lineno">·1695</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l01696"></a><span·class="lineno">·1696</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01697"></a><span·class="lineno">·1697</span> <span·class="keyword">package·</span>Geo::GDAL::Dataset;</div><div·class="line"><a·name="l01698"></a><span·class="lineno">·1698</span> </div><div·class="line"><a·name="l01699"></a><span·class="lineno">·1699</span> use·base·qw(<a·class="code"·href="classGeo_1_1GDAL_1_1MajorObject.html">Geo::GDAL::MajorObject</a>·<a·class="code"·href="namespaceGeo_1_1GDAL.html">Geo::GDAL</a>)</div><div·class="line"><a·name="l01700"></a><span·class="lineno">·1700</span> </div><div·class="line"><a·name="l01701"></a><span·class="lineno">·1701</span> <span·class="preprocessor">#**·@attr·$RasterCount·</span></div><div·class="line"><a·name="l01702"></a><span·class="lineno">·1702</span> <span·class="preprocessor">#·scalar·(access·as·$dataset->{RasterCount})</span></div><div·class="line"><a·name="l01703"></a><span·class="lineno">·1703</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01704"></a><span·class="lineno">·1704</span> </div><div·class="line"><a·name="l01705"></a><span·class="lineno">·1705</span> <span·class="preprocessor">#**·@attr·$RasterXSize·</span></div><div·class="line"><a·name="l01706"></a><span·class="lineno">·1706</span> <span·class="preprocessor">#·scalar·(access·as·$dataset->{RasterXSize})</span></div><div·class="line"><a·name="l01707"></a><span·class="lineno">·1707</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01708"></a><span·class="lineno">·1708</span> </div><div·class="line"><a·name="l01709"></a><span·class="lineno">·1709</span> <span·class="preprocessor">#**·@attr·$RasterYSize·</span></div><div·class="line"><a·name="l01710"></a><span·class="lineno">·1710</span> <span·class="preprocessor">#·scalar·(access·as·$dataset->{RasterYSize})</span></div><div·class="line"><a·name="l01711"></a><span·class="lineno">·1711</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01712"></a><span·class="lineno">·1712</span> </div><div·class="line"><a·name="l01713"></a><span·class="lineno">·1713</span> <span·class="preprocessor">#**·@method·AddBand($datatype·=·'Byte',·hashref·options·=·{})</span></div><div·class="line"><a·name="l01714"></a><span·class="lineno">·1714</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01715"></a><span·class="lineno">·1715</span> <span·class="preprocessor">#·Add·a·new·band·to·the·dataset.·The·driver·must·support·the·action.</span></div><div·class="line"><a·name="l01716"></a><span·class="lineno">·1716</span> <span·class="preprocessor">#·@param·datatype·GDAL·raster·cell·data·type·(one·of·those·listed·by·Geo::GDAL::DataTypes).</span></div><div·class="line"><a·name="l01717"></a><span·class="lineno">·1717</span> <span·class="preprocessor">#·@param·options·reference·to·a·hash·of·format·specific·options.</span></div><div·class="line"><a·name="l01718"></a><span·class="lineno">·1718</span> <span·class="preprocessor">#·@return·The·added·band.</span></div><div·class="line"><a·name="l01719"></a><span·class="lineno">·1719</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01720"></a><span·class="lineno">·1720</span> sub·AddBand·{</div><div·class="line"><a·name="l01721"></a><span·class="lineno">·1721</span> ····my·($self,·$type,·$options)·=·@_;</div><div·class="line"><a·name="l01722"></a><span·class="lineno">·1722</span> ····$type·<span·class="comment">//=·'Byte';</span></div><div·class="line"><a·name="l01723"></a><span·class="lineno">·1723</span> ····$type·=·s2i(data_type·=>·$type);</div><div·class="line"><a·name="l01724"></a><span·class="lineno">·1724</span> ····$self->_AddBand($type,·$options);</div><div·class="line"><a·name="l01725"></a><span·class="lineno">·1725</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l01726"></a><span·class="lineno">·1726</span> ····<span·class="keywordflow">return</span>·$self->GetRasterBand($self->{RasterCount});</div><div·class="line"><a·name="l01727"></a><span·class="lineno">·1727</span> }</div><div·class="line"><a·name="l01728"></a><span·class="lineno">·1728</span> </div><div·class="line"><a·name="l01729"></a><span·class="lineno">·1729</span> <span·class="preprocessor">#**·@method·AdviseRead()</span></div><div·class="line"><a·name="l01730"></a><span·class="lineno">·1730</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01731"></a><span·class="lineno">·1731</span> sub·AdviseRead·{</div><div·class="line"><a·name="l01732"></a><span·class="lineno">·1732</span> }</div><div·class="line"><a·name="l01733"></a><span·class="lineno">·1733</span> </div><div·class="line"><a·name="l01734"></a><span·class="lineno">·1734</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Band·Band($index)</span></div><div·class="line"><a·name="l01735"></a><span·class="lineno">·1735</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01736"></a><span·class="lineno">·1736</span> <span·class="preprocessor">#·Create·a·band·object·for·the·band·within·the·dataset.</span></div><div·class="line"><a·name="l01737"></a><span·class="lineno">·1737</span> <span·class="preprocessor">#·@note·a.k.a.·GetRasterBand</span></div><div·class="line"><a·name="l01738"></a><span·class="lineno">·1738</span> <span·class="preprocessor">#·@param·index·1...RasterCount,·default·is·1.</span></div><div·class="line"><a·name="l01739"></a><span·class="lineno">·1739</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::Band·object</span></div><div·class="line"><a·name="l01740"></a><span·class="lineno">·1740</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01741"></a><span·class="lineno">·1741</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1Band.html">Band</a>·{</div><div·class="line"><a·name="l01742"></a><span·class="lineno">·1742</span> }</div><div·class="line"><a·name="l01743"></a><span·class="lineno">·1743</span> </div><div·class="line"><a·name="l01744"></a><span·class="lineno">·1744</span> <span·class="preprocessor">#**·@method·list·Bands()</span></div><div·class="line"><a·name="l01745"></a><span·class="lineno">·1745</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01746"></a><span·class="lineno">·1746</span> <span·class="preprocessor">#·@return·a·list·of·new·Geo::GDAL::Band·objects</span></div><div·class="line"><a·name="l01747"></a><span·class="lineno">·1747</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01748"></a><span·class="lineno">·1748</span> sub·Bands·{</div><div·class="line"><a·name="l01749"></a><span·class="lineno">·1749</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01750"></a><span·class="lineno">·1750</span> ····my·@bands;</div><div·class="line"><a·name="l01751"></a><span·class="lineno">·1751</span> ····<span·class="keywordflow">for</span>·my·$i·(1..$self->{RasterCount})·{</div><div·class="line"><a·name="l01752"></a><span·class="lineno">·1752</span> ········push·@bands,·GetRasterBand($self,·$i);</div><div·class="line"><a·name="l01753"></a><span·class="lineno">·1753</span> ····}</div><div·class="line"><a·name="l01754"></a><span·class="lineno">·1754</span> ····<span·class="keywordflow">return</span>·@bands;</div><div·class="line"><a·name="l01755"></a><span·class="lineno">·1755</span> }</div><div·class="line"><a·name="l01756"></a><span·class="lineno">·1756</span> </div><div·class="line"><a·name="l01757"></a><span·class="lineno">·1757</span> <span·class="preprocessor">#**·@method·BuildOverviews($resampling,·arrayref·overviews,·coderef·progress,·$progress_data)</span></div><div·class="line"><a·name="l01758"></a><span·class="lineno">·1758</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01759"></a><span·class="lineno">·1759</span> <span·class="preprocessor">#·@param·resampling·the·resampling·method,·one·of·Geo::GDAL::RIOResamplingTypes.</span></div><div·class="line"><a·name="l01760"></a><span·class="lineno">·1760</span> <span·class="preprocessor">#·@param·overviews·The·list·of·overview·decimation·factors·to</span></div><div·class="line"><a·name="l01761"></a><span·class="lineno">·1761</span> <span·class="preprocessor">#·build.·For·example·[2,4,8].</span></div><div·class="line"><a·name="l01762"></a><span·class="lineno">·1762</span> <span·class="preprocessor">#·@param·progress·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l01763"></a><span·class="lineno">·1763</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·progress_data)</span></div><div·class="line"><a·name="l01764"></a><span·class="lineno">·1764</span> <span·class="preprocessor">#·@param·progress_data·[optional]</span></div><div·class="line"><a·name="l01765"></a><span·class="lineno">·1765</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01766"></a><span·class="lineno">·1766</span> sub·BuildOverviews·{</div><div·class="line"><a·name="l01767"></a><span·class="lineno">·1767</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01768"></a><span·class="lineno">·1768</span> ····my·@p·=·@_;</div><div·class="line"><a·name="l01769"></a><span·class="lineno">·1769</span> ····$p[0]·=·uc($p[0])·<span·class="keywordflow">if</span>·$p[0];</div><div·class="line"><a·name="l01770"></a><span·class="lineno">·1770</span> ····eval·{</div><div·class="line"><a·name="l01771"></a><span·class="lineno">·1771</span> ········$self->_BuildOverviews(@p);</div><div·class="line"><a·name="l01772"></a><span·class="lineno">·1772</span> ····};</div><div·class="line"><a·name="l01773"></a><span·class="lineno">·1773</span> ····confess(last_error())·<span·class="keywordflow">if</span>·$@;</div><div·class="line"><a·name="l01774"></a><span·class="lineno">·1774</span> }</div><div·class="line"><a·name="l01775"></a><span·class="lineno">·1775</span> </div><div·class="line"><a·name="l01776"></a><span·class="lineno">·1776</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·BuildVRT($Dest,·arrayref·Sources,·hashref·Options,·coderef·progress,·$progress_data)</span></div><div·class="line"><a·name="l01777"></a><span·class="lineno">·1777</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01778"></a><span·class="lineno">·1778</span> <span·class="preprocessor">#·Build·a·virtual·dataset·from·a·set·of·datasets.</span></div><div·class="line"><a·name="l01779"></a><span·class="lineno">·1779</span> <span·class="preprocessor">#·@param·Dest·Destination·raster·dataset·definition·string·(typically</span></div><div·class="line"><a·name="l01780"></a><span·class="lineno">·1780</span> <span·class="preprocessor">#·filename),·or·an·object,·which·implements·write·and·close.</span></div><div·class="line"><a·name="l01781"></a><span·class="lineno">·1781</span> <span·class="preprocessor">#·@param·Sources·A·list·of·filenames·of·input·datasets·or·a·list·of</span></div><div·class="line"><a·name="l01782"></a><span·class="lineno">·1782</span> <span·class="preprocessor">#·dataset·objects.</span></div><div·class="line"><a·name="l01783"></a><span·class="lineno">·1783</span> <span·class="preprocessor">#·@param·Options·See·section·\ref·index_processing_options.</span></div><div·class="line"><a·name="l01784"></a><span·class="lineno">·1784</span> <span·class="preprocessor">#·@return·Dataset·object</span></div><div·class="line"><a·name="l01785"></a><span·class="lineno">·1785</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01786"></a><span·class="lineno">·1786</span> <span·class="preprocessor">#·@note·This·subroutine·is·imported·into·the·main·namespace·if·Geo::GDAL</span></div><div·class="line"><a·name="l01787"></a><span·class="lineno">·1787</span> <span·class="preprocessor">#·is·use'd·with·qw/:all/.</span></div><div·class="line"><a·name="l01788"></a><span·class="lineno">·1788</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01789"></a><span·class="lineno">·1789</span> sub·BuildVRT·{</div><div·class="line"><a·name="l01790"></a><span·class="lineno">·1790</span> ····my·($dest,·$sources,·$options,·$progress,·$progress_data)·=·@_;</div><div·class="line"><a·name="l01791"></a><span·class="lineno">·1791</span> ····$options·=·Geo::GDAL::GDALBuildVRTOptions->new(make_processing_options($options));</div><div·class="line"><a·name="l01792"></a><span·class="lineno">·1792</span> ····error(<span·class="stringliteral">"Usage:·Geo::GDAL::DataSet::BuildVRT(\$vrt_file_name,·\\\@sources)"</span>)</div><div·class="line"><a·name="l01793"></a><span·class="lineno">·1793</span> ········unless·ref·$sources·eq·<span·class="stringliteral">'ARRAY'</span>·&&·defined·$sources->[0];</div><div·class="line"><a·name="l01794"></a><span·class="lineno">·1794</span> ····unless·(blessed($dest))·{</div><div·class="line"><a·name="l01795"></a><span·class="lineno">·1795</span> ········<span·class="keywordflow">if</span>·(blessed($sources->[0]))·{</div><div·class="line"><a·name="l01796"></a><span·class="lineno">·1796</span> ············<span·class="keywordflow">return</span>·Geo::GDAL::wrapper_GDALBuildVRT_objects($dest,·$sources,·$options,·$progress,·$progress_data);</div><div·class="line"><a·name="l01797"></a><span·class="lineno">·1797</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l01798"></a><span·class="lineno">·1798</span> ············<span·class="keywordflow">return</span>·Geo::GDAL::wrapper_GDALBuildVRT_names($dest,·$sources,·$options,·$progress,·$progress_data);</div><div·class="line"><a·name="l01799"></a><span·class="lineno">·1799</span> ········}</div><div·class="line"><a·name="l01800"></a><span·class="lineno">·1800</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l01801"></a><span·class="lineno">·1801</span> ········<span·class="keywordflow">if</span>·(blessed($sources->[0]))·{</div><div·class="line"><a·name="l01802"></a><span·class="lineno">·1802</span> ············<span·class="keywordflow">return</span>·stdout_redirection_wrapper(</div><div·class="line"><a·name="l01803"></a><span·class="lineno">·1803</span> ················$sources,·$dest,</div><div·class="line"><a·name="l01804"></a><span·class="lineno">·1804</span> ················\&Geo::GDAL::wrapper_GDALBuildVRT_objects,</div><div·class="line"><a·name="l01805"></a><span·class="lineno">·1805</span> ················$options,·$progress,·$progress_data);</div><div·class="line"><a·name="l01806"></a><span·class="lineno">·1806</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l01807"></a><span·class="lineno">·1807</span> ············<span·class="keywordflow">return</span>·stdout_redirection_wrapper(</div><div·class="line"><a·name="l01808"></a><span·class="lineno">·1808</span> ················$sources,·$dest,</div><div·class="line"><a·name="l01809"></a><span·class="lineno">·1809</span> ················\&Geo::GDAL::wrapper_GDALBuildVRT_names,</div><div·class="line"><a·name="l01810"></a><span·class="lineno">·1810</span> ················$options,·$progress,·$progress_data);</div><div·class="line"><a·name="l01811"></a><span·class="lineno">·1811</span> ········}</div><div·class="line"><a·name="l01812"></a><span·class="lineno">·1812</span> ····}</div><div·class="line"><a·name="l01813"></a><span·class="lineno">·1813</span> }</div><div·class="line"><a·name="l01814"></a><span·class="lineno">·1814</span> </div><div·class="line"><a·name="l01815"></a><span·class="lineno">·1815</span> <span·class="preprocessor">#**·@method·CommitTransaction()</span></div><div·class="line"><a·name="l01816"></a><span·class="lineno">·1816</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01817"></a><span·class="lineno">·1817</span> sub·CommitTransaction·{</div><div·class="line"><a·name="l01818"></a><span·class="lineno">·1818</span> }</div><div·class="line"><a·name="l01819"></a><span·class="lineno">·1819</span> </div><div·class="line"><a·name="l01820"></a><span·class="lineno">·1820</span> <span·class="preprocessor">#**·@method·Geo::GDAL::ColorTable·ComputeColorTable(%params)</span></div><div·class="line"><a·name="l01821"></a><span·class="lineno">·1821</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01822"></a><span·class="lineno">·1822</span> <span·class="preprocessor">#·Compute·a·color·table·from·an·RGB·image</span></div><div·class="line"><a·name="l01823"></a><span·class="lineno">·1823</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l01824"></a><span·class="lineno">·1824</span> <span·class="preprocessor">#·-·\a·Red·The·red·band,·the·default·is·to·use·the·red·band·of·this·dataset.</span></div><div·class="line"><a·name="l01825"></a><span·class="lineno">·1825</span> <span·class="preprocessor">#·-·\a·Green·The·green·band,·the·default·is·to·use·the·green·band·of·this·dataset.</span></div><div·class="line"><a·name="l01826"></a><span·class="lineno">·1826</span> <span·class="preprocessor">#·-·\a·Blue·The·blue·band,·the·default·is·to·use·the·blue·band·of·this·dataset.</span></div><div·class="line"><a·name="l01827"></a><span·class="lineno">·1827</span> <span·class="preprocessor">#·-·\a·NumColors·The·number·of·colors·in·the·computed·color·table.·Default·is·256.</span></div><div·class="line"><a·name="l01828"></a><span·class="lineno">·1828</span> <span·class="preprocessor">#·-·\a·Progress·reference·to·a·progress·function·(default·is·undef)</span></div><div·class="line"><a·name="l01829"></a><span·class="lineno">·1829</span> <span·class="preprocessor">#·-·\a·ProgressData·(default·is·undef)</span></div><div·class="line"><a·name="l01830"></a><span·class="lineno">·1830</span> <span·class="preprocessor">#·-·\a·Method·The·computation·method.·The·default·and·currently·only·option·is·the·median·cut·algorithm.</span></div><div·class="line"><a·name="l01831"></a><span·class="lineno">·1831</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01832"></a><span·class="lineno">·1832</span> <span·class="preprocessor">#·@return·a·new·color·table·object.</span></div><div·class="line"><a·name="l01833"></a><span·class="lineno">·1833</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01834"></a><span·class="lineno">·1834</span> sub·ComputeColorTable·{</div><div·class="line"><a·name="l01835"></a><span·class="lineno">·1835</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01836"></a><span·class="lineno">·1836</span> ····my·$p·=·named_parameters(\@_,</div><div·class="line"><a·name="l01837"></a><span·class="lineno">·1837</span> ·····························Red·=>·undef,</div><div·class="line"><a·name="l01838"></a><span·class="lineno">·1838</span> ·····························Green·=>·undef,</div><div·class="line"><a·name="l01839"></a><span·class="lineno">·1839</span> ·····························Blue·=>·undef,</div><div·class="line"><a·name="l01840"></a><span·class="lineno">·1840</span> ·····························NumColors·=>·256,</div><div·class="line"><a·name="l01841"></a><span·class="lineno">·1841</span> ·····························Progress·=>·undef,</div><div·class="line"><a·name="l01842"></a><span·class="lineno">·1842</span> ·····························ProgressData·=>·undef,</div><div·class="line"><a·name="l01843"></a><span·class="lineno">·1843</span> ·····························Method·=>·<span·class="stringliteral">'MedianCut'</span>);</div><div·class="line"><a·name="l01844"></a><span·class="lineno">·1844</span> ····<span·class="keywordflow">for</span>·my·$b·($self->Bands)·{</div><div·class="line"><a·name="l01845"></a><span·class="lineno">·1845</span> ········<span·class="keywordflow">for</span>·my·$cion·($b->ColorInterpretation)·{</div><div·class="line"><a·name="l01846"></a><span·class="lineno">·1846</span> ············<span·class="keywordflow">if</span>·($cion·eq·<span·class="stringliteral">'RedBand'</span>)·{·$p->{red}·<span·class="comment">//=·$b;·last;·}</span></div><div·class="line"><a·name="l01847"></a><span·class="lineno">·1847</span> ············<span·class="keywordflow">if</span>·($cion·eq·<span·class="stringliteral">'GreenBand'</span>)·{·$p->{green}·<span·class="comment">//=·$b;·last;·}</span></div><div·class="line"><a·name="l01848"></a><span·class="lineno">·1848</span> ············<span·class="keywordflow">if</span>·($cion·eq·<span·class="stringliteral">'BlueBand'</span>)·{·$p->{blue}·<span·class="comment">//=·$b;·last;·}</span></div><div·class="line"><a·name="l01849"></a><span·class="lineno">·1849</span> ········}</div><div·class="line"><a·name="l01850"></a><span·class="lineno">·1850</span> ····}</div><div·class="line"><a·name="l01851"></a><span·class="lineno">·1851</span> ····my·$ct·=·<a·class="code"·href="classGeo_1_1GDAL_1_1ColorTable.html">Geo::GDAL::ColorTable</a>-><a·class="code"·href="classGeo_1_1GDAL_1_1ColorTable.html#a4a88808000916b70c9561f9dbff481fc">new</a>;</div><div·class="line"><a·name="l01852"></a><span·class="lineno">·1852</span> ····Geo::GDAL::ComputeMedianCutPCT($p->{red},</div><div·class="line"><a·name="l01853"></a><span·class="lineno">·1853</span> ···································$p->{green},</div><div·class="line"><a·name="l01854"></a><span·class="lineno">·1854</span> ···································$p->{blue},</div><div·class="line"><a·name="l01855"></a><span·class="lineno">·1855</span> ···································$p->{numcolors},</div><div·class="line"><a·name="l01856"></a><span·class="lineno">·1856</span> ···································$ct,·$p->{progress},</div><div·class="line"><a·name="l01857"></a><span·class="lineno">·1857</span> ···································$p->{progressdata});</div><div·class="line"><a·name="l01858"></a><span·class="lineno">·1858</span> ····<span·class="keywordflow">return</span>·$ct;</div><div·class="line"><a·name="l01859"></a><span·class="lineno">·1859</span> }</div><div·class="line"><a·name="l01860"></a><span·class="lineno">·1860</span> </div><div·class="line"><a·name="l01861"></a><span·class="lineno">·1861</span> <span·class="preprocessor">#**·@method·Geo::OGR::Layer·CopyLayer($layer,·$name,·hashref·options·=·undef)</span></div><div·class="line"><a·name="l01862"></a><span·class="lineno">·1862</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01863"></a><span·class="lineno">·1863</span> <span·class="preprocessor">#·@param·layer·A·Geo::OGR::Layer·object·to·be·copied.</span></div><div·class="line"><a·name="l01864"></a><span·class="lineno">·1864</span> <span·class="preprocessor">#·@param·name·A·name·for·the·new·layer.</span></div><div·class="line"><a·name="l01865"></a><span·class="lineno">·1865</span> <span·class="preprocessor">#·@param·options·A·ref·to·a·hash·of·format·specific·options.</span></div><div·class="line"><a·name="l01866"></a><span·class="lineno">·1866</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Layer·object.</span></div><div·class="line"><a·name="l01867"></a><span·class="lineno">·1867</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01868"></a><span·class="lineno">·1868</span> sub·CopyLayer·{</div><div·class="line"><a·name="l01869"></a><span·class="lineno">·1869</span> }</div><div·class="line"><a·name="l01870"></a><span·class="lineno">·1870</span> </div><div·class="line"><a·name="l01871"></a><span·class="lineno">·1871</span> <span·class="preprocessor">#**·@method·Geo::OGR::Layer·CreateLayer(%params)</span></div><div·class="line"><a·name="l01872"></a><span·class="lineno">·1872</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01873"></a><span·class="lineno">·1873</span> <span·class="preprocessor">#·@brief·Create·a·new·vector·layer·into·this·dataset.</span></div><div·class="line"><a·name="l01874"></a><span·class="lineno">·1874</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01875"></a><span·class="lineno">·1875</span> <span·class="preprocessor">#·@param·%params·Named·parameters:</span></div><div·class="line"><a·name="l01876"></a><span·class="lineno">·1876</span> <span·class="preprocessor">#·-·\a·Name·(scalar)·name·for·the·new·layer.</span></div><div·class="line"><a·name="l01877"></a><span·class="lineno">·1877</span> <span·class="preprocessor">#·-·\a·Fields·(array·reference)·a·list·of·(scalar·and·geometry)·field·definitions·as·in</span></div><div·class="line"><a·name="l01878"></a><span·class="lineno">·1878</span> <span·class="preprocessor">#·Geo::OGR::Layer::CreateField.</span></div><div·class="line"><a·name="l01879"></a><span·class="lineno">·1879</span> <span·class="preprocessor">#·-·\a·ApproxOK·(boolean·value,·default·is·true)·a·flag,·which·is·forwarded·to·Geo::OGR::Layer::CreateField.</span></div><div·class="line"><a·name="l01880"></a><span·class="lineno">·1880</span> <span·class="preprocessor">#·-·\a·Options·(hash·reference)·driver·specific·hash·of·layer·creation·options.</span></div><div·class="line"><a·name="l01881"></a><span·class="lineno">·1881</span> <span·class="preprocessor">#·-·\a·Schema·(hash·reference,·deprecated,·use·\a·Fields·and·\a·Name)·may·contain·keys·Name,·Fields,·GeomFields,·GeometryType.</span></div><div·class="line"><a·name="l01882"></a><span·class="lineno">·1882</span> <span·class="preprocessor">#·-·\a·SRS·(scalar)·the·spatial·reference·for·the·default·geometry·field.</span></div><div·class="line"><a·name="l01883"></a><span·class="lineno">·1883</span> <span·class="preprocessor">#·-·\a·GeometryType·(scalar)·the·type·of·the·default·geometry·field</span></div><div·class="line"><a·name="l01884"></a><span·class="lineno">·1884</span> <span·class="preprocessor">#·(if·only·one·geometry·field).·Default·is·'Unknown'.</span></div><div·class="line"><a·name="l01885"></a><span·class="lineno">·1885</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01886"></a><span·class="lineno">·1886</span> <span·class="preprocessor">#·@note·If·Fields·or·Schema|Fields·is·not·given,·a·default·geometry</span></div><div·class="line"><a·name="l01887"></a><span·class="lineno">·1887</span> <span·class="preprocessor">#·field·(Name·=>·'',·GeometryType·=>·'Unknown')·is·created.·If·it·is</span></div><div·class="line"><a·name="l01888"></a><span·class="lineno">·1888</span> <span·class="preprocessor">#·given·and·it·contains·spatial·fields,·both·GeometryType·and·SRS·are</span></div><div·class="line"><a·name="l01889"></a><span·class="lineno">·1889</span> <span·class="preprocessor">#·ignored.·The·type·can·be·also·set·with·the·named·parameter.</span></div><div·class="line"><a·name="l01890"></a><span·class="lineno">·1890</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01891"></a><span·class="lineno">·1891</span> <span·class="preprocessor">#·Example:</span></div><div·class="line"><a·name="l01892"></a><span·class="lineno">·1892</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l01893"></a><span·class="lineno">·1893</span> <span·class="preprocessor">#·my·$roads·=·Geo::OGR::Driver('Memory')->Create('road')-></span></div><div·class="line"><a·name="l01894"></a><span·class="lineno">·1894</span> <span·class="preprocessor">#····CreateLayer(</span></div><div·class="line"><a·name="l01895"></a><span·class="lineno">·1895</span> <span·class="preprocessor">#········Fields·=>·[·{·Name·=>·'class',</span></div><div·class="line"><a·name="l01896"></a><span·class="lineno">·1896</span> <span·class="preprocessor">#······················Type·=>·'Integer'·},</span></div><div·class="line"><a·name="l01897"></a><span·class="lineno">·1897</span> <span·class="preprocessor">#····················{·Name·=>·'geom',</span></div><div·class="line"><a·name="l01898"></a><span·class="lineno">·1898</span> <span·class="preprocessor">#······················Type·=>·'LineString25D'·}·]·);</span></div><div·class="line"><a·name="l01899"></a><span·class="lineno">·1899</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l01900"></a><span·class="lineno">·1900</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01901"></a><span·class="lineno">·1901</span> <span·class="preprocessor">#·@note·Many·formats·allow·only·one·spatial·field,·which·currently</span></div><div·class="line"><a·name="l01902"></a><span·class="lineno">·1902</span> <span·class="preprocessor">#·requires·the·use·of·GeometryType.</span></div><div·class="line"><a·name="l01903"></a><span·class="lineno">·1903</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01904"></a><span·class="lineno">·1904</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Layer·object.</span></div><div·class="line"><a·name="l01905"></a><span·class="lineno">·1905</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01906"></a><span·class="lineno">·1906</span> sub·CreateLayer·{</div><div·class="line"><a·name="l01907"></a><span·class="lineno">·1907</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01908"></a><span·class="lineno">·1908</span> ····my·$p·=·named_parameters(\@_,</div><div·class="line"><a·name="l01909"></a><span·class="lineno">·1909</span> ·····························Name·=>·<span·class="stringliteral">'unnamed'</span>,</div><div·class="line"><a·name="l01910"></a><span·class="lineno">·1910</span> ·····························SRS·=>·undef,</div><div·class="line"><a·name="l01911"></a><span·class="lineno">·1911</span> ·····························GeometryType·=>·<span·class="stringliteral">'Unknown'</span>,</div><div·class="line"><a·name="l01912"></a><span·class="lineno">·1912</span> ·····························Options·=>·{},</div><div·class="line"><a·name="l01913"></a><span·class="lineno">·1913</span> ·····························Schema·=>·undef,</div><div·class="line"><a·name="l01914"></a><span·class="lineno">·1914</span> ·····························Fields·=>·undef,</div><div·class="line"><a·name="l01915"></a><span·class="lineno">·1915</span> ·····························ApproxOK·=>·1);</div><div·class="line"><a·name="l01916"></a><span·class="lineno">·1916</span> ····error(<span·class="stringliteral">"The·'Fields'·argument·must·be·an·array·reference."</span>)·<span·class="keywordflow">if</span>·$p->{fields}·&&·ref($p->{fields})·ne·<span·class="stringliteral">'ARRAY'</span>;</div><div·class="line"><a·name="l01917"></a><span·class="lineno">·1917</span> ····<span·class="keywordflow">if</span>·(defined·$p->{schema})·{</div><div·class="line"><a·name="l01918"></a><span·class="lineno">·1918</span> ········my·$s·=·$p->{schema};</div><div·class="line"><a·name="l01919"></a><span·class="lineno">·1919</span> ········$p->{geometrytype}·=·$s->{GeometryType}·<span·class="keywordflow">if</span>·exists·$s->{GeometryType};</div><div·class="line"><a·name="l01920"></a><span·class="lineno">·1920</span> ········$p->{fields}·=·$s->{Fields}·<span·class="keywordflow">if</span>·exists·$s->{Fields};</div><div·class="line"><a·name="l01921"></a><span·class="lineno">·1921</span> ········$p->{name}·=·$s->{Name}·<span·class="keywordflow">if</span>·exists·$s->{Name};</div><div·class="line"><a·name="l01922"></a><span·class="lineno">·1922</span> ····}</div><div·class="line"><a·name="l01923"></a><span·class="lineno">·1923</span> ····$p->{fields}·=·[]·unless·ref($p->{fields})·eq·<span·class="stringliteral">'ARRAY'</span>;</div><div·class="line"><a·name="l01924"></a><span·class="lineno">·1924</span> <span·class="preprocessor">····#·if·fields·contains·spatial·fields,·then·do·not·create·default·one</span></div><div·class="line"><a·name="l01925"></a><span·class="lineno">·1925</span> ····<span·class="keywordflow">for</span>·my·$f·(@{$p->{fields}})·{</div><div·class="line"><a·name="l01926"></a><span·class="lineno">·1926</span> ········error(<span·class="stringliteral">"Field·definitions·must·be·hash·references."</span>)·unless·ref·$f·eq·<span·class="stringliteral">'HASH'</span>;</div><div·class="line"><a·name="l01927"></a><span·class="lineno">·1927</span> ········<span·class="keywordflow">if</span>·($f->{GeometryType}·||·($f->{Type}·&&·s_exists(geometry_type·=>·$f->{Type})))·{</div><div·class="line"><a·name="l01928"></a><span·class="lineno">·1928</span> ············$p->{geometrytype}·=·<span·class="stringliteral">'None'</span>;</div><div·class="line"><a·name="l01929"></a><span·class="lineno">·1929</span> ············last;</div><div·class="line"><a·name="l01930"></a><span·class="lineno">·1930</span> ········}</div><div·class="line"><a·name="l01931"></a><span·class="lineno">·1931</span> ····}</div><div·class="line"><a·name="l01932"></a><span·class="lineno">·1932</span> ····my·$gt·=·s2i(geometry_type·=>·$p->{geometrytype});</div><div·class="line"><a·name="l01933"></a><span·class="lineno">·1933</span> ····my·$layer·=·_CreateLayer($self,·$p->{name},·$p->{srs},·$gt,·$p->{options});</div><div·class="line"><a·name="l01934"></a><span·class="lineno">·1934</span> ····<span·class="keywordflow">for</span>·my·$f·(@{$p->{fields}})·{</div><div·class="line"><a·name="l01935"></a><span·class="lineno">·1935</span> ········$layer->CreateField($f);</div><div·class="line"><a·name="l01936"></a><span·class="lineno">·1936</span> ····}</div><div·class="line"><a·name="l01937"></a><span·class="lineno">·1937</span> ····keep($layer,·$self);</div><div·class="line"><a·name="l01938"></a><span·class="lineno">·1938</span> }</div><div·class="line"><a·name="l01939"></a><span·class="lineno">·1939</span> </div><div·class="line"><a·name="l01940"></a><span·class="lineno">·1940</span> <span·class="preprocessor">#**·@method·CreateMaskBand()</span></div><div·class="line"><a·name="l01941"></a><span·class="lineno">·1941</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01942"></a><span·class="lineno">·1942</span> <span·class="preprocessor">#·Add·a·mask·band·to·the·dataset.</span></div><div·class="line"><a·name="l01943"></a><span·class="lineno">·1943</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01944"></a><span·class="lineno">·1944</span> sub·CreateMaskBand·{</div><div·class="line"><a·name="l01945"></a><span·class="lineno">·1945</span> ····<span·class="keywordflow">return</span>·_CreateMaskBand(@_);</div><div·class="line"><a·name="l01946"></a><span·class="lineno">·1946</span> }</div><div·class="line"><a·name="l01947"></a><span·class="lineno">·1947</span> </div><div·class="line"><a·name="l01948"></a><span·class="lineno">·1948</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·DEMProcessing($Dest,·$Processing,·$ColorFilename,·hashref·Options,·coderef·progress,·$progress_data)</span></div><div·class="line"><a·name="l01949"></a><span·class="lineno">·1949</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01950"></a><span·class="lineno">·1950</span> <span·class="preprocessor">#·Apply·a·DEM·processing·to·this·dataset.</span></div><div·class="line"><a·name="l01951"></a><span·class="lineno">·1951</span> <span·class="preprocessor">#·@param·Dest·Destination·raster·dataset·definition·string·(typically·filename)·or·an·object,·which·implements·write·and·close.</span></div><div·class="line"><a·name="l01952"></a><span·class="lineno">·1952</span> <span·class="preprocessor">#·@param·Processing·Processing·to·apply,·one·of·"hillshade",·"slope",·"aspect",·"color-relief",·"TRI",·"TPI",·or·"Roughness".</span></div><div·class="line"><a·name="l01953"></a><span·class="lineno">·1953</span> <span·class="preprocessor">#·@param·ColorFilename·The·color·palette·for·color-relief.</span></div><div·class="line"><a·name="l01954"></a><span·class="lineno">·1954</span> <span·class="preprocessor">#·@param·Options·See·section·\ref·index_processing_options.</span></div><div·class="line"><a·name="l01955"></a><span·class="lineno">·1955</span> <span·class="preprocessor">#·@param·progress·[optional]·A·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l01956"></a><span·class="lineno">·1956</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·progress_data).</span></div><div·class="line"><a·name="l01957"></a><span·class="lineno">·1957</span> <span·class="preprocessor">#·@param·progress_data·[optional]</span></div><div·class="line"><a·name="l01958"></a><span·class="lineno">·1958</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01959"></a><span·class="lineno">·1959</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01960"></a><span·class="lineno">·1960</span> sub·DEMProcessing·{</div><div·class="line"><a·name="l01961"></a><span·class="lineno">·1961</span> ····my·($self,·$dest,·$Processing,·$ColorFilename,·$options,·$progress,·$progress_data)·=·@_;</div><div·class="line"><a·name="l01962"></a><span·class="lineno">·1962</span> ····$options·=·Geo::GDAL::GDALDEMProcessingOptions->new(make_processing_options($options));</div><div·class="line"><a·name="l01963"></a><span·class="lineno">·1963</span> ····<span·class="keywordflow">return</span>·$self->stdout_redirection_wrapper(</div><div·class="line"><a·name="l01964"></a><span·class="lineno">·1964</span> ········$dest,</div><div·class="line"><a·name="l01965"></a><span·class="lineno">·1965</span> ········\&Geo::GDAL::wrapper_GDALDEMProcessing,</div><div·class="line"><a·name="l01966"></a><span·class="lineno">·1966</span> ········$Processing,·$ColorFilename,·$options,·$progress,·$progress_data</div><div·class="line"><a·name="l01967"></a><span·class="lineno">·1967</span> ····);</div><div·class="line"><a·name="l01968"></a><span·class="lineno">·1968</span> }</div><div·class="line"><a·name="l01969"></a><span·class="lineno">·1969</span> </div><div·class="line"><a·name="l01970"></a><span·class="lineno">·1970</span> <span·class="preprocessor">#**·@method·Dataset()</span></div><div·class="line"><a·name="l01971"></a><span·class="lineno">·1971</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01972"></a><span·class="lineno">·1972</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1Dataset.html">Dataset</a>·{</div><div·class="line"><a·name="l01973"></a><span·class="lineno">·1973</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01974"></a><span·class="lineno">·1974</span> ····parent($self);</div><div·class="line"><a·name="l01975"></a><span·class="lineno">·1975</span> }</div><div·class="line"><a·name="l01976"></a><span·class="lineno">·1976</span> </div><div·class="line"><a·name="l01977"></a><span·class="lineno">·1977</span> <span·class="preprocessor">#**·@method·DeleteLayer($name)</span></div><div·class="line"><a·name="l01978"></a><span·class="lineno">·1978</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01979"></a><span·class="lineno">·1979</span> <span·class="preprocessor">#·Deletes·a·layer·from·the·data·source.·Note·that·if·there·is·a·layer</span></div><div·class="line"><a·name="l01980"></a><span·class="lineno">·1980</span> <span·class="preprocessor">#·object·for·the·deleted·layer,·it·becomes·unusable.</span></div><div·class="line"><a·name="l01981"></a><span·class="lineno">·1981</span> <span·class="preprocessor">#·@param·name·name·of·the·layer·to·delete.</span></div><div·class="line"><a·name="l01982"></a><span·class="lineno">·1982</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01983"></a><span·class="lineno">·1983</span> sub·DeleteLayer·{</div><div·class="line"><a·name="l01984"></a><span·class="lineno">·1984</span> ····my·($self,·$name)·=·@_;</div><div·class="line"><a·name="l01985"></a><span·class="lineno">·1985</span> ····my·$index;</div><div·class="line"><a·name="l01986"></a><span·class="lineno">·1986</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$self->GetLayerCount-1)·{</div><div·class="line"><a·name="l01987"></a><span·class="lineno">·1987</span> ········my·$layer·=·GetLayerByIndex($self,·$i);</div><div·class="line"><a·name="l01988"></a><span·class="lineno">·1988</span> ········$index·=·$i,·last·<span·class="keywordflow">if</span>·$layer->GetName·eq·$name;</div><div·class="line"><a·name="l01989"></a><span·class="lineno">·1989</span> ····}</div><div·class="line"><a·name="l01990"></a><span·class="lineno">·1990</span> ····error(2,·$name,·<span·class="stringliteral">'Layer'</span>)·unless·defined·$index;</div><div·class="line"><a·name="l01991"></a><span·class="lineno">·1991</span> ····_DeleteLayer($self,·$index);</div><div·class="line"><a·name="l01992"></a><span·class="lineno">·1992</span> }</div><div·class="line"><a·name="l01993"></a><span·class="lineno">·1993</span> </div><div·class="line"><a·name="l01994"></a><span·class="lineno">·1994</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Band·Dither(%params)</span></div><div·class="line"><a·name="l01995"></a><span·class="lineno">·1995</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01996"></a><span·class="lineno">·1996</span> <span·class="preprocessor">#·Compute·one·band·with·color·table·image·from·an·RGB·image</span></div><div·class="line"><a·name="l01997"></a><span·class="lineno">·1997</span> <span·class="preprocessor">#·@params·params·Named·parameters:</span></div><div·class="line"><a·name="l01998"></a><span·class="lineno">·1998</span> <span·class="preprocessor">#·-·\a·Red·The·red·band,·the·default·is·to·use·the·red·band·of·this·dataset.</span></div><div·class="line"><a·name="l01999"></a><span·class="lineno">·1999</span> <span·class="preprocessor">#·-·\a·Green·The·green·band,·the·default·is·to·use·the·green·band·of·this·dataset.</span></div><div·class="line"><a·name="l02000"></a><span·class="lineno">·2000</span> <span·class="preprocessor">#·-·\a·Blue·The·blue·band,·the·default·is·to·use·the·blue·band·of·this·dataset.</span></div><div·class="line"><a·name="l02001"></a><span·class="lineno">·2001</span> <span·class="preprocessor">#·-·\a·Dest·The·destination·band.·If·this·is·not·defined,·a·new·in-memory·band·(and·a·dataset)·will·be·created.</span></div><div·class="line"><a·name="l02002"></a><span·class="lineno">·2002</span> <span·class="preprocessor">#·-·\a·ColorTable·The·color·table·for·the·result.·If·this·is·not·defined,·and·the·destination·band·does·not·contain·one,·it·will·be·computed·with·the·ComputeColorTable·method.</span></div><div·class="line"><a·name="l02003"></a><span·class="lineno">·2003</span> <span·class="preprocessor">#·-·\a·Progress·Reference·to·a·progress·function·(default·is·undef).·Note·that·if·ColorTable·is·computed·using·ComputeColorTable·method,·the·progress·will·run·twice·from·0·to·1.</span></div><div·class="line"><a·name="l02004"></a><span·class="lineno">·2004</span> <span·class="preprocessor">#·-·\a·ProgressData·(default·is·undef)</span></div><div·class="line"><a·name="l02005"></a><span·class="lineno">·2005</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02006"></a><span·class="lineno">·2006</span> <span·class="preprocessor">#·@return·the·destination·band.</span></div><div·class="line"><a·name="l02007"></a><span·class="lineno">·2007</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02008"></a><span·class="lineno">·2008</span> <span·class="preprocessor">#·Usage·example.·This·code·converts·an·RGB·JPEG·image·into·a·one·band·PNG·image·with·a·color·table.</span></div><div·class="line"><a·name="l02009"></a><span·class="lineno">·2009</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l02010"></a><span·class="lineno">·2010</span> <span·class="preprocessor">#·my·$d·=·Geo::GDAL::Open('pic.jpg');</span></div><div·class="line"><a·name="l02011"></a><span·class="lineno">·2011</span> <span·class="preprocessor">#·Geo::GDAL::Driver('PNG')->Copy(Name·=>·'test.png',·Src·=>·$d->Dither->Dataset);</span></div><div·class="line"><a·name="l02012"></a><span·class="lineno">·2012</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l02013"></a><span·class="lineno">·2013</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02014"></a><span·class="lineno">·2014</span> sub·Dither·{</div><div·class="line"><a·name="l02015"></a><span·class="lineno">·2015</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02016"></a><span·class="lineno">·2016</span> ····my·$p·=·named_parameters(\@_,</div><div·class="line"><a·name="l02017"></a><span·class="lineno">·2017</span> ·····························Red·=>·undef,</div><div·class="line"><a·name="l02018"></a><span·class="lineno">·2018</span> ·····························Green·=>·undef,</div><div·class="line"><a·name="l02019"></a><span·class="lineno">·2019</span> ·····························Blue·=>·undef,</div><div·class="line"><a·name="l02020"></a><span·class="lineno">·2020</span> ·····························Dest·=>·undef,</div><div·class="line"><a·name="l02021"></a><span·class="lineno">·2021</span> ·····························<a·class="code"·href="classGeo_1_1GDAL_1_1ColorTable.html">ColorTable</a>·=>·undef,</div><div·class="line"><a·name="l02022"></a><span·class="lineno">·2022</span> ·····························Progress·=>·undef,</div><div·class="line"><a·name="l02023"></a><span·class="lineno">·2023</span> ·····························ProgressData·=>·undef);</div><div·class="line"><a·name="l02024"></a><span·class="lineno">·2024</span> ····<span·class="keywordflow">for</span>·my·$b·($self->Bands)·{</div><div·class="line"><a·name="l02025"></a><span·class="lineno">·2025</span> ········<span·class="keywordflow">for</span>·my·$cion·($b->ColorInterpretation)·{</div><div·class="line"><a·name="l02026"></a><span·class="lineno">·2026</span> ············<span·class="keywordflow">if</span>·($cion·eq·<span·class="stringliteral">'RedBand'</span>)·{·$p->{red}·<span·class="comment">//=·$b;·last;·}</span></div><div·class="line"><a·name="l02027"></a><span·class="lineno">·2027</span> ············<span·class="keywordflow">if</span>·($cion·eq·<span·class="stringliteral">'GreenBand'</span>)·{·$p->{green}·<span·class="comment">//=·$b;·last;·}</span></div><div·class="line"><a·name="l02028"></a><span·class="lineno">·2028</span> ············<span·class="keywordflow">if</span>·($cion·eq·<span·class="stringliteral">'BlueBand'</span>)·{·$p->{blue}·<span·class="comment">//=·$b;·last;·}</span></div><div·class="line"><a·name="l02029"></a><span·class="lineno">·2029</span> ········}</div><div·class="line"><a·name="l02030"></a><span·class="lineno">·2030</span> ····}</div><div·class="line"><a·name="l02031"></a><span·class="lineno">·2031</span> ····my·($w,·$h)·=·$self->Size;</div><div·class="line"><a·name="l02032"></a><span·class="lineno">·2032</span> ····$p->{dest}·<span·class="comment">//=·Geo::GDAL::Driver('MEM')->Create(Name·=>·'dithered',</span></div><div·class="line"><a·name="l02033"></a><span·class="lineno">·2033</span> ····················································Width·=>·$w,</div><div·class="line"><a·name="l02034"></a><span·class="lineno">·2034</span> ····················································Height·=>·$h,</div><div·class="line"><a·name="l02035"></a><span·class="lineno">·2035</span> ····················································Type·=>·<span·class="stringliteral">'Byte'</span>)-><a·class="code"·href="classGeo_1_1GDAL_1_1Band.html">Band</a>;</div><div·class="line"><a·name="l02036"></a><span·class="lineno">·2036</span> ····$p->{colortable}</div><div·class="line"><a·name="l02037"></a><span·class="lineno">·2037</span> ········<span·class="comment">//=·$p->{dest}->ColorTable</span></div><div·class="line"><a·name="l02038"></a><span·class="lineno">·2038</span> ············<span·class="comment">//·$self->ComputeColorTable(Red·=>·$p->{red},</span></div><div·class="line"><a·name="l02039"></a><span·class="lineno">·2039</span> ········································Green·=>·$p->{green},</div><div·class="line"><a·name="l02040"></a><span·class="lineno">·2040</span> ········································Blue·=>·$p->{blue},</div><div·class="line"><a·name="l02041"></a><span·class="lineno">·2041</span> ········································Progress·=>·$p->{progress},</div><div·class="line"><a·name="l02042"></a><span·class="lineno">·2042</span> ········································ProgressData·=>·$p->{progressdata});</div><div·class="line"><a·name="l02043"></a><span·class="lineno">·2043</span> ····Geo::GDAL::DitherRGB2PCT($p->{red},</div><div·class="line"><a·name="l02044"></a><span·class="lineno">·2044</span> ·····························$p->{green},</div><div·class="line"><a·name="l02045"></a><span·class="lineno">·2045</span> ·····························$p->{blue},</div><div·class="line"><a·name="l02046"></a><span·class="lineno">·2046</span> ·····························$p->{dest},</div><div·class="line"><a·name="l02047"></a><span·class="lineno">·2047</span> ·····························$p->{colortable},</div><div·class="line"><a·name="l02048"></a><span·class="lineno">·2048</span> ·····························$p->{progress},</div><div·class="line"><a·name="l02049"></a><span·class="lineno">·2049</span> ·····························$p->{progressdata});</div><div·class="line"><a·name="l02050"></a><span·class="lineno">·2050</span> ····$p->{dest}-><a·class="code"·href="classGeo_1_1GDAL_1_1Band.html#aa7d61cccf0ff1456d5c051c36838b2d3">ColorTable</a>($p->{colortable});</div><div·class="line"><a·name="l02051"></a><span·class="lineno">·2051</span> ····<span·class="keywordflow">return</span>·$p->{dest};</div><div·class="line"><a·name="l02052"></a><span·class="lineno">·2052</span> }</div><div·class="line"><a·name="l02053"></a><span·class="lineno">·2053</span> </div><div·class="line"><a·name="l02054"></a><span·class="lineno">·2054</span> <span·class="preprocessor">#**·@method·Domains()</span></div><div·class="line"><a·name="l02055"></a><span·class="lineno">·2055</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02056"></a><span·class="lineno">·2056</span> sub·Domains·{</div><div·class="line"><a·name="l02057"></a><span·class="lineno">·2057</span> ····<span·class="keywordflow">return</span>·@DOMAINS;</div><div·class="line"><a·name="l02058"></a><span·class="lineno">·2058</span> }</div><div·class="line"><a·name="l02059"></a><span·class="lineno">·2059</span> </div><div·class="line"><a·name="l02060"></a><span·class="lineno">·2060</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Driver·Driver()</span></div><div·class="line"><a·name="l02061"></a><span·class="lineno">·2061</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02062"></a><span·class="lineno">·2062</span> <span·class="preprocessor">#·@note·a.k.a.·GetDriver</span></div><div·class="line"><a·name="l02063"></a><span·class="lineno">·2063</span> <span·class="preprocessor">#·@return·a·Geo::GDAL::Driver·object·that·was·used·to·open·or·create·this·dataset.</span></div><div·class="line"><a·name="l02064"></a><span·class="lineno">·2064</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02065"></a><span·class="lineno">·2065</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1Driver.html">Driver</a>·{</div><div·class="line"><a·name="l02066"></a><span·class="lineno">·2066</span> }</div><div·class="line"><a·name="l02067"></a><span·class="lineno">·2067</span> </div><div·class="line"><a·name="l02068"></a><span·class="lineno">·2068</span> <span·class="preprocessor">#**·@method·Geo::OGR::Layer·ExecuteSQL($statement,·$geom·=·undef,·$dialect·=·"")</span></div><div·class="line"><a·name="l02069"></a><span·class="lineno">·2069</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02070"></a><span·class="lineno">·2070</span> <span·class="preprocessor">#·@param·statement·A·SQL·statement.</span></div><div·class="line"><a·name="l02071"></a><span·class="lineno">·2071</span> <span·class="preprocessor">#·@param·geom·A·Geo::OGR::Geometry·object.</span></div><div·class="line"><a·name="l02072"></a><span·class="lineno">·2072</span> <span·class="preprocessor">#·@param·dialect</span></div><div·class="line"><a·name="l02073"></a><span·class="lineno">·2073</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Layer·object.·The·data·source·object·will</span></div><div·class="line"><a·name="l02074"></a><span·class="lineno">·2074</span> <span·class="preprocessor">#·exist·as·long·as·the·layer·object·exists.</span></div><div·class="line"><a·name="l02075"></a><span·class="lineno">·2075</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02076"></a><span·class="lineno">·2076</span> sub·ExecuteSQL·{</div><div·class="line"><a·name="l02077"></a><span·class="lineno">·2077</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02078"></a><span·class="lineno">·2078</span> ····my·$layer·=·$self->_ExecuteSQL(@_);</div><div·class="line"><a·name="l02079"></a><span·class="lineno">·2079</span> ····note($layer,·<span·class="stringliteral">"is·result·set"</span>);</div><div·class="line"><a·name="l02080"></a><span·class="lineno">·2080</span> ····keep($layer,·$self);</div><div·class="line"><a·name="l02081"></a><span·class="lineno">·2081</span> }</div><div·class="line"><a·name="l02082"></a><span·class="lineno">·2082</span> </div><div·class="line"><a·name="l02083"></a><span·class="lineno">·2083</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Extent·Extent(@params)</span></div><div·class="line"><a·name="l02084"></a><span·class="lineno">·2084</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02085"></a><span·class="lineno">·2085</span> <span·class="preprocessor">#·@param·params·nothing,·or·a·list·($xoff,·$yoff,·$w,·$h)</span></div><div·class="line"><a·name="l02086"></a><span·class="lineno">·2086</span> <span·class="preprocessor">#·@return·A·new·Geo::GDAL::Extent·object·that·represents·the·area·that</span></div><div·class="line"><a·name="l02087"></a><span·class="lineno">·2087</span> <span·class="preprocessor">#·this·raster·or·the·specified·tile·covers.</span></div><div·class="line"><a·name="l02088"></a><span·class="lineno">·2088</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02089"></a><span·class="lineno">·2089</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html">Extent</a>·{</div><div·class="line"><a·name="l02090"></a><span·class="lineno">·2090</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02091"></a><span·class="lineno">·2091</span> ····my·$t·=·$self->GeoTransform;</div><div·class="line"><a·name="l02092"></a><span·class="lineno">·2092</span> ····my·$extent·=·$t->Extent($self->Size);</div><div·class="line"><a·name="l02093"></a><span·class="lineno">·2093</span> ····<span·class="keywordflow">if</span>·(@_)·{</div><div·class="line"><a·name="l02094"></a><span·class="lineno">·2094</span> ········my·($xoff,·$yoff,·$w,·$h)·=·@_;</div><div·class="line"><a·name="l02095"></a><span·class="lineno">·2095</span> ········my·($x,·$y)·=·$t->Apply([$xoff,·$xoff+$w,·$xoff+$w,·$xoff],·[$yoff,·$yoff,·$yoff+$h,·$yoff+$h]);</div><div·class="line"><a·name="l02096"></a><span·class="lineno">·2096</span> ········my·$xmin·=·shift·@$x;</div><div·class="line"><a·name="l02097"></a><span·class="lineno">·2097</span> ········my·$xmax·=·$xmin;</div><div·class="line"><a·name="l02098"></a><span·class="lineno">·2098</span> ········<span·class="keywordflow">for</span>·my·$x·(@$x)·{</div><div·class="line"><a·name="l02099"></a><span·class="lineno">·2099</span> ············$xmin·=·$x·<span·class="keywordflow">if</span>·$x·<·$xmin;</div><div·class="line"><a·name="l02100"></a><span·class="lineno">·2100</span> ············$xmax·=·$x·<span·class="keywordflow">if</span>·$x·>·$xmax;</div><div·class="line"><a·name="l02101"></a><span·class="lineno">·2101</span> ········}</div><div·class="line"><a·name="l02102"></a><span·class="lineno">·2102</span> ········my·$ymin·=·shift·@$y;</div><div·class="line"><a·name="l02103"></a><span·class="lineno">·2103</span> ········my·$ymax·=·$ymin;</div><div·class="line"><a·name="l02104"></a><span·class="lineno">·2104</span> ········<span·class="keywordflow">for</span>·my·$y·(@$y)·{</div><div·class="line"><a·name="l02105"></a><span·class="lineno">·2105</span> ············$ymin·=·$y·<span·class="keywordflow">if</span>·$y·<·$ymin;</div><div·class="line"><a·name="l02106"></a><span·class="lineno">·2106</span> ············$ymax·=·$y·<span·class="keywordflow">if</span>·$y·>·$ymax;</div><div·class="line"><a·name="l02107"></a><span·class="lineno">·2107</span> ········}</div><div·class="line"><a·name="l02108"></a><span·class="lineno">·2108</span> ········$extent·=·<a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html">Geo::GDAL::Extent</a>-><a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html#aaa908458e9aaa398762601ae2b466e9a">new</a>($xmin,·$ymin,·$xmax,·$ymax);</div><div·class="line"><a·name="l02109"></a><span·class="lineno">·2109</span> ····}</div><div·class="line"><a·name="l02110"></a><span·class="lineno">·2110</span> ····<span·class="keywordflow">return</span>·$extent;</div><div·class="line"><a·name="l02111"></a><span·class="lineno">·2111</span> }</div><div·class="line"><a·name="l02112"></a><span·class="lineno">·2112</span> </div><div·class="line"><a·name="l02113"></a><span·class="lineno">·2113</span> <span·class="preprocessor">#**·@method·list·GCPs(@GCPs,·Geo::OSR::SpatialReference·sr)</span></div><div·class="line"><a·name="l02114"></a><span·class="lineno">·2114</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02115"></a><span·class="lineno">·2115</span> <span·class="preprocessor">#·Get·or·set·the·GCPs·and·their·projection.</span></div><div·class="line"><a·name="l02116"></a><span·class="lineno">·2116</span> <span·class="preprocessor">#·@param·GCPs·[optional]·a·list·of·Geo::GDAL::GCP·objects</span></div><div·class="line"><a·name="l02117"></a><span·class="lineno">·2117</span> <span·class="preprocessor">#·@param·sr·[optional]·the·projection·of·the·GCPs.</span></div><div·class="line"><a·name="l02118"></a><span·class="lineno">·2118</span> <span·class="preprocessor">#·@return·a·list·of·Geo::GDAL::GCP·objects·followed·by·a·Geo::OSR::SpatialReference·object.</span></div><div·class="line"><a·name="l02119"></a><span·class="lineno">·2119</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02120"></a><span·class="lineno">·2120</span> sub·GCPs·{</div><div·class="line"><a·name="l02121"></a><span·class="lineno">·2121</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02122"></a><span·class="lineno">·2122</span> ····<span·class="keywordflow">if</span>·(@_·>·0)·{</div><div·class="line"><a·name="l02123"></a><span·class="lineno">·2123</span> ········my·$proj·=·pop·@_;</div><div·class="line"><a·name="l02124"></a><span·class="lineno">·2124</span> ········$proj·=·$proj->Export(<span·class="stringliteral">'WKT'</span>)·<span·class="keywordflow">if</span>·$proj·and·ref($proj);</div><div·class="line"><a·name="l02125"></a><span·class="lineno">·2125</span> ········SetGCPs($self,·\@_,·$proj);</div><div·class="line"><a·name="l02126"></a><span·class="lineno">·2126</span> ····}</div><div·class="line"><a·name="l02127"></a><span·class="lineno">·2127</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l02128"></a><span·class="lineno">·2128</span> ····my·$proj·=·<a·class="code"·href="classGeo_1_1OSR_1_1SpatialReference.html">Geo::OSR::SpatialReference</a>-><a·class="code"·href="classGeo_1_1OSR_1_1SpatialReference.html#aa1e78517d5765c5a5818f829cd076edc">new</a>(GetGCPProjection($self));</div><div·class="line"><a·name="l02129"></a><span·class="lineno">·2129</span> ····my·$GCPs·=·GetGCPs($self);</div><div·class="line"><a·name="l02130"></a><span·class="lineno">·2130</span> ····<span·class="keywordflow">return</span>·(@$GCPs,·$proj);</div><div·class="line"><a·name="l02131"></a><span·class="lineno">·2131</span> }</div><div·class="line"><a·name="l02132"></a><span·class="lineno">·2132</span> </div><div·class="line"><a·name="l02133"></a><span·class="lineno">·2133</span> <span·class="preprocessor">#**·@method·Geo::GDAL::GeoTransform·GeoTransform(Geo::GDAL::GeoTransform·$geo_transform)</span></div><div·class="line"><a·name="l02134"></a><span·class="lineno">·2134</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02135"></a><span·class="lineno">·2135</span> <span·class="preprocessor">#·Transformation·from·cell·coordinates·(column,row)·to·projection</span></div><div·class="line"><a·name="l02136"></a><span·class="lineno">·2136</span> <span·class="preprocessor">#·coordinates·(x,y)</span></div><div·class="line"><a·name="l02137"></a><span·class="lineno">·2137</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l02138"></a><span·class="lineno">·2138</span> <span·class="preprocessor">#·x·=·geo_transform[0]·+·column*geo_transform[1]·+·row*geo_transform[2]</span></div><div·class="line"><a·name="l02139"></a><span·class="lineno">·2139</span> <span·class="preprocessor">#·y·=·geo_transform[3]·+·column*geo_transform[4]·+·row*geo_transform[5]</span></div><div·class="line"><a·name="l02140"></a><span·class="lineno">·2140</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l02141"></a><span·class="lineno">·2141</span> <span·class="preprocessor">#·@param·geo_transform·[optional]</span></div><div·class="line"><a·name="l02142"></a><span·class="lineno">·2142</span> <span·class="preprocessor">#·@return·the·geo·transform·in·a·non-void·context.</span></div><div·class="line"><a·name="l02143"></a><span·class="lineno">·2143</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02144"></a><span·class="lineno">·2144</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1GeoTransform.html">GeoTransform</a>·{</div><div·class="line"><a·name="l02145"></a><span·class="lineno">·2145</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02146"></a><span·class="lineno">·2146</span> ····eval·{</div><div·class="line"><a·name="l02147"></a><span·class="lineno">·2147</span> ········<span·class="keywordflow">if</span>·(@_·==·1)·{</div><div·class="line"><a·name="l02148"></a><span·class="lineno">·2148</span> ············SetGeoTransform($self,·$_[0]);</div><div·class="line"><a·name="l02149"></a><span·class="lineno">·2149</span> ········}·elsif·(@_·>·1)·{</div><div·class="line"><a·name="l02150"></a><span·class="lineno">·2150</span> ············SetGeoTransform($self,·\@_);</div><div·class="line"><a·name="l02151"></a><span·class="lineno">·2151</span> ········}</div><div·class="line"><a·name="l02152"></a><span·class="lineno">·2152</span> ····};</div><div·class="line"><a·name="l02153"></a><span·class="lineno">·2153</span> ····confess(last_error())·<span·class="keywordflow">if</span>·$@;</div><div·class="line"><a·name="l02154"></a><span·class="lineno">·2154</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l02155"></a><span·class="lineno">·2155</span> ····my·$t·=·GetGeoTransform($self);</div><div·class="line"><a·name="l02156"></a><span·class="lineno">·2156</span> ····<span·class="keywordflow">if</span>·(wantarray)·{</div><div·class="line"><a·name="l02157"></a><span·class="lineno">·2157</span> ········<span·class="keywordflow">return</span>·@$t;</div><div·class="line"><a·name="l02158"></a><span·class="lineno">·2158</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l02159"></a><span·class="lineno">·2159</span> ········<span·class="keywordflow">return</span>·<a·class="code"·href="classGeo_1_1GDAL_1_1GeoTransform.html">Geo::GDAL::GeoTransform</a>-><a·class="code"·href="classGeo_1_1GDAL_1_1GeoTransform.html#a47df3828bccbfe26899b47f87a8e65b4">new</a>($t);</div><div·class="line"><a·name="l02160"></a><span·class="lineno">·2160</span> ····}</div><div·class="line"><a·name="l02161"></a><span·class="lineno">·2161</span> }</div><div·class="line"><a·name="l02162"></a><span·class="lineno">·2162</span> </div><div·class="line"><a·name="l02163"></a><span·class="lineno">·2163</span> <span·class="preprocessor">#**·@method·GetDriver()</span></div><div·class="line"><a·name="l02164"></a><span·class="lineno">·2164</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02165"></a><span·class="lineno">·2165</span> sub·GetDriver·{</div><div·class="line"><a·name="l02166"></a><span·class="lineno">·2166</span> }</div><div·class="line"><a·name="l02167"></a><span·class="lineno">·2167</span> </div><div·class="line"><a·name="l02168"></a><span·class="lineno">·2168</span> <span·class="preprocessor">#**·@method·list·GetFileList()</span></div><div·class="line"><a·name="l02169"></a><span·class="lineno">·2169</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02170"></a><span·class="lineno">·2170</span> <span·class="preprocessor">#·@return·list·of·files·GDAL·believes·to·be·part·of·this·dataset.</span></div><div·class="line"><a·name="l02171"></a><span·class="lineno">·2171</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02172"></a><span·class="lineno">·2172</span> sub·GetFileList·{</div><div·class="line"><a·name="l02173"></a><span·class="lineno">·2173</span> }</div><div·class="line"><a·name="l02174"></a><span·class="lineno">·2174</span> </div><div·class="line"><a·name="l02175"></a><span·class="lineno">·2175</span> <span·class="preprocessor">#**·@method·scalar·GetGCPProjection()</span></div><div·class="line"><a·name="l02176"></a><span·class="lineno">·2176</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02177"></a><span·class="lineno">·2177</span> <span·class="preprocessor">#·@return·projection·string.</span></div><div·class="line"><a·name="l02178"></a><span·class="lineno">·2178</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02179"></a><span·class="lineno">·2179</span> sub·GetGCPProjection·{</div><div·class="line"><a·name="l02180"></a><span·class="lineno">·2180</span> }</div><div·class="line"><a·name="l02181"></a><span·class="lineno">·2181</span> </div><div·class="line"><a·name="l02182"></a><span·class="lineno">·2182</span> <span·class="preprocessor">#**·@method·Geo::OGR::Layer·GetLayer($name)</span></div><div·class="line"><a·name="l02183"></a><span·class="lineno">·2183</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02184"></a><span·class="lineno">·2184</span> <span·class="preprocessor">#·@param·name·the·name·of·the·requested·layer.·If·not·given,·then</span></div><div·class="line"><a·name="l02185"></a><span·class="lineno">·2185</span> <span·class="preprocessor">#·returns·the·first·layer·in·the·data·source.</span></div><div·class="line"><a·name="l02186"></a><span·class="lineno">·2186</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Layer·object·that·represents·the·layer</span></div><div·class="line"><a·name="l02187"></a><span·class="lineno">·2187</span> <span·class="preprocessor">#·in·the·data·source.</span></div><div·class="line"><a·name="l02188"></a><span·class="lineno">·2188</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02189"></a><span·class="lineno">·2189</span> sub·GetLayer·{</div><div·class="line"><a·name="l02190"></a><span·class="lineno">·2190</span> ····my($self,·$name)·=·@_;</div><div·class="line"><a·name="l02191"></a><span·class="lineno">·2191</span> ····my·$layer·=·defined·$name·?·GetLayerByName($self,·<span·class="stringliteral">"$name"</span>)·:·GetLayerByIndex($self,·0);</div><div·class="line"><a·name="l02192"></a><span·class="lineno">·2192</span> ····$name·<span·class="comment">//=·'';</span></div><div·class="line"><a·name="l02193"></a><span·class="lineno">·2193</span> ····error(2,·$name,·<span·class="stringliteral">'Layer'</span>)·unless·$layer;</div><div·class="line"><a·name="l02194"></a><span·class="lineno">·2194</span> ····keep($layer,·$self);</div><div·class="line"><a·name="l02195"></a><span·class="lineno">·2195</span> }</div><div·class="line"><a·name="l02196"></a><span·class="lineno">·2196</span> </div><div·class="line"><a·name="l02197"></a><span·class="lineno">·2197</span> <span·class="preprocessor">#**·@method·list·GetLayerNames()</span></div><div·class="line"><a·name="l02198"></a><span·class="lineno">·2198</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02199"></a><span·class="lineno">·2199</span> <span·class="preprocessor">#·@note·Delivers·the·functionality·of·undocumented·method·GetLayerCount.</span></div><div·class="line"><a·name="l02200"></a><span·class="lineno">·2200</span> <span·class="preprocessor">#·@return·a·list·of·the·names·of·the·layers·this·data·source·provides.</span></div><div·class="line"><a·name="l02201"></a><span·class="lineno">·2201</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02202"></a><span·class="lineno">·2202</span> sub·GetLayerNames·{</div><div·class="line"><a·name="l02203"></a><span·class="lineno">·2203</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02204"></a><span·class="lineno">·2204</span> ····my·@names;</div><div·class="line"><a·name="l02205"></a><span·class="lineno">·2205</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$self->GetLayerCount-1)·{</div><div·class="line"><a·name="l02206"></a><span·class="lineno">·2206</span> ········my·$layer·=·GetLayerByIndex($self,·$i);</div><div·class="line"><a·name="l02207"></a><span·class="lineno">·2207</span> ········push·@names,·$layer->GetName;</div><div·class="line"><a·name="l02208"></a><span·class="lineno">·2208</span> ····}</div><div·class="line"><a·name="l02209"></a><span·class="lineno">·2209</span> ····<span·class="keywordflow">return</span>·@names;</div><div·class="line"><a·name="l02210"></a><span·class="lineno">·2210</span> }</div><div·class="line"><a·name="l02211"></a><span·class="lineno">·2211</span> </div><div·class="line"><a·name="l02212"></a><span·class="lineno">·2212</span> <span·class="preprocessor">#**·@method·GetNextFeature()</span></div><div·class="line"><a·name="l02213"></a><span·class="lineno">·2213</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02214"></a><span·class="lineno">·2214</span> sub·GetNextFeature·{</div><div·class="line"><a·name="l02215"></a><span·class="lineno">·2215</span> }</div><div·class="line"><a·name="l02216"></a><span·class="lineno">·2216</span> </div><div·class="line"><a·name="l02217"></a><span·class="lineno">·2217</span> <span·class="preprocessor">#**·@method·GetStyleTable()</span></div><div·class="line"><a·name="l02218"></a><span·class="lineno">·2218</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02219"></a><span·class="lineno">·2219</span> sub·GetStyleTable·{</div><div·class="line"><a·name="l02220"></a><span·class="lineno">·2220</span> }</div><div·class="line"><a·name="l02221"></a><span·class="lineno">·2221</span> </div><div·class="line"><a·name="l02222"></a><span·class="lineno">·2222</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Grid($Dest,·hashref·Options)</span></div><div·class="line"><a·name="l02223"></a><span·class="lineno">·2223</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02224"></a><span·class="lineno">·2224</span> <span·class="preprocessor">#·Creates·a·regular·raster·grid·from·this·data·source.</span></div><div·class="line"><a·name="l02225"></a><span·class="lineno">·2225</span> <span·class="preprocessor">#·This·is·equivalent·to·the·gdal_grid·utility.</span></div><div·class="line"><a·name="l02226"></a><span·class="lineno">·2226</span> <span·class="preprocessor">#·@param·Dest·Destination·raster·dataset·definition·string·(typically</span></div><div·class="line"><a·name="l02227"></a><span·class="lineno">·2227</span> <span·class="preprocessor">#·filename)·or·an·object,·which·implements·write·and·close.</span></div><div·class="line"><a·name="l02228"></a><span·class="lineno">·2228</span> <span·class="preprocessor">#·@param·Options·See·section·\ref·index_processing_options.</span></div><div·class="line"><a·name="l02229"></a><span·class="lineno">·2229</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02230"></a><span·class="lineno">·2230</span> sub·Grid·{</div><div·class="line"><a·name="l02231"></a><span·class="lineno">·2231</span> ····my·($self,·$dest,·$options,·$progress,·$progress_data)·=·@_;</div><div·class="line"><a·name="l02232"></a><span·class="lineno">·2232</span> ····$options·=·Geo::GDAL::GDALGridOptions->new(make_processing_options($options));</div><div·class="line"><a·name="l02233"></a><span·class="lineno">·2233</span> ····<span·class="keywordflow">return</span>·$self->stdout_redirection_wrapper(</div><div·class="line"><a·name="l02234"></a><span·class="lineno">·2234</span> ········$dest,</div><div·class="line"><a·name="l02235"></a><span·class="lineno">·2235</span> ········\&Geo::GDAL::wrapper_GDALGrid,</div><div·class="line"><a·name="l02236"></a><span·class="lineno">·2236</span> ········$options,·$progress,·$progress_data</div><div·class="line"><a·name="l02237"></a><span·class="lineno">·2237</span> ····);</div><div·class="line"><a·name="l02238"></a><span·class="lineno">·2238</span> }</div><div·class="line"><a·name="l02239"></a><span·class="lineno">·2239</span> </div><div·class="line"><a·name="l02240"></a><span·class="lineno">·2240</span> <span·class="preprocessor">#**·@method·scalar·Info(hashref·Options)</span></div><div·class="line"><a·name="l02241"></a><span·class="lineno">·2241</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02242"></a><span·class="lineno">·2242</span> <span·class="preprocessor">#·Information·about·this·dataset.</span></div><div·class="line"><a·name="l02243"></a><span·class="lineno">·2243</span> <span·class="preprocessor">#·@param·Options·See·section·\ref·index_processing_options.</span></div><div·class="line"><a·name="l02244"></a><span·class="lineno">·2244</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02245"></a><span·class="lineno">·2245</span> sub·Info·{</div><div·class="line"><a·name="l02246"></a><span·class="lineno">·2246</span> ····my·($self,·$o)·=·@_;</div><div·class="line"><a·name="l02247"></a><span·class="lineno">·2247</span> ····$o·=·Geo::GDAL::GDALInfoOptions->new(make_processing_options($o));</div><div·class="line"><a·name="l02248"></a><span·class="lineno">·2248</span> ····<span·class="keywordflow">return</span>·GDALInfo($self,·$o);</div><div·class="line"><a·name="l02249"></a><span·class="lineno">·2249</span> }</div><div·class="line"><a·name="l02250"></a><span·class="lineno">·2250</span> </div><div·class="line"><a·name="l02251"></a><span·class="lineno">·2251</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Nearblack($Dest,·hashref·Options,·coderef·progress,·$progress_data)</span></div><div·class="line"><a·name="l02252"></a><span·class="lineno">·2252</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02253"></a><span·class="lineno">·2253</span> <span·class="preprocessor">#·Convert·nearly·black/white·pixels·to·black/white.</span></div><div·class="line"><a·name="l02254"></a><span·class="lineno">·2254</span> <span·class="preprocessor">#·@param·Dest·Destination·raster·dataset·definition·string·(typically</span></div><div·class="line"><a·name="l02255"></a><span·class="lineno">·2255</span> <span·class="preprocessor">#·filename),·destination·dataset·to·which·to·add·an·alpha·or·mask</span></div><div·class="line"><a·name="l02256"></a><span·class="lineno">·2256</span> <span·class="preprocessor">#·band,·or·an·object,·which·implements·write·and·close.</span></div><div·class="line"><a·name="l02257"></a><span·class="lineno">·2257</span> <span·class="preprocessor">#·@param·Options·See·section·\ref·index_processing_options.</span></div><div·class="line"><a·name="l02258"></a><span·class="lineno">·2258</span> <span·class="preprocessor">#·@return·Dataset·if·destination·dataset·definition·string·was·given,</span></div><div·class="line"><a·name="l02259"></a><span·class="lineno">·2259</span> <span·class="preprocessor">#·otherwise·a·boolean·for·success/fail·but·the·method·croaks·if·there</span></div><div·class="line"><a·name="l02260"></a><span·class="lineno">·2260</span> <span·class="preprocessor">#·was·an·error.</span></div><div·class="line"><a·name="l02261"></a><span·class="lineno">·2261</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02262"></a><span·class="lineno">·2262</span> sub·Nearblack·{</div><div·class="line"><a·name="l02263"></a><span·class="lineno">·2263</span> ····my·($self,·$dest,·$options,·$progress,·$progress_data)·=·@_;</div><div·class="line"><a·name="l02264"></a><span·class="lineno">·2264</span> ····$options·=·Geo::GDAL::GDALNearblackOptions->new(make_processing_options($options));</div><div·class="line"><a·name="l02265"></a><span·class="lineno">·2265</span> ····my·$b·=·blessed($dest);</div><div·class="line"><a·name="l02266"></a><span·class="lineno">·2266</span> ····<span·class="keywordflow">if</span>·($b·&&·$b·eq·<span·class="stringliteral">'Geo::GDAL::Dataset'</span>)·{</div><div·class="line"><a·name="l02267"></a><span·class="lineno">·2267</span> ········Geo::GDAL::wrapper_GDALNearblackDestDS($dest,·$self,·$options,·$progress,·$progress_data);</div><div·class="line"><a·name="l02268"></a><span·class="lineno">·2268</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l02269"></a><span·class="lineno">·2269</span> ········<span·class="keywordflow">return</span>·$self->stdout_redirection_wrapper(</div><div·class="line"><a·name="l02270"></a><span·class="lineno">·2270</span> ············$dest,</div><div·class="line"><a·name="l02271"></a><span·class="lineno">·2271</span> ············\&Geo::GDAL::wrapper_GDALNearblackDestName,</div><div·class="line"><a·name="l02272"></a><span·class="lineno">·2272</span> ············$options,·$progress,·$progress_data</div><div·class="line"><a·name="l02273"></a><span·class="lineno">·2273</span> ········);</div><div·class="line"><a·name="l02274"></a><span·class="lineno">·2274</span> ····}</div><div·class="line"><a·name="l02275"></a><span·class="lineno">·2275</span> }</div><div·class="line"><a·name="l02276"></a><span·class="lineno">·2276</span> </div><div·class="line"><a·name="l02277"></a><span·class="lineno">·2277</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Open()</span></div><div·class="line"><a·name="l02278"></a><span·class="lineno">·2278</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l02279"></a><span·class="lineno">·2279</span> <span·class="preprocessor">#·The·same·as·Geo::GDAL::Open</span></div><div·class="line"><a·name="l02280"></a><span·class="lineno">·2280</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02281"></a><span·class="lineno">·2281</span> sub·Open·{</div><div·class="line"><a·name="l02282"></a><span·class="lineno">·2282</span> }</div><div·class="line"><a·name="l02283"></a><span·class="lineno">·2283</span> </div><div·class="line"><a·name="l02284"></a><span·class="lineno">·2284</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·OpenShared()</span></div><div·class="line"><a·name="l02285"></a><span·class="lineno">·2285</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l02286"></a><span·class="lineno">·2286</span> <span·class="preprocessor">#·The·same·as·Geo::GDAL::OpenShared</span></div><div·class="line"><a·name="l02287"></a><span·class="lineno">·2287</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02288"></a><span·class="lineno">·2288</span> sub·OpenShared·{</div><div·class="line"><a·name="l02289"></a><span·class="lineno">·2289</span> }</div><div·class="line"><a·name="l02290"></a><span·class="lineno">·2290</span> </div><div·class="line"><a·name="l02291"></a><span·class="lineno">·2291</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Rasterize($Dest,·hashref·Options,·coderef·progress,·$progress_data)</span></div><div·class="line"><a·name="l02292"></a><span·class="lineno">·2292</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02293"></a><span·class="lineno">·2293</span> <span·class="preprocessor">#·Render·data·from·this·data·source·into·a·raster.</span></div><div·class="line"><a·name="l02294"></a><span·class="lineno">·2294</span> <span·class="preprocessor">#·@param·Dest·Destination·raster·dataset·definition·string·(typically</span></div><div·class="line"><a·name="l02295"></a><span·class="lineno">·2295</span> <span·class="preprocessor">#·filename),·destination·dataset,·or·an·object,·which·implements·write·and·close.</span></div><div·class="line"><a·name="l02296"></a><span·class="lineno">·2296</span> <span·class="preprocessor">#·@param·Options·See·section·\ref·index_processing_options.</span></div><div·class="line"><a·name="l02297"></a><span·class="lineno">·2297</span> <span·class="preprocessor">#·@return·Dataset·if·destination·dataset·definition·string·was·given,</span></div><div·class="line"><a·name="l02298"></a><span·class="lineno">·2298</span> <span·class="preprocessor">#·otherwise·a·boolean·for·success/fail·but·the·method·croaks·if·there</span></div><div·class="line"><a·name="l02299"></a><span·class="lineno">·2299</span> <span·class="preprocessor">#·was·an·error.</span></div><div·class="line"><a·name="l02300"></a><span·class="lineno">·2300</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02301"></a><span·class="lineno">·2301</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02302"></a><span·class="lineno">·2302</span> sub·Rasterize·{</div><div·class="line"><a·name="l02303"></a><span·class="lineno">·2303</span> ····my·($self,·$dest,·$options,·$progress,·$progress_data)·=·@_;</div><div·class="line"><a·name="l02304"></a><span·class="lineno">·2304</span> ····$options·=·Geo::GDAL::GDALRasterizeOptions->new(make_processing_options($options));</div><div·class="line"><a·name="l02305"></a><span·class="lineno">·2305</span> ····my·$b·=·blessed($dest);</div><div·class="line"><a·name="l02306"></a><span·class="lineno">·2306</span> ····<span·class="keywordflow">if</span>·($b·&&·$b·eq·<span·class="stringliteral">'Geo::GDAL::Dataset'</span>)·{</div><div·class="line"><a·name="l02307"></a><span·class="lineno">·2307</span> ········Geo::GDAL::wrapper_GDALRasterizeDestDS($dest,·$self,·$options,·$progress,·$progress_data);</div><div·class="line"><a·name="l02308"></a><span·class="lineno">·2308</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l02309"></a><span·class="lineno">·2309</span> <span·class="preprocessor">········#·TODO:·options·need·to·force·a·new·raster·be·made,·otherwise·segfault</span></div><div·class="line"><a·name="l02310"></a><span·class="lineno">·2310</span> ········<span·class="keywordflow">return</span>·$self->stdout_redirection_wrapper(</div><div·class="line"><a·name="l02311"></a><span·class="lineno">·2311</span> ············$dest,</div><div·class="line"><a·name="l02312"></a><span·class="lineno">·2312</span> ············\&Geo::GDAL::wrapper_GDALRasterizeDestName,</div><div·class="line"><a·name="l02313"></a><span·class="lineno">·2313</span> ············$options,·$progress,·$progress_data</div><div·class="line"><a·name="l02314"></a><span·class="lineno">·2314</span> ········);</div><div·class="line"><a·name="l02315"></a><span·class="lineno">·2315</span> ····}</div><div·class="line"><a·name="l02316"></a><span·class="lineno">·2316</span> }</div><div·class="line"><a·name="l02317"></a><span·class="lineno">·2317</span> </div><div·class="line"><a·name="l02318"></a><span·class="lineno">·2318</span> <span·class="preprocessor">#**·@method·scalar·ReadRaster(%params)</span></div><div·class="line"><a·name="l02319"></a><span·class="lineno">·2319</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02320"></a><span·class="lineno">·2320</span> <span·class="preprocessor">#·Read·data·from·the·dataset.</span></div><div·class="line"><a·name="l02321"></a><span·class="lineno">·2321</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02322"></a><span·class="lineno">·2322</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l02323"></a><span·class="lineno">·2323</span> <span·class="preprocessor">#·-·\a·XOff·x·offset·(cell·coordinates)·(default·is·0)</span></div><div·class="line"><a·name="l02324"></a><span·class="lineno">·2324</span> <span·class="preprocessor">#·-·\a·YOff·y·offset·(cell·coordinates)·(default·is·0)</span></div><div·class="line"><a·name="l02325"></a><span·class="lineno">·2325</span> <span·class="preprocessor">#·-·\a·XSize·width·of·the·area·to·read·(default·is·the·width·of·the·dataset)</span></div><div·class="line"><a·name="l02326"></a><span·class="lineno">·2326</span> <span·class="preprocessor">#·-·\a·YSize·height·of·the·area·to·read·(default·is·the·height·of·the·dataset)</span></div><div·class="line"><a·name="l02327"></a><span·class="lineno">·2327</span> <span·class="preprocessor">#·-·\a·BufXSize·(default·is·undef,·i.e.,·the·same·as·XSize)</span></div><div·class="line"><a·name="l02328"></a><span·class="lineno">·2328</span> <span·class="preprocessor">#·-·\a·BufYSize·(default·is·undef,·i.e.,·the·same·as·YSize)</span></div><div·class="line"><a·name="l02329"></a><span·class="lineno">·2329</span> <span·class="preprocessor">#·-·\a·BufType·data·type·of·the·buffer·(default·is·the·data·type·of·the·first·band)</span></div><div·class="line"><a·name="l02330"></a><span·class="lineno">·2330</span> <span·class="preprocessor">#·-·\a·BandList·a·reference·to·an·array·of·band·indices·(default·is·[1])</span></div><div·class="line"><a·name="l02331"></a><span·class="lineno">·2331</span> <span·class="preprocessor">#·-·\a·BufPixelSpace·(default·is·0)</span></div><div·class="line"><a·name="l02332"></a><span·class="lineno">·2332</span> <span·class="preprocessor">#·-·\a·BufLineSpace·(default·is·0)</span></div><div·class="line"><a·name="l02333"></a><span·class="lineno">·2333</span> <span·class="preprocessor">#·-·\a·BufBandSpace·(default·is·0)</span></div><div·class="line"><a·name="l02334"></a><span·class="lineno">·2334</span> <span·class="preprocessor">#·-·\a·ResampleAlg·one·of·Geo::GDAL::RIOResamplingTypes·(default·is·'NearestNeighbour'),</span></div><div·class="line"><a·name="l02335"></a><span·class="lineno">·2335</span> <span·class="preprocessor">#·-·\a·Progress·reference·to·a·progress·function·(default·is·undef)</span></div><div·class="line"><a·name="l02336"></a><span·class="lineno">·2336</span> <span·class="preprocessor">#·-·\a·ProgressData·(default·is·undef)</span></div><div·class="line"><a·name="l02337"></a><span·class="lineno">·2337</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02338"></a><span·class="lineno">·2338</span> <span·class="preprocessor">#·<a·href="http://www.gdal.org/classGDALDataset.html">Entry·in·GDAL·docs·(method·RasterIO)</a></span></div><div·class="line"><a·name="l02339"></a><span·class="lineno">·2339</span> <span·class="preprocessor">#·@return·a·buffer,·open·the·buffer·with·\a·unpack·function·of·Perl.·See·Geo::GDAL::Band::PackCharacter.</span></div><div·class="line"><a·name="l02340"></a><span·class="lineno">·2340</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02341"></a><span·class="lineno">·2341</span> sub·ReadRaster·{</div><div·class="line"><a·name="l02342"></a><span·class="lineno">·2342</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02343"></a><span·class="lineno">·2343</span> ····my·($width,·$height)·=·$self->Size;</div><div·class="line"><a·name="l02344"></a><span·class="lineno">·2344</span> ····my·($type)·=·$self->Band->DataType;</div><div·class="line"><a·name="l02345"></a><span·class="lineno">·2345</span> ····my·$p·=·named_parameters(\@_,</div><div·class="line"><a·name="l02346"></a><span·class="lineno">·2346</span> ·····························XOff·=>·0,</div><div·class="line"><a·name="l02347"></a><span·class="lineno">·2347</span> ·····························YOff·=>·0,</div><div·class="line"><a·name="l02348"></a><span·class="lineno">·2348</span> ·····························XSize·=>·$width,</div><div·class="line"><a·name="l02349"></a><span·class="lineno">·2349</span> ·····························YSize·=>·$height,</div><div·class="line"><a·name="l02350"></a><span·class="lineno">·2350</span> ·····························BufXSize·=>·undef,</div><div·class="line"><a·name="l02351"></a><span·class="lineno">·2351</span> ·····························BufYSize·=>·undef,</div><div·class="line"><a·name="l02352"></a><span·class="lineno">·2352</span> ·····························BufType·=>·$type,</div><div·class="line"><a·name="l02353"></a><span·class="lineno">·2353</span> ·····························BandList·=>·[1],</div><div·class="line"><a·name="l02354"></a><span·class="lineno">·2354</span> ·····························BufPixelSpace·=>·0,</div><div·class="line"><a·name="l02355"></a><span·class="lineno">·2355</span> ·····························BufLineSpace·=>·0,</div><div·class="line"><a·name="l02356"></a><span·class="lineno">·2356</span> ·····························BufBandSpace·=>·0,</div><div·class="line"><a·name="l02357"></a><span·class="lineno">·2357</span> ·····························ResampleAlg·=>·<span·class="stringliteral">'NearestNeighbour'</span>,</div><div·class="line"><a·name="l02358"></a><span·class="lineno">·2358</span> ·····························Progress·=>·undef,</div><div·class="line"><a·name="l02359"></a><span·class="lineno">·2359</span> ·····························ProgressData·=>·undef</div><div·class="line"><a·name="l02360"></a><span·class="lineno">·2360</span> ········);</div><div·class="line"><a·name="l02361"></a><span·class="lineno">·2361</span> ····$p->{resamplealg}·=·s2i(rio_resampling·=>·$p->{resamplealg});</div><div·class="line"><a·name="l02362"></a><span·class="lineno">·2362</span> ····$p->{buftype}·=·s2i(data_type·=>·$p->{buftype},·1);</div><div·class="line"><a·name="l02363"></a><span·class="lineno">·2363</span> ····$self->_ReadRaster($p->{xoff},$p->{yoff},$p->{xsize},$p->{ysize},$p->{bufxsize},$p->{bufysize},$p->{buftype},$p->{bandlist},$p->{bufpixelspace},$p->{buflinespace},$p->{bufbandspace},$p->{resamplealg},$p->{progress},$p->{progressdata});</div><div·class="line"><a·name="l02364"></a><span·class="lineno">·2364</span> }</div><div·class="line"><a·name="l02365"></a><span·class="lineno">·2365</span> </div><div·class="line"><a·name="l02366"></a><span·class="lineno">·2366</span> <span·class="preprocessor">#**·@method·ReadTile()</span></div><div·class="line"><a·name="l02367"></a><span·class="lineno">·2367</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02368"></a><span·class="lineno">·2368</span> sub·ReadTile·{</div><div·class="line"><a·name="l02369"></a><span·class="lineno">·2369</span> ····my·($self,·$xoff,·$yoff,·$xsize,·$ysize,·$w_tile,·$h_tile,·$alg)·=·@_;</div><div·class="line"><a·name="l02370"></a><span·class="lineno">·2370</span> ····my·@data;</div><div·class="line"><a·name="l02371"></a><span·class="lineno">·2371</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$self->Bands-1)·{</div><div·class="line"><a·name="l02372"></a><span·class="lineno">·2372</span> ········$data[$i]·=·$self->Band($i+1)->ReadTile($xoff,·$yoff,·$xsize,·$ysize,·$w_tile,·$h_tile,·$alg);</div><div·class="line"><a·name="l02373"></a><span·class="lineno">·2373</span> ····}</div><div·class="line"><a·name="l02374"></a><span·class="lineno">·2374</span> ····<span·class="keywordflow">return</span>·\@data;</div><div·class="line"><a·name="l02375"></a><span·class="lineno">·2375</span> }</div><div·class="line"><a·name="l02376"></a><span·class="lineno">·2376</span> </div><div·class="line"><a·name="l02377"></a><span·class="lineno">·2377</span> <span·class="preprocessor">#**·@method·ReleaseResultSet($layer)</span></div><div·class="line"><a·name="l02378"></a><span·class="lineno">·2378</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02379"></a><span·class="lineno">·2379</span> <span·class="preprocessor">#·@param·layer·A·layer·the·has·been·created·with·ExecuteSQL.</span></div><div·class="line"><a·name="l02380"></a><span·class="lineno">·2380</span> <span·class="preprocessor">#·@note·There·is·no·need·to·call·this·method.·The·result·set·layer·is</span></div><div·class="line"><a·name="l02381"></a><span·class="lineno">·2381</span> <span·class="preprocessor">#·released·in·the·destructor·of·the·layer·that·was·created·with·SQL.</span></div><div·class="line"><a·name="l02382"></a><span·class="lineno">·2382</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02383"></a><span·class="lineno">·2383</span> sub·ReleaseResultSet·{</div><div·class="line"><a·name="l02384"></a><span·class="lineno">·2384</span> <span·class="preprocessor">····#·a·no-op,·_ReleaseResultSet·is·called·from·Layer::DESTROY</span></div><div·class="line"><a·name="l02385"></a><span·class="lineno">·2385</span> }</div><div·class="line"><a·name="l02386"></a><span·class="lineno">·2386</span> </div><div·class="line"><a·name="l02387"></a><span·class="lineno">·2387</span> <span·class="preprocessor">#**·@method·ResetReading()</span></div><div·class="line"><a·name="l02388"></a><span·class="lineno">·2388</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02389"></a><span·class="lineno">·2389</span> sub·ResetReading·{</div><div·class="line"><a·name="l02390"></a><span·class="lineno">·2390</span> }</div><div·class="line"><a·name="l02391"></a><span·class="lineno">·2391</span> </div><div·class="line"><a·name="l02392"></a><span·class="lineno">·2392</span> <span·class="preprocessor">#**·@method·RollbackTransaction()</span></div><div·class="line"><a·name="l02393"></a><span·class="lineno">·2393</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02394"></a><span·class="lineno">·2394</span> sub·RollbackTransaction·{</div><div·class="line"><a·name="l02395"></a><span·class="lineno">·2395</span> }</div><div·class="line"><a·name="l02396"></a><span·class="lineno">·2396</span> </div><div·class="line"><a·name="l02397"></a><span·class="lineno">·2397</span> <span·class="preprocessor">#**·@method·SetStyleTable()</span></div><div·class="line"><a·name="l02398"></a><span·class="lineno">·2398</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02399"></a><span·class="lineno">·2399</span> sub·SetStyleTable·{</div><div·class="line"><a·name="l02400"></a><span·class="lineno">·2400</span> }</div><div·class="line"><a·name="l02401"></a><span·class="lineno">·2401</span> </div><div·class="line"><a·name="l02402"></a><span·class="lineno">·2402</span> <span·class="preprocessor">#**·@method·list·Size()</span></div><div·class="line"><a·name="l02403"></a><span·class="lineno">·2403</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02404"></a><span·class="lineno">·2404</span> <span·class="preprocessor">#·@return·(width,·height)</span></div><div·class="line"><a·name="l02405"></a><span·class="lineno">·2405</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02406"></a><span·class="lineno">·2406</span> sub·Size·{</div><div·class="line"><a·name="l02407"></a><span·class="lineno">·2407</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02408"></a><span·class="lineno">·2408</span> ····<span·class="keywordflow">return</span>·($self->{RasterXSize},·$self->{RasterYSize});</div><div·class="line"><a·name="l02409"></a><span·class="lineno">·2409</span> }</div><div·class="line"><a·name="l02410"></a><span·class="lineno">·2410</span> </div><div·class="line"><a·name="l02411"></a><span·class="lineno">·2411</span> <span·class="preprocessor">#**·@method·Geo::OSR::SpatialReference·SpatialReference(Geo::OSR::SpatialReference·sr)</span></div><div·class="line"><a·name="l02412"></a><span·class="lineno">·2412</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02413"></a><span·class="lineno">·2413</span> <span·class="preprocessor">#·Get·or·set·the·projection·of·this·dataset.</span></div><div·class="line"><a·name="l02414"></a><span·class="lineno">·2414</span> <span·class="preprocessor">#·@param·sr·[optional]·a·Geo::OSR::SpatialReference·object,</span></div><div·class="line"><a·name="l02415"></a><span·class="lineno">·2415</span> <span·class="preprocessor">#·which·replaces·the·existing·projection·definition·of·this·dataset.</span></div><div·class="line"><a·name="l02416"></a><span·class="lineno">·2416</span> <span·class="preprocessor">#·@return·a·Geo::OSR::SpatialReference·object,·which·represents·the</span></div><div·class="line"><a·name="l02417"></a><span·class="lineno">·2417</span> <span·class="preprocessor">#·projection·of·this·dataset.</span></div><div·class="line"><a·name="l02418"></a><span·class="lineno">·2418</span> <span·class="preprocessor">#·@note·Methods·GetProjection,·SetProjection,·and·Projection·return·WKT·strings.</span></div><div·class="line"><a·name="l02419"></a><span·class="lineno">·2419</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02420"></a><span·class="lineno">·2420</span> sub·SpatialReference·{</div><div·class="line"><a·name="l02421"></a><span·class="lineno">·2421</span> ····my($self,·$sr)·=·@_;</div><div·class="line"><a·name="l02422"></a><span·class="lineno">·2422</span> ····SetProjection($self,·$sr->As(<span·class="stringliteral">'WKT'</span>))·<span·class="keywordflow">if</span>·defined·$sr;</div><div·class="line"><a·name="l02423"></a><span·class="lineno">·2423</span> ····<span·class="keywordflow">if</span>·(defined·wantarray)·{</div><div·class="line"><a·name="l02424"></a><span·class="lineno">·2424</span> ········my·$p·=·GetProjection($self);</div><div·class="line"><a·name="l02425"></a><span·class="lineno">·2425</span> ········<span·class="keywordflow">return</span>·unless·$p;</div><div·class="line"><a·name="l02426"></a><span·class="lineno">·2426</span> ········<span·class="keywordflow">return</span>·<a·class="code"·href="classGeo_1_1OSR_1_1SpatialReference.html">Geo::OSR::SpatialReference</a>-><a·class="code"·href="classGeo_1_1OSR_1_1SpatialReference.html#aa1e78517d5765c5a5818f829cd076edc">new</a>(WKT·=>·$p);</div><div·class="line"><a·name="l02427"></a><span·class="lineno">·2427</span> ····}</div><div·class="line"><a·name="l02428"></a><span·class="lineno">·2428</span> }</div><div·class="line"><a·name="l02429"></a><span·class="lineno">·2429</span> </div><div·class="line"><a·name="l02430"></a><span·class="lineno">·2430</span> <span·class="preprocessor">#**·@method·StartTransaction()</span></div><div·class="line"><a·name="l02431"></a><span·class="lineno">·2431</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02432"></a><span·class="lineno">·2432</span> sub·StartTransaction·{</div><div·class="line"><a·name="l02433"></a><span·class="lineno">·2433</span> }</div><div·class="line"><a·name="l02434"></a><span·class="lineno">·2434</span> </div><div·class="line"><a·name="l02435"></a><span·class="lineno">·2435</span> <span·class="preprocessor">#**·@method·TestCapability()</span></div><div·class="line"><a·name="l02436"></a><span·class="lineno">·2436</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02437"></a><span·class="lineno">·2437</span> sub·TestCapability·{</div><div·class="line"><a·name="l02438"></a><span·class="lineno">·2438</span> ····<span·class="keywordflow">return</span>·_TestCapability(@_);</div><div·class="line"><a·name="l02439"></a><span·class="lineno">·2439</span> }</div><div·class="line"><a·name="l02440"></a><span·class="lineno">·2440</span> </div><div·class="line"><a·name="l02441"></a><span·class="lineno">·2441</span> <span·class="preprocessor">#**·@method·Tile(Geo::GDAL::Extent·e)</span></div><div·class="line"><a·name="l02442"></a><span·class="lineno">·2442</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02443"></a><span·class="lineno">·2443</span> <span·class="preprocessor">#·Compute·the·top·left·cell·coordinates·and·width·and·height·of·the</span></div><div·class="line"><a·name="l02444"></a><span·class="lineno">·2444</span> <span·class="preprocessor">#·tile·that·covers·the·given·extent.</span></div><div·class="line"><a·name="l02445"></a><span·class="lineno">·2445</span> <span·class="preprocessor">#·@param·e·The·extent·whose·tile·is·needed.</span></div><div·class="line"><a·name="l02446"></a><span·class="lineno">·2446</span> <span·class="preprocessor">#·@note·Requires·that·the·raster·is·a·strictly·north·up·one.</span></div><div·class="line"><a·name="l02447"></a><span·class="lineno">·2447</span> <span·class="preprocessor">#·@return·A·list·($xoff,·$yoff,·$xsize,·$ysize).</span></div><div·class="line"><a·name="l02448"></a><span·class="lineno">·2448</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02449"></a><span·class="lineno">·2449</span> sub·Tile·{</div><div·class="line"><a·name="l02450"></a><span·class="lineno">·2450</span> ····my·($self,·$e)·=·@_;</div><div·class="line"><a·name="l02451"></a><span·class="lineno">·2451</span> ····my·($w,·$h)·=·$self->Size;</div><div·class="line"><a·name="l02452"></a><span·class="lineno">·2452</span> ····my·$t·=·$self->GeoTransform;</div><div·class="line"><a·name="l02453"></a><span·class="lineno">·2453</span> ····confess·<span·class="stringliteral">"GeoTransform·is·not·\"north·up\"."</span>·unless·$t->NorthUp;</div><div·class="line"><a·name="l02454"></a><span·class="lineno">·2454</span> ····my·$xoff·=·floor(($e->[0]·-·$t->[0])/$t->[1]);</div><div·class="line"><a·name="l02455"></a><span·class="lineno">·2455</span> ····$xoff·=·0·<span·class="keywordflow">if</span>·$xoff·<·0;</div><div·class="line"><a·name="l02456"></a><span·class="lineno">·2456</span> ····my·$yoff·=·floor(($e->[1]·-·$t->[3])/$t->[5]);</div><div·class="line"><a·name="l02457"></a><span·class="lineno">·2457</span> ····$yoff·=·0·<span·class="keywordflow">if</span>·$yoff·<·0;</div><div·class="line"><a·name="l02458"></a><span·class="lineno">·2458</span> ····my·$xsize·=·ceil(($e->[2]·-·$t->[0])/$t->[1])·-·$xoff;</div><div·class="line"><a·name="l02459"></a><span·class="lineno">·2459</span> ····$xsize·=·$w·-·$xoff·<span·class="keywordflow">if</span>·$xsize·>·$w·-·$xoff;</div><div·class="line"><a·name="l02460"></a><span·class="lineno">·2460</span> ····my·$ysize·=·ceil(($e->[3]·-·$t->[3])/$t->[5])·-·$yoff;</div><div·class="line"><a·name="l02461"></a><span·class="lineno">·2461</span> ····$ysize·=·$h·-·$yoff·<span·class="keywordflow">if</span>·$ysize·>·$h·-·$yoff;</div><div·class="line"><a·name="l02462"></a><span·class="lineno">·2462</span> ····<span·class="keywordflow">return</span>·($xoff,·$yoff,·$xsize,·$ysize);</div><div·class="line"><a·name="l02463"></a><span·class="lineno">·2463</span> }</div><div·class="line"><a·name="l02464"></a><span·class="lineno">·2464</span> </div><div·class="line"><a·name="l02465"></a><span·class="lineno">·2465</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Translate($Dest,·hashref·Options,·coderef·progress,·$progress_data)</span></div><div·class="line"><a·name="l02466"></a><span·class="lineno">·2466</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02467"></a><span·class="lineno">·2467</span> <span·class="preprocessor">#·Convert·this·dataset·into·another·format.</span></div><div·class="line"><a·name="l02468"></a><span·class="lineno">·2468</span> <span·class="preprocessor">#·@param·Dest·Destination·dataset·definition·string·(typically</span></div><div·class="line"><a·name="l02469"></a><span·class="lineno">·2469</span> <span·class="preprocessor">#·filename)·or·an·object,·which·implements·write·and·close.</span></div><div·class="line"><a·name="l02470"></a><span·class="lineno">·2470</span> <span·class="preprocessor">#·@param·Options·See·section·\ref·index_processing_options.</span></div><div·class="line"><a·name="l02471"></a><span·class="lineno">·2471</span> <span·class="preprocessor">#·@return·New·dataset·object·if·destination·dataset·definition</span></div><div·class="line"><a·name="l02472"></a><span·class="lineno">·2472</span> <span·class="preprocessor">#·string·was·given,·otherwise·a·boolean·for·success/fail·but·the</span></div><div·class="line"><a·name="l02473"></a><span·class="lineno">·2473</span> <span·class="preprocessor">#·method·croaks·if·there·was·an·error.</span></div><div·class="line"><a·name="l02474"></a><span·class="lineno">·2474</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02475"></a><span·class="lineno">·2475</span> sub·Translate·{</div><div·class="line"><a·name="l02476"></a><span·class="lineno">·2476</span> ····my·($self,·$dest,·$options,·$progress,·$progress_data)·=·@_;</div><div·class="line"><a·name="l02477"></a><span·class="lineno">·2477</span> ····<span·class="keywordflow">return</span>·$self->stdout_redirection_wrapper(</div><div·class="line"><a·name="l02478"></a><span·class="lineno">·2478</span> ········$dest,</div><div·class="line"><a·name="l02479"></a><span·class="lineno">·2479</span> }</div><div·class="line"><a·name="l02480"></a><span·class="lineno">·2480</span> </div><div·class="line"><a·name="l02481"></a><span·class="lineno">·2481</span> #**·@method·<a·class="code"·href="classGeo_1_1GDAL_1_1Dataset.html">Geo::GDAL::Dataset</a>·Warp($Dest,·hashref·Options,·coderef·progress,·$progress_data)</div><div·class="line"><a·name="l02482"></a><span·class="lineno">·2482</span> #·Object·method.</div><div·class="line"><a·name="l02483"></a><span·class="lineno">·2483</span> #·Reproject·<span·class="keyword">this</span>·dataset.</div><div·class="line"><a·name="l02484"></a><span·class="lineno">·2484</span> #·@param·Dest·Destination·raster·dataset·definition·string·(typically</div><div·class="line"><a·name="l02485"></a><span·class="lineno">·2485</span> #·filename)·or·an·<span·class="keywordtype">object</span>,·which·implements·write·and·close.</div><div·class="line"><a·name="l02486"></a><span·class="lineno">·2486</span> #·@param·Options·See·section·\ref·index_processing_options.</div><div·class="line"><a·name="l02487"></a><span·class="lineno">·2487</span> #·@note·This·method·can·be·run·as·a·package·subroutine·with·a·list·of</div><div·class="line"><a·name="l02488"></a><span·class="lineno">·2488</span> #·datasets·as·the·first·argument·to·mosaic·several·datasets.</div><div·class="line"><a·name="l02489"></a><span·class="lineno">·2489</span> #*</div><div·class="line"><a·name="l02490"></a><span·class="lineno">·2490</span> sub·Warp·{</div><div·class="line"><a·name="l02491"></a><span·class="lineno">·2491</span> ····my·($self,·$dest,·$options,·$progress,·$progress_data)·=·@_;</div><div·class="line"><a·name="l02492"></a><span·class="lineno">·2492</span> ····#·can·be·run·as·object·method·(one·dataset)·and·as·package·sub·(a·list·of·datasets)</div><div·class="line"><a·name="l02493"></a><span·class="lineno">·2493</span> ····$options·=·Geo::GDAL::GDALWarpAppOptions->new(make_processing_options($options));</div><div·class="line"><a·name="l02494"></a><span·class="lineno">·2494</span> ····my·$b·=·blessed($dest);</div><div·class="line"><a·name="l02495"></a><span·class="lineno">·2495</span> ····$self·=·[$self]·unless·ref·$self·eq·<span·class="stringliteral">'ARRAY'</span>;</div><div·class="line"><a·name="l02496"></a><span·class="lineno">·2496</span> ····if·($b·&&·$b·eq·<span·class="stringliteral">'Geo::GDAL::Dataset'</span>)·{</div><div·class="line"><a·name="l02497"></a><span·class="lineno">·2497</span> ········Geo::GDAL::wrapper_GDALWarpDestDS($dest,·$self,·$options,·$progress,·$progress_data);</div><div·class="line"><a·name="l02498"></a><span·class="lineno">·2498</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l02499"></a><span·class="lineno">·2499</span> ········return·stdout_redirection_wrapper(</div><div·class="line"><a·name="l02500"></a><span·class="lineno">·2500</span> ············$self,</div><div·class="line"><a·name="l02501"></a><span·class="lineno">·2501</span> ············$dest,</div><div·class="line"><a·name="l02502"></a><span·class="lineno">·2502</span> ············\&Geo::GDAL::wrapper_GDALWarpDestName,</div><div·class="line"><a·name="l02503"></a><span·class="lineno">·2503</span> ············$options,·$progress,·$progress_data</div><div·class="line"><a·name="l02504"></a><span·class="lineno">·2504</span> ········);</div><div·class="line"><a·name="l02505"></a><span·class="lineno">·2505</span> ····}</div><div·class="line"><a·name="l02506"></a><span·class="lineno">·2506</span> }</div><div·class="line"><a·name="l02507"></a><span·class="lineno">·2507</span> </div><div·class="line"><a·name="l02508"></a><span·class="lineno">·2508</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Warped(%params)</span></div><div·class="line"><a·name="l02509"></a><span·class="lineno">·2509</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02510"></a><span·class="lineno">·2510</span> <span·class="preprocessor">#·Create·a·virtual·warped·dataset·from·this·dataset.</span></div><div·class="line"><a·name="l02511"></a><span·class="lineno">·2511</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02512"></a><span·class="lineno">·2512</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l02513"></a><span·class="lineno">·2513</span> <span·class="preprocessor">#·-·\a·SrcSRS·Override·the·spatial·reference·system·of·this·dataset·if·there·is·one·(default·is·undef).</span></div><div·class="line"><a·name="l02514"></a><span·class="lineno">·2514</span> <span·class="preprocessor">#·-·\a·DstSRS·The·target·spatial·reference·system·of·the·result·(default·is·undef).</span></div><div·class="line"><a·name="l02515"></a><span·class="lineno">·2515</span> <span·class="preprocessor">#·-·\a·ResampleAlg·The·resampling·algorithm·(default·is·'NearestNeighbour').</span></div><div·class="line"><a·name="l02516"></a><span·class="lineno">·2516</span> <span·class="preprocessor">#·-·\a·MaxError·Maximum·error·measured·in·input·cellsize·that·is·allowed·in·approximating·the·transformation·(default·is·0·for·exact·calculations).</span></div><div·class="line"><a·name="l02517"></a><span·class="lineno">·2517</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02518"></a><span·class="lineno">·2518</span> <span·class="preprocessor">#·#·<a·href="http://www.gdal.org/gdalwarper_8h.html">Documentation·for·GDAL·warper.</a></span></div><div·class="line"><a·name="l02519"></a><span·class="lineno">·2519</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02520"></a><span·class="lineno">·2520</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::Dataset·object</span></div><div·class="line"><a·name="l02521"></a><span·class="lineno">·2521</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02522"></a><span·class="lineno">·2522</span> sub·Warped·{</div><div·class="line"><a·name="l02523"></a><span·class="lineno">·2523</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02524"></a><span·class="lineno">·2524</span> ····my·$p·=·named_parameters(\@_,·SrcSRS·=>·undef,·DstSRS·=>·undef,·ResampleAlg·=>·<span·class="stringliteral">'NearestNeighbour'</span>,·MaxError·=>·0);</div><div·class="line"><a·name="l02525"></a><span·class="lineno">·2525</span> ····<span·class="keywordflow">for</span>·my·$srs·(qw/srcsrs·dstsrs/)·{</div><div·class="line"><a·name="l02526"></a><span·class="lineno">·2526</span> ········$p->{$srs}·=·$p->{$srs}->ExportToWkt·<span·class="keywordflow">if</span>·$p->{$srs}·&&·blessed·$p->{$srs};</div><div·class="line"><a·name="l02527"></a><span·class="lineno">·2527</span> ····}</div><div·class="line"><a·name="l02528"></a><span·class="lineno">·2528</span> ····$p->{resamplealg}·=·s2i(resampling·=>·$p->{resamplealg});</div><div·class="line"><a·name="l02529"></a><span·class="lineno">·2529</span> ····my·$warped·=·Geo::GDAL::_AutoCreateWarpedVRT($self,·$p->{srcsrs},·$p->{dstsrs},·$p->{resamplealg},·$p->{maxerror});</div><div·class="line"><a·name="l02530"></a><span·class="lineno">·2530</span> ····keep($warped,·$self)·<span·class="keywordflow">if</span>·$warped;·#·<span·class="keyword">self</span>·must·live·as·<span·class="keywordtype">long</span>·as·warped</div><div·class="line"><a·name="l02531"></a><span·class="lineno">·2531</span> }</div><div·class="line"><a·name="l02532"></a><span·class="lineno">·2532</span> </div><div·class="line"><a·name="l02533"></a><span·class="lineno">·2533</span> <span·class="preprocessor">#**·@method·WriteRaster(%params)</span></div><div·class="line"><a·name="l02534"></a><span·class="lineno">·2534</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02535"></a><span·class="lineno">·2535</span> <span·class="preprocessor">#·Write·data·into·the·dataset.</span></div><div·class="line"><a·name="l02536"></a><span·class="lineno">·2536</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02537"></a><span·class="lineno">·2537</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l02538"></a><span·class="lineno">·2538</span> <span·class="preprocessor">#·-·\a·XOff·x·offset·(cell·coordinates)·(default·is·0)</span></div><div·class="line"><a·name="l02539"></a><span·class="lineno">·2539</span> <span·class="preprocessor">#·-·\a·YOff·y·offset·(cell·coordinates)·(default·is·0)</span></div><div·class="line"><a·name="l02540"></a><span·class="lineno">·2540</span> <span·class="preprocessor">#·-·\a·XSize·width·of·the·area·to·write·(default·is·the·width·of·the·dataset)</span></div><div·class="line"><a·name="l02541"></a><span·class="lineno">·2541</span> <span·class="preprocessor">#·-·\a·YSize·height·of·the·area·to·write·(default·is·the·height·of·the·dataset)</span></div><div·class="line"><a·name="l02542"></a><span·class="lineno">·2542</span> <span·class="preprocessor">#·-·\a·Buf·a·buffer·(or·a·reference·to·a·buffer)·containing·the·data.·Create·the·buffer·with·\a·pack·function·of·Perl.·See·Geo::GDAL::Band::PackCharacter.</span></div><div·class="line"><a·name="l02543"></a><span·class="lineno">·2543</span> <span·class="preprocessor">#·-·\a·BufXSize·(default·is·undef,·i.e.,·the·same·as·XSize)</span></div><div·class="line"><a·name="l02544"></a><span·class="lineno">·2544</span> <span·class="preprocessor">#·-·\a·BufYSize·(default·is·undef,·i.e.,·the·same·as·YSize)</span></div><div·class="line"><a·name="l02545"></a><span·class="lineno">·2545</span> <span·class="preprocessor">#·-·\a·BufType·data·type·of·the·buffer·(default·is·the·data·type·of·the·first·band)</span></div><div·class="line"><a·name="l02546"></a><span·class="lineno">·2546</span> <span·class="preprocessor">#·-·\a·BandList·a·reference·to·an·array·of·band·indices·(default·is·[1])</span></div><div·class="line"><a·name="l02547"></a><span·class="lineno">·2547</span> <span·class="preprocessor">#·-·\a·BufPixelSpace·(default·is·0)</span></div><div·class="line"><a·name="l02548"></a><span·class="lineno">·2548</span> <span·class="preprocessor">#·-·\a·BufLineSpace·(default·is·0)</span></div><div·class="line"><a·name="l02549"></a><span·class="lineno">·2549</span> <span·class="preprocessor">#·-·\a·BufBandSpace·(default·is·0)</span></div><div·class="line"><a·name="l02550"></a><span·class="lineno">·2550</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02551"></a><span·class="lineno">·2551</span> <span·class="preprocessor">#·<a·href="http://www.gdal.org/classGDALDataset.html">Entry·in·GDAL·docs·(method·RasterIO)</a></span></div><div·class="line"><a·name="l02552"></a><span·class="lineno">·2552</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02553"></a><span·class="lineno">·2553</span> sub·WriteRaster·{</div><div·class="line"><a·name="l02554"></a><span·class="lineno">·2554</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02555"></a><span·class="lineno">·2555</span> ····my·($width,·$height)·=·$self->Size;</div><div·class="line"><a·name="l02556"></a><span·class="lineno">·2556</span> ····my·($type)·=·$self->Band->DataType;</div><div·class="line"><a·name="l02557"></a><span·class="lineno">·2557</span> ····my·$p·=·named_parameters(\@_,</div><div·class="line"><a·name="l02558"></a><span·class="lineno">·2558</span> ·····························XOff·=>·0,</div><div·class="line"><a·name="l02559"></a><span·class="lineno">·2559</span> ·····························YOff·=>·0,</div><div·class="line"><a·name="l02560"></a><span·class="lineno">·2560</span> ·····························XSize·=>·$width,</div><div·class="line"><a·name="l02561"></a><span·class="lineno">·2561</span> ·····························YSize·=>·$height,</div><div·class="line"><a·name="l02562"></a><span·class="lineno">·2562</span> ·····························Buf·=>·undef,</div><div·class="line"><a·name="l02563"></a><span·class="lineno">·2563</span> ·····························BufXSize·=>·undef,</div><div·class="line"><a·name="l02564"></a><span·class="lineno">·2564</span> ·····························BufYSize·=>·undef,</div><div·class="line"><a·name="l02565"></a><span·class="lineno">·2565</span> ·····························BufType·=>·$type,</div><div·class="line"><a·name="l02566"></a><span·class="lineno">·2566</span> ·····························BandList·=>·[1],</div><div·class="line"><a·name="l02567"></a><span·class="lineno">·2567</span> ·····························BufPixelSpace·=>·0,</div><div·class="line"><a·name="l02568"></a><span·class="lineno">·2568</span> ·····························BufLineSpace·=>·0,</div><div·class="line"><a·name="l02569"></a><span·class="lineno">·2569</span> ·····························BufBandSpace·=>·0</div><div·class="line"><a·name="l02570"></a><span·class="lineno">·2570</span> ········);</div><div·class="line"><a·name="l02571"></a><span·class="lineno">·2571</span> ····$p->{buftype}·=·s2i(data_type·=>·$p->{buftype},·1);</div><div·class="line"><a·name="l02572"></a><span·class="lineno">·2572</span> ····$self->_WriteRaster($p->{xoff},$p->{yoff},$p->{xsize},$p->{ysize},$p->{buf},$p->{bufxsize},$p->{bufysize},$p->{buftype},$p->{bandlist},$p->{bufpixelspace},$p->{buflinespace},$p->{bufbandspace});</div><div·class="line"><a·name="l02573"></a><span·class="lineno">·2573</span> }</div><div·class="line"><a·name="l02574"></a><span·class="lineno">·2574</span> </div><div·class="line"><a·name="l02575"></a><span·class="lineno">·2575</span> <span·class="preprocessor">#**·@method·WriteTile()</span></div><div·class="line"><a·name="l02576"></a><span·class="lineno">·2576</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02577"></a><span·class="lineno">·2577</span> sub·WriteTile·{</div><div·class="line"><a·name="l02578"></a><span·class="lineno">·2578</span> ····my·($self,·$data,·$xoff,·$yoff)·=·@_;</div><div·class="line"><a·name="l02579"></a><span·class="lineno">·2579</span> ····$xoff·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l02580"></a><span·class="lineno">·2580</span> ····$yoff·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l02581"></a><span·class="lineno">·2581</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$self->Bands-1)·{</div><div·class="line"><a·name="l02582"></a><span·class="lineno">·2582</span> ········$self->Band($i+1)->WriteTile($data->[$i],·$xoff,·$yoff);</div><div·class="line"><a·name="l02583"></a><span·class="lineno">·2583</span> ····}</div><div·class="line"><a·name="l02584"></a><span·class="lineno">·2584</span> }</div><div·class="line"><a·name="l02585"></a><span·class="lineno">·2585</span> </div><div·class="line"><a·name="l02586"></a><span·class="lineno">·2586</span> <span·class="preprocessor">#**·@class·Geo::GDAL::Driver</span></div><div·class="line"><a·name="l02587"></a><span·class="lineno">·2587</span> <span·class="preprocessor">#·@brief·A·driver·for·a·specific·dataset·format.</span></div><div·class="line"><a·name="l02588"></a><span·class="lineno">·2588</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l02589"></a><span·class="lineno">·2589</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02590"></a><span·class="lineno">·2590</span> <span·class="keyword">package·</span>Geo::GDAL::Driver;</div><div·class="line"><a·name="l02591"></a><span·class="lineno">·2591</span> </div><div·class="line"><a·name="l02592"></a><span·class="lineno">·2592</span> use·base·qw(<a·class="code"·href="classGeo_1_1GDAL_1_1MajorObject.html">Geo::GDAL::MajorObject</a>·<a·class="code"·href="namespaceGeo_1_1GDAL.html">Geo::GDAL</a>)</div><div·class="line"><a·name="l02593"></a><span·class="lineno">·2593</span> </div><div·class="line"><a·name="l02594"></a><span·class="lineno">·2594</span> <span·class="preprocessor">#**·@attr·$HelpTopic·</span></div><div·class="line"><a·name="l02595"></a><span·class="lineno">·2595</span> <span·class="preprocessor">#·$driver->{HelpTopic}</span></div><div·class="line"><a·name="l02596"></a><span·class="lineno">·2596</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02597"></a><span·class="lineno">·2597</span> </div><div·class="line"><a·name="l02598"></a><span·class="lineno">·2598</span> <span·class="preprocessor">#**·@attr·$LongName·</span></div><div·class="line"><a·name="l02599"></a><span·class="lineno">·2599</span> <span·class="preprocessor">#·$driver->{LongName}</span></div><div·class="line"><a·name="l02600"></a><span·class="lineno">·2600</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02601"></a><span·class="lineno">·2601</span> </div><div·class="line"><a·name="l02602"></a><span·class="lineno">·2602</span> <span·class="preprocessor">#**·@attr·$ShortName·</span></div><div·class="line"><a·name="l02603"></a><span·class="lineno">·2603</span> <span·class="preprocessor">#·$driver->{ShortName}</span></div><div·class="line"><a·name="l02604"></a><span·class="lineno">·2604</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02605"></a><span·class="lineno">·2605</span> </div><div·class="line"><a·name="l02606"></a><span·class="lineno">·2606</span> <span·class="preprocessor">#**·@method·list·Capabilities()</span></div><div·class="line"><a·name="l02607"></a><span·class="lineno">·2607</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02608"></a><span·class="lineno">·2608</span> <span·class="preprocessor">#·@return·A·list·of·capabilities.·When·executed·as·a·package·subroutine</span></div><div·class="line"><a·name="l02609"></a><span·class="lineno">·2609</span> <span·class="preprocessor">#·returns·a·list·of·all·potential·capabilities·a·driver·may·have.·When</span></div><div·class="line"><a·name="l02610"></a><span·class="lineno">·2610</span> <span·class="preprocessor">#·executed·as·an·object·method·returns·a·list·of·all·capabilities·the</span></div><div·class="line"><a·name="l02611"></a><span·class="lineno">·2611</span> <span·class="preprocessor">#·driver·has.</span></div><div·class="line"><a·name="l02612"></a><span·class="lineno">·2612</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02613"></a><span·class="lineno">·2613</span> <span·class="preprocessor">#·Currently·capabilities·are:</span></div><div·class="line"><a·name="l02614"></a><span·class="lineno">·2614</span> <span·class="preprocessor">#·CREATE,·CREATECOPY,·DEFAULT_FIELDS,·NOTNULL_FIELDS,·NOTNULL_GEOMFIELDS,·OPEN,·RASTER,·VECTOR,·and·VIRTUALIO.</span></div><div·class="line"><a·name="l02615"></a><span·class="lineno">·2615</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02616"></a><span·class="lineno">·2616</span> <span·class="preprocessor">#·Examples.</span></div><div·class="line"><a·name="l02617"></a><span·class="lineno">·2617</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l02618"></a><span·class="lineno">·2618</span> <span·class="preprocessor">#·@all_capabilities·=·Geo::GDAL::Driver::Capabilities;</span></div><div·class="line"><a·name="l02619"></a><span·class="lineno">·2619</span> <span·class="preprocessor">#·@capabilities_of_the_geotiff_driver·=·Geo::GDAL::Driver('GTiff')->Capabilities;</span></div><div·class="line"><a·name="l02620"></a><span·class="lineno">·2620</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l02621"></a><span·class="lineno">·2621</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02622"></a><span·class="lineno">·2622</span> sub·Capabilities·{</div><div·class="line"><a·name="l02623"></a><span·class="lineno">·2623</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02624"></a><span·class="lineno">·2624</span> ····<span·class="keywordflow">return</span>·@CAPABILITIES·unless·$self;</div><div·class="line"><a·name="l02625"></a><span·class="lineno">·2625</span> ····my·$h·=·$self->GetMetadata;</div><div·class="line"><a·name="l02626"></a><span·class="lineno">·2626</span> ····my·@cap;</div><div·class="line"><a·name="l02627"></a><span·class="lineno">·2627</span> ····<span·class="keywordflow">for</span>·my·$cap·(@CAPABILITIES)·{</div><div·class="line"><a·name="l02628"></a><span·class="lineno">·2628</span> ········my·$test·=·$h->{<span·class="stringliteral">'DCAP_'</span>.uc($cap)};</div><div·class="line"><a·name="l02629"></a><span·class="lineno">·2629</span> ········push·@cap,·$cap·<span·class="keywordflow">if</span>·defined($test)·and·$test·eq·<span·class="stringliteral">'YES'</span>;</div><div·class="line"><a·name="l02630"></a><span·class="lineno">·2630</span> ····}</div><div·class="line"><a·name="l02631"></a><span·class="lineno">·2631</span> ····<span·class="keywordflow">return</span>·@cap;</div><div·class="line"><a·name="l02632"></a><span·class="lineno">·2632</span> }</div><div·class="line"><a·name="l02633"></a><span·class="lineno">·2633</span> </div><div·class="line"><a·name="l02634"></a><span·class="lineno">·2634</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Copy(%params)</span></div><div·class="line"><a·name="l02635"></a><span·class="lineno">·2635</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02636"></a><span·class="lineno">·2636</span> <span·class="preprocessor">#·Create·a·new·raster·Geo::GDAL::Dataset·as·a·copy·of·an·existing·dataset.</span></div><div·class="line"><a·name="l02637"></a><span·class="lineno">·2637</span> <span·class="preprocessor">#·@note·a.k.a.·CreateCopy</span></div><div·class="line"><a·name="l02638"></a><span·class="lineno">·2638</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02639"></a><span·class="lineno">·2639</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l02640"></a><span·class="lineno">·2640</span> <span·class="preprocessor">#·-·\a·Name·name·for·the·new·raster·dataset.</span></div><div·class="line"><a·name="l02641"></a><span·class="lineno">·2641</span> <span·class="preprocessor">#·-·\a·Src·the·source·Geo::GDAL::Dataset·object.</span></div><div·class="line"><a·name="l02642"></a><span·class="lineno">·2642</span> <span·class="preprocessor">#·-·\a·Strict·1·(default)·if·the·copy·must·be·strictly·equivalent,·or·0·if·the·copy·may·adapt.</span></div><div·class="line"><a·name="l02643"></a><span·class="lineno">·2643</span> <span·class="preprocessor">#·-·\a·Options·an·anonymous·hash·of·driver·specific·options.</span></div><div·class="line"><a·name="l02644"></a><span·class="lineno">·2644</span> <span·class="preprocessor">#·-·\a·Progress·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l02645"></a><span·class="lineno">·2645</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·progress_data).</span></div><div·class="line"><a·name="l02646"></a><span·class="lineno">·2646</span> <span·class="preprocessor">#·-·\a·ProgressData·[optional]</span></div><div·class="line"><a·name="l02647"></a><span·class="lineno">·2647</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::Dataset·object.</span></div><div·class="line"><a·name="l02648"></a><span·class="lineno">·2648</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02649"></a><span·class="lineno">·2649</span> sub·Copy·{</div><div·class="line"><a·name="l02650"></a><span·class="lineno">·2650</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02651"></a><span·class="lineno">·2651</span> ····my·$p·=·named_parameters(\@_,·Name·=>·<span·class="stringliteral">'unnamed'</span>,·Src·=>·undef,·Strict·=>·1,·Options·=>·{},·Progress·=>·undef,·ProgressData·=>·undef);</div><div·class="line"><a·name="l02652"></a><span·class="lineno">·2652</span> ····<span·class="keywordflow">return</span>·$self->stdout_redirection_wrapper(</div><div·class="line"><a·name="l02653"></a><span·class="lineno">·2653</span> ········$p->{name},</div><div·class="line"><a·name="l02654"></a><span·class="lineno">·2654</span> ········$self->can(<span·class="stringliteral">'_CreateCopy'</span>),</div><div·class="line"><a·name="l02655"></a><span·class="lineno">·2655</span> ········$p->{src},·$p->{strict},·$p->{options},·$p->{progress},·$p->{progressdata});</div><div·class="line"><a·name="l02656"></a><span·class="lineno">·2656</span> }</div><div·class="line"><a·name="l02657"></a><span·class="lineno">·2657</span> </div><div·class="line"><a·name="l02658"></a><span·class="lineno">·2658</span> <span·class="preprocessor">#**·@method·CopyFiles($NewName,·$OldName)</span></div><div·class="line"><a·name="l02659"></a><span·class="lineno">·2659</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02660"></a><span·class="lineno">·2660</span> <span·class="preprocessor">#·Copy·the·files·of·a·dataset.</span></div><div·class="line"><a·name="l02661"></a><span·class="lineno">·2661</span> <span·class="preprocessor">#·@param·NewName·String.</span></div><div·class="line"><a·name="l02662"></a><span·class="lineno">·2662</span> <span·class="preprocessor">#·@param·OldName·String.</span></div><div·class="line"><a·name="l02663"></a><span·class="lineno">·2663</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02664"></a><span·class="lineno">·2664</span> sub·CopyFiles·{</div><div·class="line"><a·name="l02665"></a><span·class="lineno">·2665</span> }</div><div·class="line"><a·name="l02666"></a><span·class="lineno">·2666</span> </div><div·class="line"><a·name="l02667"></a><span·class="lineno">·2667</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Create(%params)</span></div><div·class="line"><a·name="l02668"></a><span·class="lineno">·2668</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02669"></a><span·class="lineno">·2669</span> <span·class="preprocessor">#·Create·a·raster·dataset·using·this·driver.</span></div><div·class="line"><a·name="l02670"></a><span·class="lineno">·2670</span> <span·class="preprocessor">#·@note·a.k.a.·CreateDataset</span></div><div·class="line"><a·name="l02671"></a><span·class="lineno">·2671</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02672"></a><span·class="lineno">·2672</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l02673"></a><span·class="lineno">·2673</span> <span·class="preprocessor">#·-·\a·Name·The·name·for·the·dataset·(default·is·'unnamed')·or·an·object,·which·implements·write·and·close.</span></div><div·class="line"><a·name="l02674"></a><span·class="lineno">·2674</span> <span·class="preprocessor">#·-·\a·Width·The·width·for·the·raster·dataset·(default·is·256).</span></div><div·class="line"><a·name="l02675"></a><span·class="lineno">·2675</span> <span·class="preprocessor">#·-·\a·Height·The·height·for·the·raster·dataset·(default·is·256).</span></div><div·class="line"><a·name="l02676"></a><span·class="lineno">·2676</span> <span·class="preprocessor">#·-·\a·Bands·The·number·of·bands·to·create·into·the·raster·dataset·(default·is·1).</span></div><div·class="line"><a·name="l02677"></a><span·class="lineno">·2677</span> <span·class="preprocessor">#·-·\a·Type·The·data·type·for·the·raster·cells·(default·is·'Byte').·One·of·Geo::GDAL::Driver::CreationDataTypes.</span></div><div·class="line"><a·name="l02678"></a><span·class="lineno">·2678</span> <span·class="preprocessor">#·-·\a·Options·Driver·creation·options·as·a·reference·to·a·hash·(default·is·{}).</span></div><div·class="line"><a·name="l02679"></a><span·class="lineno">·2679</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02680"></a><span·class="lineno">·2680</span> <span·class="preprocessor">#·@return·A·new·Geo::GDAL::Dataset·object.</span></div><div·class="line"><a·name="l02681"></a><span·class="lineno">·2681</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02682"></a><span·class="lineno">·2682</span> sub·Create·{</div><div·class="line"><a·name="l02683"></a><span·class="lineno">·2683</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02684"></a><span·class="lineno">·2684</span> ····my·$p·=·named_parameters(\@_,·Name·=>·<span·class="stringliteral">'unnamed'</span>,·Width·=>·256,·Height·=>·256,·Bands·=>·1,·Type·=>·<span·class="stringliteral">'Byte'</span>,·Options·=>·{});</div><div·class="line"><a·name="l02685"></a><span·class="lineno">·2685</span> ····my·$type·=·s2i(data_type·=>·$p->{type});</div><div·class="line"><a·name="l02686"></a><span·class="lineno">·2686</span> ····<span·class="keywordflow">return</span>·$self->stdout_redirection_wrapper(</div><div·class="line"><a·name="l02687"></a><span·class="lineno">·2687</span> ········$p->{name},</div><div·class="line"><a·name="l02688"></a><span·class="lineno">·2688</span> ········$self->can(<span·class="stringliteral">'_Create'</span>),</div><div·class="line"><a·name="l02689"></a><span·class="lineno">·2689</span> ········$p->{width},·$p->{height},·$p->{bands},·$type,·$p->{options}</div><div·class="line"><a·name="l02690"></a><span·class="lineno">·2690</span> ····);</div><div·class="line"><a·name="l02691"></a><span·class="lineno">·2691</span> }</div><div·class="line"><a·name="l02692"></a><span·class="lineno">·2692</span> </div><div·class="line"><a·name="l02693"></a><span·class="lineno">·2693</span> <span·class="preprocessor">#**·@method·list·CreationDataTypes()</span></div><div·class="line"><a·name="l02694"></a><span·class="lineno">·2694</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02695"></a><span·class="lineno">·2695</span> <span·class="preprocessor">#·@return·a·list·of·data·types·that·can·be·used·for·new·datasets·of·this·format.·A·subset·of·Geo::GDAL::DataTypes</span></div><div·class="line"><a·name="l02696"></a><span·class="lineno">·2696</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02697"></a><span·class="lineno">·2697</span> sub·CreationDataTypes·{</div><div·class="line"><a·name="l02698"></a><span·class="lineno">·2698</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02699"></a><span·class="lineno">·2699</span> ····my·$h·=·$self->GetMetadata;</div><div·class="line"><a·name="l02700"></a><span·class="lineno">·2700</span> ····<span·class="keywordflow">return</span>·split·/\s+/,·$h->{DMD_CREATIONDATATYPES}·<span·class="keywordflow">if</span>·$h->{DMD_CREATIONDATATYPES};</div><div·class="line"><a·name="l02701"></a><span·class="lineno">·2701</span> }</div><div·class="line"><a·name="l02702"></a><span·class="lineno">·2702</span> </div><div·class="line"><a·name="l02703"></a><span·class="lineno">·2703</span> <span·class="preprocessor">#**·@method·list·CreationOptionList()</span></div><div·class="line"><a·name="l02704"></a><span·class="lineno">·2704</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02705"></a><span·class="lineno">·2705</span> <span·class="preprocessor">#·@return·a·list·of·options,·each·option·is·a·hashref,·the·keys·are</span></div><div·class="line"><a·name="l02706"></a><span·class="lineno">·2706</span> <span·class="preprocessor">#·name,·type·and·description·or·Value.·Value·is·a·listref.</span></div><div·class="line"><a·name="l02707"></a><span·class="lineno">·2707</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02708"></a><span·class="lineno">·2708</span> sub·CreationOptionList·{</div><div·class="line"><a·name="l02709"></a><span·class="lineno">·2709</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02710"></a><span·class="lineno">·2710</span> ····my·@options;</div><div·class="line"><a·name="l02711"></a><span·class="lineno">·2711</span> ····my·$h·=·$self->GetMetadata->{DMD_CREATIONOPTIONLIST};</div><div·class="line"><a·name="l02712"></a><span·class="lineno">·2712</span> ····<span·class="keywordflow">if</span>·($h)·{</div><div·class="line"><a·name="l02713"></a><span·class="lineno">·2713</span> ········$h·=·ParseXMLString($h);</div><div·class="line"><a·name="l02714"></a><span·class="lineno">·2714</span> ········my($type,·$value)·=·NodeData($h);</div><div·class="line"><a·name="l02715"></a><span·class="lineno">·2715</span> ········<span·class="keywordflow">if</span>·($value·eq·<span·class="stringliteral">'CreationOptionList'</span>)·{</div><div·class="line"><a·name="l02716"></a><span·class="lineno">·2716</span> ············<span·class="keywordflow">for</span>·my·$o·(Children($h))·{</div><div·class="line"><a·name="l02717"></a><span·class="lineno">·2717</span> ················my·%option;</div><div·class="line"><a·name="l02718"></a><span·class="lineno">·2718</span> ················<span·class="keywordflow">for</span>·my·$a·(Children($o))·{</div><div·class="line"><a·name="l02719"></a><span·class="lineno">·2719</span> ····················my(undef,·$key)·=·NodeData($a);</div><div·class="line"><a·name="l02720"></a><span·class="lineno">·2720</span> ····················my(undef,·$value)·=·NodeData(Child($a,·0));</div><div·class="line"><a·name="l02721"></a><span·class="lineno">·2721</span> ····················<span·class="keywordflow">if</span>·($key·eq·<span·class="stringliteral">'Value'</span>)·{</div><div·class="line"><a·name="l02722"></a><span·class="lineno">·2722</span> ························push·@{$option{$key}},·$value;</div><div·class="line"><a·name="l02723"></a><span·class="lineno">·2723</span> ····················}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l02724"></a><span·class="lineno">·2724</span> ························$option{$key}·=·$value;</div><div·class="line"><a·name="l02725"></a><span·class="lineno">·2725</span> ····················}</div><div·class="line"><a·name="l02726"></a><span·class="lineno">·2726</span> ················}</div><div·class="line"><a·name="l02727"></a><span·class="lineno">·2727</span> ················push·@options,·\%option;</div><div·class="line"><a·name="l02728"></a><span·class="lineno">·2728</span> ············}</div><div·class="line"><a·name="l02729"></a><span·class="lineno">·2729</span> ········}</div><div·class="line"><a·name="l02730"></a><span·class="lineno">·2730</span> ····}</div><div·class="line"><a·name="l02731"></a><span·class="lineno">·2731</span> ····<span·class="keywordflow">return</span>·@options;</div><div·class="line"><a·name="l02732"></a><span·class="lineno">·2732</span> }</div><div·class="line"><a·name="l02733"></a><span·class="lineno">·2733</span> </div><div·class="line"><a·name="l02734"></a><span·class="lineno">·2734</span> <span·class="preprocessor">#**·@method·Delete($name)</span></div><div·class="line"><a·name="l02735"></a><span·class="lineno">·2735</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02736"></a><span·class="lineno">·2736</span> <span·class="preprocessor">#·@param·name</span></div><div·class="line"><a·name="l02737"></a><span·class="lineno">·2737</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02738"></a><span·class="lineno">·2738</span> sub·Delete·{</div><div·class="line"><a·name="l02739"></a><span·class="lineno">·2739</span> }</div><div·class="line"><a·name="l02740"></a><span·class="lineno">·2740</span> </div><div·class="line"><a·name="l02741"></a><span·class="lineno">·2741</span> <span·class="preprocessor">#**·@method·Domains()</span></div><div·class="line"><a·name="l02742"></a><span·class="lineno">·2742</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02743"></a><span·class="lineno">·2743</span> sub·Domains·{</div><div·class="line"><a·name="l02744"></a><span·class="lineno">·2744</span> ····<span·class="keywordflow">return</span>·@DOMAINS;</div><div·class="line"><a·name="l02745"></a><span·class="lineno">·2745</span> }</div><div·class="line"><a·name="l02746"></a><span·class="lineno">·2746</span> </div><div·class="line"><a·name="l02747"></a><span·class="lineno">·2747</span> <span·class="preprocessor">#**·@method·scalar·Extension()</span></div><div·class="line"><a·name="l02748"></a><span·class="lineno">·2748</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02749"></a><span·class="lineno">·2749</span> <span·class="preprocessor">#·@note·The·returned·extension·does·not·contain·a·'.'·prefix.</span></div><div·class="line"><a·name="l02750"></a><span·class="lineno">·2750</span> <span·class="preprocessor">#·@return·a·suggested·single·extension·or·a·list·of·extensions·(in</span></div><div·class="line"><a·name="l02751"></a><span·class="lineno">·2751</span> <span·class="preprocessor">#·list·context)·for·datasets.</span></div><div·class="line"><a·name="l02752"></a><span·class="lineno">·2752</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02753"></a><span·class="lineno">·2753</span> sub·Extension·{</div><div·class="line"><a·name="l02754"></a><span·class="lineno">·2754</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02755"></a><span·class="lineno">·2755</span> ····my·$h·=·$self->GetMetadata;</div><div·class="line"><a·name="l02756"></a><span·class="lineno">·2756</span> ····<span·class="keywordflow">if</span>·(wantarray)·{</div><div·class="line"><a·name="l02757"></a><span·class="lineno">·2757</span> ········my·$e·=·$h->{DMD_EXTENSIONS};</div><div·class="line"><a·name="l02758"></a><span·class="lineno">·2758</span> ········my·@e·=·split·/·/,·$e;</div><div·class="line"><a·name="l02759"></a><span·class="lineno">·2759</span> ········@e·=·split·/\<span·class="comment">//,·$e·if·$e·=~·/\//;·#·ILWIS·returns·mpr/mpl</span></div><div·class="line"><a·name="l02760"></a><span·class="lineno">·2760</span> ········<span·class="keywordflow">for</span>·my·$i·(0..$#e)·{</div><div·class="line"><a·name="l02761"></a><span·class="lineno">·2761</span> ············$e[$i]·=~·s/^\.<span·class="comment">//;·#·CALS·returns·extensions·with·a·dot·prefix</span></div><div·class="line"><a·name="l02762"></a><span·class="lineno">·2762</span> ········}</div><div·class="line"><a·name="l02763"></a><span·class="lineno">·2763</span> ········<span·class="keywordflow">return</span>·@e;</div><div·class="line"><a·name="l02764"></a><span·class="lineno">·2764</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l02765"></a><span·class="lineno">·2765</span> ········my·$e·=·$h->{DMD_EXTENSION};</div><div·class="line"><a·name="l02766"></a><span·class="lineno">·2766</span> ········<span·class="keywordflow">return</span>·<span·class="stringliteral">''</span>·<span·class="keywordflow">if</span>·$e·=~·/\<span·class="comment">//;·#·ILWIS·returns·mpr/mpl</span></div><div·class="line"><a·name="l02767"></a><span·class="lineno">·2767</span> ········$e·=~·s/^\.<span·class="comment">//;</span></div><div·class="line"><a·name="l02768"></a><span·class="lineno">·2768</span> ········<span·class="keywordflow">return</span>·$e;</div><div·class="line"><a·name="l02769"></a><span·class="lineno">·2769</span> ····}</div><div·class="line"><a·name="l02770"></a><span·class="lineno">·2770</span> }</div><div·class="line"><a·name="l02771"></a><span·class="lineno">·2771</span> </div><div·class="line"><a·name="l02772"></a><span·class="lineno">·2772</span> <span·class="preprocessor">#**·@method·scalar·MIMEType()</span></div><div·class="line"><a·name="l02773"></a><span·class="lineno">·2773</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02774"></a><span·class="lineno">·2774</span> <span·class="preprocessor">#·@return·a·suggested·MIME·type·for·datasets.</span></div><div·class="line"><a·name="l02775"></a><span·class="lineno">·2775</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02776"></a><span·class="lineno">·2776</span> sub·MIMEType·{</div><div·class="line"><a·name="l02777"></a><span·class="lineno">·2777</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02778"></a><span·class="lineno">·2778</span> ····my·$h·=·$self->GetMetadata;</div><div·class="line"><a·name="l02779"></a><span·class="lineno">·2779</span> ····<span·class="keywordflow">return</span>·$h->{DMD_MIMETYPE};</div><div·class="line"><a·name="l02780"></a><span·class="lineno">·2780</span> }</div><div·class="line"><a·name="l02781"></a><span·class="lineno">·2781</span> </div><div·class="line"><a·name="l02782"></a><span·class="lineno">·2782</span> <span·class="preprocessor">#**·@method·scalar·Name()</span></div><div·class="line"><a·name="l02783"></a><span·class="lineno">·2783</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02784"></a><span·class="lineno">·2784</span> <span·class="preprocessor">#·@return·The·short·name·of·the·driver.</span></div><div·class="line"><a·name="l02785"></a><span·class="lineno">·2785</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02786"></a><span·class="lineno">·2786</span> sub·Name·{</div><div·class="line"><a·name="l02787"></a><span·class="lineno">·2787</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02788"></a><span·class="lineno">·2788</span> ····<span·class="keywordflow">return</span>·$self->{ShortName};</div><div·class="line"><a·name="l02789"></a><span·class="lineno">·2789</span> }</div><div·class="line"><a·name="l02790"></a><span·class="lineno">·2790</span> </div><div·class="line"><a·name="l02791"></a><span·class="lineno">·2791</span> <span·class="preprocessor">#**·@method·Open()</span></div><div·class="line"><a·name="l02792"></a><span·class="lineno">·2792</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02793"></a><span·class="lineno">·2793</span> <span·class="preprocessor">#·The·same·as·Geo::GDAL::Open·except·that·only·this·driver·is·allowed.</span></div><div·class="line"><a·name="l02794"></a><span·class="lineno">·2794</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02795"></a><span·class="lineno">·2795</span> sub·Open·{</div><div·class="line"><a·name="l02796"></a><span·class="lineno">·2796</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02797"></a><span·class="lineno">·2797</span> ····my·@p·=·@_;·#·name,·update</div><div·class="line"><a·name="l02798"></a><span·class="lineno">·2798</span> ····my·@flags·=·qw/RASTER/;</div><div·class="line"><a·name="l02799"></a><span·class="lineno">·2799</span> ····push·@flags,·qw/READONLY/·<span·class="keywordflow">if</span>·$p[1]·eq·<span·class="stringliteral">'ReadOnly'</span>;</div><div·class="line"><a·name="l02800"></a><span·class="lineno">·2800</span> ····push·@flags,·qw/UPDATE/·<span·class="keywordflow">if</span>·$p[1]·eq·<span·class="stringliteral">'Update'</span>;</div><div·class="line"><a·name="l02801"></a><span·class="lineno">·2801</span> ····my·$dataset·=·OpenEx($p[0],·\@flags,·[$self->Name()]);</div><div·class="line"><a·name="l02802"></a><span·class="lineno">·2802</span> ····error(<span·class="stringliteral">"Failed·to·open·$p[0].·Is·it·a·raster·dataset?"</span>)·unless·$dataset;</div><div·class="line"><a·name="l02803"></a><span·class="lineno">·2803</span> ····<span·class="keywordflow">return</span>·$dataset;</div><div·class="line"><a·name="l02804"></a><span·class="lineno">·2804</span> }</div><div·class="line"><a·name="l02805"></a><span·class="lineno">·2805</span> </div><div·class="line"><a·name="l02806"></a><span·class="lineno">·2806</span> <span·class="preprocessor">#**·@method·Rename($NewName,·$OldName)</span></div><div·class="line"><a·name="l02807"></a><span·class="lineno">·2807</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02808"></a><span·class="lineno">·2808</span> <span·class="preprocessor">#·Rename·(move)·a·GDAL·dataset.</span></div><div·class="line"><a·name="l02809"></a><span·class="lineno">·2809</span> <span·class="preprocessor">#·@param·NewName·String.</span></div><div·class="line"><a·name="l02810"></a><span·class="lineno">·2810</span> <span·class="preprocessor">#·@param·OldName·String.</span></div><div·class="line"><a·name="l02811"></a><span·class="lineno">·2811</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02812"></a><span·class="lineno">·2812</span> sub·Rename·{</div><div·class="line"><a·name="l02813"></a><span·class="lineno">·2813</span> }</div><div·class="line"><a·name="l02814"></a><span·class="lineno">·2814</span> </div><div·class="line"><a·name="l02815"></a><span·class="lineno">·2815</span> <span·class="preprocessor">#**·@method·scalar·TestCapability($cap)</span></div><div·class="line"><a·name="l02816"></a><span·class="lineno">·2816</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02817"></a><span·class="lineno">·2817</span> <span·class="preprocessor">#·Test·whether·the·driver·has·the·specified·capability.</span></div><div·class="line"><a·name="l02818"></a><span·class="lineno">·2818</span> <span·class="preprocessor">#·@param·cap·A·capability·string·(one·of·those·returned·by·Capabilities).</span></div><div·class="line"><a·name="l02819"></a><span·class="lineno">·2819</span> <span·class="preprocessor">#·@return·a·boolean·value.</span></div><div·class="line"><a·name="l02820"></a><span·class="lineno">·2820</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02821"></a><span·class="lineno">·2821</span> sub·TestCapability·{</div><div·class="line"><a·name="l02822"></a><span·class="lineno">·2822</span> ····my($self,·$cap)·=·@_;</div><div·class="line"><a·name="l02823"></a><span·class="lineno">·2823</span> ····my·$h·=·$self->GetMetadata->{<span·class="stringliteral">'DCAP_'</span>.uc($cap)};</div><div·class="line"><a·name="l02824"></a><span·class="lineno">·2824</span> ····<span·class="keywordflow">return</span>·(defined($h)·and·$h·eq·<span·class="stringliteral">'YES'</span>)·?·1·:·undef;</div><div·class="line"><a·name="l02825"></a><span·class="lineno">·2825</span> }</div><div·class="line"><a·name="l02826"></a><span·class="lineno">·2826</span> </div><div·class="line"><a·name="l02827"></a><span·class="lineno">·2827</span> <span·class="preprocessor">#**·@method·stdout_redirection_wrapper()</span></div><div·class="line"><a·name="l02828"></a><span·class="lineno">·2828</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02829"></a><span·class="lineno">·2829</span> sub·stdout_redirection_wrapper·{</div><div·class="line"><a·name="l02830"></a><span·class="lineno">·2830</span> ····my·($self,·$name,·$sub,·@params)·=·@_;</div><div·class="line"><a·name="l02831"></a><span·class="lineno">·2831</span> ····my·$object·=·0;</div><div·class="line"><a·name="l02832"></a><span·class="lineno">·2832</span> ····<span·class="keywordflow">if</span>·($name·&&·blessed·$name)·{</div><div·class="line"><a·name="l02833"></a><span·class="lineno">·2833</span> ········$object·=·$name;</div><div·class="line"><a·name="l02834"></a><span·class="lineno">·2834</span> ········my·$ref·=·$object->can(<span·class="stringliteral">'write'</span>);</div><div·class="line"><a·name="l02835"></a><span·class="lineno">·2835</span> ········VSIStdoutSetRedirection($ref);</div><div·class="line"><a·name="l02836"></a><span·class="lineno">·2836</span> ········$name·=·<span·class="stringliteral">'/vsistdout/'</span>;</div><div·class="line"><a·name="l02837"></a><span·class="lineno">·2837</span> ····}</div><div·class="line"><a·name="l02838"></a><span·class="lineno">·2838</span> ····my·$ds;</div><div·class="line"><a·name="l02839"></a><span·class="lineno">·2839</span> ····eval·{</div><div·class="line"><a·name="l02840"></a><span·class="lineno">·2840</span> ········$ds·=·$sub->($self,·$name,·@params);</div><div·class="line"><a·name="l02841"></a><span·class="lineno">·2841</span> ····};</div><div·class="line"><a·name="l02842"></a><span·class="lineno">·2842</span> ····<span·class="keywordflow">if</span>·($object)·{</div><div·class="line"><a·name="l02843"></a><span·class="lineno">·2843</span> ········<span·class="keywordflow">if</span>·($ds)·{</div><div·class="line"><a·name="l02844"></a><span·class="lineno">·2844</span> ············$Geo::GDAL::stdout_redirection{tied(%$ds)}·=·$object;</div><div·class="line"><a·name="l02845"></a><span·class="lineno">·2845</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l02846"></a><span·class="lineno">·2846</span> ············VSIStdoutUnsetRedirection();</div><div·class="line"><a·name="l02847"></a><span·class="lineno">·2847</span> ············$object->close;</div><div·class="line"><a·name="l02848"></a><span·class="lineno">·2848</span> ········}</div><div·class="line"><a·name="l02849"></a><span·class="lineno">·2849</span> ····}</div><div·class="line"><a·name="l02850"></a><span·class="lineno">·2850</span> ····confess(last_error())·<span·class="keywordflow">if</span>·$@;</div><div·class="line"><a·name="l02851"></a><span·class="lineno">·2851</span> ····confess(<span·class="stringliteral">"Failed.·Use·Geo::OGR::Driver·for·vector·drivers."</span>)·unless·$ds;</div><div·class="line"><a·name="l02852"></a><span·class="lineno">·2852</span> ····<span·class="keywordflow">return</span>·$ds;</div><div·class="line"><a·name="l02853"></a><span·class="lineno">·2853</span> }</div><div·class="line"><a·name="l02854"></a><span·class="lineno">·2854</span> </div><div·class="line"><a·name="l02855"></a><span·class="lineno">·2855</span> <span·class="preprocessor">#**·@class·Geo::GDAL::Extent</span></div><div·class="line"><a·name="l02856"></a><span·class="lineno">·2856</span> <span·class="preprocessor">#·@brief·A·rectangular·area·in·projection·coordinates:·xmin,·ymin,·xmax,·ymax.</span></div><div·class="line"><a·name="l02857"></a><span·class="lineno">·2857</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02858"></a><span·class="lineno">·2858</span> <span·class="keyword">package·</span>Geo::GDAL::Extent;</div><div·class="line"><a·name="l02859"></a><span·class="lineno">·2859</span> </div><div·class="line"><a·name="l02860"></a><span·class="lineno">·2860</span> <span·class="preprocessor">#**·@method·ExpandToInclude($extent)</span></div><div·class="line"><a·name="l02861"></a><span·class="lineno">·2861</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l02862"></a><span·class="lineno">·2862</span> <span·class="preprocessor">#·Extends·this·extent·to·include·the·other·extent.</span></div><div·class="line"><a·name="l02863"></a><span·class="lineno">·2863</span> <span·class="preprocessor">#·@param·extent·Another·Geo::GDAL::Extent·object.</span></div><div·class="line"><a·name="l02864"></a><span·class="lineno">·2864</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02865"></a><span·class="lineno">·2865</span> sub·ExpandToInclude·{</div><div·class="line"><a·name="l02866"></a><span·class="lineno">·2866</span> ····my·($self,·$e)·=·@_;</div><div·class="line"><a·name="l02867"></a><span·class="lineno">·2867</span> ····<span·class="keywordflow">return</span>·<span·class="keywordflow">if</span>·$e->IsEmpty;</div><div·class="line"><a·name="l02868"></a><span·class="lineno">·2868</span> ····<span·class="keywordflow">if</span>·($self->IsEmpty)·{</div><div·class="line"><a·name="l02869"></a><span·class="lineno">·2869</span> ········@$self·=·@$e;</div><div·class="line"><a·name="l02870"></a><span·class="lineno">·2870</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l02871"></a><span·class="lineno">·2871</span> ········$self->[0]·=·$e->[0]·<span·class="keywordflow">if</span>·$e->[0]·<·$self->[0];</div><div·class="line"><a·name="l02872"></a><span·class="lineno">·2872</span> ········$self->[1]·=·$e->[1]·<span·class="keywordflow">if</span>·$e->[1]·<·$self->[1];</div><div·class="line"><a·name="l02873"></a><span·class="lineno">·2873</span> ········$self->[2]·=·$e->[2]·<span·class="keywordflow">if</span>·$e->[2]·>·$self->[2];</div><div·class="line"><a·name="l02874"></a><span·class="lineno">·2874</span> ········$self->[3]·=·$e->[3]·<span·class="keywordflow">if</span>·$e->[3]·>·$self->[3];</div><div·class="line"><a·name="l02875"></a><span·class="lineno">·2875</span> ····}</div><div·class="line"><a·name="l02876"></a><span·class="lineno">·2876</span> }</div><div·class="line"><a·name="l02877"></a><span·class="lineno">·2877</span> </div><div·class="line"><a·name="l02878"></a><span·class="lineno">·2878</span> <span·class="preprocessor">#**·@method·IsEmpty()</span></div><div·class="line"><a·name="l02879"></a><span·class="lineno">·2879</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02880"></a><span·class="lineno">·2880</span> sub·IsEmpty·{</div><div·class="line"><a·name="l02881"></a><span·class="lineno">·2881</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02882"></a><span·class="lineno">·2882</span> ····<span·class="keywordflow">return</span>·$self->[2]·<·$self->[0];</div><div·class="line"><a·name="l02883"></a><span·class="lineno">·2883</span> }</div><div·class="line"><a·name="l02884"></a><span·class="lineno">·2884</span> </div><div·class="line"><a·name="l02885"></a><span·class="lineno">·2885</span> <span·class="preprocessor">#**·@method·scalar·Overlap($extent)</span></div><div·class="line"><a·name="l02886"></a><span·class="lineno">·2886</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l02887"></a><span·class="lineno">·2887</span> <span·class="preprocessor">#·@param·extent·Another·Geo::GDAL::Extent·object.</span></div><div·class="line"><a·name="l02888"></a><span·class="lineno">·2888</span> <span·class="preprocessor">#·@return·A·new,·possibly·empty,·Geo::GDAL::Extent·object,·which</span></div><div·class="line"><a·name="l02889"></a><span·class="lineno">·2889</span> <span·class="preprocessor">#·represents·the·joint·area·of·the·two·extents.</span></div><div·class="line"><a·name="l02890"></a><span·class="lineno">·2890</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02891"></a><span·class="lineno">·2891</span> sub·Overlap·{</div><div·class="line"><a·name="l02892"></a><span·class="lineno">·2892</span> ····my·($self,·$e)·=·@_;</div><div·class="line"><a·name="l02893"></a><span·class="lineno">·2893</span> ····<span·class="keywordflow">return</span>·<a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html">Geo::GDAL::Extent</a>-><a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html#aaa908458e9aaa398762601ae2b466e9a">new</a>()·unless·$self-><a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html#a1e5050fbe9a954a8256530bbde05a44b">Overlaps</a>($e);</div><div·class="line"><a·name="l02894"></a><span·class="lineno">·2894</span> ····my·$ret·=·<a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html">Geo::GDAL::Extent</a>-><a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html#aaa908458e9aaa398762601ae2b466e9a">new</a>($self);</div><div·class="line"><a·name="l02895"></a><span·class="lineno">·2895</span> ····$ret->[0]·=·$e->[0]·<span·class="keywordflow">if</span>·$self->[0]·<·$e->[0];</div><div·class="line"><a·name="l02896"></a><span·class="lineno">·2896</span> ····$ret->[1]·=·$e->[1]·<span·class="keywordflow">if</span>·$self->[1]·<·$e->[1];</div><div·class="line"><a·name="l02897"></a><span·class="lineno">·2897</span> ····$ret->[2]·=·$e->[2]·<span·class="keywordflow">if</span>·$self->[2]·>·$e->[2];</div><div·class="line"><a·name="l02898"></a><span·class="lineno">·2898</span> ····$ret->[3]·=·$e->[3]·<span·class="keywordflow">if</span>·$self->[3]·>·$e->[3];</div><div·class="line"><a·name="l02899"></a><span·class="lineno">·2899</span> ····<span·class="keywordflow">return</span>·$ret;</div><div·class="line"><a·name="l02900"></a><span·class="lineno">·2900</span> }</div><div·class="line"><a·name="l02901"></a><span·class="lineno">·2901</span> </div><div·class="line"><a·name="l02902"></a><span·class="lineno">·2902</span> <span·class="preprocessor">#**·@method·scalar·Overlaps($extent)</span></div><div·class="line"><a·name="l02903"></a><span·class="lineno">·2903</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l02904"></a><span·class="lineno">·2904</span> <span·class="preprocessor">#·@param·extent·Another·Geo::GDAL::Extent·object.</span></div><div·class="line"><a·name="l02905"></a><span·class="lineno">·2905</span> <span·class="preprocessor">#·@return·True·if·this·extent·overlaps·the·other·extent,·false·otherwise.</span></div><div·class="line"><a·name="l02906"></a><span·class="lineno">·2906</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02907"></a><span·class="lineno">·2907</span> sub·Overlaps·{</div><div·class="line"><a·name="l02908"></a><span·class="lineno">·2908</span> ····my·($self,·$e)·=·@_;</div><div·class="line"><a·name="l02909"></a><span·class="lineno">·2909</span> ····<span·class="keywordflow">return</span>·$self->[0]·<·$e->[2]·&&·$self->[2]·>·$e->[0]·&&·$self->[1]·<·$e->[3]·&&·$self->[3]·>·$e->[1];</div><div·class="line"><a·name="l02910"></a><span·class="lineno">·2910</span> }</div><div·class="line"><a·name="l02911"></a><span·class="lineno">·2911</span> </div><div·class="line"><a·name="l02912"></a><span·class="lineno">·2912</span> <span·class="preprocessor">#**·@method·list·Size()</span></div><div·class="line"><a·name="l02913"></a><span·class="lineno">·2913</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l02914"></a><span·class="lineno">·2914</span> <span·class="preprocessor">#·@return·A·list·($width,·$height).</span></div><div·class="line"><a·name="l02915"></a><span·class="lineno">·2915</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02916"></a><span·class="lineno">·2916</span> sub·Size·{</div><div·class="line"><a·name="l02917"></a><span·class="lineno">·2917</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02918"></a><span·class="lineno">·2918</span> ····<span·class="keywordflow">return</span>·(0,0)·<span·class="keywordflow">if</span>·$self-><a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html#aa942cb038cedd3cc105cba53c332bdf9">IsEmpty</a>;</div><div·class="line"><a·name="l02919"></a><span·class="lineno">·2919</span> ····<span·class="keywordflow">return</span>·($self->[2]·-·$self->[0],·$self->[3]·-·$self->[1]);</div><div·class="line"><a·name="l02920"></a><span·class="lineno">·2920</span> }</div><div·class="line"><a·name="l02921"></a><span·class="lineno">·2921</span> </div><div·class="line"><a·name="l02922"></a><span·class="lineno">·2922</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Extent·new(@params)</span></div><div·class="line"><a·name="l02923"></a><span·class="lineno">·2923</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l02924"></a><span·class="lineno">·2924</span> <span·class="preprocessor">#·@param·params·nothing,·a·list·($xmin,·$ymin,·$xmax,·$ymax),·or·an·Extent·object</span></div><div·class="line"><a·name="l02925"></a><span·class="lineno">·2925</span> <span·class="preprocessor">#·@return·A·new·Extent·object·(empty·if·no·parameters,·a·copy·of·the·parameter·if·it·is·an·Extent·object).</span></div><div·class="line"><a·name="l02926"></a><span·class="lineno">·2926</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02927"></a><span·class="lineno">·2927</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l02928"></a><span·class="lineno">·2928</span> ····my·$class·=·shift;</div><div·class="line"><a·name="l02929"></a><span·class="lineno">·2929</span> ····my·$self;</div><div·class="line"><a·name="l02930"></a><span·class="lineno">·2930</span> ····<span·class="keywordflow">if</span>·(@_·==·0)·{</div><div·class="line"><a·name="l02931"></a><span·class="lineno">·2931</span> ········$self·=·[0,0,-1,0];</div><div·class="line"><a·name="l02932"></a><span·class="lineno">·2932</span> ····}·elsif·(ref·$_[0])·{</div><div·class="line"><a·name="l02933"></a><span·class="lineno">·2933</span> ········@$self·=·@{$_[0]};</div><div·class="line"><a·name="l02934"></a><span·class="lineno">·2934</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l02935"></a><span·class="lineno">·2935</span> ········@$self·=·@_;</div><div·class="line"><a·name="l02936"></a><span·class="lineno">·2936</span> ····}</div><div·class="line"><a·name="l02937"></a><span·class="lineno">·2937</span> ····bless·$self,·$class;</div><div·class="line"><a·name="l02938"></a><span·class="lineno">·2938</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l02939"></a><span·class="lineno">·2939</span> }</div><div·class="line"><a·name="l02940"></a><span·class="lineno">·2940</span> </div><div·class="line"><a·name="l02941"></a><span·class="lineno">·2941</span> <span·class="preprocessor">#**·@class·Geo::GDAL::GCP</span></div><div·class="line"><a·name="l02942"></a><span·class="lineno">·2942</span> <span·class="preprocessor">#·@brief·A·ground·control·point·for·georeferencing·rasters.</span></div><div·class="line"><a·name="l02943"></a><span·class="lineno">·2943</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l02944"></a><span·class="lineno">·2944</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02945"></a><span·class="lineno">·2945</span> <span·class="keyword">package·</span>Geo::GDAL::GCP;</div><div·class="line"><a·name="l02946"></a><span·class="lineno">·2946</span> </div><div·class="line"><a·name="l02947"></a><span·class="lineno">·2947</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1GDAL.html">Geo::GDAL</a>)</div><div·class="line"><a·name="l02948"></a><span·class="lineno">·2948</span> </div><div·class="line"><a·name="l02949"></a><span·class="lineno">·2949</span> <span·class="preprocessor">#**·@attr·$Column·</span></div><div·class="line"><a·name="l02950"></a><span·class="lineno">·2950</span> <span·class="preprocessor">#·cell·x·coordinate·(access·as·$gcp->{Column})</span></div><div·class="line"><a·name="l02951"></a><span·class="lineno">·2951</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02952"></a><span·class="lineno">·2952</span> </div><div·class="line"><a·name="l02953"></a><span·class="lineno">·2953</span> <span·class="preprocessor">#**·@attr·$Id·</span></div><div·class="line"><a·name="l02954"></a><span·class="lineno">·2954</span> <span·class="preprocessor">#·unique·identifier·(string)·(access·as·$gcp->{Id})</span></div><div·class="line"><a·name="l02955"></a><span·class="lineno">·2955</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02956"></a><span·class="lineno">·2956</span> </div><div·class="line"><a·name="l02957"></a><span·class="lineno">·2957</span> <span·class="preprocessor">#**·@attr·$Info·</span></div><div·class="line"><a·name="l02958"></a><span·class="lineno">·2958</span> <span·class="preprocessor">#·informational·message·(access·as·$gcp->{Info})</span></div><div·class="line"><a·name="l02959"></a><span·class="lineno">·2959</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02960"></a><span·class="lineno">·2960</span> </div><div·class="line"><a·name="l02961"></a><span·class="lineno">·2961</span> <span·class="preprocessor">#**·@attr·$Row·</span></div><div·class="line"><a·name="l02962"></a><span·class="lineno">·2962</span> <span·class="preprocessor">#·cell·y·coordinate·(access·as·$gcp->{Row})</span></div><div·class="line"><a·name="l02963"></a><span·class="lineno">·2963</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02964"></a><span·class="lineno">·2964</span> </div><div·class="line"><a·name="l02965"></a><span·class="lineno">·2965</span> <span·class="preprocessor">#**·@attr·$X·</span></div><div·class="line"><a·name="l02966"></a><span·class="lineno">·2966</span> <span·class="preprocessor">#·projection·coordinate·(access·as·$gcp->{X})</span></div><div·class="line"><a·name="l02967"></a><span·class="lineno">·2967</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02968"></a><span·class="lineno">·2968</span> </div><div·class="line"><a·name="l02969"></a><span·class="lineno">·2969</span> <span·class="preprocessor">#**·@attr·$Y·</span></div><div·class="line"><a·name="l02970"></a><span·class="lineno">·2970</span> <span·class="preprocessor">#·projection·coordinate·(access·as·$gcp->{Y})</span></div><div·class="line"><a·name="l02971"></a><span·class="lineno">·2971</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02972"></a><span·class="lineno">·2972</span> </div><div·class="line"><a·name="l02973"></a><span·class="lineno">·2973</span> <span·class="preprocessor">#**·@attr·$Z·</span></div><div·class="line"><a·name="l02974"></a><span·class="lineno">·2974</span> <span·class="preprocessor">#·projection·coordinate·(access·as·$gcp->{Z})</span></div><div·class="line"><a·name="l02975"></a><span·class="lineno">·2975</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02976"></a><span·class="lineno">·2976</span> </div><div·class="line"><a·name="l02977"></a><span·class="lineno">·2977</span> <span·class="preprocessor">#**·@method·scalar·new($x·=·0.0,·$y·=·0.0,·$z·=·0.0,·$column·=·0.0,·$row·=·0.0,·$info·=·"",·$id·=·"")</span></div><div·class="line"><a·name="l02978"></a><span·class="lineno">·2978</span> <span·class="preprocessor">#·Class·method.</span></div><div·class="line"><a·name="l02979"></a><span·class="lineno">·2979</span> <span·class="preprocessor">#·@param·x·projection·coordinate</span></div><div·class="line"><a·name="l02980"></a><span·class="lineno">·2980</span> <span·class="preprocessor">#·@param·y·projection·coordinate</span></div><div·class="line"><a·name="l02981"></a><span·class="lineno">·2981</span> <span·class="preprocessor">#·@param·z·projection·coordinate</span></div><div·class="line"><a·name="l02982"></a><span·class="lineno">·2982</span> <span·class="preprocessor">#·@param·column·cell·x·coordinate</span></div><div·class="line"><a·name="l02983"></a><span·class="lineno">·2983</span> <span·class="preprocessor">#·@param·row·cell·y·coordinate</span></div><div·class="line"><a·name="l02984"></a><span·class="lineno">·2984</span> <span·class="preprocessor">#·@param·info·informational·message</span></div><div·class="line"><a·name="l02985"></a><span·class="lineno">·2985</span> <span·class="preprocessor">#·@param·id·unique·identifier·(string)</span></div><div·class="line"><a·name="l02986"></a><span·class="lineno">·2986</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::GCP·object</span></div><div·class="line"><a·name="l02987"></a><span·class="lineno">·2987</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02988"></a><span·class="lineno">·2988</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l02989"></a><span·class="lineno">·2989</span> ····my·$pkg·=·shift;</div><div·class="line"><a·name="l02990"></a><span·class="lineno">·2990</span> ····my·$self·=·Geo::GDALc::new_GCP(@_);</div><div·class="line"><a·name="l02991"></a><span·class="lineno">·2991</span> ····bless·$self,·$pkg·<span·class="keywordflow">if</span>·defined($self);</div><div·class="line"><a·name="l02992"></a><span·class="lineno">·2992</span> }</div><div·class="line"><a·name="l02993"></a><span·class="lineno">·2993</span> </div><div·class="line"><a·name="l02994"></a><span·class="lineno">·2994</span> <span·class="preprocessor">#**·@class·Geo::GDAL::GeoTransform</span></div><div·class="line"><a·name="l02995"></a><span·class="lineno">·2995</span> <span·class="preprocessor">#·@brief·An·array·of·affine·transformation·coefficients.</span></div><div·class="line"><a·name="l02996"></a><span·class="lineno">·2996</span> <span·class="preprocessor">#·@details·The·geo·transformation·has·the·form</span></div><div·class="line"><a·name="l02997"></a><span·class="lineno">·2997</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l02998"></a><span·class="lineno">·2998</span> <span·class="preprocessor">#·x·=·a·+·column·*·b·+·row·*·c</span></div><div·class="line"><a·name="l02999"></a><span·class="lineno">·2999</span> <span·class="preprocessor">#·y·=·d·+·column·*·e·+·row·*·f</span></div><div·class="line"><a·name="l03000"></a><span·class="lineno">·3000</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l03001"></a><span·class="lineno">·3001</span> <span·class="preprocessor">#·where</span></div><div·class="line"><a·name="l03002"></a><span·class="lineno">·3002</span> <span·class="preprocessor">#·(column,row)·is·the·location·in·cell·coordinates,·and</span></div><div·class="line"><a·name="l03003"></a><span·class="lineno">·3003</span> <span·class="preprocessor">#·(x,y)·is·the·location·in·projection·coordinates,·or·vice·versa.</span></div><div·class="line"><a·name="l03004"></a><span·class="lineno">·3004</span> <span·class="preprocessor">#·A·Geo::GDAL::GeoTransform·object·is·a·reference·to·an·anonymous·array·[a,b,c,d,e,f].</span></div><div·class="line"><a·name="l03005"></a><span·class="lineno">·3005</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03006"></a><span·class="lineno">·3006</span> <span·class="keyword">package·</span>Geo::GDAL::GeoTransform;</div><div·class="line"><a·name="l03007"></a><span·class="lineno">·3007</span> </div><div·class="line"><a·name="l03008"></a><span·class="lineno">·3008</span> <span·class="preprocessor">#**·@method·Apply($x,·$y)</span></div><div·class="line"><a·name="l03009"></a><span·class="lineno">·3009</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03010"></a><span·class="lineno">·3010</span> <span·class="preprocessor">#·@param·x·Column·or·x,·or·a·reference·to·an·array·of·columns·or·x's</span></div><div·class="line"><a·name="l03011"></a><span·class="lineno">·3011</span> <span·class="preprocessor">#·@param·y·Row·or·y,·or·a·reference·to·an·array·of·rows·or·y's</span></div><div·class="line"><a·name="l03012"></a><span·class="lineno">·3012</span> <span·class="preprocessor">#·@return·a·list·(x,·y),·where·x·and·y·are·the·transformed·coordinates</span></div><div·class="line"><a·name="l03013"></a><span·class="lineno">·3013</span> <span·class="preprocessor">#·or·references·to·arrays·of·transformed·coordinates.</span></div><div·class="line"><a·name="l03014"></a><span·class="lineno">·3014</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03015"></a><span·class="lineno">·3015</span> sub·Apply·{</div><div·class="line"><a·name="l03016"></a><span·class="lineno">·3016</span> ····my·($self,·$columns,·$rows)·=·@_;</div><div·class="line"><a·name="l03017"></a><span·class="lineno">·3017</span> ····<span·class="keywordflow">return</span>·Geo::GDAL::ApplyGeoTransform($self,·$columns,·$rows)·unless·ref($columns)·eq·<span·class="stringliteral">'ARRAY'</span>;</div><div·class="line"><a·name="l03018"></a><span·class="lineno">·3018</span> ····my·(@x,·@y);</div><div·class="line"><a·name="l03019"></a><span·class="lineno">·3019</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$#$columns)·{</div><div·class="line"><a·name="l03020"></a><span·class="lineno">·3020</span> ········($x[$i],·$y[$i])·=</div><div·class="line"><a·name="l03021"></a><span·class="lineno">·3021</span> ············Geo::GDAL::ApplyGeoTransform($self,·$columns->[$i],·$rows->[$i]);</div><div·class="line"><a·name="l03022"></a><span·class="lineno">·3022</span> ····}</div><div·class="line"><a·name="l03023"></a><span·class="lineno">·3023</span> ····<span·class="keywordflow">return</span>·(\@x,·\@y);</div><div·class="line"><a·name="l03024"></a><span·class="lineno">·3024</span> }</div><div·class="line"><a·name="l03025"></a><span·class="lineno">·3025</span> </div><div·class="line"><a·name="l03026"></a><span·class="lineno">·3026</span> <span·class="preprocessor">#**·@method·Inv()</span></div><div·class="line"><a·name="l03027"></a><span·class="lineno">·3027</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03028"></a><span·class="lineno">·3028</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::GeoTransform·object,·which·is·the·inverse</span></div><div·class="line"><a·name="l03029"></a><span·class="lineno">·3029</span> <span·class="preprocessor">#·of·this·one·(in·void·context·changes·this·object).</span></div><div·class="line"><a·name="l03030"></a><span·class="lineno">·3030</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03031"></a><span·class="lineno">·3031</span> sub·Inv·{</div><div·class="line"><a·name="l03032"></a><span·class="lineno">·3032</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l03033"></a><span·class="lineno">·3033</span> ····my·@inv·=·Geo::GDAL::InvGeoTransform($self);</div><div·class="line"><a·name="l03034"></a><span·class="lineno">·3034</span> ····<span·class="keywordflow">return</span>·<a·class="code"·href="classGeo_1_1GDAL_1_1GeoTransform.html">Geo::GDAL::GeoTransform</a>-><a·class="code"·href="classGeo_1_1GDAL_1_1GeoTransform.html#a47df3828bccbfe26899b47f87a8e65b4">new</a>(@inv)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l03035"></a><span·class="lineno">·3035</span> ····@$self·=·@inv;</div><div·class="line"><a·name="l03036"></a><span·class="lineno">·3036</span> }</div><div·class="line"><a·name="l03037"></a><span·class="lineno">·3037</span> </div><div·class="line"><a·name="l03038"></a><span·class="lineno">·3038</span> <span·class="preprocessor">#**·@method·NorthUp()</span></div><div·class="line"><a·name="l03039"></a><span·class="lineno">·3039</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03040"></a><span·class="lineno">·3040</span> sub·NorthUp·{</div><div·class="line"><a·name="l03041"></a><span·class="lineno">·3041</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l03042"></a><span·class="lineno">·3042</span> ····<span·class="keywordflow">return</span>·$self->[2]·==·0·&&·$self->[4]·==·0;</div><div·class="line"><a·name="l03043"></a><span·class="lineno">·3043</span> }</div><div·class="line"><a·name="l03044"></a><span·class="lineno">·3044</span> </div><div·class="line"><a·name="l03045"></a><span·class="lineno">·3045</span> <span·class="preprocessor">#**·@method·new(@params)</span></div><div·class="line"><a·name="l03046"></a><span·class="lineno">·3046</span> <span·class="preprocessor">#·Class·method.</span></div><div·class="line"><a·name="l03047"></a><span·class="lineno">·3047</span> <span·class="preprocessor">#·@param·params·nothing,·a·reference·to·an·array·[a,b,c,d,e,f],·a·list</span></div><div·class="line"><a·name="l03048"></a><span·class="lineno">·3048</span> <span·class="preprocessor">#·(a,b,c,d,e,f),·or·named·parameters</span></div><div·class="line"><a·name="l03049"></a><span·class="lineno">·3049</span> <span·class="preprocessor">#·-·\a·GCPs·A·reference·to·an·array·of·Geo::GDAL::GCP·objects.</span></div><div·class="line"><a·name="l03050"></a><span·class="lineno">·3050</span> <span·class="preprocessor">#·-·\a·ApproxOK·Minimize·the·error·in·the·coefficients·(integer,·default·is·1·(true),·used·with·GCPs).</span></div><div·class="line"><a·name="l03051"></a><span·class="lineno">·3051</span> <span·class="preprocessor">#·-·\a·Extent·A·Geo::GDAL::Extent·object·used·to·obtain·the·coordinates·of·the·up·left·corner·position.</span></div><div·class="line"><a·name="l03052"></a><span·class="lineno">·3052</span> <span·class="preprocessor">#·-·\a·CellSize·The·cell·size·(width·and·height)·(default·is·1,·used·with·Extent).</span></div><div·class="line"><a·name="l03053"></a><span·class="lineno">·3053</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l03054"></a><span·class="lineno">·3054</span> <span·class="preprocessor">#·@note·When·Extent·is·specifid,·the·created·geo·transform·will·be</span></div><div·class="line"><a·name="l03055"></a><span·class="lineno">·3055</span> <span·class="preprocessor">#·north·up,·have·square·cells,·and·coefficient·f·will·be·-1·times·the</span></div><div·class="line"><a·name="l03056"></a><span·class="lineno">·3056</span> <span·class="preprocessor">#·cell·size·(image·y·-·row·-·will·increase·downwards·and·projection·y</span></div><div·class="line"><a·name="l03057"></a><span·class="lineno">·3057</span> <span·class="preprocessor">#·will·increase·upwards).</span></div><div·class="line"><a·name="l03058"></a><span·class="lineno">·3058</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::GeoTransform·object.</span></div><div·class="line"><a·name="l03059"></a><span·class="lineno">·3059</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03060"></a><span·class="lineno">·3060</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l03061"></a><span·class="lineno">·3061</span> ····my·$class·=·shift;</div><div·class="line"><a·name="l03062"></a><span·class="lineno">·3062</span> ····my·$self;</div><div·class="line"><a·name="l03063"></a><span·class="lineno">·3063</span> ····<span·class="keywordflow">if</span>·(@_·==·0)·{</div><div·class="line"><a·name="l03064"></a><span·class="lineno">·3064</span> ········$self·=·[0,1,0,0,0,1];</div><div·class="line"><a·name="l03065"></a><span·class="lineno">·3065</span> ····}·elsif·(ref·$_[0])·{</div><div·class="line"><a·name="l03066"></a><span·class="lineno">·3066</span> ········@$self·=·@{$_[0]};</div><div·class="line"><a·name="l03067"></a><span·class="lineno">·3067</span> ····}·elsif·($_[0]·=~·/^[a-zA-Z]/i)·{</div><div·class="line"><a·name="l03068"></a><span·class="lineno">·3068</span> ········my·$p·=·named_parameters(\@_,·GCPs·=>·undef,·ApproxOK·=>·1,·<a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html">Extent</a>·=>·undef,·CellSize·=>·1);</div><div·class="line"><a·name="l03069"></a><span·class="lineno">·3069</span> ········<span·class="keywordflow">if</span>·($p->{gcps})·{</div><div·class="line"><a·name="l03070"></a><span·class="lineno">·3070</span> ············$self·=·Geo::GDAL::GCPsToGeoTransform($p->{gcps},·$p->{approxok});</div><div·class="line"><a·name="l03071"></a><span·class="lineno">·3071</span> ········}·elsif·($p->{extent})·{</div><div·class="line"><a·name="l03072"></a><span·class="lineno">·3072</span> ············$self·=·<a·class="code"·href="classGeo_1_1GDAL_1_1GeoTransform.html">Geo::GDAL::GeoTransform</a>-><a·class="code"·href="classGeo_1_1GDAL_1_1GeoTransform.html#a47df3828bccbfe26899b47f87a8e65b4">new</a>($p->{extent}[0],·$p->{cellsize},·0,·$p->{extent}[2],·0,·-$p->{cellsize});</div><div·class="line"><a·name="l03073"></a><span·class="lineno">·3073</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l03074"></a><span·class="lineno">·3074</span> ············error(<span·class="stringliteral">"Missing·GCPs·or·Extent"</span>);</div><div·class="line"><a·name="l03075"></a><span·class="lineno">·3075</span> ········}</div><div·class="line"><a·name="l03076"></a><span·class="lineno">·3076</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l03077"></a><span·class="lineno">·3077</span> ········my·@a·=·@_;</div><div·class="line"><a·name="l03078"></a><span·class="lineno">·3078</span> ········$self·=·\@a;</div><div·class="line"><a·name="l03079"></a><span·class="lineno">·3079</span> ····}</div><div·class="line"><a·name="l03080"></a><span·class="lineno">·3080</span> ····bless·$self,·$class;</div><div·class="line"><a·name="l03081"></a><span·class="lineno">·3081</span> }</div><div·class="line"><a·name="l03082"></a><span·class="lineno">·3082</span> </div><div·class="line"><a·name="l03083"></a><span·class="lineno">·3083</span> <span·class="preprocessor">#**·@class·Geo::GDAL::MajorObject</span></div><div·class="line"><a·name="l03084"></a><span·class="lineno">·3084</span> <span·class="preprocessor">#·@brief·An·object,·which·holds·meta·data.</span></div><div·class="line"><a·name="l03085"></a><span·class="lineno">·3085</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l03086"></a><span·class="lineno">·3086</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03087"></a><span·class="lineno">·3087</span> <span·class="keyword">package·</span>Geo::GDAL::MajorObject;</div><div·class="line"><a·name="l03088"></a><span·class="lineno">·3088</span> </div><div·class="line"><a·name="l03089"></a><span·class="lineno">·3089</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1GDAL.html">Geo::GDAL</a>)</div><div·class="line"><a·name="l03090"></a><span·class="lineno">·3090</span> </div><div·class="line"><a·name="l03091"></a><span·class="lineno">·3091</span> <span·class="preprocessor">#**·@method·scalar·Description($description)</span></div><div·class="line"><a·name="l03092"></a><span·class="lineno">·3092</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03093"></a><span·class="lineno">·3093</span> <span·class="preprocessor">#·@param·description·[optional]</span></div><div·class="line"><a·name="l03094"></a><span·class="lineno">·3094</span> <span·class="preprocessor">#·@return·the·description·in·a·non-void·context.</span></div><div·class="line"><a·name="l03095"></a><span·class="lineno">·3095</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03096"></a><span·class="lineno">·3096</span> sub·Description·{</div><div·class="line"><a·name="l03097"></a><span·class="lineno">·3097</span> ····my($self,·$desc)·=·@_;</div><div·class="line"><a·name="l03098"></a><span·class="lineno">·3098</span> ····SetDescription($self,·$desc)·<span·class="keywordflow">if</span>·defined·$desc;</div><div·class="line"><a·name="l03099"></a><span·class="lineno">·3099</span> ····GetDescription($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l03100"></a><span·class="lineno">·3100</span> }</div><div·class="line"><a·name="l03101"></a><span·class="lineno">·3101</span> </div><div·class="line"><a·name="l03102"></a><span·class="lineno">·3102</span> <span·class="preprocessor">#**·@method·Domains()</span></div><div·class="line"><a·name="l03103"></a><span·class="lineno">·3103</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03104"></a><span·class="lineno">·3104</span> <span·class="preprocessor">#·@return·the·class·specific·DOMAINS·list</span></div><div·class="line"><a·name="l03105"></a><span·class="lineno">·3105</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03106"></a><span·class="lineno">·3106</span> sub·Domains·{</div><div·class="line"><a·name="l03107"></a><span·class="lineno">·3107</span> ····<span·class="keywordflow">return</span>·@DOMAINS;</div><div·class="line"><a·name="l03108"></a><span·class="lineno">·3108</span> }</div><div·class="line"><a·name="l03109"></a><span·class="lineno">·3109</span> </div><div·class="line"><a·name="l03110"></a><span·class="lineno">·3110</span> <span·class="preprocessor">#**·@method·scalar·GetDescription()</span></div><div·class="line"><a·name="l03111"></a><span·class="lineno">·3111</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03112"></a><span·class="lineno">·3112</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03113"></a><span·class="lineno">·3113</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03114"></a><span·class="lineno">·3114</span> sub·GetDescription·{</div><div·class="line"><a·name="l03115"></a><span·class="lineno">·3115</span> }</div><div·class="line"><a·name="l03116"></a><span·class="lineno">·3116</span> </div><div·class="line"><a·name="l03117"></a><span·class="lineno">·3117</span> <span·class="preprocessor">#**·@method·hash·reference·GetMetadata($domain·=·"")</span></div><div·class="line"><a·name="l03118"></a><span·class="lineno">·3118</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03119"></a><span·class="lineno">·3119</span> <span·class="preprocessor">#·@note·see·Metadata</span></div><div·class="line"><a·name="l03120"></a><span·class="lineno">·3120</span> <span·class="preprocessor">#·@param·domain</span></div><div·class="line"><a·name="l03121"></a><span·class="lineno">·3121</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03122"></a><span·class="lineno">·3122</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03123"></a><span·class="lineno">·3123</span> sub·GetMetadata·{</div><div·class="line"><a·name="l03124"></a><span·class="lineno">·3124</span> }</div><div·class="line"><a·name="l03125"></a><span·class="lineno">·3125</span> </div><div·class="line"><a·name="l03126"></a><span·class="lineno">·3126</span> <span·class="preprocessor">#**·@method·GetMetadataDomainList()</span></div><div·class="line"><a·name="l03127"></a><span·class="lineno">·3127</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03128"></a><span·class="lineno">·3128</span> sub·GetMetadataDomainList·{</div><div·class="line"><a·name="l03129"></a><span·class="lineno">·3129</span> }</div><div·class="line"><a·name="l03130"></a><span·class="lineno">·3130</span> </div><div·class="line"><a·name="l03131"></a><span·class="lineno">·3131</span> <span·class="preprocessor">#**·@method·hash·reference·Metadata(hashref·metadata·=·undef,·$domain·=·'')</span></div><div·class="line"><a·name="l03132"></a><span·class="lineno">·3132</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03133"></a><span·class="lineno">·3133</span> <span·class="preprocessor">#·@param·metadata</span></div><div·class="line"><a·name="l03134"></a><span·class="lineno">·3134</span> <span·class="preprocessor">#·@param·domain</span></div><div·class="line"><a·name="l03135"></a><span·class="lineno">·3135</span> <span·class="preprocessor">#·@return·the·metadata·in·a·non-void·context.</span></div><div·class="line"><a·name="l03136"></a><span·class="lineno">·3136</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03137"></a><span·class="lineno">·3137</span> sub·Metadata·{</div><div·class="line"><a·name="l03138"></a><span·class="lineno">·3138</span> ····my·$self·=·shift,</div><div·class="line"><a·name="l03139"></a><span·class="lineno">·3139</span> ····my·$metadata·=·ref·$_[0]·?·shift·:·undef;</div><div·class="line"><a·name="l03140"></a><span·class="lineno">·3140</span> ····my·$domain·=·shift·<span·class="comment">//·'';</span></div><div·class="line"><a·name="l03141"></a><span·class="lineno">·3141</span> ····SetMetadata($self,·$metadata,·$domain)·<span·class="keywordflow">if</span>·defined·$metadata;</div><div·class="line"><a·name="l03142"></a><span·class="lineno">·3142</span> ····GetMetadata($self,·$domain)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l03143"></a><span·class="lineno">·3143</span> }</div><div·class="line"><a·name="l03144"></a><span·class="lineno">·3144</span> </div><div·class="line"><a·name="l03145"></a><span·class="lineno">·3145</span> <span·class="preprocessor">#**·@method·SetDescription($NewDesc)</span></div><div·class="line"><a·name="l03146"></a><span·class="lineno">·3146</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03147"></a><span·class="lineno">·3147</span> <span·class="preprocessor">#·@param·NewDesc</span></div><div·class="line"><a·name="l03148"></a><span·class="lineno">·3148</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l03149"></a><span·class="lineno">·3149</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03150"></a><span·class="lineno">·3150</span> sub·SetDescription·{</div><div·class="line"><a·name="l03151"></a><span·class="lineno">·3151</span> }</div><div·class="line"><a·name="l03152"></a><span·class="lineno">·3152</span> </div><div·class="line"><a·name="l03153"></a><span·class="lineno">·3153</span> <span·class="preprocessor">#**·@method·SetMetadata(hashref·metadata,·$domain·=·"")</span></div><div·class="line"><a·name="l03154"></a><span·class="lineno">·3154</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03155"></a><span·class="lineno">·3155</span> <span·class="preprocessor">#·@note·see·Metadata</span></div><div·class="line"><a·name="l03156"></a><span·class="lineno">·3156</span> <span·class="preprocessor">#·@param·metadata</span></div><div·class="line"><a·name="l03157"></a><span·class="lineno">·3157</span> <span·class="preprocessor">#·@param·domain</span></div><div·class="line"><a·name="l03158"></a><span·class="lineno">·3158</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l03159"></a><span·class="lineno">·3159</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03160"></a><span·class="lineno">·3160</span> sub·SetMetadata·{</div><div·class="line"><a·name="l03161"></a><span·class="lineno">·3161</span> }</div><div·class="line"><a·name="l03162"></a><span·class="lineno">·3162</span> </div><div·class="line"><a·name="l03163"></a><span·class="lineno">·3163</span> <span·class="preprocessor">#**·@class·Geo::GDAL::RasterAttributeTable</span></div><div·class="line"><a·name="l03164"></a><span·class="lineno">·3164</span> <span·class="preprocessor">#·@brief·An·attribute·table·in·a·raster·band.</span></div><div·class="line"><a·name="l03165"></a><span·class="lineno">·3165</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l03166"></a><span·class="lineno">·3166</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03167"></a><span·class="lineno">·3167</span> <span·class="keyword">package·</span>Geo::GDAL::RasterAttributeTable;</div><div·class="line"><a·name="l03168"></a><span·class="lineno">·3168</span> </div><div·class="line"><a·name="l03169"></a><span·class="lineno">·3169</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1GDAL.html">Geo::GDAL</a>)</div><div·class="line"><a·name="l03170"></a><span·class="lineno">·3170</span> </div><div·class="line"><a·name="l03171"></a><span·class="lineno">·3171</span> <span·class="preprocessor">#**·@method·Band()</span></div><div·class="line"><a·name="l03172"></a><span·class="lineno">·3172</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03173"></a><span·class="lineno">·3173</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1Band.html">Band</a>·{</div><div·class="line"><a·name="l03174"></a><span·class="lineno">·3174</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l03175"></a><span·class="lineno">·3175</span> ····parent($self);</div><div·class="line"><a·name="l03176"></a><span·class="lineno">·3176</span> }</div><div·class="line"><a·name="l03177"></a><span·class="lineno">·3177</span> </div><div·class="line"><a·name="l03178"></a><span·class="lineno">·3178</span> <span·class="preprocessor">#**·@method·ChangesAreWrittenToFile()</span></div><div·class="line"><a·name="l03179"></a><span·class="lineno">·3179</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03180"></a><span·class="lineno">·3180</span> sub·ChangesAreWrittenToFile·{</div><div·class="line"><a·name="l03181"></a><span·class="lineno">·3181</span> }</div><div·class="line"><a·name="l03182"></a><span·class="lineno">·3182</span> </div><div·class="line"><a·name="l03183"></a><span·class="lineno">·3183</span> <span·class="preprocessor">#**·@method·Geo::GDAL::RasterAttributeTable·Clone()</span></div><div·class="line"><a·name="l03184"></a><span·class="lineno">·3184</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03185"></a><span·class="lineno">·3185</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::RasterAttributeTable·object</span></div><div·class="line"><a·name="l03186"></a><span·class="lineno">·3186</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03187"></a><span·class="lineno">·3187</span> sub·Clone·{</div><div·class="line"><a·name="l03188"></a><span·class="lineno">·3188</span> }</div><div·class="line"><a·name="l03189"></a><span·class="lineno">·3189</span> </div><div·class="line"><a·name="l03190"></a><span·class="lineno">·3190</span> <span·class="preprocessor">#**·@method·hash·Columns(%columns)</span></div><div·class="line"><a·name="l03191"></a><span·class="lineno">·3191</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03192"></a><span·class="lineno">·3192</span> <span·class="preprocessor">#·A·get/set·method·for·the·columns·of·the·RAT</span></div><div·class="line"><a·name="l03193"></a><span·class="lineno">·3193</span> <span·class="preprocessor">#·@param·columns·optional,·a·the·keys·are·column·names·and·the·values·are·anonymous</span></div><div·class="line"><a·name="l03194"></a><span·class="lineno">·3194</span> <span·class="preprocessor">#·hashes·with·keys·Type·and·Usage</span></div><div·class="line"><a·name="l03195"></a><span·class="lineno">·3195</span> <span·class="preprocessor">#·@return·a·hash·similar·to·the·optional·input·parameter</span></div><div·class="line"><a·name="l03196"></a><span·class="lineno">·3196</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03197"></a><span·class="lineno">·3197</span> sub·Columns·{</div><div·class="line"><a·name="l03198"></a><span·class="lineno">·3198</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l03199"></a><span·class="lineno">·3199</span> ····my·%columns;</div><div·class="line"><a·name="l03200"></a><span·class="lineno">·3200</span> ····<span·class="keywordflow">if</span>·(@_)·{·#·create·columns</div><div·class="line"><a·name="l03201"></a><span·class="lineno">·3201</span> ········%columns·=·@_;</div><div·class="line"><a·name="l03202"></a><span·class="lineno">·3202</span> ········<span·class="keywordflow">for</span>·my·$name·(keys·%columns)·{</div><div·class="line"><a·name="l03203"></a><span·class="lineno">·3203</span> ············$self->CreateColumn($name,·$columns{$name}{Type},·$columns{$name}{Usage});</div><div·class="line"><a·name="l03204"></a><span·class="lineno">·3204</span> ········}</div><div·class="line"><a·name="l03205"></a><span·class="lineno">·3205</span> ····}</div><div·class="line"><a·name="l03206"></a><span·class="lineno">·3206</span> ····%columns·=·();</div><div·class="line"><a·name="l03207"></a><span·class="lineno">·3207</span> ····<span·class="keywordflow">for</span>·my·$c·(0..$self->GetColumnCount-1)·{</div><div·class="line"><a·name="l03208"></a><span·class="lineno">·3208</span> ········my·$name·=·$self->GetNameOfCol($c);</div><div·class="line"><a·name="l03209"></a><span·class="lineno">·3209</span> ········$columns{$name}{Type}·=·$self->GetTypeOfCol($c);</div><div·class="line"><a·name="l03210"></a><span·class="lineno">·3210</span> ········$columns{$name}{Usage}·=·$self->GetUsageOfCol($c);</div><div·class="line"><a·name="l03211"></a><span·class="lineno">·3211</span> ····}</div><div·class="line"><a·name="l03212"></a><span·class="lineno">·3212</span> ····<span·class="keywordflow">return</span>·%columns;</div><div·class="line"><a·name="l03213"></a><span·class="lineno">·3213</span> }</div><div·class="line"><a·name="l03214"></a><span·class="lineno">·3214</span> </div><div·class="line"><a·name="l03215"></a><span·class="lineno">·3215</span> <span·class="preprocessor">#**·@method·CreateColumn($name,·$type,·$usage)</span></div><div·class="line"><a·name="l03216"></a><span·class="lineno">·3216</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03217"></a><span·class="lineno">·3217</span> <span·class="preprocessor">#·@param·name</span></div><div·class="line"><a·name="l03218"></a><span·class="lineno">·3218</span> <span·class="preprocessor">#·@param·type·one·of·FieldTypes</span></div><div·class="line"><a·name="l03219"></a><span·class="lineno">·3219</span> <span·class="preprocessor">#·@param·usage·one·of·FieldUsages</span></div><div·class="line"><a·name="l03220"></a><span·class="lineno">·3220</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03221"></a><span·class="lineno">·3221</span> sub·CreateColumn·{</div><div·class="line"><a·name="l03222"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1ColorTable.html">·3222</a></span> ····my($self,·$name,·$type,·$usage)·=·@_;</div><div·class="line"><a·name="l03223"></a><span·class="lineno">·3223</span> ····<span·class="keywordflow">for</span>·my·$color·(qw/Red·Green·Blue·Alpha/)·{</div><div·class="line"><a·name="l03224"></a><span·class="lineno">·3224</span> ········carp·<span·class="stringliteral">"RAT·column·type·will·be·'Integer'·for·usage·'$color'."</span>·<span·class="keywordflow">if</span>·$usage·eq·$color·and·$type·ne·<span·class="stringliteral">'Integer'</span>;</div><div·class="line"><a·name="l03225"></a><span·class="lineno">·3225</span> ····}</div><div·class="line"><a·name="l03226"></a><span·class="lineno">·3226</span> ····$type·=·s2i(rat_field_type·=>·$type);</div><div·class="line"><a·name="l03227"></a><span·class="lineno">·3227</span> ····$usage·=·s2i(rat_field_usage·=>·$usage);</div><div·class="line"><a·name="l03228"></a><span·class="lineno">·3228</span> ····_CreateColumn($self,·$name,·$type,·$usage);</div><div·class="line"><a·name="l03229"></a><span·class="lineno">·3229</span> }</div><div·class="line"><a·name="l03230"></a><span·class="lineno">·3230</span> </div><div·class="line"><a·name="l03231"></a><span·class="lineno">·3231</span> <span·class="preprocessor">#**·@method·DumpReadable()</span></div><div·class="line"><a·name="l03232"></a><span·class="lineno">·3232</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03233"></a><span·class="lineno">·3233</span> sub·DumpReadable·{</div><div·class="line"><a·name="l03234"></a><span·class="lineno">·3234</span> }</div><div·class="line"><a·name="l03235"></a><span·class="lineno">·3235</span> </div><div·class="line"><a·name="l03236"></a><span·class="lineno">·3236</span> <span·class="preprocessor">#**·@method·list·FieldTypes()</span></div><div·class="line"><a·name="l03237"></a><span·class="lineno">·3237</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03238"></a><span·class="lineno">·3238</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03239"></a><span·class="lineno">·3239</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03240"></a><span·class="lineno">·3240</span> sub·FieldTypes·{</div><div·class="line"><a·name="l03241"></a><span·class="lineno">·3241</span> ····<span·class="keywordflow">return</span>·@FIELD_TYPES;</div><div·class="line"><a·name="l03242"></a><span·class="lineno">·3242</span> }</div><div·class="line"><a·name="l03243"></a><span·class="lineno">·3243</span> </div><div·class="line"><a·name="l03244"></a><span·class="lineno">·3244</span> <span·class="preprocessor">#**·@method·list·FieldUsages()</span></div><div·class="line"><a·name="l03245"></a><span·class="lineno">·3245</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03246"></a><span·class="lineno">·3246</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03247"></a><span·class="lineno">·3247</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03248"></a><span·class="lineno">·3248</span> sub·FieldUsages·{</div><div·class="line"><a·name="l03249"></a><span·class="lineno">·3249</span> ····<span·class="keywordflow">return</span>·@FIELD_USAGES;</div><div·class="line"><a·name="l03250"></a><span·class="lineno">·3250</span> }</div><div·class="line"><a·name="l03251"></a><span·class="lineno">·3251</span> </div><div·class="line"><a·name="l03252"></a><span·class="lineno">·3252</span> <span·class="preprocessor">#**·@method·scalar·GetColOfUsage($usage)</span></div><div·class="line"><a·name="l03253"></a><span·class="lineno">·3253</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03254"></a><span·class="lineno">·3254</span> <span·class="preprocessor">#·@param·usage</span></div><div·class="line"><a·name="l03255"></a><span·class="lineno">·3255</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03256"></a><span·class="lineno">·3256</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03257"></a><span·class="lineno">·3257</span> sub·GetColOfUsage·{</div><div·class="line"><a·name="l03258"></a><span·class="lineno">·3258</span> ····my($self,·$usage)·=·@_;</div><div·class="line"><a·name="l03259"></a><span·class="lineno">·3259</span> ····_GetColOfUsage($self,·s2i(rat_field_usage·=>·$usage));</div><div·class="line"><a·name="l03260"></a><span·class="lineno">·3260</span> }</div><div·class="line"><a·name="l03261"></a><span·class="lineno">·3261</span> </div><div·class="line"><a·name="l03262"></a><span·class="lineno">·3262</span> <span·class="preprocessor">#**·@method·scalar·GetColumnCount()</span></div><div·class="line"><a·name="l03263"></a><span·class="lineno">·3263</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03264"></a><span·class="lineno">·3264</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03265"></a><span·class="lineno">·3265</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03266"></a><span·class="lineno">·3266</span> sub·GetColumnCount·{</div><div·class="line"><a·name="l03267"></a><span·class="lineno">·3267</span> }</div><div·class="line"><a·name="l03268"></a><span·class="lineno">·3268</span> </div><div·class="line"><a·name="l03269"></a><span·class="lineno">·3269</span> <span·class="preprocessor">#**·@method·scalar·GetNameOfCol($column)</span></div><div·class="line"><a·name="l03270"></a><span·class="lineno">·3270</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03271"></a><span·class="lineno">·3271</span> <span·class="preprocessor">#·@param·column</span></div><div·class="line"><a·name="l03272"></a><span·class="lineno">·3272</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03273"></a><span·class="lineno">·3273</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03274"></a><span·class="lineno">·3274</span> sub·GetNameOfCol·{</div><div·class="line"><a·name="l03275"></a><span·class="lineno">·3275</span> }</div><div·class="line"><a·name="l03276"></a><span·class="lineno">·3276</span> </div><div·class="line"><a·name="l03277"></a><span·class="lineno">·3277</span> <span·class="preprocessor">#**·@method·scalar·GetRowCount()</span></div><div·class="line"><a·name="l03278"></a><span·class="lineno">·3278</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03279"></a><span·class="lineno">·3279</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03280"></a><span·class="lineno">·3280</span> sub·GetRowCount·{</div><div·class="line"><a·name="l03281"></a><span·class="lineno">·3281</span> }</div><div·class="line"><a·name="l03282"></a><span·class="lineno">·3282</span> </div><div·class="line"><a·name="l03283"></a><span·class="lineno">·3283</span> <span·class="preprocessor">#**·@method·scalar·GetRowOfValue($value)</span></div><div·class="line"><a·name="l03284"></a><span·class="lineno">·3284</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03285"></a><span·class="lineno">·3285</span> <span·class="preprocessor">#·@param·value·a·cell·value</span></div><div·class="line"><a·name="l03286"></a><span·class="lineno">·3286</span> <span·class="preprocessor">#·@return·row·index·or·-1</span></div><div·class="line"><a·name="l03287"></a><span·class="lineno">·3287</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03288"></a><span·class="lineno">·3288</span> sub·GetRowOfValue·{</div><div·class="line"><a·name="l03289"></a><span·class="lineno">·3289</span> }</div><div·class="line"><a·name="l03290"></a><span·class="lineno">·3290</span> </div><div·class="line"><a·name="l03291"></a><span·class="lineno">·3291</span> <span·class="preprocessor">#**·@method·GetTableType()</span></div><div·class="line"><a·name="l03292"></a><span·class="lineno">·3292</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03293"></a><span·class="lineno">·3293</span> sub·GetTableType·{</div><div·class="line"><a·name="l03294"></a><span·class="lineno">·3294</span> }</div><div·class="line"><a·name="l03295"></a><span·class="lineno">·3295</span> </div><div·class="line"><a·name="l03296"></a><span·class="lineno">·3296</span> <span·class="preprocessor">#**·@method·scalar·GetTypeOfCol($column)</span></div><div·class="line"><a·name="l03297"></a><span·class="lineno">·3297</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03298"></a><span·class="lineno">·3298</span> <span·class="preprocessor">#·@param·column</span></div><div·class="line"><a·name="l03299"></a><span·class="lineno">·3299</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03300"></a><span·class="lineno">·3300</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03301"></a><span·class="lineno">·3301</span> sub·GetTypeOfCol·{</div><div·class="line"><a·name="l03302"></a><span·class="lineno">·3302</span> ····my($self,·$col)·=·@_;</div><div·class="line"><a·name="l03303"></a><span·class="lineno">·3303</span> ····i2s(rat_field_type·=>·_GetTypeOfCol($self,·$col));</div><div·class="line"><a·name="l03304"></a><span·class="lineno">·3304</span> }</div><div·class="line"><a·name="l03305"></a><span·class="lineno">·3305</span> </div><div·class="line"><a·name="l03306"></a><span·class="lineno">·3306</span> <span·class="preprocessor">#**·@method·scalar·GetUsageOfCol($column)</span></div><div·class="line"><a·name="l03307"></a><span·class="lineno">·3307</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03308"></a><span·class="lineno">·3308</span> <span·class="preprocessor">#·@param·column</span></div><div·class="line"><a·name="l03309"></a><span·class="lineno">·3309</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03310"></a><span·class="lineno">·3310</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03311"></a><span·class="lineno">·3311</span> sub·GetUsageOfCol·{</div><div·class="line"><a·name="l03312"></a><span·class="lineno">·3312</span> ····my($self,·$col)·=·@_;</div><div·class="line"><a·name="l03313"></a><span·class="lineno">·3313</span> ····i2s(rat_field_usage·=>·_GetUsageOfCol($self,·$col));</div><div·class="line"><a·name="l03314"></a><span·class="lineno">·3314</span> }</div><div·class="line"><a·name="l03315"></a><span·class="lineno">·3315</span> </div><div·class="line"><a·name="l03316"></a><span·class="lineno">·3316</span> <span·class="preprocessor">#**·@method·scalar·GetValueAsDouble($row,·$column)</span></div><div·class="line"><a·name="l03317"></a><span·class="lineno">·3317</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03318"></a><span·class="lineno">·3318</span> <span·class="preprocessor">#·@param·row</span></div><div·class="line"><a·name="l03319"></a><span·class="lineno">·3319</span> <span·class="preprocessor">#·@param·column</span></div><div·class="line"><a·name="l03320"></a><span·class="lineno">·3320</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03321"></a><span·class="lineno">·3321</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03322"></a><span·class="lineno">·3322</span> sub·GetValueAsDouble·{</div><div·class="line"><a·name="l03323"></a><span·class="lineno">·3323</span> }</div><div·class="line"><a·name="l03324"></a><span·class="lineno">·3324</span> </div><div·class="line"><a·name="l03325"></a><span·class="lineno">·3325</span> <span·class="preprocessor">#**·@method·scalar·GetValueAsInt($row,·$column)</span></div><div·class="line"><a·name="l03326"></a><span·class="lineno">·3326</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03327"></a><span·class="lineno">·3327</span> <span·class="preprocessor">#·@param·row</span></div><div·class="line"><a·name="l03328"></a><span·class="lineno">·3328</span> <span·class="preprocessor">#·@param·column</span></div><div·class="line"><a·name="l03329"></a><span·class="lineno">·3329</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03330"></a><span·class="lineno">·3330</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03331"></a><span·class="lineno">·3331</span> sub·GetValueAsInt·{</div><div·class="line"><a·name="l03332"></a><span·class="lineno">·3332</span> }</div><div·class="line"><a·name="l03333"></a><span·class="lineno">·3333</span> </div><div·class="line"><a·name="l03334"></a><span·class="lineno">·3334</span> <span·class="preprocessor">#**·@method·scalar·GetValueAsString($row,·$column)</span></div><div·class="line"><a·name="l03335"></a><span·class="lineno">·3335</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03336"></a><span·class="lineno">·3336</span> <span·class="preprocessor">#·@param·row</span></div><div·class="line"><a·name="l03337"></a><span·class="lineno">·3337</span> <span·class="preprocessor">#·@param·column</span></div><div·class="line"><a·name="l03338"></a><span·class="lineno">·3338</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03339"></a><span·class="lineno">·3339</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03340"></a><span·class="lineno">·3340</span> sub·GetValueAsString·{</div><div·class="line"><a·name="l03341"></a><span·class="lineno">·3341</span> }</div><div·class="line"><a·name="l03342"></a><span·class="lineno">·3342</span> </div><div·class="line"><a·name="l03343"></a><span·class="lineno">·3343</span> <span·class="preprocessor">#**·@method·LinearBinning($Row0MinIn,·$BinSizeIn)</span></div><div·class="line"><a·name="l03344"></a><span·class="lineno">·3344</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03345"></a><span·class="lineno">·3345</span> <span·class="preprocessor">#·@param·Row0MinIn·[optional]·the·lower·bound·(cell·value)·of·the·first·category.</span></div><div·class="line"><a·name="l03346"></a><span·class="lineno">·3346</span> <span·class="preprocessor">#·@param·BinSizeIn·[optional]·the·width·of·each·category·(in·cell·value·units).</span></div><div·class="line"><a·name="l03347"></a><span·class="lineno">·3347</span> <span·class="preprocessor">#·@return·($Row0MinIn,·$BinSizeIn)·or·an·empty·list·if·LinearBinning·is·not·set.</span></div><div·class="line"><a·name="l03348"></a><span·class="lineno">·3348</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03349"></a><span·class="lineno">·3349</span> sub·LinearBinning·{</div><div·class="line"><a·name="l03350"></a><span·class="lineno">·3350</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l03351"></a><span·class="lineno">·3351</span> ····SetLinearBinning($self,·@_)·<span·class="keywordflow">if</span>·@_·>·0;</div><div·class="line"><a·name="l03352"></a><span·class="lineno">·3352</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l03353"></a><span·class="lineno">·3353</span> ····my·@a·=·GetLinearBinning($self);</div><div·class="line"><a·name="l03354"></a><span·class="lineno">·3354</span> ····<span·class="keywordflow">return</span>·$a[0]·?·($a[1],·$a[2])·:·();</div><div·class="line"><a·name="l03355"></a><span·class="lineno">·3355</span> }</div><div·class="line"><a·name="l03356"></a><span·class="lineno">·3356</span> </div><div·class="line"><a·name="l03357"></a><span·class="lineno">·3357</span> <span·class="preprocessor">#**·@method·SetRowCount($count)</span></div><div·class="line"><a·name="l03358"></a><span·class="lineno">·3358</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03359"></a><span·class="lineno">·3359</span> <span·class="preprocessor">#·@param·count</span></div><div·class="line"><a·name="l03360"></a><span·class="lineno">·3360</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l03361"></a><span·class="lineno">·3361</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03362"></a><span·class="lineno">·3362</span> sub·SetRowCount·{</div><div·class="line"><a·name="l03363"></a><span·class="lineno">·3363</span> }</div><div·class="line"><a·name="l03364"></a><span·class="lineno">·3364</span> </div><div·class="line"><a·name="l03365"></a><span·class="lineno">·3365</span> <span·class="preprocessor">#**·@method·SetTableType()</span></div><div·class="line"><a·name="l03366"></a><span·class="lineno">·3366</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03367"></a><span·class="lineno">·3367</span> sub·SetTableType·{</div><div·class="line"><a·name="l03368"></a><span·class="lineno">·3368</span> }</div><div·class="line"><a·name="l03369"></a><span·class="lineno">·3369</span> </div><div·class="line"><a·name="l03370"></a><span·class="lineno">·3370</span> <span·class="preprocessor">#**·@method·SetValueAsDouble($row,·$column,·$value)</span></div><div·class="line"><a·name="l03371"></a><span·class="lineno">·3371</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03372"></a><span·class="lineno">·3372</span> <span·class="preprocessor">#·@param·row</span></div><div·class="line"><a·name="l03373"></a><span·class="lineno">·3373</span> <span·class="preprocessor">#·@param·column</span></div><div·class="line"><a·name="l03374"></a><span·class="lineno">·3374</span> <span·class="preprocessor">#·@param·value</span></div><div·class="line"><a·name="l03375"></a><span·class="lineno">·3375</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l03376"></a><span·class="lineno">·3376</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03377"></a><span·class="lineno">·3377</span> sub·SetValueAsDouble·{</div><div·class="line"><a·name="l03378"></a><span·class="lineno">·3378</span> }</div><div·class="line"><a·name="l03379"></a><span·class="lineno">·3379</span> </div><div·class="line"><a·name="l03380"></a><span·class="lineno">·3380</span> <span·class="preprocessor">#**·@method·SetValueAsInt($row,·$column,·$value)</span></div><div·class="line"><a·name="l03381"></a><span·class="lineno">·3381</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03382"></a><span·class="lineno">·3382</span> <span·class="preprocessor">#·@param·row</span></div><div·class="line"><a·name="l03383"></a><span·class="lineno">·3383</span> <span·class="preprocessor">#·@param·column</span></div><div·class="line"><a·name="l03384"></a><span·class="lineno">·3384</span> <span·class="preprocessor">#·@param·value</span></div><div·class="line"><a·name="l03385"></a><span·class="lineno">·3385</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l03386"></a><span·class="lineno">·3386</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03387"></a><span·class="lineno">·3387</span> sub·SetValueAsInt·{</div><div·class="line"><a·name="l03388"></a><span·class="lineno">·3388</span> }</div><div·class="line"><a·name="l03389"></a><span·class="lineno">·3389</span> </div><div·class="line"><a·name="l03390"></a><span·class="lineno">·3390</span> <span·class="preprocessor">#**·@method·SetValueAsString($row,·$column,·$value)</span></div><div·class="line"><a·name="l03391"></a><span·class="lineno">·3391</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03392"></a><span·class="lineno">·3392</span> <span·class="preprocessor">#·@param·row</span></div><div·class="line"><a·name="l03393"></a><span·class="lineno">·3393</span> <span·class="preprocessor">#·@param·column</span></div><div·class="line"><a·name="l03394"></a><span·class="lineno">·3394</span> <span·class="preprocessor">#·@param·value</span></div><div·class="line"><a·name="l03395"></a><span·class="lineno">·3395</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l03396"></a><span·class="lineno">·3396</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03397"></a><span·class="lineno">·3397</span> sub·SetValueAsString·{</div><div·class="line"><a·name="l03398"></a><span·class="lineno">·3398</span> }</div><div·class="line"><a·name="l03399"></a><span·class="lineno">·3399</span> </div><div·class="line"><a·name="l03400"></a><span·class="lineno">·3400</span> <span·class="preprocessor">#**·@method·scalar·Value($row,·$column,·$value)</span></div><div·class="line"><a·name="l03401"></a><span·class="lineno">·3401</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03402"></a><span·class="lineno">·3402</span> <span·class="preprocessor">#·@param·row</span></div><div·class="line"><a·name="l03403"></a><span·class="lineno">·3403</span> <span·class="preprocessor">#·@param·column</span></div><div·class="line"><a·name="l03404"></a><span·class="lineno">·3404</span> <span·class="preprocessor">#·@param·value·[optional]</span></div><div·class="line"><a·name="l03405"></a><span·class="lineno">·3405</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03406"></a><span·class="lineno">·3406</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03407"></a><span·class="lineno">·3407</span> sub·Value·{</div><div·class="line"><a·name="l03408"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Dataset.html">·3408</a></span> ····my($self,·$row,·$column)·=·@_;</div><div·class="line"><a·name="l03409"></a><span·class="lineno">·3409</span> ····SetValueAsString($self,·$row,·$column,·$_[3])·<span·class="keywordflow">if</span>·defined·$_[3];</div><div·class="line"><a·name="l03410"></a><span·class="lineno">·3410</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l03411"></a><span·class="lineno">·3411</span> ····GetValueAsString($self,·$row,·$column);</div><div·class="line"><a·name="l03412"></a><span·class="lineno">·3412</span> }</div><div·class="line"><a·name="l03413"></a><span·class="lineno">·3413</span> </div><div·class="line"><a·name="l03414"></a><span·class="lineno">·3414</span> <span·class="preprocessor">#**·@method·Geo::GDAL::RasterAttributeTable·new()</span></div><div·class="line"><a·name="l03415"></a><span·class="lineno">·3415</span> <span·class="preprocessor">#·Class·method.</span></div><div·class="line"><a·name="l03416"></a><span·class="lineno">·3416</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::RasterAttributeTable·object</span></div><div·class="line"><a·name="l03417"></a><span·class="lineno">·3417</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03418"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Dataset.html#a5508e7a73757a8fa525310d99d02d383">·3418</a></span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l03419"></a><span·class="lineno">·3419</span> ····my·$pkg·=·shift;</div><div·class="line"><a·name="l03420"></a><span·class="lineno">·3420</span> ····my·$self·=·Geo::GDALc::new_RasterAttributeTable(@_);</div><div·class="line"><a·name="l03421"></a><span·class="lineno">·3421</span> ····bless·$self,·$pkg·<span·class="keywordflow">if</span>·defined($self);</div><div·class="line"><a·name="l03422"></a><span·class="lineno">·3422</span> }</div><div·class="line"><a·name="l03423"></a><span·class="lineno">·3423</span> </div><div·class="line"><a·name="l03424"></a><span·class="lineno">·3424</span> <span·class="preprocessor">#**·@class·Geo::GDAL::Transformer</span></div><div·class="line"><a·name="l03425"></a><span·class="lineno">·3425</span> <span·class="preprocessor">#·@brief</span></div><div·class="line"><a·name="l03426"></a><span·class="lineno">·3426</span> <span·class="preprocessor">#·@details·This·class·is·not·yet·documented·for·the·GDAL·Perl·bindings.</span></div><div·class="line"><a·name="l03427"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Dataset.html#a1d2ae8c5fb6f4d043789cefa6aa34f45">·3427</a></span> <span·class="preprocessor">#·@todo·Test·and·document.</span></div><div·class="line"><a·name="l03428"></a><span·class="lineno">·3428</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03429"></a><span·class="lineno">·3429</span> <span·class="keyword">package·</span>Geo::GDAL::Transformer;</div><div·class="line"><a·name="l03430"></a><span·class="lineno">·3430</span> </div><div·class="line"><a·name="l03431"></a><span·class="lineno">·3431</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1GDAL.html">Geo::GDAL</a>)</div><div·class="line"><a·name="l03432"></a><span·class="lineno">·3432</span> </div><div·class="line"><a·name="l03433"></a><span·class="lineno">·3433</span> <span·class="preprocessor">#**·@method·TransformGeolocations()</span></div><div·class="line"><a·name="l03434"></a><span·class="lineno">·3434</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03435"></a><span·class="lineno">·3435</span> sub·TransformGeolocations·{</div><div·class="line"><a·name="l03436"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Dataset.html#a89d86e77fa9fd40bdaaa9e590690f39b">·3436</a></span> }</div><div·class="line"><a·name="l03437"></a><span·class="lineno">·3437</span> </div><div·class="line"><a·name="l03438"></a><span·class="lineno">·3438</span> <span·class="preprocessor">#**·@method·TransformPoint()</span></div><div·class="line"><a·name="l03439"></a><span·class="lineno">·3439</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03440"></a><span·class="lineno">·3440</span> sub·TransformPoint·{</div><div·class="line"><a·name="l03441"></a><span·class="lineno">·3441</span> }</div><div·class="line"><a·name="l03442"></a><span·class="lineno">·3442</span> </div><div·class="line"><a·name="l03443"></a><span·class="lineno">·3443</span> <span·class="preprocessor">#**·@method·new()</span></div><div·class="line"><a·name="l03444"></a><span·class="lineno">·3444</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03445"></a><span·class="lineno">·3445</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l03446"></a><span·class="lineno">·3446</span> ····my·$pkg·=·shift;</div><div·class="line"><a·name="l03447"></a><span·class="lineno">·3447</span> ····my·$self·=·Geo::GDALc::new_Transformer(@_);</div><div·class="line"><a·name="l03448"></a><span·class="lineno">·3448</span> ····bless·$self,·$pkg·<span·class="keywordflow">if</span>·defined($self);</div><div·class="line"><a·name="l03449"></a><span·class="lineno">·3449</span> }</div><div·class="line"><a·name="l03450"></a><span·class="lineno">·3450</span> </div><div·class="line"><a·name="l03451"></a><span·class="lineno">·3451</span> <span·class="preprocessor">#**·@class·Geo::GDAL::VSIF</span></div><div·class="line"><a·name="l03452"></a><span·class="lineno">·3452</span> <span·class="preprocessor">#·@brief·A·GDAL·virtual·file·system.</span></div><div·class="line"><a·name="l03453"></a><span·class="lineno">·3453</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l03454"></a><span·class="lineno">·3454</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03455"></a><span·class="lineno">·3455</span> <span·class="keyword">package·</span>Geo::GDAL::VSIF;</div><div·class="line"><a·name="l03456"></a><span·class="lineno">·3456</span> </div><div·class="line"><a·name="l03457"></a><span·class="lineno">·3457</span> use·base·qw(Exporter)</div><div·class="line"><a·name="l03458"></a><span·class="lineno">·3458</span> </div><div·class="line"><a·name="l03459"></a><span·class="lineno">·3459</span> <span·class="preprocessor">#**·@method·Close()</span></div><div·class="line"><a·name="l03460"></a><span·class="lineno">·3460</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03461"></a><span·class="lineno">·3461</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03462"></a><span·class="lineno">·3462</span> sub·Close·{</div><div·class="line"><a·name="l03463"></a><span·class="lineno">·3463</span> ····my·($self)·=·@_;</div><div·class="line"><a·name="l03464"></a><span·class="lineno">·3464</span> ····Geo::GDAL::VSIFCloseL($self);</div><div·class="line"><a·name="l03465"></a><span·class="lineno">·3465</span> }</div><div·class="line"><a·name="l03466"></a><span·class="lineno">·3466</span> </div><div·class="line"><a·name="l03467"></a><span·class="lineno">·3467</span> <span·class="preprocessor">#**·@method·Flush()</span></div><div·class="line"><a·name="l03468"></a><span·class="lineno">·3468</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03469"></a><span·class="lineno">·3469</span> sub·Flush·{</div><div·class="line"><a·name="l03470"></a><span·class="lineno">·3470</span> ····my·($self)·=·@_;</div><div·class="line"><a·name="l03471"></a><span·class="lineno">·3471</span> ····<a·class="code"·href="classGeo_1_1GDAL.html#a0b280e449999887d9e76e4cb24bd6c25">Geo::GDAL::VSIFFlushL</a>($self);</div><div·class="line"><a·name="l03472"></a><span·class="lineno">·3472</span> }</div><div·class="line"><a·name="l03473"></a><span·class="lineno">·3473</span> </div><div·class="line"><a·name="l03474"></a><span·class="lineno">·3474</span> <span·class="preprocessor">#**·@method·MkDir($path)</span></div><div·class="line"><a·name="l03475"></a><span·class="lineno">·3475</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03476"></a><span·class="lineno">·3476</span> <span·class="preprocessor">#·Make·a·directory.</span></div><div·class="line"><a·name="l03477"></a><span·class="lineno">·3477</span> <span·class="preprocessor">#·@param·path·The·directory·to·make.</span></div><div·class="line"><a·name="l03478"></a><span·class="lineno">·3478</span> <span·class="preprocessor">#·@note·The·name·of·this·method·is·VSIMkdir·in·GDAL.</span></div><div·class="line"><a·name="l03479"></a><span·class="lineno">·3479</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03480"></a><span·class="lineno">·3480</span> sub·MkDir·{</div><div·class="line"><a·name="l03481"></a><span·class="lineno">·3481</span> ····my·($path)·=·@_;</div><div·class="line"><a·name="l03482"></a><span·class="lineno">·3482</span> <span·class="preprocessor">····#·mode·unused·in·CPL</span></div><div·class="line"><a·name="l03483"></a><span·class="lineno">·3483</span> ····Geo::GDAL::Mkdir($path,·0);</div><div·class="line"><a·name="l03484"></a><span·class="lineno">·3484</span> }</div><div·class="line"><a·name="l03485"></a><span·class="lineno">·3485</span> </div><div·class="line"><a·name="l03486"></a><span·class="lineno">·3486</span> <span·class="preprocessor">#**·@method·Geo::GDAL::VSIF·Open($filename,·$mode)</span></div><div·class="line"><a·name="l03487"></a><span·class="lineno">·3487</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03488"></a><span·class="lineno">·3488</span> <span·class="preprocessor">#·@param·filename·Name·of·the·file·to·open.·For·example·"/vsimem/x".</span></div><div·class="line"><a·name="l03489"></a><span·class="lineno">·3489</span> <span·class="preprocessor">#·@param·mode·Access·mode.·'r',·'r+',·'w',·etc.</span></div><div·class="line"><a·name="l03490"></a><span·class="lineno">·3490</span> <span·class="preprocessor">#·@return·A·file·handle·on·success.</span></div><div·class="line"><a·name="l03491"></a><span·class="lineno">·3491</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03492"></a><span·class="lineno">·3492</span> sub·Open·{</div><div·class="line"><a·name="l03493"></a><span·class="lineno">·3493</span> ····my·($path,·$mode)·=·@_;</div><div·class="line"><a·name="l03494"></a><span·class="lineno">·3494</span> ····my·$self·=·Geo::GDAL::VSIFOpenL($path,·$mode);</div><div·class="line"><a·name="l03495"></a><span·class="lineno">·3495</span> ····bless·$self,·<span·class="stringliteral">'Geo::GDAL::VSIF'</span>;</div><div·class="line"><a·name="l03496"></a><span·class="lineno">·3496</span> }</div><div·class="line"><a·name="l03497"></a><span·class="lineno">·3497</span> </div><div·class="line"><a·name="l03498"></a><span·class="lineno">·3498</span> <span·class="preprocessor">#**·@method·scalar·Read($count)</span></div><div·class="line"><a·name="l03499"></a><span·class="lineno">·3499</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03500"></a><span·class="lineno">·3500</span> <span·class="preprocessor">#·@param·count·The·number·of·bytes·to·read·from·the·file.</span></div><div·class="line"><a·name="l03501"></a><span·class="lineno">·3501</span> <span·class="preprocessor">#·@return·A·byte·string.</span></div><div·class="line"><a·name="l03502"></a><span·class="lineno">·3502</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03503"></a><span·class="lineno">·3503</span> sub·Read·{</div><div·class="line"><a·name="l03504"></a><span·class="lineno">·3504</span> ····my·($self,·$count)·=·@_;</div><div·class="line"><a·name="l03505"></a><span·class="lineno">·3505</span> ····Geo::GDAL::VSIFReadL($count,·$self);</div><div·class="line"><a·name="l03506"></a><span·class="lineno">·3506</span> }</div><div·class="line"><a·name="l03507"></a><span·class="lineno">·3507</span> </div><div·class="line"><a·name="l03508"></a><span·class="lineno">·3508</span> <span·class="preprocessor">#**·@method·list·ReadDir($dir)</span></div><div·class="line"><a·name="l03509"></a><span·class="lineno">·3509</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03510"></a><span·class="lineno">·3510</span> <span·class="preprocessor">#·@return·Contents·of·a·directory·in·an·anonymous·array·or·as·a·list.</span></div><div·class="line"><a·name="l03511"></a><span·class="lineno">·3511</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03512"></a><span·class="lineno">·3512</span> sub·ReadDir·{</div><div·class="line"><a·name="l03513"></a><span·class="lineno">·3513</span> ····my·($path)·=·@_;</div><div·class="line"><a·name="l03514"></a><span·class="lineno">·3514</span> ····Geo::GDAL::ReadDir($path);</div><div·class="line"><a·name="l03515"></a><span·class="lineno">·3515</span> }</div><div·class="line"><a·name="l03516"></a><span·class="lineno">·3516</span> </div><div·class="line"><a·name="l03517"></a><span·class="lineno">·3517</span> <span·class="preprocessor">#**·@method·scalar·ReadDirRecursive($dir)</span></div><div·class="line"><a·name="l03518"></a><span·class="lineno">·3518</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03519"></a><span·class="lineno">·3519</span> <span·class="preprocessor">#·@note·Give·the·directory·in·the·form·'/vsimem',·i.e.,·without·trailing·'/'.</span></div><div·class="line"><a·name="l03520"></a><span·class="lineno">·3520</span> <span·class="preprocessor">#·@return·Contents·of·a·directory·tree·in·an·anonymous·array.</span></div><div·class="line"><a·name="l03521"></a><span·class="lineno">·3521</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03522"></a><span·class="lineno">·3522</span> sub·ReadDirRecursive·{</div><div·class="line"><a·name="l03523"></a><span·class="lineno">·3523</span> ····my·($path)·=·@_;</div><div·class="line"><a·name="l03524"></a><span·class="lineno">·3524</span> ····Geo::GDAL::ReadDirRecursive($path);</div><div·class="line"><a·name="l03525"></a><span·class="lineno">·3525</span> }</div><div·class="line"><a·name="l03526"></a><span·class="lineno">·3526</span> </div><div·class="line"><a·name="l03527"></a><span·class="lineno">·3527</span> <span·class="preprocessor">#**·@method·Rename($old,·$new)</span></div><div·class="line"><a·name="l03528"></a><span·class="lineno">·3528</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03529"></a><span·class="lineno">·3529</span> <span·class="preprocessor">#·Rename·a·file.</span></div><div·class="line"><a·name="l03530"></a><span·class="lineno">·3530</span> <span·class="preprocessor">#·@note·The·name·of·this·method·is·VSIRename·in·GDAL.</span></div><div·class="line"><a·name="l03531"></a><span·class="lineno">·3531</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03532"></a><span·class="lineno">·3532</span> sub·Rename·{</div><div·class="line"><a·name="l03533"></a><span·class="lineno">·3533</span> ····my·($old,·$new)·=·@_;</div><div·class="line"><a·name="l03534"></a><span·class="lineno">·3534</span> ····Geo::GDAL::Rename($old,·$new);</div><div·class="line"><a·name="l03535"></a><span·class="lineno">·3535</span> }</div><div·class="line"><a·name="l03536"></a><span·class="lineno">·3536</span> </div><div·class="line"><a·name="l03537"></a><span·class="lineno">·3537</span> <span·class="preprocessor">#**·@method·RmDir($path)</span></div><div·class="line"><a·name="l03538"></a><span·class="lineno">·3538</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03539"></a><span·class="lineno">·3539</span> <span·class="preprocessor">#·Remove·a·directory.</span></div><div·class="line"><a·name="l03540"></a><span·class="lineno">·3540</span> <span·class="preprocessor">#·@note·The·name·of·this·method·is·VSIRmdir·in·GDAL.</span></div><div·class="line"><a·name="l03541"></a><span·class="lineno">·3541</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03542"></a><span·class="lineno">·3542</span> sub·RmDir·{</div><div·class="line"><a·name="l03543"></a><span·class="lineno">·3543</span> ····my·($dirname,·$recursive)·=·@_;</div><div·class="line"><a·name="l03544"></a><span·class="lineno">·3544</span> ····eval·{</div><div·class="line"><a·name="l03545"></a><span·class="lineno">·3545</span> ········<span·class="keywordflow">if</span>·(!$recursive)·{</div><div·class="line"><a·name="l03546"></a><span·class="lineno">·3546</span> ············Geo::GDAL::Rmdir($dirname);</div><div·class="line"><a·name="l03547"></a><span·class="lineno">·3547</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l03548"></a><span·class="lineno">·3548</span> ············<span·class="keywordflow">for</span>·my·$f·(ReadDir($dirname))·{</div><div·class="line"><a·name="l03549"></a><span·class="lineno">·3549</span> ················next·<span·class="keywordflow">if</span>·$f·eq·<span·class="stringliteral">'..'</span>·or·$f·eq·<span·class="charliteral">'.'</span>;</div><div·class="line"><a·name="l03550"></a><span·class="lineno">·3550</span> ················my·@s·=·Stat($dirname.<span·class="charliteral">'/'</span>.$f);</div><div·class="line"><a·name="l03551"></a><span·class="lineno">·3551</span> ················<span·class="keywordflow">if</span>·($s[0]·eq·<span·class="charliteral">'f'</span>)·{</div><div·class="line"><a·name="l03552"></a><span·class="lineno">·3552</span> ····················Unlink($dirname.<span·class="charliteral">'/'</span>.$f);</div><div·class="line"><a·name="l03553"></a><span·class="lineno">·3553</span> ················}·elsif·($s[0]·eq·<span·class="charliteral">'d'</span>)·{</div><div·class="line"><a·name="l03554"></a><span·class="lineno">·3554</span> ····················Rmdir($dirname.<span·class="charliteral">'/'</span>.$f,·1);</div><div·class="line"><a·name="l03555"></a><span·class="lineno">·3555</span> ····················Rmdir($dirname.<span·class="charliteral">'/'</span>.$f);</div><div·class="line"><a·name="l03556"></a><span·class="lineno">·3556</span> ················}</div><div·class="line"><a·name="l03557"></a><span·class="lineno">·3557</span> ············}</div><div·class="line"><a·name="l03558"></a><span·class="lineno">·3558</span> ············RmDir($dirname);</div><div·class="line"><a·name="l03559"></a><span·class="lineno">·3559</span> ········}</div><div·class="line"><a·name="l03560"></a><span·class="lineno">·3560</span> ····};</div><div·class="line"><a·name="l03561"></a><span·class="lineno">·3561</span> ····<span·class="keywordflow">if</span>·($@)·{</div><div·class="line"><a·name="l03562"></a><span·class="lineno">·3562</span> ········my·$r·=·$recursive·?·<span·class="stringliteral">'·recursively'</span>·:·<span·class="stringliteral">''</span>;</div><div·class="line"><a·name="l03563"></a><span·class="lineno">·3563</span> ········error(<span·class="stringliteral">"Cannot·remove·directory·\"$dirname\"$r."</span>);</div><div·class="line"><a·name="l03564"></a><span·class="lineno">·3564</span> ····}</div><div·class="line"><a·name="l03565"></a><span·class="lineno">·3565</span> }</div><div·class="line"><a·name="l03566"></a><span·class="lineno">·3566</span> </div><div·class="line"><a·name="l03567"></a><span·class="lineno">·3567</span> <span·class="preprocessor">#**·@method·Seek($offset,·$whence)</span></div><div·class="line"><a·name="l03568"></a><span·class="lineno">·3568</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03569"></a><span·class="lineno">·3569</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03570"></a><span·class="lineno">·3570</span> sub·Seek·{</div><div·class="line"><a·name="l03571"></a><span·class="lineno">·3571</span> ····my·($self,·$offset,·$whence)·=·@_;</div><div·class="line"><a·name="l03572"></a><span·class="lineno">·3572</span> ····Geo::GDAL::VSIFSeekL($self,·$offset,·$whence);</div><div·class="line"><a·name="l03573"></a><span·class="lineno">·3573</span> }</div><div·class="line"><a·name="l03574"></a><span·class="lineno">·3574</span> </div><div·class="line"><a·name="l03575"></a><span·class="lineno">·3575</span> <span·class="preprocessor">#**·@method·list·Stat($filename)</span></div><div·class="line"><a·name="l03576"></a><span·class="lineno">·3576</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03577"></a><span·class="lineno">·3577</span> <span·class="preprocessor">#·@return·($filemode,·$filesize).·filemode·is·f·for·a·plain·file,·d</span></div><div·class="line"><a·name="l03578"></a><span·class="lineno">·3578</span> <span·class="preprocessor">#·for·a·directory,·l·for·a·symbolic·link,·p·for·a·named·pipe·(FIFO),·S</span></div><div·class="line"><a·name="l03579"></a><span·class="lineno">·3579</span> <span·class="preprocessor">#·for·a·socket,·b·for·a·block·special·file,·and·c·for·a·character</span></div><div·class="line"><a·name="l03580"></a><span·class="lineno">·3580</span> <span·class="preprocessor">#·special·file.</span></div><div·class="line"><a·name="l03581"></a><span·class="lineno">·3581</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03582"></a><span·class="lineno">·3582</span> sub·Stat·{</div><div·class="line"><a·name="l03583"></a><span·class="lineno">·3583</span> ····my·($path)·=·@_;</div><div·class="line"><a·name="l03584"></a><span·class="lineno">·3584</span> ····Geo::GDAL::Stat($path);</div><div·class="line"><a·name="l03585"></a><span·class="lineno">·3585</span> }</div><div·class="line"><a·name="l03586"></a><span·class="lineno">·3586</span> </div><div·class="line"><a·name="l03587"></a><span·class="lineno">·3587</span> <span·class="preprocessor">#**·@method·scalar·Tell()</span></div><div·class="line"><a·name="l03588"></a><span·class="lineno">·3588</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03589"></a><span·class="lineno">·3589</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03590"></a><span·class="lineno">·3590</span> sub·Tell·{</div><div·class="line"><a·name="l03591"></a><span·class="lineno">·3591</span> ····my·($self)·=·@_;</div><div·class="line"><a·name="l03592"></a><span·class="lineno">·3592</span> ····Geo::GDAL::VSIFTellL($self);</div><div·class="line"><a·name="l03593"></a><span·class="lineno">·3593</span> }</div><div·class="line"><a·name="l03594"></a><span·class="lineno">·3594</span> </div><div·class="line"><a·name="l03595"></a><span·class="lineno">·3595</span> <span·class="preprocessor">#**·@method·Truncate($new_size)</span></div><div·class="line"><a·name="l03596"></a><span·class="lineno">·3596</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03597"></a><span·class="lineno">·3597</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03598"></a><span·class="lineno">·3598</span> sub·Truncate·{</div><div·class="line"><a·name="l03599"></a><span·class="lineno">·3599</span> ····my·($self,·$new_size)·=·@_;</div><div·class="line"><a·name="l03600"></a><span·class="lineno">·3600</span> ····Geo::GDAL::VSIFTruncateL($self,·$new_size);</div><div·class="line"><a·name="l03601"></a><span·class="lineno">·3601</span> }</div><div·class="line"><a·name="l03602"></a><span·class="lineno">·3602</span> </div><div·class="line"><a·name="l03603"></a><span·class="lineno">·3603</span> <span·class="preprocessor">#**·@method·Unlink($filename)</span></div><div·class="line"><a·name="l03604"></a><span·class="lineno">·3604</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03605"></a><span·class="lineno">·3605</span> <span·class="preprocessor">#·@param·filename·The·file·to·delete.</span></div><div·class="line"><a·name="l03606"></a><span·class="lineno">·3606</span> <span·class="preprocessor">#·@return·0·on·success·and·-1·on·an·error.</span></div><div·class="line"><a·name="l03607"></a><span·class="lineno">·3607</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03608"></a><span·class="lineno">·3608</span> sub·Unlink·{</div><div·class="line"><a·name="l03609"></a><span·class="lineno">·3609</span> ····my·($filename)·=·@_;</div><div·class="line"><a·name="l03610"></a><span·class="lineno">·3610</span> ····Geo::GDAL::Unlink($filename);</div><div·class="line"><a·name="l03611"></a><span·class="lineno">·3611</span> }</div><div·class="line"><a·name="l03612"></a><span·class="lineno">·3612</span> </div><div·class="line"><a·name="l03613"></a><span·class="lineno">·3613</span> <span·class="preprocessor">#**·@method·Write($scalar)</span></div><div·class="line"><a·name="l03614"></a><span·class="lineno">·3614</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03615"></a><span·class="lineno">·3615</span> <span·class="preprocessor">#·@param·scalar·The·byte·string·to·write·to·the·file.</span></div><div·class="line"><a·name="l03616"></a><span·class="lineno">·3616</span> <span·class="preprocessor">#·@return·Number·of·bytes·written·into·the·file.</span></div><div·class="line"><a·name="l03617"></a><span·class="lineno">·3617</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03618"></a><span·class="lineno">·3618</span> sub·Write·{</div><div·class="line"><a·name="l03619"></a><span·class="lineno">·3619</span> ····my·($self,·$data)·=·@_;</div><div·class="line"><a·name="l03620"></a><span·class="lineno">·3620</span> ····Geo::GDAL::VSIFWriteL($data,·$self);</div><div·class="line"><a·name="l03621"></a><span·class="lineno">·3621</span> }</div><div·class="line"><a·name="l03622"></a><span·class="lineno">·3622</span> </div><div·class="line"><a·name="l03623"></a><span·class="lineno">·3623</span> <span·class="preprocessor">#**·@class·Geo::GDAL::VSILFILE</span></div><div·class="line"><a·name="l03624"></a><span·class="lineno">·3624</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03625"></a><span·class="lineno">·3625</span> <span·class="keyword">package·</span>Geo::GDAL::VSILFILE;</div><div·class="line"><a·name="l03626"></a><span·class="lineno">·3626</span> </div><div·class="line"><a·name="l03627"></a><span·class="lineno">·3627</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1GDAL.html">Geo::GDAL</a>)</div><div·class="line"><a·name="l03628"></a><span·class="lineno">·3628</span> </div><div·class="line"><a·name="l03629"></a><span·class="lineno">·3629</span> <span·class="preprocessor">#**·@class·Geo::GDAL::XML</span></div><div·class="line"><a·name="l03630"></a><span·class="lineno">·3630</span> <span·class="preprocessor">#·@brief·A·simple·XML·parser</span></div><div·class="line"><a·name="l03631"></a><span·class="lineno">·3631</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l03632"></a><span·class="lineno">·3632</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03633"></a><span·class="lineno">·3633</span> <span·class="keyword">package·</span>Geo::GDAL::XML;</div><div·class="line"><a·name="l03634"></a><span·class="lineno">·3634</span> </div><div·class="line"><a·name="l03635"></a><span·class="lineno">·3635</span> <span·class="preprocessor">#**·@method·new($string)</span></div><div·class="line"><a·name="l03636"></a><span·class="lineno">·3636</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03637"></a><span·class="lineno">·3637</span> <span·class="preprocessor">#·@param·string·String·containing·XML.</span></div><div·class="line"><a·name="l03638"></a><span·class="lineno">·3638</span> <span·class="preprocessor">#·@return·A·new·Geo::GDAL::XML·object,·which·is·a·reference·to·an·anonymous·array.</span></div><div·class="line"><a·name="l03639"></a><span·class="lineno">·3639</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03640"></a><span·class="lineno">·3640</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l03641"></a><span·class="lineno">·3641</span> ····my·$class·=·shift;</div><div·class="line"><a·name="l03642"></a><span·class="lineno">·3642</span> ····my·$xml·=·shift·<span·class="comment">//·'';</span></div><div·class="line"><a·name="l03643"></a><span·class="lineno">·3643</span> ····my·$self·=·ParseXMLString($xml);</div><div·class="line"><a·name="l03644"></a><span·class="lineno">·3644</span> ····bless·$self,·$class;</div><div·class="line"><a·name="l03645"></a><span·class="lineno">·3645</span> ····$self->traverse(sub·{my·$node·=·shift;·bless·$node,·$class});</div><div·class="line"><a·name="l03646"></a><span·class="lineno">·3646</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l03647"></a><span·class="lineno">·3647</span> }</div><div·class="line"><a·name="l03648"></a><span·class="lineno">·3648</span> </div><div·class="line"><a·name="l03649"></a><span·class="lineno">·3649</span> <span·class="preprocessor">#**·@method·serialize()</span></div><div·class="line"><a·name="l03650"></a><span·class="lineno">·3650</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03651"></a><span·class="lineno">·3651</span> <span·class="preprocessor">#·@return·The·XML·serialized·into·a·string.</span></div><div·class="line"><a·name="l03652"></a><span·class="lineno">·3652</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03653"></a><span·class="lineno">·3653</span> sub·serialize·{</div><div·class="line"><a·name="l03654"></a><span·class="lineno">·3654</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l03655"></a><span·class="lineno">·3655</span> ····<span·class="keywordflow">return</span>·SerializeXMLTree($self);</div><div·class="line"><a·name="l03656"></a><span·class="lineno">·3656</span> }</div><div·class="line"><a·name="l03657"></a><span·class="lineno">·3657</span> 1;</div><div·class="line"><a·name="l03658"></a><span·class="lineno">·3658</span> <span·class="preprocessor">#·This·file·was·automatically·generated·by·SWIG·(http://www.swig.org).</span></div><div·class="line"><a·name="l03659"></a><span·class="lineno">·3659</span> <span·class="preprocessor">#·Version·2.0.12</span></div><div·class="line"><a·name="l03660"></a><span·class="lineno">·3660</span> <span·class="preprocessor">#</span></div><div·class="line"><a·name="l03661"></a><span·class="lineno">·3661</span> <span·class="preprocessor">#·Do·not·make·changes·to·this·file·unless·you·know·what·you·are·doing--modify</span></div><div·class="line"><a·name="l03662"></a><span·class="lineno">·3662</span> <span·class="preprocessor">#·the·SWIG·interface·file·instead.</span></div><div·class="line"><a·name="l03663"></a><span·class="lineno">·3663</span> }</div><div·class="line"><a·name="l03664"></a><span·class="lineno">·3664</span> </div><div·class="line"><a·name="l03665"></a><span·class="lineno">·3665</span> <span·class="preprocessor">#**·@method·traverse(coderef·subroutine)</span></div><div·class="line"><a·name="l03666"></a><span·class="lineno">·3666</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03667"></a><span·class="lineno">·3667</span> <span·class="preprocessor">#·@param·subroutine·Code·reference,·which·will·be·called·for·each·node·in·the·XML·with·parameters:·node,·node_type,·node_value.·Node·type·is·either·Attribute,·Comment,·Element,·Literal,·or·Text.</span></div><div·class="line"><a·name="l03668"></a><span·class="lineno">·3668</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03669"></a><span·class="lineno">·3669</span> sub·traverse·{</div><div·class="line"><a·name="l03670"></a><span·class="lineno">·3670</span> ····my·($self,·$sub)·=·@_;</div><div·class="line"><a·name="l03671"></a><span·class="lineno">·3671</span> ····my·$type·=·$self->[0];</div><div·class="line"><a·name="l03672"></a><span·class="lineno">·3672</span> ····my·$data·=·$self->[1];</div><div·class="line"><a·name="l03673"></a><span·class="lineno">·3673</span> ····$type·=·NodeType($type);</div><div·class="line"><a·name="l03674"></a><span·class="lineno">·3674</span> ····$sub->($self,·$type,·$data);</div><div·class="line"><a·name="l03675"></a><span·class="lineno">·3675</span> ····<span·class="keywordflow">for</span>·my·$child·(@{$self}[2..$#$self])·{</div><div·class="line"><a·name="l03676"></a><span·class="lineno">·3676</span> ········traverse($child,·$sub);</div><div·class="line"><a·name="l03677"></a><span·class="lineno">·3677</span> ····}</div><div·class="line"><a·name="l03678"></a><span·class="lineno">·3678</span> }</div><div·class="line"><a·name="l03679"></a><span·class="lineno">·3679</span> </div><div·class="line"><a·name="l03680"></a><span·class="lineno">·3680</span> <span·class="preprocessor">#**·@class·Geo::GNM</span></div><div·class="line"><a·name="l03681"></a><span·class="lineno">·3681</span> <span·class="preprocessor">#·@brief·Base·class·for·geographical·networks·in·GDAL.</span></div><div·class="line"><a·name="l03682"></a><span·class="lineno">·3682</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l03683"></a><span·class="lineno">·3683</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03684"></a><span·class="lineno">·3684</span> <span·class="keyword">package·</span>Geo::GNM;</div><div·class="line"><a·name="l03685"></a><span·class="lineno">·3685</span> </div><div·class="line"><a·name="l03686"></a><span·class="lineno">·3686</span> <span·class="preprocessor">#**·@method·CastToGenericNetwork()</span></div><div·class="line"><a·name="l03687"></a><span·class="lineno">·3687</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03688"></a><span·class="lineno">·3688</span> sub·CastToGenericNetwork·{</div><div·class="line"><a·name="l03689"></a><span·class="lineno">·3689</span> }</div><div·class="line"><a·name="l03690"></a><span·class="lineno">·3690</span> </div><div·class="line"><a·name="l03691"></a><span·class="lineno">·3691</span> <span·class="preprocessor">#**·@method·CastToNetwork()</span></div><div·class="line"><a·name="l03692"></a><span·class="lineno">·3692</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03693"></a><span·class="lineno">·3693</span> sub·CastToNetwork·{</div><div·class="line"><a·name="l03694"></a><span·class="lineno">·3694</span> }</div><div·class="line"><a·name="l03695"></a><span·class="lineno">·3695</span> </div><div·class="line"><a·name="l03696"></a><span·class="lineno">·3696</span> <span·class="preprocessor">#**·@method·GATConnectedComponents()</span></div><div·class="line"><a·name="l03697"></a><span·class="lineno">·3697</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03698"></a><span·class="lineno">·3698</span> sub·GATConnectedComponents·{</div><div·class="line"><a·name="l03699"></a><span·class="lineno">·3699</span> }</div><div·class="line"><a·name="l03700"></a><span·class="lineno">·3700</span> </div><div·class="line"><a·name="l03701"></a><span·class="lineno">·3701</span> <span·class="preprocessor">#**·@method·GATDijkstraShortestPath()</span></div><div·class="line"><a·name="l03702"></a><span·class="lineno">·3702</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03703"></a><span·class="lineno">·3703</span> sub·GATDijkstraShortestPath·{</div><div·class="line"><a·name="l03704"></a><span·class="lineno">·3704</span> }</div><div·class="line"><a·name="l03705"></a><span·class="lineno">·3705</span> </div><div·class="line"><a·name="l03706"></a><span·class="lineno">·3706</span> <span·class="preprocessor">#**·@method·GATKShortestPath()</span></div><div·class="line"><a·name="l03707"></a><span·class="lineno">·3707</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03708"></a><span·class="lineno">·3708</span> sub·GATKShortestPath·{</div><div·class="line"><a·name="l03709"></a><span·class="lineno">·3709</span> }</div><div·class="line"><a·name="l03710"></a><span·class="lineno">·3710</span> </div><div·class="line"><a·name="l03711"></a><span·class="lineno">·3711</span> <span·class="preprocessor">#**·@method·GNM_EDGE_DIR_BOTH()</span></div><div·class="line"><a·name="l03712"></a><span·class="lineno">·3712</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03713"></a><span·class="lineno">·3713</span> sub·GNM_EDGE_DIR_BOTH·{</div><div·class="line"><a·name="l03714"></a><span·class="lineno">·3714</span> }</div><div·class="line"><a·name="l03715"></a><span·class="lineno">·3715</span> </div><div·class="line"><a·name="l03716"></a><span·class="lineno">·3716</span> <span·class="preprocessor">#**·@method·GNM_EDGE_DIR_SRCTOTGT()</span></div><div·class="line"><a·name="l03717"></a><span·class="lineno">·3717</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03718"></a><span·class="lineno">·3718</span> sub·GNM_EDGE_DIR_SRCTOTGT·{</div><div·class="line"><a·name="l03719"></a><span·class="lineno">·3719</span> }</div><div·class="line"><a·name="l03720"></a><span·class="lineno">·3720</span> </div><div·class="line"><a·name="l03721"></a><span·class="lineno">·3721</span> <span·class="preprocessor">#**·@method·GNM_EDGE_DIR_TGTTOSRC()</span></div><div·class="line"><a·name="l03722"></a><span·class="lineno">·3722</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03723"></a><span·class="lineno">·3723</span> sub·GNM_EDGE_DIR_TGTTOSRC·{</div><div·class="line"><a·name="l03724"></a><span·class="lineno">·3724</span> ·····1;</div><div·class="line"><a·name="l03725"></a><span·class="lineno">·3725</span> }</div><div·class="line"><a·name="l03726"></a><span·class="lineno">·3726</span> </div><div·class="line"><a·name="l03727"></a><span·class="lineno">·3727</span> <span·class="preprocessor">#**·@class·Geo::GNM::GenericNetwork</span></div><div·class="line"><a·name="l03728"></a><span·class="lineno">·3728</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l03729"></a><span·class="lineno">·3729</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03730"></a><span·class="lineno">·3730</span> <span·class="keyword">package·</span>Geo::GNM::GenericNetwork;</div><div·class="line"><a·name="l03731"></a><span·class="lineno">·3731</span> </div><div·class="line"><a·name="l03732"></a><span·class="lineno">·3732</span> use·base·qw(<a·class="code"·href="classGeo_1_1GNM_1_1Network.html">Geo::GNM::Network</a>·<a·class="code"·href="namespaceGeo_1_1GNM.html">Geo::GNM</a>)</div><div·class="line"><a·name="l03733"></a><span·class="lineno">·3733</span> </div><div·class="line"><a·name="l03734"></a><span·class="lineno">·3734</span> <span·class="preprocessor">#**·@method·ChangeAllBlockState()</span></div><div·class="line"><a·name="l03735"></a><span·class="lineno">·3735</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03736"></a><span·class="lineno">·3736</span> sub·ChangeAllBlockState·{</div><div·class="line"><a·name="l03737"></a><span·class="lineno">·3737</span> }</div><div·class="line"><a·name="l03738"></a><span·class="lineno">·3738</span> </div><div·class="line"><a·name="l03739"></a><span·class="lineno">·3739</span> <span·class="preprocessor">#**·@method·ChangeBlockState()</span></div><div·class="line"><a·name="l03740"></a><span·class="lineno">·3740</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03741"></a><span·class="lineno">·3741</span> sub·ChangeBlockState·{</div><div·class="line"><a·name="l03742"></a><span·class="lineno">·3742</span> }</div><div·class="line"><a·name="l03743"></a><span·class="lineno">·3743</span> </div><div·class="line"><a·name="l03744"></a><span·class="lineno">·3744</span> <span·class="preprocessor">#**·@method·ConnectFeatures()</span></div><div·class="line"><a·name="l03745"></a><span·class="lineno">·3745</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03746"></a><span·class="lineno">·3746</span> sub·ConnectFeatures·{</div><div·class="line"><a·name="l03747"></a><span·class="lineno">·3747</span> }</div><div·class="line"><a·name="l03748"></a><span·class="lineno">·3748</span> </div><div·class="line"><a·name="l03749"></a><span·class="lineno">·3749</span> <span·class="preprocessor">#**·@method·ConnectPointsByLines()</span></div><div·class="line"><a·name="l03750"></a><span·class="lineno">·3750</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03751"></a><span·class="lineno">·3751</span> sub·ConnectPointsByLines·{</div><div·class="line"><a·name="l03752"></a><span·class="lineno">·3752</span> }</div><div·class="line"><a·name="l03753"></a><span·class="lineno">·3753</span> </div><div·class="line"><a·name="l03754"></a><span·class="lineno">·3754</span> <span·class="preprocessor">#**·@method·CreateRule()</span></div><div·class="line"><a·name="l03755"></a><span·class="lineno">·3755</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03756"></a><span·class="lineno">·3756</span> sub·CreateRule·{</div><div·class="line"><a·name="l03757"></a><span·class="lineno">·3757</span> }</div><div·class="line"><a·name="l03758"></a><span·class="lineno">·3758</span> </div><div·class="line"><a·name="l03759"></a><span·class="lineno">·3759</span> <span·class="preprocessor">#**·@method·DeleteAllRules()</span></div><div·class="line"><a·name="l03760"></a><span·class="lineno">·3760</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03761"></a><span·class="lineno">·3761</span> sub·DeleteAllRules·{</div><div·class="line"><a·name="l03762"></a><span·class="lineno">·3762</span> }</div><div·class="line"><a·name="l03763"></a><span·class="lineno">·3763</span> </div><div·class="line"><a·name="l03764"></a><span·class="lineno">·3764</span> <span·class="preprocessor">#**·@method·DeleteRule()</span></div><div·class="line"><a·name="l03765"></a><span·class="lineno">·3765</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03766"></a><span·class="lineno">·3766</span> sub·DeleteRule·{</div><div·class="line"><a·name="l03767"></a><span·class="lineno">·3767</span> }</div><div·class="line"><a·name="l03768"></a><span·class="lineno">·3768</span> </div><div·class="line"><a·name="l03769"></a><span·class="lineno">·3769</span> <span·class="preprocessor">#**·@method·DisconnectFeatures()</span></div><div·class="line"><a·name="l03770"></a><span·class="lineno">·3770</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03771"></a><span·class="lineno">·3771</span> sub·DisconnectFeatures·{</div><div·class="line"><a·name="l03772"></a><span·class="lineno">·3772</span> }</div><div·class="line"><a·name="l03773"></a><span·class="lineno">·3773</span> </div><div·class="line"><a·name="l03774"></a><span·class="lineno">·3774</span> <span·class="preprocessor">#**·@method·DisconnectFeaturesWithId()</span></div><div·class="line"><a·name="l03775"></a><span·class="lineno">·3775</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03776"></a><span·class="lineno">·3776</span> sub·DisconnectFeaturesWithId·{</div><div·class="line"><a·name="l03777"></a><span·class="lineno">·3777</span> }</div><div·class="line"><a·name="l03778"></a><span·class="lineno">·3778</span> </div><div·class="line"><a·name="l03779"></a><span·class="lineno">·3779</span> <span·class="preprocessor">#**·@method·GetRules()</span></div><div·class="line"><a·name="l03780"></a><span·class="lineno">·3780</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03781"></a><span·class="lineno">·3781</span> sub·GetRules·{</div><div·class="line"><a·name="l03782"></a><span·class="lineno">·3782</span> }</div><div·class="line"><a·name="l03783"></a><span·class="lineno">·3783</span> </div><div·class="line"><a·name="l03784"></a><span·class="lineno">·3784</span> <span·class="preprocessor">#**·@method·ReconnectFeatures()</span></div><div·class="line"><a·name="l03785"></a><span·class="lineno">·3785</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03786"></a><span·class="lineno">·3786</span> sub·ReconnectFeatures·{</div><div·class="line"><a·name="l03787"></a><span·class="lineno">·3787</span> }</div><div·class="line"><a·name="l03788"></a><span·class="lineno">·3788</span> </div><div·class="line"><a·name="l03789"></a><span·class="lineno">·3789</span> <span·class="preprocessor">#**·@class·Geo::GNM::MajorObject</span></div><div·class="line"><a·name="l03790"></a><span·class="lineno">·3790</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l03791"></a><span·class="lineno">·3791</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03792"></a><span·class="lineno">·3792</span> <span·class="keyword">package·</span>Geo::GNM::MajorObject;</div><div·class="line"><a·name="l03793"></a><span·class="lineno">·3793</span> </div><div·class="line"><a·name="l03794"></a><span·class="lineno">·3794</span> <span·class="preprocessor">#**·@class·Geo::GNM::Network</span></div><div·class="line"><a·name="l03795"></a><span·class="lineno">·3795</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l03796"></a><span·class="lineno">·3796</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03797"></a><span·class="lineno">·3797</span> <span·class="keyword">package·</span>Geo::GNM::Network;</div><div·class="line"><a·name="l03798"></a><span·class="lineno">·3798</span> </div><div·class="line"><a·name="l03799"></a><span·class="lineno">·3799</span> use·base·qw(<a·class="code"·href="classGeo_1_1GDAL_1_1MajorObject.html">Geo::GDAL::MajorObject</a>·Geo::GNM)</div><div·class="line"><a·name="l03800"></a><span·class="lineno">·3800</span> </div><div·class="line"><a·name="l03801"></a><span·class="lineno">·3801</span> <span·class="preprocessor">#**·@method·CommitTransaction()</span></div><div·class="line"><a·name="l03802"></a><span·class="lineno">·3802</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03803"></a><span·class="lineno">·3803</span> sub·CommitTransaction·{</div><div·class="line"><a·name="l03804"></a><span·class="lineno">·3804</span> }</div><div·class="line"><a·name="l03805"></a><span·class="lineno">·3805</span> </div><div·class="line"><a·name="l03806"></a><span·class="lineno">·3806</span> <span·class="preprocessor">#**·@method·CopyLayer()</span></div><div·class="line"><a·name="l03807"></a><span·class="lineno">·3807</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03808"></a><span·class="lineno">·3808</span> sub·CopyLayer·{</div><div·class="line"><a·name="l03809"></a><span·class="lineno">·3809</span> }</div><div·class="line"><a·name="l03810"></a><span·class="lineno">·3810</span> </div><div·class="line"><a·name="l03811"></a><span·class="lineno">·3811</span> <span·class="preprocessor">#**·@method·DisconnectAll()</span></div><div·class="line"><a·name="l03812"></a><span·class="lineno">·3812</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03813"></a><span·class="lineno">·3813</span> sub·DisconnectAll·{</div><div·class="line"><a·name="l03814"></a><span·class="lineno">·3814</span> }</div><div·class="line"><a·name="l03815"></a><span·class="lineno">·3815</span> </div><div·class="line"><a·name="l03816"></a><span·class="lineno">·3816</span> <span·class="preprocessor">#**·@method·GetFeatureByGlobalFID()</span></div><div·class="line"><a·name="l03817"></a><span·class="lineno">·3817</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03818"></a><span·class="lineno">·3818</span> sub·GetFeatureByGlobalFID·{</div><div·class="line"><a·name="l03819"></a><span·class="lineno">·3819</span> }</div><div·class="line"><a·name="l03820"></a><span·class="lineno">·3820</span> </div><div·class="line"><a·name="l03821"></a><span·class="lineno">·3821</span> <span·class="preprocessor">#**·@method·GetFileList()</span></div><div·class="line"><a·name="l03822"></a><span·class="lineno">·3822</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03823"></a><span·class="lineno">·3823</span> sub·GetFileList·{</div><div·class="line"><a·name="l03824"></a><span·class="lineno">·3824</span> }</div><div·class="line"><a·name="l03825"></a><span·class="lineno">·3825</span> </div><div·class="line"><a·name="l03826"></a><span·class="lineno">·3826</span> <span·class="preprocessor">#**·@method·GetLayerByIndex()</span></div><div·class="line"><a·name="l03827"></a><span·class="lineno">·3827</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03828"></a><span·class="lineno">·3828</span> sub·GetLayerByIndex·{</div><div·class="line"><a·name="l03829"></a><span·class="lineno">·3829</span> }</div><div·class="line"><a·name="l03830"></a><span·class="lineno">·3830</span> </div><div·class="line"><a·name="l03831"></a><span·class="lineno">·3831</span> <span·class="preprocessor">#**·@method·GetLayerByName()</span></div><div·class="line"><a·name="l03832"></a><span·class="lineno">·3832</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03833"></a><span·class="lineno">·3833</span> sub·GetLayerByName·{</div><div·class="line"><a·name="l03834"></a><span·class="lineno">·3834</span> }</div><div·class="line"><a·name="l03835"></a><span·class="lineno">·3835</span> </div><div·class="line"><a·name="l03836"></a><span·class="lineno">·3836</span> <span·class="preprocessor">#**·@method·GetLayerCount()</span></div><div·class="line"><a·name="l03837"></a><span·class="lineno">·3837</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03838"></a><span·class="lineno">·3838</span> sub·GetLayerCount·{</div><div·class="line"><a·name="l03839"></a><span·class="lineno">·3839</span> }</div><div·class="line"><a·name="l03840"></a><span·class="lineno">·3840</span> </div><div·class="line"><a·name="l03841"></a><span·class="lineno">·3841</span> <span·class="preprocessor">#**·@method·GetName()</span></div><div·class="line"><a·name="l03842"></a><span·class="lineno">·3842</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03843"></a><span·class="lineno">·3843</span> sub·GetName·{</div><div·class="line"><a·name="l03844"></a><span·class="lineno">·3844</span> }</div><div·class="line"><a·name="l03845"></a><span·class="lineno">·3845</span> </div><div·class="line"><a·name="l03846"></a><span·class="lineno">·3846</span> <span·class="preprocessor">#**·@method·GetPath()</span></div><div·class="line"><a·name="l03847"></a><span·class="lineno">·3847</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03848"></a><span·class="lineno">·3848</span> sub·GetPath·{</div><div·class="line"><a·name="l03849"></a><span·class="lineno">·3849</span> }</div><div·class="line"><a·name="l03850"></a><span·class="lineno">·3850</span> </div><div·class="line"><a·name="l03851"></a><span·class="lineno">·3851</span> <span·class="preprocessor">#**·@method·GetProjection()</span></div><div·class="line"><a·name="l03852"></a><span·class="lineno">·3852</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03853"></a><span·class="lineno">·3853</span> sub·GetProjection·{</div><div·class="line"><a·name="l03854"></a><span·class="lineno">·3854</span> }</div><div·class="line"><a·name="l03855"></a><span·class="lineno">·3855</span> </div><div·class="line"><a·name="l03856"></a><span·class="lineno">·3856</span> <span·class="preprocessor">#**·@method·GetProjectionRef()</span></div><div·class="line"><a·name="l03857"></a><span·class="lineno">·3857</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03858"></a><span·class="lineno">·3858</span> sub·GetProjectionRef·{</div><div·class="line"><a·name="l03859"></a><span·class="lineno">·3859</span> }</div><div·class="line"><a·name="l03860"></a><span·class="lineno">·3860</span> </div><div·class="line"><a·name="l03861"></a><span·class="lineno">·3861</span> <span·class="preprocessor">#**·@method·GetVersion()</span></div><div·class="line"><a·name="l03862"></a><span·class="lineno">·3862</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03863"></a><span·class="lineno">·3863</span> sub·GetVersion·{</div><div·class="line"><a·name="l03864"></a><span·class="lineno">·3864</span> }</div><div·class="line"><a·name="l03865"></a><span·class="lineno">·3865</span> </div><div·class="line"><a·name="l03866"></a><span·class="lineno">·3866</span> <span·class="preprocessor">#**·@method·RollbackTransaction()</span></div><div·class="line"><a·name="l03867"></a><span·class="lineno">·3867</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03868"></a><span·class="lineno">·3868</span> sub·RollbackTransaction·{</div><div·class="line"><a·name="l03869"></a><span·class="lineno">·3869</span> }</div><div·class="line"><a·name="l03870"></a><span·class="lineno">·3870</span> </div><div·class="line"><a·name="l03871"></a><span·class="lineno">·3871</span> <span·class="preprocessor">#**·@method·StartTransaction()</span></div><div·class="line"><a·name="l03872"></a><span·class="lineno">·3872</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03873"></a><span·class="lineno">·3873</span> sub·StartTransaction·{</div><div·class="line"><a·name="l03874"></a><span·class="lineno">·3874</span> }</div><div·class="line"><a·name="l03875"></a><span·class="lineno">·3875</span> </div><div·class="line"><a·name="l03876"></a><span·class="lineno">·3876</span> <span·class="preprocessor">#**·@class·Geo::OGR</span></div><div·class="line"><a·name="l03877"></a><span·class="lineno">·3877</span> <span·class="preprocessor">#·@brief·OGR·utility·functions.</span></div><div·class="line"><a·name="l03878"></a><span·class="lineno">·3878</span> <span·class="preprocessor">#·@details·A·wrapper·for·many·OGR·utility·functions·and·a·root·class·for·all</span></div><div·class="line"><a·name="l03879"></a><span·class="lineno">·3879</span> <span·class="preprocessor">#·OGR·classes.</span></div><div·class="line"><a·name="l03880"></a><span·class="lineno">·3880</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03881"></a><span·class="lineno">·3881</span> <span·class="keyword">package·</span>Geo::OGR;</div><div·class="line"><a·name="l03882"></a><span·class="lineno">·3882</span> </div><div·class="line"><a·name="l03883"></a><span·class="lineno">·3883</span> <span·class="preprocessor">#**·@method·list·ByteOrders()</span></div><div·class="line"><a·name="l03884"></a><span·class="lineno">·3884</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03885"></a><span·class="lineno">·3885</span> <span·class="preprocessor">#·@return·a·list·of·byte·order·types,·XDR·and·NDR.·XDR·denotes</span></div><div·class="line"><a·name="l03886"></a><span·class="lineno">·3886</span> <span·class="preprocessor">#·big-endian·and·NDR·denotes·little-endian.</span></div><div·class="line"><a·name="l03887"></a><span·class="lineno">·3887</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03888"></a><span·class="lineno">·3888</span> sub·ByteOrders·{</div><div·class="line"><a·name="l03889"></a><span·class="lineno">·3889</span> }</div><div·class="line"><a·name="l03890"></a><span·class="lineno">·3890</span> </div><div·class="line"><a·name="l03891"></a><span·class="lineno">·3891</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Driver·Driver($name)</span></div><div·class="line"><a·name="l03892"></a><span·class="lineno">·3892</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03893"></a><span·class="lineno">·3893</span> <span·class="preprocessor">#·A.k.a·GetDriver.</span></div><div·class="line"><a·name="l03894"></a><span·class="lineno">·3894</span> <span·class="preprocessor">#·@param·name·the·short·name·of·the·driver.</span></div><div·class="line"><a·name="l03895"></a><span·class="lineno">·3895</span> <span·class="preprocessor">#·@note·No·check·is·made·that·the·driver·is·actually·a·vector·driver.</span></div><div·class="line"><a·name="l03896"></a><span·class="lineno">·3896</span> <span·class="preprocessor">#·@return·a·Geo::GDAL::Driver·object.</span></div><div·class="line"><a·name="l03897"></a><span·class="lineno">·3897</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03898"></a><span·class="lineno">·3898</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1Driver.html">Driver</a>·{</div><div·class="line"><a·name="l03899"></a><span·class="lineno">·3899</span> ····<span·class="keywordflow">return</span>·<span·class="stringliteral">'Geo::GDAL::Driver'</span>·unless·@_;</div><div·class="line"><a·name="l03900"></a><span·class="lineno">·3900</span> ····bless·<a·class="code"·href="classGeo_1_1GDAL.html#ac6041428faeb7a6b21c380a2011cd25c">Geo::GDAL::Driver</a>(@_),·<span·class="stringliteral">'Geo::OGR::Driver'</span>;</div><div·class="line"><a·name="l03901"></a><span·class="lineno">·3901</span> }</div><div·class="line"><a·name="l03902"></a><span·class="lineno">·3902</span> </div><div·class="line"><a·name="l03903"></a><span·class="lineno">·3903</span> <span·class="preprocessor">#**·@method·list·DriverNames()</span></div><div·class="line"><a·name="l03904"></a><span·class="lineno">·3904</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03905"></a><span·class="lineno">·3905</span> <span·class="preprocessor">#·A.k.a·GetDriverNames</span></div><div·class="line"><a·name="l03906"></a><span·class="lineno">·3906</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l03907"></a><span·class="lineno">·3907</span> <span·class="preprocessor">#·perl·-MGeo::GDAL·-e·'@d=Geo::OGR::DriverNames;print·"@d\n"'</span></div><div·class="line"><a·name="l03908"></a><span·class="lineno">·3908</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l03909"></a><span·class="lineno">·3909</span> <span·class="preprocessor">#·@note·Use·Geo::GDAL::DriverNames·for·raster·drivers.</span></div><div·class="line"><a·name="l03910"></a><span·class="lineno">·3910</span> <span·class="preprocessor">#·@return·a·list·of·the·short·names·of·all·available·GDAL·vector·drivers.</span></div><div·class="line"><a·name="l03911"></a><span·class="lineno">·3911</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03912"></a><span·class="lineno">·3912</span> sub·DriverNames·{</div><div·class="line"><a·name="l03913"></a><span·class="lineno">·3913</span> }</div><div·class="line"><a·name="l03914"></a><span·class="lineno">·3914</span> </div><div·class="line"><a·name="l03915"></a><span·class="lineno">·3915</span> <span·class="preprocessor">#**·@method·list·Drivers()</span></div><div·class="line"><a·name="l03916"></a><span·class="lineno">·3916</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03917"></a><span·class="lineno">·3917</span> <span·class="preprocessor">#·@note·Use·Geo::GDAL::Drivers·for·raster·drivers.</span></div><div·class="line"><a·name="l03918"></a><span·class="lineno">·3918</span> <span·class="preprocessor">#·@return·a·list·of·all·available·GDAL·vector·drivers.</span></div><div·class="line"><a·name="l03919"></a><span·class="lineno">·3919</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03920"></a><span·class="lineno">·3920</span> sub·Drivers·{</div><div·class="line"><a·name="l03921"></a><span·class="lineno">·3921</span> ····my·@drivers;</div><div·class="line"><a·name="l03922"></a><span·class="lineno">·3922</span> ····<span·class="keywordflow">for</span>·my·$i·(0..GetDriverCount()-1)·{</div><div·class="line"><a·name="l03923"></a><span·class="lineno">·3923</span> ········my·$driver·=·Geo::GDAL::GetDriver($i);</div><div·class="line"><a·name="l03924"></a><span·class="lineno">·3924</span> ········push·@drivers,·$driver·<span·class="keywordflow">if</span>·$driver->TestCapability(<span·class="stringliteral">'VECTOR'</span>);</div><div·class="line"><a·name="l03925"></a><span·class="lineno">·3925</span> ····}</div><div·class="line"><a·name="l03926"></a><span·class="lineno">·3926</span> ····<span·class="keywordflow">return</span>·@drivers;</div><div·class="line"><a·name="l03927"></a><span·class="lineno">·3927</span> }</div><div·class="line"><a·name="l03928"></a><span·class="lineno">·3928</span> </div><div·class="line"><a·name="l03929"></a><span·class="lineno">·3929</span> <span·class="preprocessor">#**·@method·Flatten()</span></div><div·class="line"><a·name="l03930"></a><span·class="lineno">·3930</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03931"></a><span·class="lineno">·3931</span> sub·Flatten·{</div><div·class="line"><a·name="l03932"></a><span·class="lineno">·3932</span> }</div><div·class="line"><a·name="l03933"></a><span·class="lineno">·3933</span> </div><div·class="line"><a·name="l03934"></a><span·class="lineno">·3934</span> <span·class="preprocessor">#**·@method·scalar·GeometryTypeModify($type,·$modifier)</span></div><div·class="line"><a·name="l03935"></a><span·class="lineno">·3935</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03936"></a><span·class="lineno">·3936</span> <span·class="preprocessor">#·@param·type·a·geometry·type·(one·of·Geo::OGR::GeometryTypes).</span></div><div·class="line"><a·name="l03937"></a><span·class="lineno">·3937</span> <span·class="preprocessor">#·@param·modifier·one·of·'flatten',·'set_Z',·'make_collection',·'make_curve',·or·'make_linear'.</span></div><div·class="line"><a·name="l03938"></a><span·class="lineno">·3938</span> <span·class="preprocessor">#·@return·modified·geometry·type.</span></div><div·class="line"><a·name="l03939"></a><span·class="lineno">·3939</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03940"></a><span·class="lineno">·3940</span> sub·GeometryTypeModify·{</div><div·class="line"><a·name="l03941"></a><span·class="lineno">·3941</span> ····my($type,·$modifier)·=·@_;</div><div·class="line"><a·name="l03942"></a><span·class="lineno">·3942</span> ····$type·=·s2i(geometry_type·=>·$type);</div><div·class="line"><a·name="l03943"></a><span·class="lineno">·3943</span> ····<span·class="keywordflow">return</span>·i2s(geometry_type·=>·GT_Flatten($type))·<span·class="keywordflow">if</span>·$modifier·=~·/flat/i;</div><div·class="line"><a·name="l03944"></a><span·class="lineno">·3944</span> ····<span·class="keywordflow">return</span>·i2s(geometry_type·=>·GT_SetZ($type))·<span·class="keywordflow">if</span>·$modifier·=~·/z/i;</div><div·class="line"><a·name="l03945"></a><span·class="lineno">·3945</span> ····<span·class="keywordflow">return</span>·i2s(geometry_type·=>·GT_GetCollection($type))·<span·class="keywordflow">if</span>·$modifier·=~·/collection/i;</div><div·class="line"><a·name="l03946"></a><span·class="lineno">·3946</span> ····<span·class="keywordflow">return</span>·i2s(geometry_type·=>·GT_GetCurve($type))·<span·class="keywordflow">if</span>·$modifier·=~·/curve/i;</div><div·class="line"><a·name="l03947"></a><span·class="lineno">·3947</span> ····<span·class="keywordflow">return</span>·i2s(geometry_type·=>·GT_GetLinear($type))·<span·class="keywordflow">if</span>·$modifier·=~·/linear/i;</div><div·class="line"><a·name="l03948"></a><span·class="lineno">·3948</span> ····error(1,·$modifier,·{Flatten·=>·1,·SetZ·=>·1,·GetCollection·=>·1,·GetCurve·=>·1,·GetLinear·=>·1});</div><div·class="line"><a·name="l03949"></a><span·class="lineno">·3949</span> }</div><div·class="line"><a·name="l03950"></a><span·class="lineno">·3950</span> </div><div·class="line"><a·name="l03951"></a><span·class="lineno">·3951</span> <span·class="preprocessor">#**·@method·scalar·GeometryTypeTest($type,·$test,·$type2)</span></div><div·class="line"><a·name="l03952"></a><span·class="lineno">·3952</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03953"></a><span·class="lineno">·3953</span> <span·class="preprocessor">#·@param·type·a·geometry·type·(one·of·Geo::OGR::GeometryTypes).</span></div><div·class="line"><a·name="l03954"></a><span·class="lineno">·3954</span> <span·class="preprocessor">#·@param·test·one·of·'has_z',·'is_subclass_of',·'is_curve',·'is_surface',·or·'is_non_linear'.</span></div><div·class="line"><a·name="l03955"></a><span·class="lineno">·3955</span> <span·class="preprocessor">#·@param·type2·a·geometry·type·(one·of·Geo::OGR::GeometryTypes).·Required·for·'is_subclass_of'·test.</span></div><div·class="line"><a·name="l03956"></a><span·class="lineno">·3956</span> <span·class="preprocessor">#·@return·result·of·the·test.</span></div><div·class="line"><a·name="l03957"></a><span·class="lineno">·3957</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03958"></a><span·class="lineno">·3958</span> sub·GeometryTypeTest·{</div><div·class="line"><a·name="l03959"></a><span·class="lineno">·3959</span> ····my($type,·$test,·$type2)·=·@_;</div><div·class="line"><a·name="l03960"></a><span·class="lineno">·3960</span> ····$type·=·s2i(geometry_type·=>·$type);</div><div·class="line"><a·name="l03961"></a><span·class="lineno">·3961</span> ····<span·class="keywordflow">if</span>·(defined·$type2)·{</div><div·class="line"><a·name="l03962"></a><span·class="lineno">·3962</span> ········$type·=·s2i(geometry_type·=>·$type);</div><div·class="line"><a·name="l03963"></a><span·class="lineno">·3963</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l03964"></a><span·class="lineno">·3964</span> ········error(<span·class="stringliteral">"Usage:·GeometryTypeTest(type1,·'is_subclass_of',·type2)."</span>)·<span·class="keywordflow">if</span>·$test·=~·/subclass/i;</div><div·class="line"><a·name="l03965"></a><span·class="lineno">·3965</span> ····}</div><div·class="line"><a·name="l03966"></a><span·class="lineno">·3966</span> ····<span·class="keywordflow">return</span>·GT_HasZ($type)·<span·class="keywordflow">if</span>·$test·=~·/z/i;</div><div·class="line"><a·name="l03967"></a><span·class="lineno">·3967</span> ····<span·class="keywordflow">return</span>·GT_IsSubClassOf($type,·$type2)·<span·class="keywordflow">if</span>·$test·=~·/subclass/i;</div><div·class="line"><a·name="l03968"></a><span·class="lineno">·3968</span> ····<span·class="keywordflow">return</span>·GT_IsCurve($type)·<span·class="keywordflow">if</span>·$test·=~·/curve/i;</div><div·class="line"><a·name="l03969"></a><span·class="lineno">·3969</span> ····<span·class="keywordflow">return</span>·GT_IsSurface($type)·<span·class="keywordflow">if</span>·$test·=~·/surface/i;</div><div·class="line"><a·name="l03970"></a><span·class="lineno">·3970</span> ····<span·class="keywordflow">return</span>·GT_IsNonLinear($type)·<span·class="keywordflow">if</span>·$test·=~·/linear/i;</div><div·class="line"><a·name="l03971"></a><span·class="lineno">·3971</span> ····error(1,·$test,·{HasZ·=>·1,·IsSubClassOf·=>·1,·IsCurve·=>·1,·IsSurface·=>·1,·IsNonLinear·=>·1});</div><div·class="line"><a·name="l03972"></a><span·class="lineno">·3972</span> }</div><div·class="line"><a·name="l03973"></a><span·class="lineno">·3973</span> </div><div·class="line"><a·name="l03974"></a><span·class="lineno">·3974</span> <span·class="preprocessor">#**·@method·list·GeometryTypes()</span></div><div·class="line"><a·name="l03975"></a><span·class="lineno">·3975</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03976"></a><span·class="lineno">·3976</span> <span·class="preprocessor">#·@return·a·list·of·all·geometry·types,·currently:</span></div><div·class="line"><a·name="l03977"></a><span·class="lineno">·3977</span> <span·class="preprocessor">#·CircularString,·CircularStringM,·CircularStringZ,·CircularStringZM,·CompoundCurve,·CompoundCurveM,·CompoundCurveZ,·CompoundCurveZM,·Curve,·CurveM,·CurvePolygon,·CurvePolygonM,·CurvePolygonZ,·CurvePolygonZM,·CurveZ,·CurveZM,·GeometryCollection,·GeometryCollection25D,·GeometryCollectionM,·GeometryCollectionZM,·LineString,·LineString25D,·LineStringM,·LineStringZM,·LinearRing,·MultiCurve,·MultiCurveM,·MultiCurveZ,·MultiCurveZM,·MultiLineString,·MultiLineString25D,·MultiLineStringM,·MultiLineStringZM,·MultiPoint,·MultiPoint25D,·MultiPointM,·MultiPointZM,·MultiPolygon,·MultiPolygon25D,·MultiPolygonM,·MultiPolygonZM,·MultiSurface,·MultiSurfaceM,·MultiSurfaceZ,·MultiSurfaceZM,·None,·Point,·Point25D,·PointM,·PointZM,·Polygon,·Polygon25D,·PolygonM,·PolygonZM,·PolyhedralSurface,·PolyhedralSurfaceM,·PolyhedralSurfaceZ,·PolyhedralSurfaceZM,·Surface,·SurfaceM,·SurfaceZ,·SurfaceZM,·TIN,·TINM,·TINZ,·TINZM,·Triangle,·TriangleM,·TriangleZ,·TriangleZM,·and·Unknown.</span></div><div·class="line"><a·name="l03978"></a><span·class="lineno">·3978</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03979"></a><span·class="lineno">·3979</span> sub·GeometryTypes·{</div><div·class="line"><a·name="l03980"></a><span·class="lineno">·3980</span> ·····1;</div><div·class="line"><a·name="l03981"></a><span·class="lineno">·3981</span> <span·class="preprocessor">·····#·This·file·was·automatically·generated·by·SWIG·(http://www.swig.org).</span></div><div·class="line"><a·name="l03982"></a><span·class="lineno">·3982</span> <span·class="preprocessor">·····#·Version·2.0.12</span></div><div·class="line"><a·name="l03983"></a><span·class="lineno">·3983</span> <span·class="preprocessor">·····#</span></div><div·class="line"><a·name="l03984"></a><span·class="lineno">·3984</span> <span·class="preprocessor">·····#·Do·not·make·changes·to·this·file·unless·you·know·what·you·are·doing--modify</span></div><div·class="line"><a·name="l03985"></a><span·class="lineno">·3985</span> <span·class="preprocessor">·····#·the·SWIG·interface·file·instead.</span></div><div·class="line"><a·name="l03986"></a><span·class="lineno">·3986</span> }</div><div·class="line"><a·name="l03987"></a><span·class="lineno">·3987</span> </div><div·class="line"><a·name="l03988"></a><span·class="lineno">·3988</span> <span·class="preprocessor">#**·@method·GetNonLinearGeometriesEnabledFlag()</span></div><div·class="line"><a·name="l03989"></a><span·class="lineno">·3989</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03990"></a><span·class="lineno">·3990</span> sub·GetNonLinearGeometriesEnabledFlag·{</div><div·class="line"><a·name="l03991"></a><span·class="lineno">·3991</span> }</div><div·class="line"><a·name="l03992"></a><span·class="lineno">·3992</span> </div><div·class="line"><a·name="l03993"></a><span·class="lineno">·3993</span> <span·class="preprocessor">#**·@method·GetOpenDSCount()</span></div><div·class="line"><a·name="l03994"></a><span·class="lineno">·3994</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03995"></a><span·class="lineno">·3995</span> sub·GetOpenDSCount·{</div><div·class="line"><a·name="l03996"></a><span·class="lineno">·3996</span> }</div><div·class="line"><a·name="l03997"></a><span·class="lineno">·3997</span> </div><div·class="line"><a·name="l03998"></a><span·class="lineno">·3998</span> <span·class="preprocessor">#**·@method·HasM()</span></div><div·class="line"><a·name="l03999"></a><span·class="lineno">·3999</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04000"></a><span·class="lineno">·4000</span> sub·HasM·{</div><div·class="line"><a·name="l04001"></a><span·class="lineno">·4001</span> }</div><div·class="line"><a·name="l04002"></a><span·class="lineno">·4002</span> </div><div·class="line"><a·name="l04003"></a><span·class="lineno">·4003</span> <span·class="preprocessor">#**·@method·HasZ()</span></div><div·class="line"><a·name="l04004"></a><span·class="lineno">·4004</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04005"></a><span·class="lineno">·4005</span> sub·HasZ·{</div><div·class="line"><a·name="l04006"></a><span·class="lineno">·4006</span> }</div><div·class="line"><a·name="l04007"></a><span·class="lineno">·4007</span> </div><div·class="line"><a·name="l04008"></a><span·class="lineno">·4008</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Open($name,·$update·=·0)</span></div><div·class="line"><a·name="l04009"></a><span·class="lineno">·4009</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04010"></a><span·class="lineno">·4010</span> <span·class="preprocessor">#·Open·a·vector·data·source.</span></div><div·class="line"><a·name="l04011"></a><span·class="lineno">·4011</span> <span·class="preprocessor">#·@param·name·The·data·source·string·(directory,·filename,·etc.).</span></div><div·class="line"><a·name="l04012"></a><span·class="lineno">·4012</span> <span·class="preprocessor">#·@param·update·Whether·to·open·the·data·source·in·update·mode·(default·is·not).</span></div><div·class="line"><a·name="l04013"></a><span·class="lineno">·4013</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::Dataset·object.</span></div><div·class="line"><a·name="l04014"></a><span·class="lineno">·4014</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04015"></a><span·class="lineno">·4015</span> sub·Open·{</div><div·class="line"><a·name="l04016"></a><span·class="lineno">·4016</span> ····my·@p·=·@_;·#·name,·update</div><div·class="line"><a·name="l04017"></a><span·class="lineno">·4017</span> ····my·@flags·=·qw/VECTOR/;</div><div·class="line"><a·name="l04018"></a><span·class="lineno">·4018</span> ····push·@flags,·qw/UPDATE/·<span·class="keywordflow">if</span>·$p[1];</div><div·class="line"><a·name="l04019"></a><span·class="lineno">·4019</span> ····my·$dataset·=·<a·class="code"·href="classGeo_1_1GDAL.html#a5d0de6aa75caf703436d2a720b654bb6">Geo::GDAL::OpenEx</a>($p[0],·\@flags);</div><div·class="line"><a·name="l04020"></a><span·class="lineno">·4020</span> ····error(<span·class="stringliteral">"Failed·to·open·$p[0].·Is·it·a·vector·dataset?"</span>)·unless·$dataset;</div><div·class="line"><a·name="l04021"></a><span·class="lineno">·4021</span> ····<span·class="keywordflow">return</span>·$dataset;</div><div·class="line"><a·name="l04022"></a><span·class="lineno">·4022</span> }</div><div·class="line"><a·name="l04023"></a><span·class="lineno">·4023</span> </div><div·class="line"><a·name="l04024"></a><span·class="lineno">·4024</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·OpenShared($name,·$update·=·0)</span></div><div·class="line"><a·name="l04025"></a><span·class="lineno">·4025</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04026"></a><span·class="lineno">·4026</span> <span·class="preprocessor">#·Open·a·vector·data·source·in·shared·mode.</span></div><div·class="line"><a·name="l04027"></a><span·class="lineno">·4027</span> <span·class="preprocessor">#·@param·name·The·data·source·string·(directory,·filename,·etc.).</span></div><div·class="line"><a·name="l04028"></a><span·class="lineno">·4028</span> <span·class="preprocessor">#·@param·update·Whether·to·open·the·data·source·in·update·mode.</span></div><div·class="line"><a·name="l04029"></a><span·class="lineno">·4029</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::Dataset·object.</span></div><div·class="line"><a·name="l04030"></a><span·class="lineno">·4030</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04031"></a><span·class="lineno">·4031</span> sub·OpenShared·{</div><div·class="line"><a·name="l04032"></a><span·class="lineno">·4032</span> ····my·@p·=·@_;·#·name,·update</div><div·class="line"><a·name="l04033"></a><span·class="lineno">·4033</span> ····my·@flags·=·qw/VECTOR·SHARED/;</div><div·class="line"><a·name="l04034"></a><span·class="lineno">·4034</span> ····push·@flags,·qw/UPDATE/·<span·class="keywordflow">if</span>·$p[1];</div><div·class="line"><a·name="l04035"></a><span·class="lineno">·4035</span> ····my·$dataset·=·<a·class="code"·href="classGeo_1_1GDAL.html#a5d0de6aa75caf703436d2a720b654bb6">Geo::GDAL::OpenEx</a>($p[0],·\@flags);</div><div·class="line"><a·name="l04036"></a><span·class="lineno">·4036</span> ····error(<span·class="stringliteral">"Failed·to·open·$p[0].·Is·it·a·vector·dataset?"</span>)·unless·$dataset;</div><div·class="line"><a·name="l04037"></a><span·class="lineno">·4037</span> ····<span·class="keywordflow">return</span>·$dataset;</div><div·class="line"><a·name="l04038"></a><span·class="lineno">·4038</span> }</div><div·class="line"><a·name="l04039"></a><span·class="lineno">·4039</span> </div><div·class="line"><a·name="l04040"></a><span·class="lineno">·4040</span> <span·class="preprocessor">#**·@method·SetGenerate_DB2_V72_BYTE_ORDER($Generate_DB2_V72_BYTE_ORDER)</span></div><div·class="line"><a·name="l04041"></a><span·class="lineno">·4041</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04042"></a><span·class="lineno">·4042</span> <span·class="preprocessor">#·Needed·only·on·IBM·DB2.</span></div><div·class="line"><a·name="l04043"></a><span·class="lineno">·4043</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04044"></a><span·class="lineno">·4044</span> sub·SetGenerate_DB2_V72_BYTE_ORDER·{</div><div·class="line"><a·name="l04045"></a><span·class="lineno">·4045</span> }</div><div·class="line"><a·name="l04046"></a><span·class="lineno">·4046</span> </div><div·class="line"><a·name="l04047"></a><span·class="lineno">·4047</span> <span·class="preprocessor">#**·@method·SetNonLinearGeometriesEnabledFlag()</span></div><div·class="line"><a·name="l04048"></a><span·class="lineno">·4048</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04049"></a><span·class="lineno">·4049</span> sub·SetNonLinearGeometriesEnabledFlag·{</div><div·class="line"><a·name="l04050"></a><span·class="lineno">·4050</span> }</div><div·class="line"><a·name="l04051"></a><span·class="lineno">·4051</span> </div><div·class="line"><a·name="l04052"></a><span·class="lineno">·4052</span> <span·class="preprocessor">#**·@class·Geo::OGR::DataSource</span></div><div·class="line"><a·name="l04053"></a><span·class="lineno">·4053</span> <span·class="preprocessor">#·@brief·A·vector·dataset.</span></div><div·class="line"><a·name="l04054"></a><span·class="lineno">·4054</span> <span·class="preprocessor">#·@details·This·is·a·legacy·class·which·should·not·be</span></div><div·class="line"><a·name="l04055"></a><span·class="lineno">·4055</span> <span·class="preprocessor">#·used·in·new·code.·Use·Geo::GDAL::Dataset.</span></div><div·class="line"><a·name="l04056"></a><span·class="lineno">·4056</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04057"></a><span·class="lineno">·4057</span> <span·class="keyword">package·</span>Geo::OGR::DataSource;</div><div·class="line"><a·name="l04058"></a><span·class="lineno">·4058</span> </div><div·class="line"><a·name="l04059"></a><span·class="lineno">·4059</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Open()</span></div><div·class="line"><a·name="l04060"></a><span·class="lineno">·4060</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l04061"></a><span·class="lineno">·4061</span> <span·class="preprocessor">#·The·same·as·Geo::OGR::Open</span></div><div·class="line"><a·name="l04062"></a><span·class="lineno">·4062</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04063"></a><span·class="lineno">·4063</span> sub·Open·{</div><div·class="line"><a·name="l04064"></a><span·class="lineno">·4064</span> }</div><div·class="line"><a·name="l04065"></a><span·class="lineno">·4065</span> </div><div·class="line"><a·name="l04066"></a><span·class="lineno">·4066</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·OpenShared()</span></div><div·class="line"><a·name="l04067"></a><span·class="lineno">·4067</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l04068"></a><span·class="lineno">·4068</span> <span·class="preprocessor">#·The·same·as·Geo::OGR::OpenShared</span></div><div·class="line"><a·name="l04069"></a><span·class="lineno">·4069</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04070"></a><span·class="lineno">·4070</span> sub·OpenShared·{</div><div·class="line"><a·name="l04071"></a><span·class="lineno">·4071</span> }</div><div·class="line"><a·name="l04072"></a><span·class="lineno">·4072</span> </div><div·class="line"><a·name="l04073"></a><span·class="lineno">·4073</span> <span·class="preprocessor">#**·@class·Geo::OGR::Driver</span></div><div·class="line"><a·name="l04074"></a><span·class="lineno">·4074</span> <span·class="preprocessor">#·@brief·A·vector·format·driver.</span></div><div·class="line"><a·name="l04075"></a><span·class="lineno">·4075</span> <span·class="preprocessor">#·@details·This·is·a·legacy·class·which</span></div><div·class="line"><a·name="l04076"></a><span·class="lineno">·4076</span> <span·class="preprocessor">#·should·not·be·used·in·new·code.·Use·Geo::GDAL::Driver.</span></div><div·class="line"><a·name="l04077"></a><span·class="lineno">·4077</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04078"></a><span·class="lineno">·4078</span> <span·class="keyword">package·</span>Geo::OGR::Driver;</div><div·class="line"><a·name="l04079"></a><span·class="lineno">·4079</span> </div><div·class="line"><a·name="l04080"></a><span·class="lineno">·4080</span> use·base·qw(<a·class="code"·href="classGeo_1_1GDAL_1_1Driver.html">Geo::GDAL::Driver</a>)</div><div·class="line"><a·name="l04081"></a><span·class="lineno">·4081</span> </div><div·class="line"><a·name="l04082"></a><span·class="lineno">·4082</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Copy(Geo::GDAL::Dataset·source,·$name,·arrayref·options·=·undef)</span></div><div·class="line"><a·name="l04083"></a><span·class="lineno">·4083</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04084"></a><span·class="lineno">·4084</span> <span·class="preprocessor">#·Copy·a·vector·data·source·into·a·new·data·source·with·this·driver.</span></div><div·class="line"><a·name="l04085"></a><span·class="lineno">·4085</span> <span·class="preprocessor">#·@param·source·The·Geo::GDAL::Dataset·object·to·be·copied.</span></div><div·class="line"><a·name="l04086"></a><span·class="lineno">·4086</span> <span·class="preprocessor">#·@param·name·The·name·for·the·new·data·source.</span></div><div·class="line"><a·name="l04087"></a><span·class="lineno">·4087</span> <span·class="preprocessor">#·@param·options·Driver·specific·options.·In·addition·to·options</span></div><div·class="line"><a·name="l04088"></a><span·class="lineno">·4088</span> <span·class="preprocessor">#·specified·in·GDAL·documentation·the·option·STRICT·can·be·set·to·'NO'</span></div><div·class="line"><a·name="l04089"></a><span·class="lineno">·4089</span> <span·class="preprocessor">#·for·a·more·relaxed·copy.·Otherwise·the·STRICT·is·'YES'.</span></div><div·class="line"><a·name="l04090"></a><span·class="lineno">·4090</span> <span·class="preprocessor">#·@note·The·order·of·the·first·two·parameters·is·different·from·that·in·Geo::GDAL::Driver::Copy.</span></div><div·class="line"><a·name="l04091"></a><span·class="lineno">·4091</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::Dataset·object.</span></div><div·class="line"><a·name="l04092"></a><span·class="lineno">·4092</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04093"></a><span·class="lineno">·4093</span> sub·Copy·{</div><div·class="line"><a·name="l04094"></a><span·class="lineno">·4094</span> ····my·($self,·@p)·=·@_;·#·src,·name,·options</div><div·class="line"><a·name="l04095"></a><span·class="lineno">·4095</span> ····my·$strict·=·1;·#·the·<span·class="keywordflow">default</span>·in·bindings</div><div·class="line"><a·name="l04096"></a><span·class="lineno">·4096</span> ····$strict·=·0·<span·class="keywordflow">if</span>·$p[2]·&&·$p[2]->{STRICT}·eq·<span·class="stringliteral">'NO'</span>;</div><div·class="line"><a·name="l04097"></a><span·class="lineno">·4097</span> ····$self->SUPER::Copy($p[1],·$p[0],·$strict,·@{$p[2..4]});·#·path,·src,·strict,·options,·cb,·cb_data</div><div·class="line"><a·name="l04098"></a><span·class="lineno">·4098</span> }</div><div·class="line"><a·name="l04099"></a><span·class="lineno">·4099</span> </div><div·class="line"><a·name="l04100"></a><span·class="lineno">·4100</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Create($name,·hashref·options·=·undef·)</span></div><div·class="line"><a·name="l04101"></a><span·class="lineno">·4101</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04102"></a><span·class="lineno">·4102</span> <span·class="preprocessor">#·Create·a·new·vector·data·source·using·this·driver.</span></div><div·class="line"><a·name="l04103"></a><span·class="lineno">·4103</span> <span·class="preprocessor">#·@param·name·The·data·source·name.</span></div><div·class="line"><a·name="l04104"></a><span·class="lineno">·4104</span> <span·class="preprocessor">#·@param·options·Driver·specific·dataset·creation·options.</span></div><div·class="line"><a·name="l04105"></a><span·class="lineno">·4105</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04106"></a><span·class="lineno">·4106</span> sub·Create·{</div><div·class="line"><a·name="l04107"></a><span·class="lineno">·4107</span> ····my·($self,·$name,·$options)·=·@_;·#·name,·options</div><div·class="line"><a·name="l04108"></a><span·class="lineno">·4108</span> ····$options·<span·class="comment">//=·{};</span></div><div·class="line"><a·name="l04109"></a><span·class="lineno">·4109</span> ····$self->SUPER::Create(Name·=>·$name,·Width·=>·0,·Height·=>·0,·Bands·=>·0,·Type·=>·<span·class="stringliteral">'Byte'</span>,·Options·=>·$options);</div><div·class="line"><a·name="l04110"></a><span·class="lineno">·4110</span> }</div><div·class="line"><a·name="l04111"></a><span·class="lineno">·4111</span> </div><div·class="line"><a·name="l04112"></a><span·class="lineno">·4112</span> <span·class="preprocessor">#**·@method·Open()</span></div><div·class="line"><a·name="l04113"></a><span·class="lineno">·4113</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04114"></a><span·class="lineno">·4114</span> <span·class="preprocessor">#·The·same·as·Geo::OGR::Open·except·that·only·this·driver·is·allowed.</span></div><div·class="line"><a·name="l04115"></a><span·class="lineno">·4115</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04116"></a><span·class="lineno">·4116</span> sub·Open·{</div><div·class="line"><a·name="l04117"></a><span·class="lineno">·4117</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04118"></a><span·class="lineno">·4118</span> ····my·@p·=·@_;·#·name,·update</div><div·class="line"><a·name="l04119"></a><span·class="lineno">·4119</span> ····my·@flags·=·qw/VECTOR/;</div><div·class="line"><a·name="l04120"></a><span·class="lineno">·4120</span> ····push·@flags,·qw/UPDATE/·<span·class="keywordflow">if</span>·$p[1];</div><div·class="line"><a·name="l04121"></a><span·class="lineno">·4121</span> ····my·$dataset·=·<a·class="code"·href="classGeo_1_1GDAL.html#a5d0de6aa75caf703436d2a720b654bb6">Geo::GDAL::OpenEx</a>($p[0],·\@flags,·[$self->Name()]);</div><div·class="line"><a·name="l04122"></a><span·class="lineno">·4122</span> ····error(<span·class="stringliteral">"Failed·to·open·$p[0].·Is·it·a·vector·dataset?"</span>)·unless·$dataset;</div><div·class="line"><a·name="l04123"></a><span·class="lineno">·4123</span> ····<span·class="keywordflow">return</span>·$dataset;</div><div·class="line"><a·name="l04124"></a><span·class="lineno">·4124</span> }</div><div·class="line"><a·name="l04125"></a><span·class="lineno">·4125</span> </div><div·class="line"><a·name="l04126"></a><span·class="lineno">·4126</span> <span·class="preprocessor">#**·@class·Geo::OGR::Feature</span></div><div·class="line"><a·name="l04127"></a><span·class="lineno">·4127</span> <span·class="preprocessor">#·@brief·A·collection·of·non-spatial·and·spatial·attributes.</span></div><div·class="line"><a·name="l04128"></a><span·class="lineno">·4128</span> <span·class="preprocessor">#·@details·A·feature·is·a·collection·of·non-spatial·and·spatial·attributes·and</span></div><div·class="line"><a·name="l04129"></a><span·class="lineno">·4129</span> <span·class="preprocessor">#·an·id,·which·is·a·special·attribute,·and·data·records·according·to</span></div><div·class="line"><a·name="l04130"></a><span·class="lineno">·4130</span> <span·class="preprocessor">#·this·data·model.·Attributes·are·called·fields·and·some·fields·are</span></div><div·class="line"><a·name="l04131"></a><span·class="lineno">·4131</span> <span·class="preprocessor">#·spatial,·i.e.,·their·value·is·a·geometry.·Fields·have·at·least·a</span></div><div·class="line"><a·name="l04132"></a><span·class="lineno">·4132</span> <span·class="preprocessor">#·name·and·a·type.·Features·may·exist·within·a·layer·or</span></div><div·class="line"><a·name="l04133"></a><span·class="lineno">·4133</span> <span·class="preprocessor">#·separetely.·The·data·model·of·a·feature·is·a·definition·object.</span></div><div·class="line"><a·name="l04134"></a><span·class="lineno">·4134</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04135"></a><span·class="lineno">·4135</span> <span·class="keyword">package·</span>Geo::OGR::Feature;</div><div·class="line"><a·name="l04136"></a><span·class="lineno">·4136</span> </div><div·class="line"><a·name="l04137"></a><span·class="lineno">·4137</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1OGR.html">Geo::OGR</a>)</div><div·class="line"><a·name="l04138"></a><span·class="lineno">·4138</span> </div><div·class="line"><a·name="l04139"></a><span·class="lineno">·4139</span> <span·class="preprocessor">#**·@method·Geo::OGR::Feature·Clone()</span></div><div·class="line"><a·name="l04140"></a><span·class="lineno">·4140</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04141"></a><span·class="lineno">·4141</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Feature·object</span></div><div·class="line"><a·name="l04142"></a><span·class="lineno">·4142</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04143"></a><span·class="lineno">·4143</span> sub·Clone·{</div><div·class="line"><a·name="l04144"></a><span·class="lineno">·4144</span> }</div><div·class="line"><a·name="l04145"></a><span·class="lineno">·4145</span> </div><div·class="line"><a·name="l04146"></a><span·class="lineno">·4146</span> <span·class="preprocessor">#**·@method·DumpReadable()</span></div><div·class="line"><a·name="l04147"></a><span·class="lineno">·4147</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04148"></a><span·class="lineno">·4148</span> <span·class="preprocessor">#·Write·the·contents·of·this·feature·to·stdout.</span></div><div·class="line"><a·name="l04149"></a><span·class="lineno">·4149</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04150"></a><span·class="lineno">·4150</span> sub·DumpReadable·{</div><div·class="line"><a·name="l04151"></a><span·class="lineno">·4151</span> }</div><div·class="line"><a·name="l04152"></a><span·class="lineno">·4152</span> </div><div·class="line"><a·name="l04153"></a><span·class="lineno">·4153</span> <span·class="preprocessor">#**·@method·scalar·Equal($feature)</span></div><div·class="line"><a·name="l04154"></a><span·class="lineno">·4154</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04155"></a><span·class="lineno">·4155</span> <span·class="preprocessor">#·@param·feature·a·Geo::OGR::Feature·object·for·comparison</span></div><div·class="line"><a·name="l04156"></a><span·class="lineno">·4156</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l04157"></a><span·class="lineno">·4157</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04158"></a><span·class="lineno">·4158</span> sub·Equal·{</div><div·class="line"><a·name="l04159"></a><span·class="lineno">·4159</span> }</div><div·class="line"><a·name="l04160"></a><span·class="lineno">·4160</span> </div><div·class="line"><a·name="l04161"></a><span·class="lineno">·4161</span> <span·class="preprocessor">#**·@method·scalar·FID($id)</span></div><div·class="line"><a·name="l04162"></a><span·class="lineno">·4162</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04163"></a><span·class="lineno">·4163</span> <span·class="preprocessor">#·@brief·Get·or·set·the·id·of·this·feature.</span></div><div·class="line"><a·name="l04164"></a><span·class="lineno">·4164</span> <span·class="preprocessor">#·@param·id·[optional]·the·id·to·set·for·this·feature.</span></div><div·class="line"><a·name="l04165"></a><span·class="lineno">·4165</span> <span·class="preprocessor">#·@return·integer·the·id·of·this·feature.</span></div><div·class="line"><a·name="l04166"></a><span·class="lineno">·4166</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04167"></a><span·class="lineno">·4167</span> sub·FID·{</div><div·class="line"><a·name="l04168"></a><span·class="lineno">·4168</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04169"></a><span·class="lineno">·4169</span> ····$self->SetFID($_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l04170"></a><span·class="lineno">·4170</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l04171"></a><span·class="lineno">·4171</span> ····$self->GetFID;</div><div·class="line"><a·name="l04172"></a><span·class="lineno">·4172</span> }</div><div·class="line"><a·name="l04173"></a><span·class="lineno">·4173</span> </div><div·class="line"><a·name="l04174"></a><span·class="lineno">·4174</span> <span·class="preprocessor">#**·@method·Field($name,·$value,·...)</span></div><div·class="line"><a·name="l04175"></a><span·class="lineno">·4175</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04176"></a><span·class="lineno">·4176</span> <span·class="preprocessor">#·@brief·Get,·set,·or·unset·the·field·value.</span></div><div·class="line"><a·name="l04177"></a><span·class="lineno">·4177</span> <span·class="preprocessor">#·@param·name·the·name·(or·the·index)·of·the·field.</span></div><div·class="line"><a·name="l04178"></a><span·class="lineno">·4178</span> <span·class="preprocessor">#·@param·value·a·scalar,·a·list·of·scalars·or·a·reference·to·a</span></div><div·class="line"><a·name="l04179"></a><span·class="lineno">·4179</span> <span·class="preprocessor">#·list.·If·undef,·the·field·is·unset.·If·a·scalar·or·a·list·of</span></div><div·class="line"><a·name="l04180"></a><span·class="lineno">·4180</span> <span·class="preprocessor">#·scalars,·the·field·is·set·from·them.</span></div><div·class="line"><a·name="l04181"></a><span·class="lineno">·4181</span> <span·class="preprocessor">#·@note·Non-scalar·fields·(for·example·Date)·can·be·set·either·from·a</span></div><div·class="line"><a·name="l04182"></a><span·class="lineno">·4182</span> <span·class="preprocessor">#·scalar,·which·is·then·assumed·to·be·a·string·and·parsed,·or·from·a</span></div><div·class="line"><a·name="l04183"></a><span·class="lineno">·4183</span> <span·class="preprocessor">#·list·of·values·(for·example·year,·month,·day·for·Date).</span></div><div·class="line"><a·name="l04184"></a><span·class="lineno">·4184</span> <span·class="preprocessor">#·@note·Setting·and·getting·Integer64·fields·requires·'use·bigint'·if</span></div><div·class="line"><a·name="l04185"></a><span·class="lineno">·4185</span> <span·class="preprocessor">#·\$Config{ivsize}·is·smaller·than·8,·i.e.,·in·a·32·bit·machine.</span></div><div·class="line"><a·name="l04186"></a><span·class="lineno">·4186</span> <span·class="preprocessor">#·@return·in·non-void·context·the·value·of·the·field,·which·may·be·a</span></div><div·class="line"><a·name="l04187"></a><span·class="lineno">·4187</span> <span·class="preprocessor">#·scalar·or·a·list,·depending·on·the·field·type.·For·unset·fields·the</span></div><div·class="line"><a·name="l04188"></a><span·class="lineno">·4188</span> <span·class="preprocessor">#·undef·value·is·returned.</span></div><div·class="line"><a·name="l04189"></a><span·class="lineno">·4189</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04190"></a><span·class="lineno">·4190</span> sub·Field·{</div><div·class="line"><a·name="l04191"></a><span·class="lineno">·4191</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04192"></a><span·class="lineno">·4192</span> ····my·$field·=·$self->GetFieldIndex(shift·<span·class="comment">//·0);</span></div><div·class="line"><a·name="l04193"></a><span·class="lineno">·4193</span> ····$self->SetField($field,·@_)·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l04194"></a><span·class="lineno">·4194</span> ····$self->GetField($field)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l04195"></a><span·class="lineno">·4195</span> }</div><div·class="line"><a·name="l04196"></a><span·class="lineno">·4196</span> </div><div·class="line"><a·name="l04197"></a><span·class="lineno">·4197</span> <span·class="preprocessor">#**·@method·FillUnsetWithDefault()</span></div><div·class="line"><a·name="l04198"></a><span·class="lineno">·4198</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04199"></a><span·class="lineno">·4199</span> sub·FillUnsetWithDefault·{</div><div·class="line"><a·name="l04200"></a><span·class="lineno">·4200</span> }</div><div·class="line"><a·name="l04201"></a><span·class="lineno">·4201</span> </div><div·class="line"><a·name="l04202"></a><span·class="lineno">·4202</span> <span·class="preprocessor">#**·@method·Geometry($name,·$geometry)</span></div><div·class="line"><a·name="l04203"></a><span·class="lineno">·4203</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04204"></a><span·class="lineno">·4204</span> <span·class="preprocessor">#·@brief·Get·or·set·the·value·of·a·geometry·field.</span></div><div·class="line"><a·name="l04205"></a><span·class="lineno">·4205</span> <span·class="preprocessor">#·@note·This·method·delivers·the·functionality·of·undocumented·methods</span></div><div·class="line"><a·name="l04206"></a><span·class="lineno">·4206</span> <span·class="preprocessor">#·SetGeometry($geometry),·SetGeometryDirectly,·SetGeomField,</span></div><div·class="line"><a·name="l04207"></a><span·class="lineno">·4207</span> <span·class="preprocessor">#·SetGeomFieldDirectly,·GetGeometry,·GetGeometryRef.</span></div><div·class="line"><a·name="l04208"></a><span·class="lineno">·4208</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l04209"></a><span·class="lineno">·4209</span> <span·class="preprocessor">#·Set·or·get·the·geometry·in·the·feature.·When·setting,·does·a·check</span></div><div·class="line"><a·name="l04210"></a><span·class="lineno">·4210</span> <span·class="preprocessor">#·against·the·schema·(GeometryType)·of·the·feature.·If·the·parameter</span></div><div·class="line"><a·name="l04211"></a><span·class="lineno">·4211</span> <span·class="preprocessor">#·is·a·geometry·object,·it·is·cloned.</span></div><div·class="line"><a·name="l04212"></a><span·class="lineno">·4212</span> <span·class="preprocessor">#·@param·name·[optional]·the·name·of·the·spatial·field,</span></div><div·class="line"><a·name="l04213"></a><span·class="lineno">·4213</span> <span·class="preprocessor">#·whose·geometry·is·to·be·set.·If·not·given,·sets·or·gets·the·geometry</span></div><div·class="line"><a·name="l04214"></a><span·class="lineno">·4214</span> <span·class="preprocessor">#·of·the·first·(or·the·single)·spatial·field.</span></div><div·class="line"><a·name="l04215"></a><span·class="lineno">·4215</span> <span·class="preprocessor">#·@param·geometry·[optional]·a·Geo::OGR::Geometry·object·or·a</span></div><div·class="line"><a·name="l04216"></a><span·class="lineno">·4216</span> <span·class="preprocessor">#·reference·to·a·hash·from·which·such·can·be·created·(using</span></div><div·class="line"><a·name="l04217"></a><span·class="lineno">·4217</span> <span·class="preprocessor">#·Geo::OGR::Geometry::new).</span></div><div·class="line"><a·name="l04218"></a><span·class="lineno">·4218</span> <span·class="preprocessor">#·@return·in·a·non-void·context·the·indicated·geometry·in·the·feature</span></div><div·class="line"><a·name="l04219"></a><span·class="lineno">·4219</span> <span·class="preprocessor">#·as·a·Geo::OGR::Geometry·object.·The·returned·object·contains·a</span></div><div·class="line"><a·name="l04220"></a><span·class="lineno">·4220</span> <span·class="preprocessor">#·reference·to·the·actual·geometry·data·in·the·feature·(the·geometry</span></div><div·class="line"><a·name="l04221"></a><span·class="lineno">·4221</span> <span·class="preprocessor">#·is·not·cloned)·and·to·the·feature·object,·thus·keeping·the·feature</span></div><div·class="line"><a·name="l04222"></a><span·class="lineno">·4222</span> <span·class="preprocessor">#·object·from·being·destroyed·while·the·geometry·object·exists.</span></div><div·class="line"><a·name="l04223"></a><span·class="lineno">·4223</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04224"></a><span·class="lineno">·4224</span> sub·Geometry·{</div><div·class="line"><a·name="l04225"></a><span·class="lineno">·4225</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04226"></a><span·class="lineno">·4226</span> ····my·$field·=·((@_·>·0·and·ref($_[0])·eq·<span·class="stringliteral">''</span>)·or·(@_·>·2·and·@_·%·2·==·1))·?·shift·:·0;</div><div·class="line"><a·name="l04227"></a><span·class="lineno">·4227</span> ····$field·=·$self->GetGeomFieldIndex($field);</div><div·class="line"><a·name="l04228"></a><span·class="lineno">·4228</span> ····my·$geometry;</div><div·class="line"><a·name="l04229"></a><span·class="lineno">·4229</span> ····<span·class="keywordflow">if</span>·(@_·and·@_·%·2·==·0)·{</div><div·class="line"><a·name="l04230"></a><span·class="lineno">·4230</span> ········%$geometry·=·@_;</div><div·class="line"><a·name="l04231"></a><span·class="lineno">·4231</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l04232"></a><span·class="lineno">·4232</span> ········$geometry·=·shift;</div><div·class="line"><a·name="l04233"></a><span·class="lineno">·4233</span> ····}</div><div·class="line"><a·name="l04234"></a><span·class="lineno">·4234</span> ····<span·class="keywordflow">if</span>·($geometry)·{</div><div·class="line"><a·name="l04235"></a><span·class="lineno">·4235</span> ········my·$type·=·$self->GetDefn->GetGeomFieldDefn($field)->Type;</div><div·class="line"><a·name="l04236"></a><span·class="lineno">·4236</span> ········<span·class="keywordflow">if</span>·(blessed($geometry)·and·$geometry->isa(<span·class="stringliteral">'Geo::OGR::Geometry'</span>))·{</div><div·class="line"><a·name="l04237"></a><span·class="lineno">·4237</span> ············my·$gtype·=·$geometry->GeometryType;</div><div·class="line"><a·name="l04238"></a><span·class="lineno">·4238</span> ············error(<span·class="stringliteral">"The·type·of·the·inserted·geometry·('$gtype')·is·not·the·same·as·the·type·of·the·field·('$type')."</span>)</div><div·class="line"><a·name="l04239"></a><span·class="lineno">·4239</span> ················<span·class="keywordflow">if</span>·$type·ne·<span·class="stringliteral">'Unknown'</span>·and·$type·ne·$gtype;</div><div·class="line"><a·name="l04240"></a><span·class="lineno">·4240</span> ············eval·{</div><div·class="line"><a·name="l04241"></a><span·class="lineno">·4241</span> ················$self->SetGeomFieldDirectly($field,·$geometry->Clone);</div><div·class="line"><a·name="l04242"></a><span·class="lineno">·4242</span> ············};</div><div·class="line"><a·name="l04243"></a><span·class="lineno">·4243</span> ············confess·last_error()·<span·class="keywordflow">if</span>·$@;</div><div·class="line"><a·name="l04244"></a><span·class="lineno">·4244</span> ········}·elsif·(ref($geometry)·eq·<span·class="stringliteral">'HASH'</span>)·{</div><div·class="line"><a·name="l04245"></a><span·class="lineno">·4245</span> ············$geometry->{GeometryType}·<span·class="comment">//=·$type;</span></div><div·class="line"><a·name="l04246"></a><span·class="lineno">·4246</span> ············eval·{</div><div·class="line"><a·name="l04247"></a><span·class="lineno">·4247</span> ················$geometry·=·<a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html">Geo::OGR::Geometry</a>-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a95c4be922b97e1067d68340871a617c8">new</a>($geometry);</div><div·class="line"><a·name="l04248"></a><span·class="lineno">·4248</span> ············};</div><div·class="line"><a·name="l04249"></a><span·class="lineno">·4249</span> ············confess·last_error()·<span·class="keywordflow">if</span>·$@;</div><div·class="line"><a·name="l04250"></a><span·class="lineno">·4250</span> ············my·$gtype·=·$geometry-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a6bf531f121a61b5d4897845b05321a75">GeometryType</a>;</div><div·class="line"><a·name="l04251"></a><span·class="lineno">·4251</span> ············error(<span·class="stringliteral">"The·type·of·the·inserted·geometry·('$gtype')·is·not·the·same·as·the·type·of·the·field·('$type')."</span>)</div><div·class="line"><a·name="l04252"></a><span·class="lineno">·4252</span> ················<span·class="keywordflow">if</span>·$type·ne·<span·class="stringliteral">'Unknown'</span>·and·$type·ne·$gtype;</div><div·class="line"><a·name="l04253"></a><span·class="lineno">·4253</span> ············eval·{</div><div·class="line"><a·name="l04254"></a><span·class="lineno">·4254</span> ················$self->SetGeomFieldDirectly($field,·$geometry);</div><div·class="line"><a·name="l04255"></a><span·class="lineno">·4255</span> ············};</div><div·class="line"><a·name="l04256"></a><span·class="lineno">·4256</span> ············confess·last_error()·<span·class="keywordflow">if</span>·$@;</div><div·class="line"><a·name="l04257"></a><span·class="lineno">·4257</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l04258"></a><span·class="lineno">·4258</span> ············error(<span·class="stringliteral">"Usage:·\$feature->Geometry([field],[geometry])"</span>);</div><div·class="line"><a·name="l04259"></a><span·class="lineno">·4259</span> ········}</div><div·class="line"><a·name="l04260"></a><span·class="lineno">·4260</span> ····}</div><div·class="line"><a·name="l04261"></a><span·class="lineno">·4261</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l04262"></a><span·class="lineno">·4262</span> ····$geometry·=·$self->GetGeomFieldRef($field);</div><div·class="line"><a·name="l04263"></a><span·class="lineno">·4263</span> ····<span·class="keywordflow">return</span>·unless·$geometry;</div><div·class="line"><a·name="l04264"></a><span·class="lineno">·4264</span> ····keep($geometry,·$self);</div><div·class="line"><a·name="l04265"></a><span·class="lineno">·4265</span> }</div><div·class="line"><a·name="l04266"></a><span·class="lineno">·4266</span> </div><div·class="line"><a·name="l04267"></a><span·class="lineno">·4267</span> <span·class="preprocessor">#**·@method·Geo::OGR::FeatureDefn·GetDefn()</span></div><div·class="line"><a·name="l04268"></a><span·class="lineno">·4268</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04269"></a><span·class="lineno">·4269</span> <span·class="preprocessor">#·@note·A.k.a·GetDefnRef.</span></div><div·class="line"><a·name="l04270"></a><span·class="lineno">·4270</span> <span·class="preprocessor">#·@return·a·Geo::OGR::FeatureDefn·object,·which·represents·the·definition·of·this·feature.</span></div><div·class="line"><a·name="l04271"></a><span·class="lineno">·4271</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04272"></a><span·class="lineno">·4272</span> sub·GetDefn·{</div><div·class="line"><a·name="l04273"></a><span·class="lineno">·4273</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04274"></a><span·class="lineno">·4274</span> ····my·$defn·=·$self->GetDefnRef;</div><div·class="line"><a·name="l04275"></a><span·class="lineno">·4275</span> ····keep($defn,·$self);</div><div·class="line"><a·name="l04276"></a><span·class="lineno">·4276</span> }</div><div·class="line"><a·name="l04277"></a><span·class="lineno">·4277</span> </div><div·class="line"><a·name="l04278"></a><span·class="lineno">·4278</span> <span·class="preprocessor">#**·@method·scalar·GetFID()</span></div><div·class="line"><a·name="l04279"></a><span·class="lineno">·4279</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04280"></a><span·class="lineno">·4280</span> <span·class="preprocessor">#·@return·the·feature·id·(an·integer).</span></div><div·class="line"><a·name="l04281"></a><span·class="lineno">·4281</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04282"></a><span·class="lineno">·4282</span> sub·GetFID·{</div><div·class="line"><a·name="l04283"></a><span·class="lineno">·4283</span> }</div><div·class="line"><a·name="l04284"></a><span·class="lineno">·4284</span> </div><div·class="line"><a·name="l04285"></a><span·class="lineno">·4285</span> <span·class="preprocessor">#**·@method·list·GetField($name)</span></div><div·class="line"><a·name="l04286"></a><span·class="lineno">·4286</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04287"></a><span·class="lineno">·4287</span> <span·class="preprocessor">#·See·Field().</span></div><div·class="line"><a·name="l04288"></a><span·class="lineno">·4288</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04289"></a><span·class="lineno">·4289</span> sub·GetField·{</div><div·class="line"><a·name="l04290"></a><span·class="lineno">·4290</span> ····my·($self,·$field)·=·@_;</div><div·class="line"><a·name="l04291"></a><span·class="lineno">·4291</span> ····$field·=·$self->GetFieldIndex($field);</div><div·class="line"><a·name="l04292"></a><span·class="lineno">·4292</span> ····<span·class="keywordflow">return</span>·unless·IsFieldSet($self,·$field);</div><div·class="line"><a·name="l04293"></a><span·class="lineno">·4293</span> ····my·$type·=·GetFieldType($self,·$field);</div><div·class="line"><a·name="l04294"></a><span·class="lineno">·4294</span> ····<span·class="keywordflow">return</span>·GetFieldAsInteger($self,·$field)·<span·class="keywordflow">if</span>·$type·==·$Geo::OGR::OFTInteger;</div><div·class="line"><a·name="l04295"></a><span·class="lineno">·4295</span> ····<span·class="keywordflow">return</span>·GetFieldAsInteger64($self,·$field)·<span·class="keywordflow">if</span>·$type·==·$Geo::OGR::OFTInteger64;</div><div·class="line"><a·name="l04296"></a><span·class="lineno">·4296</span> ····<span·class="keywordflow">return</span>·GetFieldAsDouble($self,·$field)·<span·class="keywordflow">if</span>·$type·==·$Geo::OGR::OFTReal;</div><div·class="line"><a·name="l04297"></a><span·class="lineno">·4297</span> ····<span·class="keywordflow">return</span>·GetFieldAsString($self,·$field)·<span·class="keywordflow">if</span>·$type·==·$Geo::OGR::OFTString;</div><div·class="line"><a·name="l04298"></a><span·class="lineno">·4298</span> ····<span·class="keywordflow">if</span>·($type·==·$Geo::OGR::OFTIntegerList)·{</div><div·class="line"><a·name="l04299"></a><span·class="lineno">·4299</span> ········my·$ret·=·GetFieldAsIntegerList($self,·$field);</div><div·class="line"><a·name="l04300"></a><span·class="lineno">·4300</span> ········<span·class="keywordflow">return</span>·wantarray·?·@$ret·:·$ret;</div><div·class="line"><a·name="l04301"></a><span·class="lineno">·4301</span> ····}</div><div·class="line"><a·name="l04302"></a><span·class="lineno">·4302</span> ····<span·class="keywordflow">if</span>·($type·==·$Geo::OGR::OFTInteger64List)·{</div><div·class="line"><a·name="l04303"></a><span·class="lineno">·4303</span> ········my·$ret·=·GetFieldAsInteger64List($self,·$field);</div><div·class="line"><a·name="l04304"></a><span·class="lineno">·4304</span> ········<span·class="keywordflow">return</span>·wantarray·?·@$ret·:·$ret;</div><div·class="line"><a·name="l04305"></a><span·class="lineno">·4305</span> ····}</div><div·class="line"><a·name="l04306"></a><span·class="lineno">·4306</span> ····<span·class="keywordflow">if</span>·($type·==·$Geo::OGR::OFTRealList)·{</div><div·class="line"><a·name="l04307"></a><span·class="lineno">·4307</span> ········my·$ret·=·GetFieldAsDoubleList($self,·$field);</div><div·class="line"><a·name="l04308"></a><span·class="lineno">·4308</span> ········<span·class="keywordflow">return</span>·wantarray·?·@$ret·:·$ret;</div><div·class="line"><a·name="l04309"></a><span·class="lineno">·4309</span> ····}</div><div·class="line"><a·name="l04310"></a><span·class="lineno">·4310</span> ····<span·class="keywordflow">if</span>·($type·==·$Geo::OGR::OFTStringList)·{</div><div·class="line"><a·name="l04311"></a><span·class="lineno">·4311</span> ········my·$ret·=·GetFieldAsStringList($self,·$field);</div><div·class="line"><a·name="l04312"></a><span·class="lineno">·4312</span> ········<span·class="keywordflow">return</span>·wantarray·?·@$ret·:·$ret;</div><div·class="line"><a·name="l04313"></a><span·class="lineno">·4313</span> ····}</div><div·class="line"><a·name="l04314"></a><span·class="lineno">·4314</span> ····<span·class="keywordflow">if</span>·($type·==·$Geo::OGR::OFTBinary)·{</div><div·class="line"><a·name="l04315"></a><span·class="lineno">·4315</span> ········<span·class="keywordflow">return</span>·GetFieldAsBinary($self,·$field);</div><div·class="line"><a·name="l04316"></a><span·class="lineno">·4316</span> ····}</div><div·class="line"><a·name="l04317"></a><span·class="lineno">·4317</span> ····<span·class="keywordflow">if</span>·($type·==·$Geo::OGR::OFTDate)·{</div><div·class="line"><a·name="l04318"></a><span·class="lineno">·4318</span> ········my·@ret·=·GetFieldAsDateTime($self,·$field);</div><div·class="line"><a·name="l04319"></a><span·class="lineno">·4319</span> <span·class="preprocessor">········#·year,·month,·day,·hour,·minute,·second,·timezone</span></div><div·class="line"><a·name="l04320"></a><span·class="lineno">·4320</span> ········<span·class="keywordflow">return</span>·wantarray·?·@ret[0..2]·:·[@ret[0..2]];</div><div·class="line"><a·name="l04321"></a><span·class="lineno">·4321</span> ····}</div><div·class="line"><a·name="l04322"></a><span·class="lineno">·4322</span> ····<span·class="keywordflow">if</span>·($type·==·$Geo::OGR::OFTTime)·{</div><div·class="line"><a·name="l04323"></a><span·class="lineno">·4323</span> ········my·@ret·=·GetFieldAsDateTime($self,·$field);</div><div·class="line"><a·name="l04324"></a><span·class="lineno">·4324</span> ········<span·class="keywordflow">return</span>·wantarray·?·@ret[3..6]·:·[@ret[3..6]];</div><div·class="line"><a·name="l04325"></a><span·class="lineno">·4325</span> ····}</div><div·class="line"><a·name="l04326"></a><span·class="lineno">·4326</span> ····<span·class="keywordflow">if</span>·($type·==·$Geo::OGR::OFTDateTime)·{</div><div·class="line"><a·name="l04327"></a><span·class="lineno">·4327</span> ········my·@ret·=·GetFieldAsDateTime($self,·$field);</div><div·class="line"><a·name="l04328"></a><span·class="lineno">·4328</span> ········<span·class="keywordflow">return</span>·wantarray·?·@ret·:·[@ret];</div><div·class="line"><a·name="l04329"></a><span·class="lineno">·4329</span> ····}</div><div·class="line"><a·name="l04330"></a><span·class="lineno">·4330</span> ····error(<span·class="stringliteral">"Perl·bindings·do·not·support·the·field·type·'"</span>.i2s(field_type·=>·$type).<span·class="stringliteral">"'."</span>);</div><div·class="line"><a·name="l04331"></a><span·class="lineno">·4331</span> }</div><div·class="line"><a·name="l04332"></a><span·class="lineno">·4332</span> </div><div·class="line"><a·name="l04333"></a><span·class="lineno">·4333</span> <span·class="preprocessor">#**·@method·scalar·GetFieldDefn($name)</span></div><div·class="line"><a·name="l04334"></a><span·class="lineno">·4334</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04335"></a><span·class="lineno">·4335</span> <span·class="preprocessor">#·Get·the·definition·of·a·field.</span></div><div·class="line"><a·name="l04336"></a><span·class="lineno">·4336</span> <span·class="preprocessor">#·@param·name·the·name·of·the·field.</span></div><div·class="line"><a·name="l04337"></a><span·class="lineno">·4337</span> <span·class="preprocessor">#·@return·a·Geo::OGR::FieldDefn·object.</span></div><div·class="line"><a·name="l04338"></a><span·class="lineno">·4338</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04339"></a><span·class="lineno">·4339</span> sub·GetFieldDefn·{</div><div·class="line"><a·name="l04340"></a><span·class="lineno">·4340</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04341"></a><span·class="lineno">·4341</span> ····my·$field·=·$self->GetFieldIndex(shift);</div><div·class="line"><a·name="l04342"></a><span·class="lineno">·4342</span> ····<span·class="keywordflow">return</span>·$self->GetFieldDefnRef($field);</div><div·class="line"><a·name="l04343"></a><span·class="lineno">·4343</span> }</div><div·class="line"><a·name="l04344"></a><span·class="lineno">·4344</span> </div><div·class="line"><a·name="l04345"></a><span·class="lineno">·4345</span> <span·class="preprocessor">#**·@method·list·GetFieldNames()</span></div><div·class="line"><a·name="l04346"></a><span·class="lineno">·4346</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04347"></a><span·class="lineno">·4347</span> <span·class="preprocessor">#·Get·the·names·of·the·fields·in·this·feature.</span></div><div·class="line"><a·name="l04348"></a><span·class="lineno">·4348</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04349"></a><span·class="lineno">·4349</span> sub·GetFieldNames·{</div><div·class="line"><a·name="l04350"></a><span·class="lineno">·4350</span> }</div><div·class="line"><a·name="l04351"></a><span·class="lineno">·4351</span> </div><div·class="line"><a·name="l04352"></a><span·class="lineno">·4352</span> <span·class="preprocessor">#**·@method·scalar·GetGeomFieldDefn($name)</span></div><div·class="line"><a·name="l04353"></a><span·class="lineno">·4353</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04354"></a><span·class="lineno">·4354</span> <span·class="preprocessor">#·Get·the·definition·of·a·spatial·field.</span></div><div·class="line"><a·name="l04355"></a><span·class="lineno">·4355</span> <span·class="preprocessor">#·@param·name·the·name·of·the·spatial·field.</span></div><div·class="line"><a·name="l04356"></a><span·class="lineno">·4356</span> <span·class="preprocessor">#·@return·a·Geo::OGR::GeomFieldDefn·object.</span></div><div·class="line"><a·name="l04357"></a><span·class="lineno">·4357</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04358"></a><span·class="lineno">·4358</span> sub·GetGeomFieldDefn·{</div><div·class="line"><a·name="l04359"></a><span·class="lineno">·4359</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04360"></a><span·class="lineno">·4360</span> ····my·$field·=·$self->GetGeomFieldIndex(shift);</div><div·class="line"><a·name="l04361"></a><span·class="lineno">·4361</span> ····<span·class="keywordflow">return</span>·$self->GetGeomFieldDefnRef($field);</div><div·class="line"><a·name="l04362"></a><span·class="lineno">·4362</span> }</div><div·class="line"><a·name="l04363"></a><span·class="lineno">·4363</span> </div><div·class="line"><a·name="l04364"></a><span·class="lineno">·4364</span> <span·class="preprocessor">#**·@method·GetNativeData()</span></div><div·class="line"><a·name="l04365"></a><span·class="lineno">·4365</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04366"></a><span·class="lineno">·4366</span> sub·GetNativeData·{</div><div·class="line"><a·name="l04367"></a><span·class="lineno">·4367</span> }</div><div·class="line"><a·name="l04368"></a><span·class="lineno">·4368</span> </div><div·class="line"><a·name="l04369"></a><span·class="lineno">·4369</span> <span·class="preprocessor">#**·@method·GetNativeMediaType()</span></div><div·class="line"><a·name="l04370"></a><span·class="lineno">·4370</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04371"></a><span·class="lineno">·4371</span> sub·GetNativeMediaType·{</div><div·class="line"><a·name="l04372"></a><span·class="lineno">·4372</span> }</div><div·class="line"><a·name="l04373"></a><span·class="lineno">·4373</span> </div><div·class="line"><a·name="l04374"></a><span·class="lineno">·4374</span> <span·class="preprocessor">#**·@method·hash·reference·GetSchema()</span></div><div·class="line"><a·name="l04375"></a><span·class="lineno">·4375</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04376"></a><span·class="lineno">·4376</span> <span·class="preprocessor">#·@brief·Get·the·schema·of·this·feature.</span></div><div·class="line"><a·name="l04377"></a><span·class="lineno">·4377</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l04378"></a><span·class="lineno">·4378</span> <span·class="preprocessor">#·@return·the·schema·as·a·hash·whose·keywords·are·Name,·StyleIgnored</span></div><div·class="line"><a·name="l04379"></a><span·class="lineno">·4379</span> <span·class="preprocessor">#·and·Fields.·Fields·is·an·anonymous·array·of·first·non-spatial·and</span></div><div·class="line"><a·name="l04380"></a><span·class="lineno">·4380</span> <span·class="preprocessor">#·then·spatial·field·schemas·as·in·Geo::OGR::FieldDefn::Schema()·and</span></div><div·class="line"><a·name="l04381"></a><span·class="lineno">·4381</span> <span·class="preprocessor">#·Geo::OGR::GeomFieldDefn::Schema().</span></div><div·class="line"><a·name="l04382"></a><span·class="lineno">·4382</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04383"></a><span·class="lineno">·4383</span> sub·GetSchema·{</div><div·class="line"><a·name="l04384"></a><span·class="lineno">·4384</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04385"></a><span·class="lineno">·4385</span> ····error(<span·class="stringliteral">"Schema·of·a·feature·cannot·be·set·directly."</span>)·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l04386"></a><span·class="lineno">·4386</span> ····<span·class="keywordflow">return</span>·$self->GetDefnRef->Schema;</div><div·class="line"><a·name="l04387"></a><span·class="lineno">·4387</span> }</div><div·class="line"><a·name="l04388"></a><span·class="lineno">·4388</span> </div><div·class="line"><a·name="l04389"></a><span·class="lineno">·4389</span> <span·class="preprocessor">#**·@method·scalar·GetStyleString()</span></div><div·class="line"><a·name="l04390"></a><span·class="lineno">·4390</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04391"></a><span·class="lineno">·4391</span> <span·class="preprocessor">#·@return·a·string</span></div><div·class="line"><a·name="l04392"></a><span·class="lineno">·4392</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04393"></a><span·class="lineno">·4393</span> sub·GetStyleString·{</div><div·class="line"><a·name="l04394"></a><span·class="lineno">·4394</span> }</div><div·class="line"><a·name="l04395"></a><span·class="lineno">·4395</span> </div><div·class="line"><a·name="l04396"></a><span·class="lineno">·4396</span> <span·class="preprocessor">#**·@method·IsFieldNull()</span></div><div·class="line"><a·name="l04397"></a><span·class="lineno">·4397</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04398"></a><span·class="lineno">·4398</span> sub·IsFieldNull·{</div><div·class="line"><a·name="l04399"></a><span·class="lineno">·4399</span> }</div><div·class="line"><a·name="l04400"></a><span·class="lineno">·4400</span> </div><div·class="line"><a·name="l04401"></a><span·class="lineno">·4401</span> <span·class="preprocessor">#**·@method·IsFieldSetAndNotNull()</span></div><div·class="line"><a·name="l04402"></a><span·class="lineno">·4402</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04403"></a><span·class="lineno">·4403</span> sub·IsFieldSetAndNotNull·{</div><div·class="line"><a·name="l04404"></a><span·class="lineno">·4404</span> }</div><div·class="line"><a·name="l04405"></a><span·class="lineno">·4405</span> </div><div·class="line"><a·name="l04406"></a><span·class="lineno">·4406</span> <span·class="preprocessor">#**·@method·Geo::OGR::Layer·Layer()</span></div><div·class="line"><a·name="l04407"></a><span·class="lineno">·4407</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04408"></a><span·class="lineno">·4408</span> <span·class="preprocessor">#·@return·the·layer·to·which·this·feature·belongs·to·or·undef.</span></div><div·class="line"><a·name="l04409"></a><span·class="lineno">·4409</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04410"></a><span·class="lineno">·4410</span> sub·Layer·{</div><div·class="line"><a·name="l04411"></a><span·class="lineno">·4411</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04412"></a><span·class="lineno">·4412</span> ····parent($self);</div><div·class="line"><a·name="l04413"></a><span·class="lineno">·4413</span> }</div><div·class="line"><a·name="l04414"></a><span·class="lineno">·4414</span> </div><div·class="line"><a·name="l04415"></a><span·class="lineno">·4415</span> <span·class="preprocessor">#**·@method·hash·reference·Row(%row)</span></div><div·class="line"><a·name="l04416"></a><span·class="lineno">·4416</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04417"></a><span·class="lineno">·4417</span> <span·class="preprocessor">#·@note·This·method·discards·the·data·the·destination·feature·(or</span></div><div·class="line"><a·name="l04418"></a><span·class="lineno">·4418</span> <span·class="preprocessor">#·layer)·does·not·support.·Changes·in·data·due·to·differences·between</span></div><div·class="line"><a·name="l04419"></a><span·class="lineno">·4419</span> <span·class="preprocessor">#·field·types·may·also·occur.</span></div><div·class="line"><a·name="l04420"></a><span·class="lineno">·4420</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l04421"></a><span·class="lineno">·4421</span> <span·class="preprocessor">#·Get·and/or·set·the·data·of·the·feature.·The·key·of·the·(key,value)</span></div><div·class="line"><a·name="l04422"></a><span·class="lineno">·4422</span> <span·class="preprocessor">#·pairs·of·the·row·is·the·field·name.·Special·field·names·FID·and</span></div><div·class="line"><a·name="l04423"></a><span·class="lineno">·4423</span> <span·class="preprocessor">#·Geometry·are·used·for·feature·id·and·(single)·geometry</span></div><div·class="line"><a·name="l04424"></a><span·class="lineno">·4424</span> <span·class="preprocessor">#·respectively.·The·geometry/ies·is/are·set·and·get·using·the</span></div><div·class="line"><a·name="l04425"></a><span·class="lineno">·4425</span> <span·class="preprocessor">#·Geo::OGR::Feature::Geometry·method.·Field·values·are·set·using·the</span></div><div·class="line"><a·name="l04426"></a><span·class="lineno">·4426</span> <span·class="preprocessor">#·Geo::OGR::Feature::Field·method.</span></div><div·class="line"><a·name="l04427"></a><span·class="lineno">·4427</span> <span·class="preprocessor">#·@param·row·[optional]·feature·data·in·a·hash.</span></div><div·class="line"><a·name="l04428"></a><span·class="lineno">·4428</span> <span·class="preprocessor">#·@return·a·reference·to·feature·data·in·a·hash.·Spatial·fields·are</span></div><div·class="line"><a·name="l04429"></a><span·class="lineno">·4429</span> <span·class="preprocessor">#·returned·as·Geo::OGR::Geometry·objects.</span></div><div·class="line"><a·name="l04430"></a><span·class="lineno">·4430</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04431"></a><span·class="lineno">·4431</span> sub·Row·{</div><div·class="line"><a·name="l04432"></a><span·class="lineno">·4432</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04433"></a><span·class="lineno">·4433</span> ····my·$nf·=·$self->GetFieldCount;</div><div·class="line"><a·name="l04434"></a><span·class="lineno">·4434</span> ····my·$ngf·=·$self->GetGeomFieldCount;</div><div·class="line"><a·name="l04435"></a><span·class="lineno">·4435</span> ····<span·class="keywordflow">if</span>·(@_)·{·#·update</div><div·class="line"><a·name="l04436"></a><span·class="lineno">·4436</span> ········my·%row;</div><div·class="line"><a·name="l04437"></a><span·class="lineno">·4437</span> ········<span·class="keywordflow">if</span>·(@_·==·1·and·ref($_[0])·eq·<span·class="stringliteral">'HASH'</span>)·{</div><div·class="line"><a·name="l04438"></a><span·class="lineno">·4438</span> ············%row·=·%{$_[0]};</div><div·class="line"><a·name="l04439"></a><span·class="lineno">·4439</span> ········}·elsif·(@_·and·@_·%·2·==·0)·{</div><div·class="line"><a·name="l04440"></a><span·class="lineno">·4440</span> ············%row·=·@_;</div><div·class="line"><a·name="l04441"></a><span·class="lineno">·4441</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l04442"></a><span·class="lineno">·4442</span> ············error(<span·class="stringliteral">'Usage:·$feature->Row(%FeatureData).'</span>);</div><div·class="line"><a·name="l04443"></a><span·class="lineno">·4443</span> ········}</div><div·class="line"><a·name="l04444"></a><span·class="lineno">·4444</span> ········$self->SetFID($row{FID})·<span·class="keywordflow">if</span>·defined·$row{FID};</div><div·class="line"><a·name="l04445"></a><span·class="lineno">·4445</span> <span·class="preprocessor">········#$self->Geometry($schema,·$row{Geometry})·if·$row{Geometry};</span></div><div·class="line"><a·name="l04446"></a><span·class="lineno">·4446</span> ········<span·class="keywordflow">for</span>·my·$name·(keys·%row)·{</div><div·class="line"><a·name="l04447"></a><span·class="lineno">·4447</span> ············next·<span·class="keywordflow">if</span>·$name·eq·<span·class="stringliteral">'FID'</span>;</div><div·class="line"><a·name="l04448"></a><span·class="lineno">·4448</span> ············<span·class="keywordflow">if</span>·($name·eq·<span·class="stringliteral">'Geometry'</span>)·{</div><div·class="line"><a·name="l04449"></a><span·class="lineno">·4449</span> ················$self->Geometry(0,·$row{$name});</div><div·class="line"><a·name="l04450"></a><span·class="lineno">·4450</span> ················next;</div><div·class="line"><a·name="l04451"></a><span·class="lineno">·4451</span> ············}</div><div·class="line"><a·name="l04452"></a><span·class="lineno">·4452</span> ············my·$f·=·0;</div><div·class="line"><a·name="l04453"></a><span·class="lineno">·4453</span> ············<span·class="keywordflow">for</span>·my·$i·(0..$nf-1)·{</div><div·class="line"><a·name="l04454"></a><span·class="lineno">·4454</span> ················<span·class="keywordflow">if</span>·($self->GetFieldDefnRef($i)->Name·eq·$name)·{</div><div·class="line"><a·name="l04455"></a><span·class="lineno">·4455</span> ····················$self->SetField($i,·$row{$name});</div><div·class="line"><a·name="l04456"></a><span·class="lineno">·4456</span> ····················$f·=·1;</div><div·class="line"><a·name="l04457"></a><span·class="lineno">·4457</span> ····················last;</div><div·class="line"><a·name="l04458"></a><span·class="lineno">·4458</span> ················}</div><div·class="line"><a·name="l04459"></a><span·class="lineno">·4459</span> ············}</div><div·class="line"><a·name="l04460"></a><span·class="lineno">·4460</span> ············next·<span·class="keywordflow">if</span>·$f;</div><div·class="line"><a·name="l04461"></a><span·class="lineno">·4461</span> ············<span·class="keywordflow">for</span>·my·$i·(0..$ngf-1)·{</div><div·class="line"><a·name="l04462"></a><span·class="lineno">·4462</span> ················<span·class="keywordflow">if</span>·($self->GetGeomFieldDefnRef($i)->Name·eq·$name)·{</div><div·class="line"><a·name="l04463"></a><span·class="lineno">·4463</span> ····················$self->Geometry($i,·$row{$name});</div><div·class="line"><a·name="l04464"></a><span·class="lineno">·4464</span> ····················$f·=·1;</div><div·class="line"><a·name="l04465"></a><span·class="lineno">·4465</span> ····················last;</div><div·class="line"><a·name="l04466"></a><span·class="lineno">·4466</span> ················}</div><div·class="line"><a·name="l04467"></a><span·class="lineno">·4467</span> ············}</div><div·class="line"><a·name="l04468"></a><span·class="lineno">·4468</span> ············next·<span·class="keywordflow">if</span>·$f;</div><div·class="line"><a·name="l04469"></a><span·class="lineno">·4469</span> ············carp·<span·class="stringliteral">"Unknown·field:·'$name'."</span>;</div><div·class="line"><a·name="l04470"></a><span·class="lineno">·4470</span> ········}</div><div·class="line"><a·name="l04471"></a><span·class="lineno">·4471</span> ····}</div><div·class="line"><a·name="l04472"></a><span·class="lineno">·4472</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l04473"></a><span·class="lineno">·4473</span> ····my·%row·=·();</div><div·class="line"><a·name="l04474"></a><span·class="lineno">·4474</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$nf-1)·{</div><div·class="line"><a·name="l04475"></a><span·class="lineno">·4475</span> ········my·$name·=·$self->GetFieldDefnRef($i)->Name;</div><div·class="line"><a·name="l04476"></a><span·class="lineno">·4476</span> ········$row{$name}·=·$self->GetField($i);</div><div·class="line"><a·name="l04477"></a><span·class="lineno">·4477</span> ····}</div><div·class="line"><a·name="l04478"></a><span·class="lineno">·4478</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$ngf-1)·{</div><div·class="line"><a·name="l04479"></a><span·class="lineno">·4479</span> ········my·$name·=·$self->GetGeomFieldDefnRef($i)->Name·||·<span·class="stringliteral">'Geometry'</span>;</div><div·class="line"><a·name="l04480"></a><span·class="lineno">·4480</span> ········$row{$name}·=·$self->GetGeometry($i);</div><div·class="line"><a·name="l04481"></a><span·class="lineno">·4481</span> ····}</div><div·class="line"><a·name="l04482"></a><span·class="lineno">·4482</span> ····$row{FID}·=·$self->GetFID;</div><div·class="line"><a·name="l04483"></a><span·class="lineno">·4483</span> ····<span·class="keywordflow">return</span>·\%row;</div><div·class="line"><a·name="l04484"></a><span·class="lineno">·4484</span> }</div><div·class="line"><a·name="l04485"></a><span·class="lineno">·4485</span> </div><div·class="line"><a·name="l04486"></a><span·class="lineno">·4486</span> <span·class="preprocessor">#**·@method·SetFID($id)</span></div><div·class="line"><a·name="l04487"></a><span·class="lineno">·4487</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04488"></a><span·class="lineno">·4488</span> <span·class="preprocessor">#·@param·id·the·feature·id.</span></div><div·class="line"><a·name="l04489"></a><span·class="lineno">·4489</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04490"></a><span·class="lineno">·4490</span> sub·SetFID·{</div><div·class="line"><a·name="l04491"></a><span·class="lineno">·4491</span> }</div><div·class="line"><a·name="l04492"></a><span·class="lineno">·4492</span> </div><div·class="line"><a·name="l04493"></a><span·class="lineno">·4493</span> <span·class="preprocessor">#**·@method·SetField($name,·@Value)</span></div><div·class="line"><a·name="l04494"></a><span·class="lineno">·4494</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04495"></a><span·class="lineno">·4495</span> <span·class="preprocessor">#·See·Field().</span></div><div·class="line"><a·name="l04496"></a><span·class="lineno">·4496</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04497"></a><span·class="lineno">·4497</span> sub·SetField·{</div><div·class="line"><a·name="l04498"></a><span·class="lineno">·4498</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04499"></a><span·class="lineno">·4499</span> ····my·$field·=·$self->GetFieldIndex(shift);</div><div·class="line"><a·name="l04500"></a><span·class="lineno">·4500</span> ····my·$arg·=·$_[0];</div><div·class="line"><a·name="l04501"></a><span·class="lineno">·4501</span> ····<span·class="keywordflow">if</span>·(@_·==·0·or·!defined($arg))·{</div><div·class="line"><a·name="l04502"></a><span·class="lineno">·4502</span> ········_UnsetField($self,·$field);</div><div·class="line"><a·name="l04503"></a><span·class="lineno">·4503</span> ········<span·class="keywordflow">return</span>;</div><div·class="line"><a·name="l04504"></a><span·class="lineno">·4504</span> ····}</div><div·class="line"><a·name="l04505"></a><span·class="lineno">·4505</span> ····$arg·=·[@_]·<span·class="keywordflow">if</span>·@_·>·1;</div><div·class="line"><a·name="l04506"></a><span·class="lineno">·4506</span> ····my·$type·=·$self->GetFieldType($field);</div><div·class="line"><a·name="l04507"></a><span·class="lineno">·4507</span> ····<span·class="keywordflow">if</span>·(ref($arg))·{</div><div·class="line"><a·name="l04508"></a><span·class="lineno">·4508</span> ········<span·class="keywordflow">if</span>·($type·==·$Geo::OGR::OFTIntegerList)·{</div><div·class="line"><a·name="l04509"></a><span·class="lineno">·4509</span> ············SetFieldIntegerList($self,·$field,·$arg);</div><div·class="line"><a·name="l04510"></a><span·class="lineno">·4510</span> ········}</div><div·class="line"><a·name="l04511"></a><span·class="lineno">·4511</span> ········elsif·($type·==·$Geo::OGR::OFTInteger64List)·{</div><div·class="line"><a·name="l04512"></a><span·class="lineno">·4512</span> ············SetFieldInteger64List($self,·$field,·$arg);</div><div·class="line"><a·name="l04513"></a><span·class="lineno">·4513</span> ········}</div><div·class="line"><a·name="l04514"></a><span·class="lineno">·4514</span> ········elsif·($type·==·$Geo::OGR::OFTRealList)·{</div><div·class="line"><a·name="l04515"></a><span·class="lineno">·4515</span> ············SetFieldDoubleList($self,·$field,·$arg);</div><div·class="line"><a·name="l04516"></a><span·class="lineno">·4516</span> ········}</div><div·class="line"><a·name="l04517"></a><span·class="lineno">·4517</span> ········elsif·($type·==·$Geo::OGR::OFTStringList)·{</div><div·class="line"><a·name="l04518"></a><span·class="lineno">·4518</span> ············SetFieldStringList($self,·$field,·$arg);</div><div·class="line"><a·name="l04519"></a><span·class="lineno">·4519</span> ········}</div><div·class="line"><a·name="l04520"></a><span·class="lineno">·4520</span> ········elsif·($type·==·$Geo::OGR::OFTDate)·{</div><div·class="line"><a·name="l04521"></a><span·class="lineno">·4521</span> ············_SetField($self,·$field,·@$arg[0..2],·0,·0,·0,·0);</div><div·class="line"><a·name="l04522"></a><span·class="lineno">·4522</span> ········}</div><div·class="line"><a·name="l04523"></a><span·class="lineno">·4523</span> ········elsif·($type·==·$Geo::OGR::OFTTime)·{</div><div·class="line"><a·name="l04524"></a><span·class="lineno">·4524</span> ············$arg->[3]·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l04525"></a><span·class="lineno">·4525</span> ············_SetField($self,·$field,·0,·0,·0,·@$arg[0..3]);</div><div·class="line"><a·name="l04526"></a><span·class="lineno">·4526</span> ········}</div><div·class="line"><a·name="l04527"></a><span·class="lineno">·4527</span> ········elsif·($type·==·$Geo::OGR::OFTDateTime)·{</div><div·class="line"><a·name="l04528"></a><span·class="lineno">·4528</span> ············$arg->[6]·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l04529"></a><span·class="lineno">·4529</span> ············_SetField($self,·$field,·@$arg[0..6]);</div><div·class="line"><a·name="l04530"></a><span·class="lineno">·4530</span> ········}</div><div·class="line"><a·name="l04531"></a><span·class="lineno">·4531</span> ········elsif·($type·==·$Geo::OGR::OFTInteger64)</div><div·class="line"><a·name="l04532"></a><span·class="lineno">·4532</span> ········{</div><div·class="line"><a·name="l04533"></a><span·class="lineno">·4533</span> ············SetFieldInteger64($self,·$field,·$arg);</div><div·class="line"><a·name="l04534"></a><span·class="lineno">·4534</span> ········}</div><div·class="line"><a·name="l04535"></a><span·class="lineno">·4535</span> ········<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l04536"></a><span·class="lineno">·4536</span> ············$type·=·i2s(field_type·=>·$type);</div><div·class="line"><a·name="l04537"></a><span·class="lineno">·4537</span> ············my·$name·=·$self->GetFieldDefnRef($field)->Name;</div><div·class="line"><a·name="l04538"></a><span·class="lineno">·4538</span> ············error(<span·class="stringliteral">"'$arg'·is·not·a·suitable·value·for·field·$name($type)."</span>);</div><div·class="line"><a·name="l04539"></a><span·class="lineno">·4539</span> ········}</div><div·class="line"><a·name="l04540"></a><span·class="lineno">·4540</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l04541"></a><span·class="lineno">·4541</span> ········<span·class="keywordflow">if</span>·($type·==·$Geo::OGR::OFTBinary)·{</div><div·class="line"><a·name="l04542"></a><span·class="lineno">·4542</span> <span·class="preprocessor">············#$arg·=·unpack('H*',·$arg);·#·remove·when·SetFieldBinary·is·available</span></div><div·class="line"><a·name="l04543"></a><span·class="lineno">·4543</span> ············$self->SetFieldBinary($field,·$arg);</div><div·class="line"><a·name="l04544"></a><span·class="lineno">·4544</span> ········}</div><div·class="line"><a·name="l04545"></a><span·class="lineno">·4545</span> ········elsif·($type·==·$Geo::OGR::OFTInteger64)</div><div·class="line"><a·name="l04546"></a><span·class="lineno">·4546</span> ········{</div><div·class="line"><a·name="l04547"></a><span·class="lineno">·4547</span> ············SetFieldInteger64($self,·$field,·$arg);</div><div·class="line"><a·name="l04548"></a><span·class="lineno">·4548</span> ········}</div><div·class="line"><a·name="l04549"></a><span·class="lineno">·4549</span> ········elsif·($type·==·$Geo::OGR::OFTInteger·or·$type·==·$Geo::OGR::OFTReal·or·$type·==·$Geo::OGR::OFTString)</div><div·class="line"><a·name="l04550"></a><span·class="lineno">·4550</span> ········{</div><div·class="line"><a·name="l04551"></a><span·class="lineno">·4551</span> ············_SetField($self,·$field,·$arg);</div><div·class="line"><a·name="l04552"></a><span·class="lineno">·4552</span> ········}</div><div·class="line"><a·name="l04553"></a><span·class="lineno">·4553</span> ········<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l04554"></a><span·class="lineno">·4554</span> ············$type·=·i2s(field_type·=>·$type);</div><div·class="line"><a·name="l04555"></a><span·class="lineno">·4555</span> ············my·$name·=·$self->GetFieldDefnRef($field)->Name;</div><div·class="line"><a·name="l04556"></a><span·class="lineno">·4556</span> ············error(<span·class="stringliteral">"'$arg'·is·not·a·suitable·value·for·field·$name($type)."</span>);</div><div·class="line"><a·name="l04557"></a><span·class="lineno">·4557</span> ········}</div><div·class="line"><a·name="l04558"></a><span·class="lineno">·4558</span> ····}</div><div·class="line"><a·name="l04559"></a><span·class="lineno">·4559</span> }</div><div·class="line"><a·name="l04560"></a><span·class="lineno">·4560</span> </div><div·class="line"><a·name="l04561"></a><span·class="lineno">·4561</span> <span·class="preprocessor">#**·@method·SetFieldNull()</span></div><div·class="line"><a·name="l04562"></a><span·class="lineno">·4562</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04563"></a><span·class="lineno">·4563</span> sub·SetFieldNull·{</div><div·class="line"><a·name="l04564"></a><span·class="lineno">·4564</span> }</div><div·class="line"><a·name="l04565"></a><span·class="lineno">·4565</span> </div><div·class="line"><a·name="l04566"></a><span·class="lineno">·4566</span> <span·class="preprocessor">#**·@method·SetFrom($other,·$forgiving·=·1,·hashref·map)</span></div><div·class="line"><a·name="l04567"></a><span·class="lineno">·4567</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04568"></a><span·class="lineno">·4568</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Feature·object</span></div><div·class="line"><a·name="l04569"></a><span·class="lineno">·4569</span> <span·class="preprocessor">#·@param·forgiving·[optional]·set·to·false·if·the·operation·should·not</span></div><div·class="line"><a·name="l04570"></a><span·class="lineno">·4570</span> <span·class="preprocessor">#·continue·if·output·fields·do·not·match·some·of·the·source·fields</span></div><div·class="line"><a·name="l04571"></a><span·class="lineno">·4571</span> <span·class="preprocessor">#·@param·map·[optional]·a·mapping·from·output·field·indexes·to·source</span></div><div·class="line"><a·name="l04572"></a><span·class="lineno">·4572</span> <span·class="preprocessor">#·fields,·include·into·the·hash·all·field·indexes·of·this·feature</span></div><div·class="line"><a·name="l04573"></a><span·class="lineno">·4573</span> <span·class="preprocessor">#·which·should·be·set</span></div><div·class="line"><a·name="l04574"></a><span·class="lineno">·4574</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04575"></a><span·class="lineno">·4575</span> sub·SetFrom·{</div><div·class="line"><a·name="l04576"></a><span·class="lineno">·4576</span> ····my($self,·$other)·=·@_;</div><div·class="line"><a·name="l04577"></a><span·class="lineno">·4577</span> ····_SetFrom($self,·$other),·<span·class="keywordflow">return</span>·<span·class="keywordflow">if</span>·@_·<=·2;</div><div·class="line"><a·name="l04578"></a><span·class="lineno">·4578</span> ····my·$forgiving·=·$_[2];</div><div·class="line"><a·name="l04579"></a><span·class="lineno">·4579</span> ····_SetFrom($self,·$other,·$forgiving),·<span·class="keywordflow">return</span>·<span·class="keywordflow">if</span>·@_·<=·3;</div><div·class="line"><a·name="l04580"></a><span·class="lineno">·4580</span> ····my·$map·=·$_[3];</div><div·class="line"><a·name="l04581"></a><span·class="lineno">·4581</span> ····my·@list;</div><div·class="line"><a·name="l04582"></a><span·class="lineno">·4582</span> ····<span·class="keywordflow">for</span>·my·$i·(1..GetFieldCount($self))·{</div><div·class="line"><a·name="l04583"></a><span·class="lineno">·4583</span> ········push·@list,·($map->{$i}·||·-1);</div><div·class="line"><a·name="l04584"></a><span·class="lineno">·4584</span> ····}</div><div·class="line"><a·name="l04585"></a><span·class="lineno">·4585</span> ····SetFromWithMap($self,·$other,·1,·\@list);</div><div·class="line"><a·name="l04586"></a><span·class="lineno">·4586</span> }</div><div·class="line"><a·name="l04587"></a><span·class="lineno">·4587</span> </div><div·class="line"><a·name="l04588"></a><span·class="lineno">·4588</span> <span·class="preprocessor">#**·@method·SetNativeData()</span></div><div·class="line"><a·name="l04589"></a><span·class="lineno">·4589</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04590"></a><span·class="lineno">·4590</span> sub·SetNativeData·{</div><div·class="line"><a·name="l04591"></a><span·class="lineno">·4591</span> }</div><div·class="line"><a·name="l04592"></a><span·class="lineno">·4592</span> </div><div·class="line"><a·name="l04593"></a><span·class="lineno">·4593</span> <span·class="preprocessor">#**·@method·SetNativeMediaType()</span></div><div·class="line"><a·name="l04594"></a><span·class="lineno">·4594</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04595"></a><span·class="lineno">·4595</span> sub·SetNativeMediaType·{</div><div·class="line"><a·name="l04596"></a><span·class="lineno">·4596</span> }</div><div·class="line"><a·name="l04597"></a><span·class="lineno">·4597</span> </div><div·class="line"><a·name="l04598"></a><span·class="lineno">·4598</span> <span·class="preprocessor">#**·@method·SetStyleString($string)</span></div><div·class="line"><a·name="l04599"></a><span·class="lineno">·4599</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04600"></a><span·class="lineno">·4600</span> <span·class="preprocessor">#·@param·string</span></div><div·class="line"><a·name="l04601"></a><span·class="lineno">·4601</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04602"></a><span·class="lineno">·4602</span> sub·SetStyleString·{</div><div·class="line"><a·name="l04603"></a><span·class="lineno">·4603</span> }</div><div·class="line"><a·name="l04604"></a><span·class="lineno">·4604</span> </div><div·class="line"><a·name="l04605"></a><span·class="lineno">·4605</span> <span·class="preprocessor">#**·@method·list·Tuple(@tuple)</span></div><div·class="line"><a·name="l04606"></a><span·class="lineno">·4606</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04607"></a><span·class="lineno">·4607</span> <span·class="preprocessor">#·@note·This·method·discards·the·data·the·destination·feature·(or</span></div><div·class="line"><a·name="l04608"></a><span·class="lineno">·4608</span> <span·class="preprocessor">#·layer)·does·not·support.·Changes·in·data·due·to·differences·between</span></div><div·class="line"><a·name="l04609"></a><span·class="lineno">·4609</span> <span·class="preprocessor">#·field·types·may·also·occur.</span></div><div·class="line"><a·name="l04610"></a><span·class="lineno">·4610</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l04611"></a><span·class="lineno">·4611</span> <span·class="preprocessor">#·@note·The·schema·of·the·tuple·needs·to·be·the·same·as·that·of·the</span></div><div·class="line"><a·name="l04612"></a><span·class="lineno">·4612</span> <span·class="preprocessor">#·feature.</span></div><div·class="line"><a·name="l04613"></a><span·class="lineno">·4613</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l04614"></a><span·class="lineno">·4614</span> <span·class="preprocessor">#·Get·and/set·the·data·of·the·feature.·The·expected·data·in·the·tuple</span></div><div·class="line"><a·name="l04615"></a><span·class="lineno">·4615</span> <span·class="preprocessor">#·is·([feature_id,]·non-spatial·fields,·spatial·fields).·The·fields·in</span></div><div·class="line"><a·name="l04616"></a><span·class="lineno">·4616</span> <span·class="preprocessor">#·the·tuple·are·in·the·order·they·are·in·the·schema.·Field·values·are</span></div><div·class="line"><a·name="l04617"></a><span·class="lineno">·4617</span> <span·class="preprocessor">#·set·using·the·Geo::OGR::Feature::Field·method.·Geometries·are·set</span></div><div·class="line"><a·name="l04618"></a><span·class="lineno">·4618</span> <span·class="preprocessor">#·and·get·using·the·Geo::OGR::Feature::Geometry·method.</span></div><div·class="line"><a·name="l04619"></a><span·class="lineno">·4619</span> <span·class="preprocessor">#·@param·tuple·[optional]·feature·data·in·an·array</span></div><div·class="line"><a·name="l04620"></a><span·class="lineno">·4620</span> <span·class="preprocessor">#·@return·feature·data·in·an·array</span></div><div·class="line"><a·name="l04621"></a><span·class="lineno">·4621</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04622"></a><span·class="lineno">·4622</span> sub·Tuple·{</div><div·class="line"><a·name="l04623"></a><span·class="lineno">·4623</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04624"></a><span·class="lineno">·4624</span> ····my·$nf·=·$self->GetFieldCount;</div><div·class="line"><a·name="l04625"></a><span·class="lineno">·4625</span> ····my·$ngf·=·$self->GetGeomFieldCount;</div><div·class="line"><a·name="l04626"></a><span·class="lineno">·4626</span> ····<span·class="keywordflow">if</span>·(@_)·{</div><div·class="line"><a·name="l04627"></a><span·class="lineno">·4627</span> ········my·$values·=·ref·$_[0]·?·$_[0]·:·\@_;</div><div·class="line"><a·name="l04628"></a><span·class="lineno">·4628</span> ········my·$FID;</div><div·class="line"><a·name="l04629"></a><span·class="lineno">·4629</span> ········$FID·=·shift·@$values·<span·class="keywordflow">if</span>·@$values·==·$nf·+·$ngf·+·1;</div><div·class="line"><a·name="l04630"></a><span·class="lineno">·4630</span> ········$self->SetFID($FID)·<span·class="keywordflow">if</span>·defined·$FID;</div><div·class="line"><a·name="l04631"></a><span·class="lineno">·4631</span> ········<span·class="keywordflow">if</span>·(@$values·!=·$nf·+·$ngf)·{</div><div·class="line"><a·name="l04632"></a><span·class="lineno">·4632</span> ············my·$n·=·$nf·+·$ngf;</div><div·class="line"><a·name="l04633"></a><span·class="lineno">·4633</span> ············error(<span·class="stringliteral">"Too·many·or·too·few·attribute·values·for·a·feature·(need·$n)."</span>);</div><div·class="line"><a·name="l04634"></a><span·class="lineno">·4634</span> ········}</div><div·class="line"><a·name="l04635"></a><span·class="lineno">·4635</span> ········my·$index·=·0;·#·index·to·non-geometry·and·geometry·fields</div><div·class="line"><a·name="l04636"></a><span·class="lineno">·4636</span> ········<span·class="keywordflow">for</span>·my·$i·(0..$nf-1)·{</div><div·class="line"><a·name="l04637"></a><span·class="lineno">·4637</span> ············$self->SetField($i,·$values->[$i]);</div><div·class="line"><a·name="l04638"></a><span·class="lineno">·4638</span> ········}</div><div·class="line"><a·name="l04639"></a><span·class="lineno">·4639</span> ········<span·class="keywordflow">for</span>·my·$i·(0..$ngf-1)·{</div><div·class="line"><a·name="l04640"></a><span·class="lineno">·4640</span> ············$self->Geometry($i,·$values->[$nf+$i]);</div><div·class="line"><a·name="l04641"></a><span·class="lineno">·4641</span> ········}</div><div·class="line"><a·name="l04642"></a><span·class="lineno">·4642</span> ····}</div><div·class="line"><a·name="l04643"></a><span·class="lineno">·4643</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l04644"></a><span·class="lineno">·4644</span> ····my·@ret·=·($self->GetFID);</div><div·class="line"><a·name="l04645"></a><span·class="lineno">·4645</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$nf-1)·{</div><div·class="line"><a·name="l04646"></a><span·class="lineno">·4646</span> ········my·$v·=·$self->GetField($i);</div><div·class="line"><a·name="l04647"></a><span·class="lineno">·4647</span> ········push·@ret,·$v;</div><div·class="line"><a·name="l04648"></a><span·class="lineno">·4648</span> ····}</div><div·class="line"><a·name="l04649"></a><span·class="lineno">·4649</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$ngf-1)·{</div><div·class="line"><a·name="l04650"></a><span·class="lineno">·4650</span> ········my·$v·=·$self->GetGeometry($i);</div><div·class="line"><a·name="l04651"></a><span·class="lineno">·4651</span> ········push·@ret,·$v;</div><div·class="line"><a·name="l04652"></a><span·class="lineno">·4652</span> ····}</div><div·class="line"><a·name="l04653"></a><span·class="lineno">·4653</span> ····<span·class="keywordflow">return</span>·@ret;</div><div·class="line"><a·name="l04654"></a><span·class="lineno">·4654</span> }</div><div·class="line"><a·name="l04655"></a><span·class="lineno">·4655</span> </div><div·class="line"><a·name="l04656"></a><span·class="lineno">·4656</span> <span·class="preprocessor">#**·@method·scalar·Validate(list·flags)</span></div><div·class="line"><a·name="l04657"></a><span·class="lineno">·4657</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04658"></a><span·class="lineno">·4658</span> <span·class="preprocessor">#·@param·flags·one·of·more·of·null,·geom_type,·width,</span></div><div·class="line"><a·name="l04659"></a><span·class="lineno">·4659</span> <span·class="preprocessor">#·allow_null_when_default,·or·all.</span></div><div·class="line"><a·name="l04660"></a><span·class="lineno">·4660</span> <span·class="preprocessor">#·@exception·croaks·with·an·error·message·if·the·feature·is·not·valid.</span></div><div·class="line"><a·name="l04661"></a><span·class="lineno">·4661</span> <span·class="preprocessor">#·@return·integer·denoting·the·validity·of·the·feature·object.</span></div><div·class="line"><a·name="l04662"></a><span·class="lineno">·4662</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04663"></a><span·class="lineno">·4663</span> sub·Validate·{</div><div·class="line"><a·name="l04664"></a><span·class="lineno">·4664</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04665"></a><span·class="lineno">·4665</span> ····my·$flags·=·0;</div><div·class="line"><a·name="l04666"></a><span·class="lineno">·4666</span> ····<span·class="keywordflow">for</span>·my·$flag·(@_)·{</div><div·class="line"><a·name="l04667"></a><span·class="lineno">·4667</span> ········my·$f·=·eval·<span·class="stringliteral">'$Geo::OGR::'</span>.uc($flag);</div><div·class="line"><a·name="l04668"></a><span·class="lineno">·4668</span> ········$flags·|=·$f;</div><div·class="line"><a·name="l04669"></a><span·class="lineno">·4669</span> ····}</div><div·class="line"><a·name="l04670"></a><span·class="lineno">·4670</span> ····_Validate($self,·$flags);</div><div·class="line"><a·name="l04671"></a><span·class="lineno">·4671</span> }</div><div·class="line"><a·name="l04672"></a><span·class="lineno">·4672</span> </div><div·class="line"><a·name="l04673"></a><span·class="lineno">·4673</span> <span·class="preprocessor">#**·@method·Geo::OGR::Feature·new(%schema)</span></div><div·class="line"><a·name="l04674"></a><span·class="lineno">·4674</span> <span·class="preprocessor">#·Class·method.</span></div><div·class="line"><a·name="l04675"></a><span·class="lineno">·4675</span> <span·class="preprocessor">#·@brief·Create·a·new·feature.</span></div><div·class="line"><a·name="l04676"></a><span·class="lineno">·4676</span> <span·class="preprocessor">#·@param·Named·parameters:</span></div><div·class="line"><a·name="l04677"></a><span·class="lineno">·4677</span> <span·class="preprocessor">#·-·\a·Schema·a·reference·to·a·schema·hash,·or·a·Geo::OGR::Layer,</span></div><div·class="line"><a·name="l04678"></a><span·class="lineno">·4678</span> <span·class="preprocessor">#······Geo::OGR::Feature,·or·Geo::OGR::FeatureDefn·object.</span></div><div·class="line"><a·name="l04679"></a><span·class="lineno">·4679</span> <span·class="preprocessor">#·-·\a·Values·values·for·the·feature·attributes.</span></div><div·class="line"><a·name="l04680"></a><span·class="lineno">·4680</span> <span·class="preprocessor">#·-·\a·StyleIgnored·whether·the·style·can·be·omitted·when·fetching</span></div><div·class="line"><a·name="l04681"></a><span·class="lineno">·4681</span> <span·class="preprocessor">#······features.·(default·is·false)</span></div><div·class="line"><a·name="l04682"></a><span·class="lineno">·4682</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l04683"></a><span·class="lineno">·4683</span> <span·class="preprocessor">#·Schema·is·a·hash·with·the·following·keys:</span></div><div·class="line"><a·name="l04684"></a><span·class="lineno">·4684</span> <span·class="preprocessor">#·-·\a·Name·name·of·the·schema·(not·used).</span></div><div·class="line"><a·name="l04685"></a><span·class="lineno">·4685</span> <span·class="preprocessor">#·-·\a·Fields·a·list·of·Geo::OGR::FieldDefn·or·Geo::OGR::GeomFieldDefn</span></div><div·class="line"><a·name="l04686"></a><span·class="lineno">·4686</span> <span·class="preprocessor">#·objects·or·references·to·hashes·from·which·fields·can·be·created.</span></div><div·class="line"><a·name="l04687"></a><span·class="lineno">·4687</span> <span·class="preprocessor">#·-·\a·GeometryType·the·geometry·type·if·the·feature·has·only·one·spatial·field.</span></div><div·class="line"><a·name="l04688"></a><span·class="lineno">·4688</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l04689"></a><span·class="lineno">·4689</span> <span·class="preprocessor">#·@note·Do·not·mix·GeometryType·and·geometry·fields·in·Fields·list.</span></div><div·class="line"><a·name="l04690"></a><span·class="lineno">·4690</span> <span·class="preprocessor">#·@note·Old·syntax·where·the·argument·is·a·Geo::OGR::FeatureDefn</span></div><div·class="line"><a·name="l04691"></a><span·class="lineno">·4691</span> <span·class="preprocessor">#·object·or·Schema·hash·is·supported.</span></div><div·class="line"><a·name="l04692"></a><span·class="lineno">·4692</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l04693"></a><span·class="lineno">·4693</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Feature·object.</span></div><div·class="line"><a·name="l04694"></a><span·class="lineno">·4694</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04695"></a><span·class="lineno">·4695</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l04696"></a><span·class="lineno">·4696</span> ····my·$pkg·=·shift;</div><div·class="line"><a·name="l04697"></a><span·class="lineno">·4697</span> ····my·$arg;</div><div·class="line"><a·name="l04698"></a><span·class="lineno">·4698</span> ····<span·class="keywordflow">if</span>·(ref·$_[0])·{</div><div·class="line"><a·name="l04699"></a><span·class="lineno">·4699</span> ········<span·class="keywordflow">if</span>·(ref·$_[0]·eq·<span·class="stringliteral">'HASH'</span>·&&·$_[0]->{Schema})·{</div><div·class="line"><a·name="l04700"></a><span·class="lineno">·4700</span> ············$arg·=·$_[0];</div><div·class="line"><a·name="l04701"></a><span·class="lineno">·4701</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l04702"></a><span·class="lineno">·4702</span> ············$arg·=·{Schema·=>·$_[0]};</div><div·class="line"><a·name="l04703"></a><span·class="lineno">·4703</span> ········}</div><div·class="line"><a·name="l04704"></a><span·class="lineno">·4704</span> ····}·elsif·(@_·and·@_·%·2·==·0)·{</div><div·class="line"><a·name="l04705"></a><span·class="lineno">·4705</span> ········%$arg·=·@_;</div><div·class="line"><a·name="l04706"></a><span·class="lineno">·4706</span> ········unless·($arg->{Schema})·{</div><div·class="line"><a·name="l04707"></a><span·class="lineno">·4707</span> ············my·%tmp·=·@_;</div><div·class="line"><a·name="l04708"></a><span·class="lineno">·4708</span> ············$arg->{Schema}·=·\%tmp;</div><div·class="line"><a·name="l04709"></a><span·class="lineno">·4709</span> ········}</div><div·class="line"><a·name="l04710"></a><span·class="lineno">·4710</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l04711"></a><span·class="lineno">·4711</span> ········error(<span·class="stringliteral">"The·argument·must·be·either·a·schema·or·a·hash."</span>);</div><div·class="line"><a·name="l04712"></a><span·class="lineno">·4712</span> ····}</div><div·class="line"><a·name="l04713"></a><span·class="lineno">·4713</span> ····error(<span·class="stringliteral">"Missing·schema."</span>)·unless·$arg->{Schema};</div><div·class="line"><a·name="l04714"></a><span·class="lineno">·4714</span> ····my·$defn;</div><div·class="line"><a·name="l04715"></a><span·class="lineno">·4715</span> ····<span·class="keywordflow">for</span>·(ref·$arg->{Schema})·{</div><div·class="line"><a·name="l04716"></a><span·class="lineno">·4716</span> ········(/<a·class="code"·href="classGeo_1_1OGR_1_1Layer.html">Geo::OGR::Layer</a>$/·||·/<a·class="code"·href="classGeo_1_1OGR_1_1Feature.html">Geo::OGR::Feature</a>$/)·&&·<span·class="keywordflow">do</span>·{</div><div·class="line"><a·name="l04717"></a><span·class="lineno">·4717</span> ············$defn·=·$arg->{Schema}->GetDefn;</div><div·class="line"><a·name="l04718"></a><span·class="lineno">·4718</span> ············last;</div><div·class="line"><a·name="l04719"></a><span·class="lineno">·4719</span> ········};</div><div·class="line"><a·name="l04720"></a><span·class="lineno">·4720</span> ········/<a·class="code"·href="classGeo_1_1OGR_1_1FeatureDefn.html">Geo::OGR::FeatureDefn</a>$/·&&·<span·class="keywordflow">do</span>·{</div><div·class="line"><a·name="l04721"></a><span·class="lineno">·4721</span> ············$defn·=·$arg->{Schema};</div><div·class="line"><a·name="l04722"></a><span·class="lineno">·4722</span> ············last;</div><div·class="line"><a·name="l04723"></a><span·class="lineno">·4723</span> ········};</div><div·class="line"><a·name="l04724"></a><span·class="lineno">·4724</span> ········$defn·=·<a·class="code"·href="classGeo_1_1OGR_1_1FeatureDefn.html">Geo::OGR::FeatureDefn</a>-><a·class="code"·href="classGeo_1_1OGR_1_1FeatureDefn.html#a95ae03e96b953ab6178b66d7eb838b7f">new</a>($arg->{Schema});</div><div·class="line"><a·name="l04725"></a><span·class="lineno">·4725</span> ····}</div><div·class="line"><a·name="l04726"></a><span·class="lineno">·4726</span> ····my·$self·=·Geo::OGRc::new_Feature($defn);</div><div·class="line"><a·name="l04727"></a><span·class="lineno">·4727</span> ····error(<span·class="stringliteral">"Feature·creation·failed."</span>)·unless·$self;</div><div·class="line"><a·name="l04728"></a><span·class="lineno">·4728</span> ····bless·$self,·$pkg;</div><div·class="line"><a·name="l04729"></a><span·class="lineno">·4729</span> ····<span·class="keywordflow">for</span>·(ref·$arg->{Values})·{</div><div·class="line"><a·name="l04730"></a><span·class="lineno">·4730</span> ········/ARRAY/··&&·<span·class="keywordflow">do</span>·{</div><div·class="line"><a·name="l04731"></a><span·class="lineno">·4731</span> ············$self->Tuple($arg->{Values});</div><div·class="line"><a·name="l04732"></a><span·class="lineno">·4732</span> ············last;</div><div·class="line"><a·name="l04733"></a><span·class="lineno">·4733</span> ········};</div><div·class="line"><a·name="l04734"></a><span·class="lineno">·4734</span> ········/HASH/·&&·<span·class="keywordflow">do</span>·{</div><div·class="line"><a·name="l04735"></a><span·class="lineno">·4735</span> ············$self->Row($arg->{Values});</div><div·class="line"><a·name="l04736"></a><span·class="lineno">·4736</span> ············last;</div><div·class="line"><a·name="l04737"></a><span·class="lineno">·4737</span> ········};</div><div·class="line"><a·name="l04738"></a><span·class="lineno">·4738</span> ········/<a·class="code"·href="classGeo_1_1OGR_1_1Feature.html">Geo::OGR::Feature</a>$/·&&·<span·class="keywordflow">do</span>·{</div><div·class="line"><a·name="l04739"></a><span·class="lineno">·4739</span> ············$self-><a·class="code"·href="classGeo_1_1OGR_1_1Feature.html#ab7a2ef8d842ec3974ba3b96cf2bd2a3e">Tuple</a>($arg->{Values}->Tuple);</div><div·class="line"><a·name="l04740"></a><span·class="lineno">·4740</span> ············last;</div><div·class="line"><a·name="l04741"></a><span·class="lineno">·4741</span> ········};</div><div·class="line"><a·name="l04742"></a><span·class="lineno">·4742</span> ········/^$/·&&·<span·class="keywordflow">do</span>·{</div><div·class="line"><a·name="l04743"></a><span·class="lineno">·4743</span> ············last;</div><div·class="line"><a·name="l04744"></a><span·class="lineno">·4744</span> ········};</div><div·class="line"><a·name="l04745"></a><span·class="lineno">·4745</span> ········error(<span·class="stringliteral">"Value·parameter·must·be·an·array,·hash,·or·another·feature.·Not·$_."</span>);</div><div·class="line"><a·name="l04746"></a><span·class="lineno">·4746</span> ····}</div><div·class="line"><a·name="l04747"></a><span·class="lineno">·4747</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l04748"></a><span·class="lineno">·4748</span> }</div><div·class="line"><a·name="l04749"></a><span·class="lineno">·4749</span> </div><div·class="line"><a·name="l04750"></a><span·class="lineno">·4750</span> <span·class="preprocessor">#**·@class·Geo::OGR::FeatureDefn</span></div><div·class="line"><a·name="l04751"></a><span·class="lineno">·4751</span> <span·class="preprocessor">#·@brief·The·schema·of·a·feature·or·a·layer.</span></div><div·class="line"><a·name="l04752"></a><span·class="lineno">·4752</span> <span·class="preprocessor">#·@details·A·FeatureDefn·object·is·a·collection·of·field·definition·objects.·A</span></div><div·class="line"><a·name="l04753"></a><span·class="lineno">·4753</span> <span·class="preprocessor">#·read-only·FeatureDefn·object·can·be·obtained·from·a·layer</span></div><div·class="line"><a·name="l04754"></a><span·class="lineno">·4754</span> <span·class="preprocessor">#·(Geo::OGR::Layer::GetDefn())·or·a·feature</span></div><div·class="line"><a·name="l04755"></a><span·class="lineno">·4755</span> <span·class="preprocessor">#·(Geo::OGR::Feature::GetDefn()).</span></div><div·class="line"><a·name="l04756"></a><span·class="lineno">·4756</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04757"></a><span·class="lineno">·4757</span> <span·class="keyword">package·</span>Geo::OGR::FeatureDefn;</div><div·class="line"><a·name="l04758"></a><span·class="lineno">·4758</span> </div><div·class="line"><a·name="l04759"></a><span·class="lineno">·4759</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1OGR.html">Geo::OGR</a>)</div><div·class="line"><a·name="l04760"></a><span·class="lineno">·4760</span> </div><div·class="line"><a·name="l04761"></a><span·class="lineno">·4761</span> <span·class="preprocessor">#**·@method·AddField(%params)</span></div><div·class="line"><a·name="l04762"></a><span·class="lineno">·4762</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04763"></a><span·class="lineno">·4763</span> <span·class="preprocessor">#·@param·params·Named·parameters·to·create·a·new·Geo::OGR::FieldDefn</span></div><div·class="line"><a·name="l04764"></a><span·class="lineno">·4764</span> <span·class="preprocessor">#·or·Geo::OGR::GeomFieldDefn·object.</span></div><div·class="line"><a·name="l04765"></a><span·class="lineno">·4765</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04766"></a><span·class="lineno">·4766</span> sub·AddField·{</div><div·class="line"><a·name="l04767"></a><span·class="lineno">·4767</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04768"></a><span·class="lineno">·4768</span> ····error(<span·class="stringliteral">"Read-only·definition."</span>)·<span·class="keywordflow">if</span>·parent($self);</div><div·class="line"><a·name="l04769"></a><span·class="lineno">·4769</span> ····my·%params;</div><div·class="line"><a·name="l04770"></a><span·class="lineno">·4770</span> ····<span·class="keywordflow">if</span>·(@_·==·0)·{</div><div·class="line"><a·name="l04771"></a><span·class="lineno">·4771</span> ····}·elsif·(ref($_[0])·eq·<span·class="stringliteral">'HASH'</span>)·{</div><div·class="line"><a·name="l04772"></a><span·class="lineno">·4772</span> ········%params·=·%{$_[0]};</div><div·class="line"><a·name="l04773"></a><span·class="lineno">·4773</span> ····}·elsif·(@_·%·2·==·0)·{</div><div·class="line"><a·name="l04774"></a><span·class="lineno">·4774</span> ········%params·=·@_;</div><div·class="line"><a·name="l04775"></a><span·class="lineno">·4775</span> ····}</div><div·class="line"><a·name="l04776"></a><span·class="lineno">·4776</span> ····$params{Type}·<span·class="comment">//=·'';</span></div><div·class="line"><a·name="l04777"></a><span·class="lineno">·4777</span> ····<span·class="keywordflow">if</span>·(s_exists(field_type·=>·$params{Type}))·{</div><div·class="line"><a·name="l04778"></a><span·class="lineno">·4778</span> ········my·$fd·=·<a·class="code"·href="classGeo_1_1OGR_1_1FieldDefn.html">Geo::OGR::FieldDefn</a>-><a·class="code"·href="classGeo_1_1OGR_1_1FieldDefn.html#a02f94b3023e631aad8574caf0eff8491">new</a>(%params);</div><div·class="line"><a·name="l04779"></a><span·class="lineno">·4779</span> ········$self->AddFieldDefn($fd);</div><div·class="line"><a·name="l04780"></a><span·class="lineno">·4780</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l04781"></a><span·class="lineno">·4781</span> ········my·$fd·=·<a·class="code"·href="classGeo_1_1OGR_1_1GeomFieldDefn.html">Geo::OGR::GeomFieldDefn</a>-><a·class="code"·href="classGeo_1_1OGR_1_1GeomFieldDefn.html#a390438ea74069f3ed6cc79935c986830">new</a>(%params);</div><div·class="line"><a·name="l04782"></a><span·class="lineno">·4782</span> ········$self->AddGeomFieldDefn($fd);</div><div·class="line"><a·name="l04783"></a><span·class="lineno">·4783</span> ····}</div><div·class="line"><a·name="l04784"></a><span·class="lineno">·4784</span> }</div><div·class="line"><a·name="l04785"></a><span·class="lineno">·4785</span> </div><div·class="line"><a·name="l04786"></a><span·class="lineno">·4786</span> <span·class="preprocessor">#**·@method·DeleteField($name)</span></div><div·class="line"><a·name="l04787"></a><span·class="lineno">·4787</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04788"></a><span·class="lineno">·4788</span> <span·class="preprocessor">#·@note·Currently·only·geometry·fields·can·be·deleted.</span></div><div·class="line"><a·name="l04789"></a><span·class="lineno">·4789</span> <span·class="preprocessor">#·@param·index·the·index·of·the·geometry·field·to·be·deleted.</span></div><div·class="line"><a·name="l04790"></a><span·class="lineno">·4790</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04791"></a><span·class="lineno">·4791</span> sub·DeleteField·{</div><div·class="line"><a·name="l04792"></a><span·class="lineno">·4792</span> ····my·($self,·$name)·=·@_;</div><div·class="line"><a·name="l04793"></a><span·class="lineno">·4793</span> ····error(<span·class="stringliteral">"Read-only·definition."</span>)·<span·class="keywordflow">if</span>·parent($self);</div><div·class="line"><a·name="l04794"></a><span·class="lineno">·4794</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$self->GetFieldCount-1)·{</div><div·class="line"><a·name="l04795"></a><span·class="lineno">·4795</span> ········error(<span·class="stringliteral">"Non-spatial·fields·cannot·be·deleted."</span>)·<span·class="keywordflow">if</span>·$self->_GetFieldDefn($i)->Name·eq·$name;</div><div·class="line"><a·name="l04796"></a><span·class="lineno">·4796</span> ····}</div><div·class="line"><a·name="l04797"></a><span·class="lineno">·4797</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$self->GetGeomFieldCount-1)·{</div><div·class="line"><a·name="l04798"></a><span·class="lineno">·4798</span> ········$self->DeleteGeomFieldDefn($i)·<span·class="keywordflow">if</span>·$self->_GetGeomFieldDefn($i)->Name·eq·$name;</div><div·class="line"><a·name="l04799"></a><span·class="lineno">·4799</span> ····}</div><div·class="line"><a·name="l04800"></a><span·class="lineno">·4800</span> ····error(2,·$name,·<span·class="stringliteral">'Field'</span>);</div><div·class="line"><a·name="l04801"></a><span·class="lineno">·4801</span> }</div><div·class="line"><a·name="l04802"></a><span·class="lineno">·4802</span> </div><div·class="line"><a·name="l04803"></a><span·class="lineno">·4803</span> <span·class="preprocessor">#**·@method·Feature()</span></div><div·class="line"><a·name="l04804"></a><span·class="lineno">·4804</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04805"></a><span·class="lineno">·4805</span> sub·Feature·{</div><div·class="line"><a·name="l04806"></a><span·class="lineno">·4806</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04807"></a><span·class="lineno">·4807</span> ····<span·class="keywordflow">return</span>·parent($self);</div><div·class="line"><a·name="l04808"></a><span·class="lineno">·4808</span> }</div><div·class="line"><a·name="l04809"></a><span·class="lineno">·4809</span> </div><div·class="line"><a·name="l04810"></a><span·class="lineno">·4810</span> <span·class="preprocessor">#**·@method·scalar·GetFieldDefn($name)</span></div><div·class="line"><a·name="l04811"></a><span·class="lineno">·4811</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04812"></a><span·class="lineno">·4812</span> <span·class="preprocessor">#·Get·the·definition·of·a·field.</span></div><div·class="line"><a·name="l04813"></a><span·class="lineno">·4813</span> <span·class="preprocessor">#·@param·name·the·name·of·the·field.</span></div><div·class="line"><a·name="l04814"></a><span·class="lineno">·4814</span> <span·class="preprocessor">#·@return·a·Geo::OGR::FieldDefn·object.</span></div><div·class="line"><a·name="l04815"></a><span·class="lineno">·4815</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04816"></a><span·class="lineno">·4816</span> sub·GetFieldDefn·{</div><div·class="line"><a·name="l04817"></a><span·class="lineno">·4817</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04818"></a><span·class="lineno">·4818</span> ····my·$field·=·$self->GetFieldIndex(shift);</div><div·class="line"><a·name="l04819"></a><span·class="lineno">·4819</span> ····<span·class="keywordflow">return</span>·$self->_GetFieldDefn($field);</div><div·class="line"><a·name="l04820"></a><span·class="lineno">·4820</span> }</div><div·class="line"><a·name="l04821"></a><span·class="lineno">·4821</span> </div><div·class="line"><a·name="l04822"></a><span·class="lineno">·4822</span> <span·class="preprocessor">#**·@method·list·GetFieldNames()</span></div><div·class="line"><a·name="l04823"></a><span·class="lineno">·4823</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04824"></a><span·class="lineno">·4824</span> <span·class="preprocessor">#·The·names·of·the·fields·in·this·layer·or·feature·definition.</span></div><div·class="line"><a·name="l04825"></a><span·class="lineno">·4825</span> <span·class="preprocessor">#·@return·the·list·of·field·names.</span></div><div·class="line"><a·name="l04826"></a><span·class="lineno">·4826</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04827"></a><span·class="lineno">·4827</span> sub·GetFieldNames·{</div><div·class="line"><a·name="l04828"></a><span·class="lineno">·4828</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04829"></a><span·class="lineno">·4829</span> ····my·@names·=·();</div><div·class="line"><a·name="l04830"></a><span·class="lineno">·4830</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$self->GetFieldCount-1)·{</div><div·class="line"><a·name="l04831"></a><span·class="lineno">·4831</span> ········push·@names,·$self->_GetFieldDefn($i)->Name;</div><div·class="line"><a·name="l04832"></a><span·class="lineno">·4832</span> ····}</div><div·class="line"><a·name="l04833"></a><span·class="lineno">·4833</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$self->GetGeomFieldCount-1)·{</div><div·class="line"><a·name="l04834"></a><span·class="lineno">·4834</span> ········push·@names,·$self->_GetGeomFieldDefn($i)->Name;</div><div·class="line"><a·name="l04835"></a><span·class="lineno">·4835</span> ····}</div><div·class="line"><a·name="l04836"></a><span·class="lineno">·4836</span> ····<span·class="keywordflow">return</span>·@names;</div><div·class="line"><a·name="l04837"></a><span·class="lineno">·4837</span> }</div><div·class="line"><a·name="l04838"></a><span·class="lineno">·4838</span> </div><div·class="line"><a·name="l04839"></a><span·class="lineno">·4839</span> <span·class="preprocessor">#**·@method·scalar·GetGeomFieldDefn($name)</span></div><div·class="line"><a·name="l04840"></a><span·class="lineno">·4840</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04841"></a><span·class="lineno">·4841</span> <span·class="preprocessor">#·Get·the·definition·of·a·spatial·field.</span></div><div·class="line"><a·name="l04842"></a><span·class="lineno">·4842</span> <span·class="preprocessor">#·@param·name·the·name·of·the·spatial·field.</span></div><div·class="line"><a·name="l04843"></a><span·class="lineno">·4843</span> <span·class="preprocessor">#·@return·a·Geo::OGR::GeomFieldDefn·object.</span></div><div·class="line"><a·name="l04844"></a><span·class="lineno">·4844</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04845"></a><span·class="lineno">·4845</span> sub·GetGeomFieldDefn·{</div><div·class="line"><a·name="l04846"></a><span·class="lineno">·4846</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04847"></a><span·class="lineno">·4847</span> ····my·$field·=·$self->GetGeomFieldIndex(shift);</div><div·class="line"><a·name="l04848"></a><span·class="lineno">·4848</span> ····<span·class="keywordflow">return</span>·$self->_GetGeomFieldDefn($field);</div><div·class="line"><a·name="l04849"></a><span·class="lineno">·4849</span> }</div><div·class="line"><a·name="l04850"></a><span·class="lineno">·4850</span> </div><div·class="line"><a·name="l04851"></a><span·class="lineno">·4851</span> <span·class="preprocessor">#**·@method·scalar·GetName()</span></div><div·class="line"><a·name="l04852"></a><span·class="lineno">·4852</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04853"></a><span·class="lineno">·4853</span> <span·class="preprocessor">#·@return·the·name·of·this·layer·or·feature·definition.</span></div><div·class="line"><a·name="l04854"></a><span·class="lineno">·4854</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04855"></a><span·class="lineno">·4855</span> sub·GetName·{</div><div·class="line"><a·name="l04856"></a><span·class="lineno">·4856</span> }</div><div·class="line"><a·name="l04857"></a><span·class="lineno">·4857</span> </div><div·class="line"><a·name="l04858"></a><span·class="lineno">·4858</span> <span·class="preprocessor">#**·@method·hash·reference·GetSchema()</span></div><div·class="line"><a·name="l04859"></a><span·class="lineno">·4859</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04860"></a><span·class="lineno">·4860</span> <span·class="preprocessor">#·@brief·Get·the·schema·of·this·feature·or·layer·definition.</span></div><div·class="line"><a·name="l04861"></a><span·class="lineno">·4861</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l04862"></a><span·class="lineno">·4862</span> <span·class="preprocessor">#·@return·the·schema·as·a·hash·whose·keywords·are·Name,·StyleIgnored</span></div><div·class="line"><a·name="l04863"></a><span·class="lineno">·4863</span> <span·class="preprocessor">#·and·Fields.·Fields·is·an·anonymous·array·of·first·non-spatial·and</span></div><div·class="line"><a·name="l04864"></a><span·class="lineno">·4864</span> <span·class="preprocessor">#·then·spatial·field·schemas·as·in·Geo::OGR::FieldDefn::Schema()·and</span></div><div·class="line"><a·name="l04865"></a><span·class="lineno">·4865</span> <span·class="preprocessor">#·Geo::OGR::GeomFieldDefn::Schema().</span></div><div·class="line"><a·name="l04866"></a><span·class="lineno">·4866</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04867"></a><span·class="lineno">·4867</span> sub·GetSchema·{</div><div·class="line"><a·name="l04868"></a><span·class="lineno">·4868</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04869"></a><span·class="lineno">·4869</span> ····carp·<span·class="stringliteral">"Schema·of·a·feature·definition·should·not·be·set·directly."</span>·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l04870"></a><span·class="lineno">·4870</span> ····<span·class="keywordflow">if</span>·(@_·and·@_·%·2·==·0)·{</div><div·class="line"><a·name="l04871"></a><span·class="lineno">·4871</span> ········my·%schema·=·@_;</div><div·class="line"><a·name="l04872"></a><span·class="lineno">·4872</span> ········<span·class="keywordflow">if</span>·($schema{Fields})·{</div><div·class="line"><a·name="l04873"></a><span·class="lineno">·4873</span> ············<span·class="keywordflow">for</span>·my·$field·(@{$schema{Fields}})·{</div><div·class="line"><a·name="l04874"></a><span·class="lineno">·4874</span> ················$self->AddField($field);</div><div·class="line"><a·name="l04875"></a><span·class="lineno">·4875</span> ············}</div><div·class="line"><a·name="l04876"></a><span·class="lineno">·4876</span> ········}</div><div·class="line"><a·name="l04877"></a><span·class="lineno">·4877</span> ····}</div><div·class="line"><a·name="l04878"></a><span·class="lineno">·4878</span> ····my·%schema;</div><div·class="line"><a·name="l04879"></a><span·class="lineno">·4879</span> ····$schema{Name}·=·$self->Name();</div><div·class="line"><a·name="l04880"></a><span·class="lineno">·4880</span> ····$schema{StyleIgnored}·=·$self->StyleIgnored();</div><div·class="line"><a·name="l04881"></a><span·class="lineno">·4881</span> ····$schema{Fields}·=·[];</div><div·class="line"><a·name="l04882"></a><span·class="lineno">·4882</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$self->GetFieldCount-1)·{</div><div·class="line"><a·name="l04883"></a><span·class="lineno">·4883</span> ········my·$s·=·$self->_GetFieldDefn($i)->Schema;</div><div·class="line"><a·name="l04884"></a><span·class="lineno">·4884</span> ········push·@{$schema{Fields}},·$s;</div><div·class="line"><a·name="l04885"></a><span·class="lineno">·4885</span> ····}</div><div·class="line"><a·name="l04886"></a><span·class="lineno">·4886</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$self->GetGeomFieldCount-1)·{</div><div·class="line"><a·name="l04887"></a><span·class="lineno">·4887</span> ········my·$s·=·$self->_GetGeomFieldDefn($i)->Schema;</div><div·class="line"><a·name="l04888"></a><span·class="lineno">·4888</span> ········push·@{$schema{Fields}},·$s;</div><div·class="line"><a·name="l04889"></a><span·class="lineno">·4889</span> ····}</div><div·class="line"><a·name="l04890"></a><span·class="lineno">·4890</span> ····<span·class="keywordflow">return</span>·wantarray·?·%schema·:·\%schema;</div><div·class="line"><a·name="l04891"></a><span·class="lineno">·4891</span> }</div><div·class="line"><a·name="l04892"></a><span·class="lineno">·4892</span> </div><div·class="line"><a·name="l04893"></a><span·class="lineno">·4893</span> <span·class="preprocessor">#**·@method·IsSame(Geo::OGR::FeatureDefn·defn)</span></div><div·class="line"><a·name="l04894"></a><span·class="lineno">·4894</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04895"></a><span·class="lineno">·4895</span> <span·class="preprocessor">#·@return·true·if·this·definition·is·similar·to·the·other·definition,</span></div><div·class="line"><a·name="l04896"></a><span·class="lineno">·4896</span> <span·class="preprocessor">#·false·otherwise.</span></div><div·class="line"><a·name="l04897"></a><span·class="lineno">·4897</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04898"></a><span·class="lineno">·4898</span> sub·IsSame·{</div><div·class="line"><a·name="l04899"></a><span·class="lineno">·4899</span> }</div><div·class="line"><a·name="l04900"></a><span·class="lineno">·4900</span> </div><div·class="line"><a·name="l04901"></a><span·class="lineno">·4901</span> <span·class="preprocessor">#**·@method·scalar·IsStyleIgnored()</span></div><div·class="line"><a·name="l04902"></a><span·class="lineno">·4902</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04903"></a><span·class="lineno">·4903</span> <span·class="preprocessor">#·Get·the·ignore·status·of·style·information·when·fetching·features.</span></div><div·class="line"><a·name="l04904"></a><span·class="lineno">·4904</span> <span·class="preprocessor">#·@return·the·ignore·status·of·style·information</span></div><div·class="line"><a·name="l04905"></a><span·class="lineno">·4905</span> <span·class="preprocessor">#·@since·1.9.0</span></div><div·class="line"><a·name="l04906"></a><span·class="lineno">·4906</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04907"></a><span·class="lineno">·4907</span> sub·IsStyleIgnored·{</div><div·class="line"><a·name="l04908"></a><span·class="lineno">·4908</span> }</div><div·class="line"><a·name="l04909"></a><span·class="lineno">·4909</span> </div><div·class="line"><a·name="l04910"></a><span·class="lineno">·4910</span> <span·class="preprocessor">#**·@method·SetStyleIgnored($IgnoreState)</span></div><div·class="line"><a·name="l04911"></a><span·class="lineno">·4911</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04912"></a><span·class="lineno">·4912</span> <span·class="preprocessor">#·Set·the·ignore·status·of·style·information·when·fetching·features.</span></div><div·class="line"><a·name="l04913"></a><span·class="lineno">·4913</span> <span·class="preprocessor">#·@since·1.9.0</span></div><div·class="line"><a·name="l04914"></a><span·class="lineno">·4914</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04915"></a><span·class="lineno">·4915</span> sub·SetStyleIgnored·{</div><div·class="line"><a·name="l04916"></a><span·class="lineno">·4916</span> }</div><div·class="line"><a·name="l04917"></a><span·class="lineno">·4917</span> </div><div·class="line"><a·name="l04918"></a><span·class="lineno">·4918</span> <span·class="preprocessor">#**·@method·Geo::OGR::FeatureDefn·new(%schema)</span></div><div·class="line"><a·name="l04919"></a><span·class="lineno">·4919</span> <span·class="preprocessor">#·Class·method.</span></div><div·class="line"><a·name="l04920"></a><span·class="lineno">·4920</span> <span·class="preprocessor">#·Creates·a·new·layer·or·feature·definition.·The·new·definition·is</span></div><div·class="line"><a·name="l04921"></a><span·class="lineno">·4921</span> <span·class="preprocessor">#·either·initialized·to·the·given·schema·or·it·will·contain·no</span></div><div·class="line"><a·name="l04922"></a><span·class="lineno">·4922</span> <span·class="preprocessor">#·non-spatial·fields·and·one·spatial·field,·whose·Name·is·''·and</span></div><div·class="line"><a·name="l04923"></a><span·class="lineno">·4923</span> <span·class="preprocessor">#·GeometryType·is·'Unknown'·or·the·value·of·the·named·parameter</span></div><div·class="line"><a·name="l04924"></a><span·class="lineno">·4924</span> <span·class="preprocessor">#·GeometryType.</span></div><div·class="line"><a·name="l04925"></a><span·class="lineno">·4925</span> <span·class="preprocessor">#·@param·schema·[optional]·The·schema·for·the·new·feature·definition,</span></div><div·class="line"><a·name="l04926"></a><span·class="lineno">·4926</span> <span·class="preprocessor">#·as·in·Geo::OGR::FeatureDefn::Schema().</span></div><div·class="line"><a·name="l04927"></a><span·class="lineno">·4927</span> <span·class="preprocessor">#·@return·a·Geo::OGR::FeatureDefn·object</span></div><div·class="line"><a·name="l04928"></a><span·class="lineno">·4928</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l04929"></a><span·class="lineno">·4929</span> <span·class="preprocessor">#·Example·usage:</span></div><div·class="line"><a·name="l04930"></a><span·class="lineno">·4930</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l04931"></a><span·class="lineno">·4931</span> <span·class="preprocessor">#·$fd·=·Geo::OGR::FeatureDefn->new(</span></div><div·class="line"><a·name="l04932"></a><span·class="lineno">·4932</span> <span·class="preprocessor">#·····Name·=>·"name",</span></div><div·class="line"><a·name="l04933"></a><span·class="lineno">·4933</span> <span·class="preprocessor">#·····Fields·=>·[{·Name·=>·'field1',·Type·=>·'String'·},</span></div><div·class="line"><a·name="l04934"></a><span·class="lineno">·4934</span> <span·class="preprocessor">#················{·Name·=>·'geom',·GeometryType·=>·'Point'·}]·);</span></div><div·class="line"><a·name="l04935"></a><span·class="lineno">·4935</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l04936"></a><span·class="lineno">·4936</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04937"></a><span·class="lineno">·4937</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l04938"></a><span·class="lineno">·4938</span> ····my·$pkg·=·shift;</div><div·class="line"><a·name="l04939"></a><span·class="lineno">·4939</span> ····my·%schema;</div><div·class="line"><a·name="l04940"></a><span·class="lineno">·4940</span> ····<span·class="keywordflow">if</span>·(@_·==·1·and·ref($_[0])·eq·<span·class="stringliteral">'HASH'</span>)·{</div><div·class="line"><a·name="l04941"></a><span·class="lineno">·4941</span> ········%schema·=·%{$_[0]};</div><div·class="line"><a·name="l04942"></a><span·class="lineno">·4942</span> ····}·elsif·(@_·and·@_·%·2·==·0)·{</div><div·class="line"><a·name="l04943"></a><span·class="lineno">·4943</span> ········%schema·=·@_;</div><div·class="line"><a·name="l04944"></a><span·class="lineno">·4944</span> ····}</div><div·class="line"><a·name="l04945"></a><span·class="lineno">·4945</span> ····my·$fields·=·$schema{Fields};</div><div·class="line"><a·name="l04946"></a><span·class="lineno">·4946</span> ····error(<span·class="stringliteral">"The·'Fields'·argument·must·be·an·array·reference."</span>)·<span·class="keywordflow">if</span>·$fields·and·ref($fields)·ne·<span·class="stringliteral">'ARRAY'</span>;</div><div·class="line"><a·name="l04947"></a><span·class="lineno">·4947</span> ····$schema{Name}·<span·class="comment">//=·'';</span></div><div·class="line"><a·name="l04948"></a><span·class="lineno">·4948</span> ····my·$self·=·Geo::OGRc::new_FeatureDefn($schema{Name});</div><div·class="line"><a·name="l04949"></a><span·class="lineno">·4949</span> ····bless·$self,·$pkg;</div><div·class="line"><a·name="l04950"></a><span·class="lineno">·4950</span> ····my·$gt·=·$schema{GeometryType};</div><div·class="line"><a·name="l04951"></a><span·class="lineno">·4951</span> ····<span·class="keywordflow">if</span>·($gt)·{</div><div·class="line"><a·name="l04952"></a><span·class="lineno">·4952</span> ········$self->GeometryType($gt);</div><div·class="line"><a·name="l04953"></a><span·class="lineno">·4953</span> ····}·elsif·($fields)·{</div><div·class="line"><a·name="l04954"></a><span·class="lineno">·4954</span> ········$self->DeleteGeomFieldDefn(0);</div><div·class="line"><a·name="l04955"></a><span·class="lineno">·4955</span> ····}</div><div·class="line"><a·name="l04956"></a><span·class="lineno">·4956</span> ····$self->StyleIgnored($schema{StyleIgnored})·<span·class="keywordflow">if</span>·exists·$schema{StyleIgnored};</div><div·class="line"><a·name="l04957"></a><span·class="lineno">·4957</span> ····<span·class="keywordflow">for</span>·my·$fd·(@{$fields})·{</div><div·class="line"><a·name="l04958"></a><span·class="lineno">·4958</span> ········my·$d·=·$fd;</div><div·class="line"><a·name="l04959"></a><span·class="lineno">·4959</span> ········<span·class="keywordflow">if</span>·(ref($fd)·eq·<span·class="stringliteral">'HASH'</span>)·{</div><div·class="line"><a·name="l04960"></a><span·class="lineno">·4960</span> <span·class="preprocessor">············#·if·Name·and·Type·are·missing,·assume·Name·=>·Type</span></div><div·class="line"><a·name="l04961"></a><span·class="lineno">·4961</span> ············<span·class="keywordflow">if</span>·(!(exists·$fd->{Name}·&&·exists·$fd->{Type}))·{</div><div·class="line"><a·name="l04962"></a><span·class="lineno">·4962</span> ················<span·class="keywordflow">for</span>·my·$key·(sort·keys·%$fd)·{</div><div·class="line"><a·name="l04963"></a><span·class="lineno">·4963</span> ····················<span·class="keywordflow">if</span>·(s_exists(field_type·=>·$fd->{$key})·||</div><div·class="line"><a·name="l04964"></a><span·class="lineno">·4964</span> ························s_exists(geometry_type·=>·$fd->{$key}))</div><div·class="line"><a·name="l04965"></a><span·class="lineno">·4965</span> ····················{</div><div·class="line"><a·name="l04966"></a><span·class="lineno">·4966</span> ························$fd->{Name}·=·$key;</div><div·class="line"><a·name="l04967"></a><span·class="lineno">·4967</span> ························$fd->{Type}·=·$fd->{$key};</div><div·class="line"><a·name="l04968"></a><span·class="lineno">·4968</span> ························<span·class="keyword">delete</span>·$fd->{$key};</div><div·class="line"><a·name="l04969"></a><span·class="lineno">·4969</span> ························last;</div><div·class="line"><a·name="l04970"></a><span·class="lineno">·4970</span> ····················}</div><div·class="line"><a·name="l04971"></a><span·class="lineno">·4971</span> ················}</div><div·class="line"><a·name="l04972"></a><span·class="lineno">·4972</span> ············}</div><div·class="line"><a·name="l04973"></a><span·class="lineno">·4973</span> ············<span·class="keywordflow">if</span>·($fd->{GeometryType}·or·($fd->{Type}·&&·s_exists(geometry_type·=>·$fd->{Type})))·{</div><div·class="line"><a·name="l04974"></a><span·class="lineno">·4974</span> ················$d·=·<a·class="code"·href="classGeo_1_1OGR_1_1GeomFieldDefn.html">Geo::OGR::GeomFieldDefn</a>-><a·class="code"·href="classGeo_1_1OGR_1_1GeomFieldDefn.html#a390438ea74069f3ed6cc79935c986830">new</a>(%$fd);</div><div·class="line"><a·name="l04975"></a><span·class="lineno">·4975</span> ············}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l04976"></a><span·class="lineno">·4976</span> ················$d·=·<a·class="code"·href="classGeo_1_1OGR_1_1FieldDefn.html">Geo::OGR::FieldDefn</a>-><a·class="code"·href="classGeo_1_1OGR_1_1FieldDefn.html#a02f94b3023e631aad8574caf0eff8491">new</a>(%$fd);</div><div·class="line"><a·name="l04977"></a><span·class="lineno">·4977</span> ············}</div><div·class="line"><a·name="l04978"></a><span·class="lineno">·4978</span> ········}</div><div·class="line"><a·name="l04979"></a><span·class="lineno">·4979</span> ········<span·class="keywordflow">if</span>·(blessed($d)·and·$d->isa(<span·class="stringliteral">'Geo::OGR::FieldDefn'</span>))·{</div><div·class="line"><a·name="l04980"></a><span·class="lineno">·4980</span> ············AddFieldDefn($self,·$d);</div><div·class="line"><a·name="l04981"></a><span·class="lineno">·4981</span> ········}·elsif·(blessed($d)·and·$d->isa(<span·class="stringliteral">'Geo::OGR::GeomFieldDefn'</span>))·{</div><div·class="line"><a·name="l04982"></a><span·class="lineno">·4982</span> ············error(<span·class="stringliteral">"Do·not·mix·GeometryType·and·geometry·fields·in·Fields."</span>)·<span·class="keywordflow">if</span>·$gt;</div><div·class="line"><a·name="l04983"></a><span·class="lineno">·4983</span> ············AddGeomFieldDefn($self,·$d);</div><div·class="line"><a·name="l04984"></a><span·class="lineno">·4984</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l04985"></a><span·class="lineno">·4985</span> ············error(<span·class="stringliteral">"Item·in·field·list·does·not·define·a·field."</span>);</div><div·class="line"><a·name="l04986"></a><span·class="lineno">·4986</span> ········}</div><div·class="line"><a·name="l04987"></a><span·class="lineno">·4987</span> ····}</div><div·class="line"><a·name="l04988"></a><span·class="lineno">·4988</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l04989"></a><span·class="lineno">·4989</span> }</div><div·class="line"><a·name="l04990"></a><span·class="lineno">·4990</span> </div><div·class="line"><a·name="l04991"></a><span·class="lineno">·4991</span> <span·class="preprocessor">#**·@class·Geo::OGR::FieldDefn</span></div><div·class="line"><a·name="l04992"></a><span·class="lineno">·4992</span> <span·class="preprocessor">#·@brief·A·definition·of·a·non-spatial·attribute.</span></div><div·class="line"><a·name="l04993"></a><span·class="lineno">·4993</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l04994"></a><span·class="lineno">·4994</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04995"></a><span·class="lineno">·4995</span> <span·class="keyword">package·</span>Geo::OGR::FieldDefn;</div><div·class="line"><a·name="l04996"></a><span·class="lineno">·4996</span> </div><div·class="line"><a·name="l04997"></a><span·class="lineno">·4997</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1OGR.html">Geo::OGR</a>)</div><div·class="line"><a·name="l04998"></a><span·class="lineno">·4998</span> </div><div·class="line"><a·name="l04999"></a><span·class="lineno">·4999</span> <span·class="preprocessor">#**·@method·scalar·Default($value)</span></div><div·class="line"><a·name="l05000"></a><span·class="lineno">·5000</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05001"></a><span·class="lineno">·5001</span> <span·class="preprocessor">#·Get·or·set·the·default·value·for·this·field.</span></div><div·class="line"><a·name="l05002"></a><span·class="lineno">·5002</span> <span·class="preprocessor">#·@note·a.k.a.·GetDefault·and·SetDefault</span></div><div·class="line"><a·name="l05003"></a><span·class="lineno">·5003</span> <span·class="preprocessor">#·@param·value·[optional]</span></div><div·class="line"><a·name="l05004"></a><span·class="lineno">·5004</span> <span·class="preprocessor">#·@return·the·default·value·of·this·field·in·non-void·context.</span></div><div·class="line"><a·name="l05005"></a><span·class="lineno">·5005</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05006"></a><span·class="lineno">·5006</span> sub·Default·{</div><div·class="line"><a·name="l05007"></a><span·class="lineno">·5007</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05008"></a><span·class="lineno">·5008</span> ····SetDefault($self,·$_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l05009"></a><span·class="lineno">·5009</span> ····GetDefault($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05010"></a><span·class="lineno">·5010</span> }</div><div·class="line"><a·name="l05011"></a><span·class="lineno">·5011</span> </div><div·class="line"><a·name="l05012"></a><span·class="lineno">·5012</span> <span·class="preprocessor">#**·@method·GetSchema()</span></div><div·class="line"><a·name="l05013"></a><span·class="lineno">·5013</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05014"></a><span·class="lineno">·5014</span> sub·GetSchema·{</div><div·class="line"><a·name="l05015"></a><span·class="lineno">·5015</span> }</div><div·class="line"><a·name="l05016"></a><span·class="lineno">·5016</span> </div><div·class="line"><a·name="l05017"></a><span·class="lineno">·5017</span> <span·class="preprocessor">#**·@method·scalar·Ignored($ignore)</span></div><div·class="line"><a·name="l05018"></a><span·class="lineno">·5018</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05019"></a><span·class="lineno">·5019</span> <span·class="preprocessor">#·Get·and/or·set·the·ignore·status·(whether·this·field·should·be</span></div><div·class="line"><a·name="l05020"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Driver.html">·5020</a></span> <span·class="preprocessor">#·omitted·when·fetching·features)·of·this·field.</span></div><div·class="line"><a·name="l05021"></a><span·class="lineno">·5021</span> <span·class="preprocessor">#·@note·a.k.a.·IsIgnored,·SetIgnored</span></div><div·class="line"><a·name="l05022"></a><span·class="lineno">·5022</span> <span·class="preprocessor">#·@param·ignore·[optional]</span></div><div·class="line"><a·name="l05023"></a><span·class="lineno">·5023</span> <span·class="preprocessor">#·@return·the·ignore·status·of·this·field·in·non-void·context.</span></div><div·class="line"><a·name="l05024"></a><span·class="lineno">·5024</span> <span·class="preprocessor">#·@since·1.9.0</span></div><div·class="line"><a·name="l05025"></a><span·class="lineno">·5025</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05026"></a><span·class="lineno">·5026</span> sub·Ignored·{</div><div·class="line"><a·name="l05027"></a><span·class="lineno">·5027</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05028"></a><span·class="lineno">·5028</span> ····SetIgnored($self,·$_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l05029"></a><span·class="lineno">·5029</span> ····IsIgnored($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05030"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Driver.html#a70cc3f50741869d9e7fc29de47241266">·5030</a></span> }</div><div·class="line"><a·name="l05031"></a><span·class="lineno">·5031</span> </div><div·class="line"><a·name="l05032"></a><span·class="lineno">·5032</span> <span·class="preprocessor">#**·@method·IsDefaultDriverSpecific()</span></div><div·class="line"><a·name="l05033"></a><span·class="lineno">·5033</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05034"></a><span·class="lineno">·5034</span> sub·IsDefaultDriverSpecific·{</div><div·class="line"><a·name="l05035"></a><span·class="lineno">·5035</span> }</div><div·class="line"><a·name="l05036"></a><span·class="lineno">·5036</span> </div><div·class="line"><a·name="l05037"></a><span·class="lineno">·5037</span> <span·class="preprocessor">#**·@method·scalar·Justify($justify)</span></div><div·class="line"><a·name="l05038"></a><span·class="lineno">·5038</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05039"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Driver.html#a064b502d82c0c54d9116ef9227521fac">·5039</a></span> <span·class="preprocessor">#·Get·and/or·set·the·justification·of·this·field.</span></div><div·class="line"><a·name="l05040"></a><span·class="lineno">·5040</span> <span·class="preprocessor">#·@note·a.k.a.·GetJustify,·SetJustify</span></div><div·class="line"><a·name="l05041"></a><span·class="lineno">·5041</span> <span·class="preprocessor">#·@param·justify·[optional]·One·of·field·justify·types·(Geo::OGR::FieldDefn::JustifyValues).</span></div><div·class="line"><a·name="l05042"></a><span·class="lineno">·5042</span> <span·class="preprocessor">#·@return·the·justify·value·of·this·field·in·non-void·context.</span></div><div·class="line"><a·name="l05043"></a><span·class="lineno">·5043</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05044"></a><span·class="lineno">·5044</span> sub·Justify·{</div><div·class="line"><a·name="l05045"></a><span·class="lineno">·5045</span> ····my($self,·$justify)·=·@_;</div><div·class="line"><a·name="l05046"></a><span·class="lineno">·5046</span> ····<span·class="keywordflow">if</span>·(defined·$justify)·{</div><div·class="line"><a·name="l05047"></a><span·class="lineno">·5047</span> ········$justify·=·s2i(justify·=>·$justify);</div><div·class="line"><a·name="l05048"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Driver.html#a1e0df413ac79deb042fa0c4d7dc11815">·5048</a></span> ········SetJustify($self,·$justify);</div><div·class="line"><a·name="l05049"></a><span·class="lineno">·5049</span> ····}</div><div·class="line"><a·name="l05050"></a><span·class="lineno">·5050</span> ····<span·class="keywordflow">return</span>·i2s(justify·=>·GetJustify($self))·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05051"></a><span·class="lineno">·5051</span> }</div><div·class="line"><a·name="l05052"></a><span·class="lineno">·5052</span> </div><div·class="line"><a·name="l05053"></a><span·class="lineno">·5053</span> <span·class="preprocessor">#**·@method·list·JustifyValues()</span></div><div·class="line"><a·name="l05054"></a><span·class="lineno">·5054</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l05055"></a><span·class="lineno">·5055</span> <span·class="preprocessor">#·Justify·values·supported·by·GDAL.·Current·list·is</span></div><div·class="line"><a·name="l05056"></a><span·class="lineno">·5056</span> <span·class="preprocessor">#·Left,·Right,·and·Undefined.</span></div><div·class="line"><a·name="l05057"></a><span·class="lineno">·5057</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05058"></a><span·class="lineno">·5058</span> sub·JustifyValues·{</div><div·class="line"><a·name="l05059"></a><span·class="lineno">·5059</span> ····<span·class="keywordflow">return</span>·@JUSTIFY;</div><div·class="line"><a·name="l05060"></a><span·class="lineno">·5060</span> }</div><div·class="line"><a·name="l05061"></a><span·class="lineno">·5061</span> </div><div·class="line"><a·name="l05062"></a><span·class="lineno">·5062</span> <span·class="preprocessor">#**·@method·scalar·Name($name)</span></div><div·class="line"><a·name="l05063"></a><span·class="lineno">·5063</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05064"></a><span·class="lineno">·5064</span> <span·class="preprocessor">#·Get·and/or·set·the·name·of·the·field.</span></div><div·class="line"><a·name="l05065"></a><span·class="lineno">·5065</span> <span·class="preprocessor">#·@note·a.k.a.·GetName,·GetNameRef,·SetName</span></div><div·class="line"><a·name="l05066"></a><span·class="lineno">·5066</span> <span·class="preprocessor">#·@param·name·[optional]</span></div><div·class="line"><a·name="l05067"></a><span·class="lineno">·5067</span> <span·class="preprocessor">#·@return·the·name·in·non-void·context</span></div><div·class="line"><a·name="l05068"></a><span·class="lineno">·5068</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05069"></a><span·class="lineno">·5069</span> sub·Name·{</div><div·class="line"><a·name="l05070"></a><span·class="lineno">·5070</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05071"></a><span·class="lineno">·5071</span> ····SetName($self,·$_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l05072"></a><span·class="lineno">·5072</span> ····GetName($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05073"></a><span·class="lineno">·5073</span> }</div><div·class="line"><a·name="l05074"></a><span·class="lineno">·5074</span> </div><div·class="line"><a·name="l05075"></a><span·class="lineno">·5075</span> <span·class="preprocessor">#**·@method·scalar·Nullable($nullable)</span></div><div·class="line"><a·name="l05076"></a><span·class="lineno">·5076</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05077"></a><span·class="lineno">·5077</span> <span·class="preprocessor">#·Get·or·set·the·nullable·constraint·for·this·field.</span></div><div·class="line"><a·name="l05078"></a><span·class="lineno">·5078</span> <span·class="preprocessor">#·@note·a.k.a.·IsNullable·and·SetNullable</span></div><div·class="line"><a·name="l05079"></a><span·class="lineno">·5079</span> <span·class="preprocessor">#·@param·nullable·[optional]</span></div><div·class="line"><a·name="l05080"></a><span·class="lineno">·5080</span> <span·class="preprocessor">#·@return·the·nullable·value·of·this·field·in·non-void·context.</span></div><div·class="line"><a·name="l05081"></a><span·class="lineno">·5081</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05082"></a><span·class="lineno">·5082</span> sub·Nullable·{</div><div·class="line"><a·name="l05083"></a><span·class="lineno">·5083</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05084"></a><span·class="lineno">·5084</span> ····SetNullable($self,·$_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l05085"></a><span·class="lineno">·5085</span> ····IsNullable($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05086"></a><span·class="lineno">·5086</span> }</div><div·class="line"><a·name="l05087"></a><span·class="lineno">·5087</span> </div><div·class="line"><a·name="l05088"></a><span·class="lineno">·5088</span> <span·class="preprocessor">#**·@method·scalar·Precision($precision)</span></div><div·class="line"><a·name="l05089"></a><span·class="lineno">·5089</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05090"></a><span·class="lineno">·5090</span> <span·class="preprocessor">#·Get·and/or·set·the·precision·of·this·field.</span></div><div·class="line"><a·name="l05091"></a><span·class="lineno">·5091</span> <span·class="preprocessor">#·@note·a.k.a.·GetPrecision,·SetPrecision</span></div><div·class="line"><a·name="l05092"></a><span·class="lineno">·5092</span> <span·class="preprocessor">#·@param·precision·[optional]</span></div><div·class="line"><a·name="l05093"></a><span·class="lineno">·5093</span> <span·class="preprocessor">#·@return·the·precision·of·this·field·in·non-void·context.</span></div><div·class="line"><a·name="l05094"></a><span·class="lineno">·5094</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05095"></a><span·class="lineno">·5095</span> sub·Precision·{</div><div·class="line"><a·name="l05096"></a><span·class="lineno">·5096</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05097"></a><span·class="lineno">·5097</span> ····SetPrecision($self,·$_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l05098"></a><span·class="lineno">·5098</span> ····GetPrecision($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05099"></a><span·class="lineno">·5099</span> }</div><div·class="line"><a·name="l05100"></a><span·class="lineno">·5100</span> </div><div·class="line"><a·name="l05101"></a><span·class="lineno">·5101</span> <span·class="preprocessor">#**·@method·hash·reference·Schema(%params)</span></div><div·class="line"><a·name="l05102"></a><span·class="lineno">·5102</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05103"></a><span·class="lineno">·5103</span> <span·class="preprocessor">#·Get·the·schema·or·set·parts·of·the·schema</span></div><div·class="line"><a·name="l05104"></a><span·class="lineno">·5104</span> <span·class="preprocessor">#·@param·params·[optional]·as·those·in·Geo::OGR::FieldDefn::new.</span></div><div·class="line"><a·name="l05105"></a><span·class="lineno">·5105</span> <span·class="preprocessor">#·@return·a·reference·to·a·hash·whose·keys·are·as·those·in·Geo::OGR::FieldDefn::new.</span></div><div·class="line"><a·name="l05106"></a><span·class="lineno">·5106</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05107"></a><span·class="lineno">·5107</span> sub·Schema·{</div><div·class="line"><a·name="l05108"></a><span·class="lineno">·5108</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05109"></a><span·class="lineno">·5109</span> ····<span·class="keywordflow">if</span>·(@_)·{</div><div·class="line"><a·name="l05110"></a><span·class="lineno">·5110</span> ········my·$params·=·@_·%·2·==·0·?·{@_}·:·shift;</div><div·class="line"><a·name="l05111"></a><span·class="lineno">·5111</span> ········<span·class="keywordflow">for</span>·my·$key·(keys·%SCHEMA_KEYS)·{</div><div·class="line"><a·name="l05112"></a><span·class="lineno">·5112</span> ············next·unless·exists·$params->{$key};</div><div·class="line"><a·name="l05113"></a><span·class="lineno">·5113</span> ············eval·<span·class="stringliteral">"\$self->$key(\$params->{$key})"</span>;</div><div·class="line"><a·name="l05114"></a><span·class="lineno">·5114</span> ············confess(last_error())·if·$@;</div><div·class="line"><a·name="l05115"></a><span·class="lineno">·5115</span> ········}</div><div·class="line"><a·name="l05116"></a><span·class="lineno">·5116</span> ····}</div><div·class="line"><a·name="l05117"></a><span·class="lineno">·5117</span> ····return·unless·defined·wantarray;</div><div·class="line"><a·name="l05118"></a><span·class="lineno">·5118</span> ····my·%schema·=·();</div><div·class="line"><a·name="l05119"></a><span·class="lineno">·5119</span> ····for·my·$key·(keys·%SCHEMA_KEYS)·{</div><div·class="line"><a·name="l05120"></a><span·class="lineno">·5120</span> ········$schema{$key}·=·eval·<span·class="stringliteral">'$self->'</span>.$key;</div><div·class="line"><a·name="l05121"></a><span·class="lineno">·5121</span> ····}</div><div·class="line"><a·name="l05122"></a><span·class="lineno">·5122</span> ····<span·class="keywordflow">return</span>·wantarray·?·%schema·:·\%schema;</div><div·class="line"><a·name="l05123"></a><span·class="lineno">·5123</span> }</div><div·class="line"><a·name="l05124"></a><span·class="lineno">·5124</span> </div><div·class="line"><a·name="l05125"></a><span·class="lineno">·5125</span> <span·class="preprocessor">#**·@method·SetSchema()</span></div><div·class="line"><a·name="l05126"></a><span·class="lineno">·5126</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05127"></a><span·class="lineno">·5127</span> sub·SetSchema·{</div><div·class="line"><a·name="l05128"></a><span·class="lineno">·5128</span> }</div><div·class="line"><a·name="l05129"></a><span·class="lineno">·5129</span> </div><div·class="line"><a·name="l05130"></a><span·class="lineno">·5130</span> <span·class="preprocessor">#**·@method·scalar·SubType($SubType)</span></div><div·class="line"><a·name="l05131"></a><span·class="lineno">·5131</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05132"></a><span·class="lineno">·5132</span> <span·class="preprocessor">#·@note·a.k.a.·GetSubType,·SetSubType</span></div><div·class="line"><a·name="l05133"></a><span·class="lineno">·5133</span> <span·class="preprocessor">#·@param·SubType·[optional]·One·of·field·sub·types·(Geo::OGR::FieldDefn::SubTypes).</span></div><div·class="line"><a·name="l05134"></a><span·class="lineno">·5134</span> <span·class="preprocessor">#·@return·the·sub·type·of·this·field·in·non-void·context.</span></div><div·class="line"><a·name="l05135"></a><span·class="lineno">·5135</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05136"></a><span·class="lineno">·5136</span> sub·SubType·{</div><div·class="line"><a·name="l05137"></a><span·class="lineno">·5137</span> ····my($self,·$subtype)·=·@_;</div><div·class="line"><a·name="l05138"></a><span·class="lineno">·5138</span> ····<span·class="keywordflow">if</span>·(defined·$subtype)·{</div><div·class="line"><a·name="l05139"></a><span·class="lineno">·5139</span> ········$subtype·=·s2i(field_subtype·=>·$subtype);</div><div·class="line"><a·name="l05140"></a><span·class="lineno">·5140</span> ········SetSubType($self,·$subtype);</div><div·class="line"><a·name="l05141"></a><span·class="lineno">·5141</span> ····}</div><div·class="line"><a·name="l05142"></a><span·class="lineno">·5142</span> ····<span·class="keywordflow">return</span>·i2s(field_subtype·=>·GetSubType($self))·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05143"></a><span·class="lineno">·5143</span> }</div><div·class="line"><a·name="l05144"></a><span·class="lineno">·5144</span> </div><div·class="line"><a·name="l05145"></a><span·class="lineno">·5145</span> <span·class="preprocessor">#**·@method·SubTypes()</span></div><div·class="line"><a·name="l05146"></a><span·class="lineno">·5146</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05147"></a><span·class="lineno">·5147</span> sub·SubTypes·{</div><div·class="line"><a·name="l05148"></a><span·class="lineno">·5148</span> ····<span·class="keywordflow">return</span>·@SUBTYPES;</div><div·class="line"><a·name="l05149"></a><span·class="lineno">·5149</span> }</div><div·class="line"><a·name="l05150"></a><span·class="lineno">·5150</span> </div><div·class="line"><a·name="l05151"></a><span·class="lineno">·5151</span> <span·class="preprocessor">#**·@method·scalar·Type($type)</span></div><div·class="line"><a·name="l05152"></a><span·class="lineno">·5152</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05153"></a><span·class="lineno">·5153</span> <span·class="preprocessor">#·Get·and/or·set·the·type·of·the·field.</span></div><div·class="line"><a·name="l05154"></a><span·class="lineno">·5154</span> <span·class="preprocessor">#·@note·a.k.a.·GetFieldTypeName,·GetTypeName,·GetType,·SetType</span></div><div·class="line"><a·name="l05155"></a><span·class="lineno">·5155</span> <span·class="preprocessor">#·@param·type·[optional]·One·of·field·types·(Geo::OGR::FieldDefn::Types).</span></div><div·class="line"><a·name="l05156"></a><span·class="lineno">·5156</span> <span·class="preprocessor">#·@return·one·of·field·types·in·non-void·context.</span></div><div·class="line"><a·name="l05157"></a><span·class="lineno">·5157</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05158"></a><span·class="lineno">·5158</span> sub·Type·{</div><div·class="line"><a·name="l05159"></a><span·class="lineno">·5159</span> ····my($self,·$type)·=·@_;</div><div·class="line"><a·name="l05160"></a><span·class="lineno">·5160</span> ····<span·class="keywordflow">if</span>·(defined·$type)·{</div><div·class="line"><a·name="l05161"></a><span·class="lineno">·5161</span> ········$type·=·s2i(field_type·=>·$type);</div><div·class="line"><a·name="l05162"></a><span·class="lineno">·5162</span> ········SetType($self,·$type);</div><div·class="line"><a·name="l05163"></a><span·class="lineno">·5163</span> ····}</div><div·class="line"><a·name="l05164"></a><span·class="lineno">·5164</span> ····<span·class="keywordflow">return</span>·i2s(field_type·=>·GetType($self))·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05165"></a><span·class="lineno">·5165</span> }</div><div·class="line"><a·name="l05166"></a><span·class="lineno">·5166</span> </div><div·class="line"><a·name="l05167"></a><span·class="lineno">·5167</span> <span·class="preprocessor">#**·@method·list·Types()</span></div><div·class="line"><a·name="l05168"></a><span·class="lineno">·5168</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l05169"></a><span·class="lineno">·5169</span> <span·class="preprocessor">#·Field·types·supported·by·GDAL.·Current·list·is</span></div><div·class="line"><a·name="l05170"></a><span·class="lineno">·5170</span> <span·class="preprocessor">#·Binary,·Date,·DateTime,·Integer,·Integer64,·Integer64List,·IntegerList,·Real,·RealList,·String,·StringList,·Time,·WideString,·and·WideStringList.</span></div><div·class="line"><a·name="l05171"></a><span·class="lineno">·5171</span> <span·class="preprocessor">#·(However,·WideString·is·not·supported.)</span></div><div·class="line"><a·name="l05172"></a><span·class="lineno">·5172</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05173"></a><span·class="lineno">·5173</span> sub·Types·{</div><div·class="line"><a·name="l05174"></a><span·class="lineno">·5174</span> ····<span·class="keywordflow">return</span>·@TYPES;</div><div·class="line"><a·name="l05175"></a><span·class="lineno">·5175</span> }</div><div·class="line"><a·name="l05176"></a><span·class="lineno">·5176</span> </div><div·class="line"><a·name="l05177"></a><span·class="lineno">·5177</span> <span·class="preprocessor">#**·@method·scalar·Width($width)</span></div><div·class="line"><a·name="l05178"></a><span·class="lineno">·5178</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05179"></a><span·class="lineno">·5179</span> <span·class="preprocessor">#·Get·and/or·set·the·field·width.</span></div><div·class="line"><a·name="l05180"></a><span·class="lineno">·5180</span> <span·class="preprocessor">#·@note·a.k.a.·GetWidth,·SetWidth</span></div><div·class="line"><a·name="l05181"></a><span·class="lineno">·5181</span> <span·class="preprocessor">#·@param·width·[optional]</span></div><div·class="line"><a·name="l05182"></a><span·class="lineno">·5182</span> <span·class="preprocessor">#·@return·the·width·of·this·field·in·non-void·context.</span></div><div·class="line"><a·name="l05183"></a><span·class="lineno">·5183</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05184"></a><span·class="lineno">·5184</span> sub·Width·{</div><div·class="line"><a·name="l05185"></a><span·class="lineno">·5185</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05186"></a><span·class="lineno">·5186</span> ····SetWidth($self,·$_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l05187"></a><span·class="lineno">·5187</span> ····GetWidth($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05188"></a><span·class="lineno">·5188</span> }</div><div·class="line"><a·name="l05189"></a><span·class="lineno">·5189</span> </div><div·class="line"><a·name="l05190"></a><span·class="lineno">·5190</span> <span·class="preprocessor">#**·@method·Geo::OGR::FieldDefn·new(%params)</span></div><div·class="line"><a·name="l05191"></a><span·class="lineno">·5191</span> <span·class="preprocessor">#·Class·method.</span></div><div·class="line"><a·name="l05192"></a><span·class="lineno">·5192</span> <span·class="preprocessor">#·@brief·Create·a·new·field·definition.</span></div><div·class="line"><a·name="l05193"></a><span·class="lineno">·5193</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l05194"></a><span·class="lineno">·5194</span> <span·class="preprocessor">#·@param·Named·parameters:</span></div><div·class="line"><a·name="l05195"></a><span·class="lineno">·5195</span> <span·class="preprocessor">#·-·\a·Name·Field·name·(default·is·'unnamed').</span></div><div·class="line"><a·name="l05196"></a><span·class="lineno">·5196</span> <span·class="preprocessor">#·-·\a·Type·Field·type,·one·of·Geo::OGR::FieldDefn::Types·(default·is·'String').</span></div><div·class="line"><a·name="l05197"></a><span·class="lineno">·5197</span> <span·class="preprocessor">#·-·\a·SubType·Field·sub·type,·one·of·Geo::OGR::FieldDefn::SubTypes.</span></div><div·class="line"><a·name="l05198"></a><span·class="lineno">·5198</span> <span·class="preprocessor">#·-·\a·Justify·Justify·value,·one·of·Geo::OGR::FieldDefn::JustifyValues</span></div><div·class="line"><a·name="l05199"></a><span·class="lineno">·5199</span> <span·class="preprocessor">#·-·\a·Width</span></div><div·class="line"><a·name="l05200"></a><span·class="lineno">·5200</span> <span·class="preprocessor">#·-·\a·Precision</span></div><div·class="line"><a·name="l05201"></a><span·class="lineno">·5201</span> <span·class="preprocessor">#·-·\a·Nullable·(default·is·true)</span></div><div·class="line"><a·name="l05202"></a><span·class="lineno">·5202</span> <span·class="preprocessor">#·-·\a·Default</span></div><div·class="line"><a·name="l05203"></a><span·class="lineno">·5203</span> <span·class="preprocessor">#·-·\a·Ignored·(default·is·false)</span></div><div·class="line"><a·name="l05204"></a><span·class="lineno">·5204</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l05205"></a><span·class="lineno">·5205</span> <span·class="preprocessor">#·@note·Simplified·parameters·Name·=>·'Type'·are·also·supported.</span></div><div·class="line"><a·name="l05206"></a><span·class="lineno">·5206</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l05207"></a><span·class="lineno">·5207</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::FieldDefn·object</span></div><div·class="line"><a·name="l05208"></a><span·class="lineno">·5208</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05209"></a><span·class="lineno">·5209</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l05210"></a><span·class="lineno">·5210</span> ····my·$pkg·=·shift;</div><div·class="line"><a·name="l05211"></a><span·class="lineno">·5211</span> ····my·$params·=·{Name·=>·<span·class="stringliteral">'unnamed'</span>,·Type·=>·<span·class="stringliteral">'String'</span>};</div><div·class="line"><a·name="l05212"></a><span·class="lineno">·5212</span> ····<span·class="keywordflow">if</span>·(@_·==·0)·{</div><div·class="line"><a·name="l05213"></a><span·class="lineno">·5213</span> ····}·elsif·(@_·==·1·and·not·ref·$_[0])·{</div><div·class="line"><a·name="l05214"></a><span·class="lineno">·5214</span> ········$params->{Name}·=·shift;</div><div·class="line"><a·name="l05215"></a><span·class="lineno">·5215</span> ····}·elsif·(@_·==·2·and·not·$Geo::OGR::FieldDefn::SCHEMA_KEYS{$_[0]})·{</div><div·class="line"><a·name="l05216"></a><span·class="lineno">·5216</span> ········$params->{Name}·=·shift;</div><div·class="line"><a·name="l05217"></a><span·class="lineno">·5217</span> ········$params->{Type}·=·shift;</div><div·class="line"><a·name="l05218"></a><span·class="lineno">·5218</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l05219"></a><span·class="lineno">·5219</span> ········my·$tmp·=·@_·%·2·==·0·?·{@_}·:·shift;</div><div·class="line"><a·name="l05220"></a><span·class="lineno">·5220</span> ········<span·class="keywordflow">for</span>·my·$key·(keys·%$tmp)·{</div><div·class="line"><a·name="l05221"></a><span·class="lineno">·5221</span> ············<span·class="keywordflow">if</span>·($Geo::OGR::FieldDefn::SCHEMA_KEYS{$key})·{</div><div·class="line"><a·name="l05222"></a><span·class="lineno">·5222</span> ················$params->{$key}·=·$tmp->{$key};</div><div·class="line"><a·name="l05223"></a><span·class="lineno">·5223</span> ············}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l05224"></a><span·class="lineno">·5224</span> ················carp·<span·class="stringliteral">"Unknown·parameter:·'$key'."</span>·<span·class="keywordflow">if</span>·$key·ne·<span·class="stringliteral">'Index'</span>;</div><div·class="line"><a·name="l05225"></a><span·class="lineno">·5225</span> ············}</div><div·class="line"><a·name="l05226"></a><span·class="lineno">·5226</span> ········}</div><div·class="line"><a·name="l05227"></a><span·class="lineno">·5227</span> ····}</div><div·class="line"><a·name="l05228"></a><span·class="lineno">·5228</span> ····$params->{Type}·=·s2i(field_type·=>·$params->{Type});</div><div·class="line"><a·name="l05229"></a><span·class="lineno">·5229</span> ····my·$self·=·Geo::OGRc::new_FieldDefn($params->{Name},·$params->{Type});</div><div·class="line"><a·name="l05230"></a><span·class="lineno">·5230</span> ····bless·$self,·$pkg;</div><div·class="line"><a·name="l05231"></a><span·class="lineno">·5231</span> ····<span·class="keyword">delete</span>·$params->{Name};</div><div·class="line"><a·name="l05232"></a><span·class="lineno">·5232</span> ····<span·class="keyword">delete</span>·$params->{Type};</div><div·class="line"><a·name="l05233"></a><span·class="lineno">·5233</span> ····$self->Schema($params);</div><div·class="line"><a·name="l05234"></a><span·class="lineno">·5234</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l05235"></a><span·class="lineno">·5235</span> }</div><div·class="line"><a·name="l05236"></a><span·class="lineno">·5236</span> </div><div·class="line"><a·name="l05237"></a><span·class="lineno">·5237</span> <span·class="preprocessor">#**·@class·Geo::OGR::GeomFieldDefn</span></div><div·class="line"><a·name="l05238"></a><span·class="lineno">·5238</span> <span·class="preprocessor">#·@brief·A·definition·of·a·spatial·attribute.</span></div><div·class="line"><a·name="l05239"></a><span·class="lineno">·5239</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l05240"></a><span·class="lineno">·5240</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05241"></a><span·class="lineno">·5241</span> <span·class="keyword">package·</span>Geo::OGR::GeomFieldDefn;</div><div·class="line"><a·name="l05242"></a><span·class="lineno">·5242</span> </div><div·class="line"><a·name="l05243"></a><span·class="lineno">·5243</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1OGR.html">Geo::OGR</a>)</div><div·class="line"><a·name="l05244"></a><span·class="lineno">·5244</span> </div><div·class="line"><a·name="l05245"></a><span·class="lineno">·5245</span> <span·class="preprocessor">#**·@method·scalar·GeometryType($type)</span></div><div·class="line"><a·name="l05246"></a><span·class="lineno">·5246</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05247"></a><span·class="lineno">·5247</span> <span·class="preprocessor">#·@note·a.k.a.·GetType,·SetType</span></div><div·class="line"><a·name="l05248"></a><span·class="lineno">·5248</span> <span·class="preprocessor">#·@return·the·geometry·type·of·the·field.</span></div><div·class="line"><a·name="l05249"></a><span·class="lineno">·5249</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05250"></a><span·class="lineno">·5250</span> sub·GeometryType·{</div><div·class="line"><a·name="l05251"></a><span·class="lineno">·5251</span> }</div><div·class="line"><a·name="l05252"></a><span·class="lineno">·5252</span> </div><div·class="line"><a·name="l05253"></a><span·class="lineno">·5253</span> <span·class="preprocessor">#**·@method·GetSchema()</span></div><div·class="line"><a·name="l05254"></a><span·class="lineno">·5254</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05255"></a><span·class="lineno">·5255</span> sub·GetSchema·{</div><div·class="line"><a·name="l05256"></a><span·class="lineno">·5256</span> }</div><div·class="line"><a·name="l05257"></a><span·class="lineno">·5257</span> </div><div·class="line"><a·name="l05258"></a><span·class="lineno">·5258</span> <span·class="preprocessor">#**·@method·scalar·Ignored($ignore)</span></div><div·class="line"><a·name="l05259"></a><span·class="lineno">·5259</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05260"></a><span·class="lineno">·5260</span> <span·class="preprocessor">#·@note·a.k.a.·IsIgnored,·SetIgnored</span></div><div·class="line"><a·name="l05261"></a><span·class="lineno">·5261</span> <span·class="preprocessor">#·@return·the·ignore·status·of·the·field.</span></div><div·class="line"><a·name="l05262"></a><span·class="lineno">·5262</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05263"></a><span·class="lineno">·5263</span> sub·Ignored·{</div><div·class="line"><a·name="l05264"></a><span·class="lineno">·5264</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05265"></a><span·class="lineno">·5265</span> ····SetIgnored($self,·$_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l05266"></a><span·class="lineno">·5266</span> ····IsIgnored($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05267"></a><span·class="lineno">·5267</span> }</div><div·class="line"><a·name="l05268"></a><span·class="lineno">·5268</span> </div><div·class="line"><a·name="l05269"></a><span·class="lineno">·5269</span> <span·class="preprocessor">#**·@method·scalar·Name($name)</span></div><div·class="line"><a·name="l05270"></a><span·class="lineno">·5270</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05271"></a><span·class="lineno">·5271</span> <span·class="preprocessor">#·@note·a.k.a.·GetName,·GetNameRef,·SetName</span></div><div·class="line"><a·name="l05272"></a><span·class="lineno">·5272</span> <span·class="preprocessor">#·@return·the·name·of·the·field.</span></div><div·class="line"><a·name="l05273"></a><span·class="lineno">·5273</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05274"></a><span·class="lineno">·5274</span> sub·Name·{</div><div·class="line"><a·name="l05275"></a><span·class="lineno">·5275</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05276"></a><span·class="lineno">·5276</span> ····SetName($self,·$_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l05277"></a><span·class="lineno">·5277</span> ····GetName($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05278"></a><span·class="lineno">·5278</span> }</div><div·class="line"><a·name="l05279"></a><span·class="lineno">·5279</span> </div><div·class="line"><a·name="l05280"></a><span·class="lineno">·5280</span> <span·class="preprocessor">#**·@method·scalar·Nullable($nullable)</span></div><div·class="line"><a·name="l05281"></a><span·class="lineno">·5281</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05282"></a><span·class="lineno">·5282</span> <span·class="preprocessor">#·@note·a.k.a.·IsNullable,·SetNullable</span></div><div·class="line"><a·name="l05283"></a><span·class="lineno">·5283</span> <span·class="preprocessor">#·@return·the·nullable·status·of·the·field.</span></div><div·class="line"><a·name="l05284"></a><span·class="lineno">·5284</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05285"></a><span·class="lineno">·5285</span> sub·Nullable·{</div><div·class="line"><a·name="l05286"></a><span·class="lineno">·5286</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05287"></a><span·class="lineno">·5287</span> ····SetNullable($self,·$_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l05288"></a><span·class="lineno">·5288</span> ····IsNullable($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05289"></a><span·class="lineno">·5289</span> }</div><div·class="line"><a·name="l05290"></a><span·class="lineno">·5290</span> </div><div·class="line"><a·name="l05291"></a><span·class="lineno">·5291</span> <span·class="preprocessor">#**·@method·hash·reference·Schema(%params)</span></div><div·class="line"><a·name="l05292"></a><span·class="lineno">·5292</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05293"></a><span·class="lineno">·5293</span> <span·class="preprocessor">#·Get·the·schema·or·set·parts·of·the·schema.</span></div><div·class="line"><a·name="l05294"></a><span·class="lineno">·5294</span> <span·class="preprocessor">#·@param·params·[optional]·as·those·in·Geo::OGR::GeomFieldDefn::new.</span></div><div·class="line"><a·name="l05295"></a><span·class="lineno">·5295</span> <span·class="preprocessor">#·@return·a·reference·to·a·hash·whose·keys·are·as·those·in·Geo::OGR::GeomFieldDefn::new.</span></div><div·class="line"><a·name="l05296"></a><span·class="lineno">·5296</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05297"></a><span·class="lineno">·5297</span> sub·Schema·{</div><div·class="line"><a·name="l05298"></a><span·class="lineno">·5298</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05299"></a><span·class="lineno">·5299</span> ····<span·class="keywordflow">if</span>·(@_)·{</div><div·class="line"><a·name="l05300"></a><span·class="lineno">·5300</span> ········my·$params·=·@_·%·2·==·0·?·{@_}·:·shift;</div><div·class="line"><a·name="l05301"></a><span·class="lineno">·5301</span> ········<span·class="keywordflow">for</span>·my·$key·(keys·%SCHEMA_KEYS)·{</div><div·class="line"><a·name="l05302"></a><span·class="lineno">·5302</span> ············next·unless·exists·$params->{$key};</div><div·class="line"><a·name="l05303"></a><span·class="lineno">·5303</span> ············eval·<span·class="stringliteral">"\$self->$key(\$params->{$key})"</span>;</div><div·class="line"><a·name="l05304"></a><span·class="lineno">·5304</span> ············confess·last_error()·if·$@;</div><div·class="line"><a·name="l05305"></a><span·class="lineno">·5305</span> ········}</div><div·class="line"><a·name="l05306"></a><span·class="lineno">·5306</span> ····}</div><div·class="line"><a·name="l05307"></a><span·class="lineno">·5307</span> ····return·unless·defined·wantarray;</div><div·class="line"><a·name="l05308"></a><span·class="lineno">·5308</span> ····my·%schema·=·();</div><div·class="line"><a·name="l05309"></a><span·class="lineno">·5309</span> ····for·my·$key·(keys·%SCHEMA_KEYS)·{</div><div·class="line"><a·name="l05310"></a><span·class="lineno">·5310</span> ········$schema{$key}·=·eval·<span·class="stringliteral">'$self->'</span>.$key;</div><div·class="line"><a·name="l05311"></a><span·class="lineno">·5311</span> ····}</div><div·class="line"><a·name="l05312"></a><span·class="lineno">·5312</span> ····<span·class="keywordflow">return</span>·wantarray·?·%schema·:·\%schema;</div><div·class="line"><a·name="l05313"></a><span·class="lineno">·5313</span> }</div><div·class="line"><a·name="l05314"></a><span·class="lineno">·5314</span> </div><div·class="line"><a·name="l05315"></a><span·class="lineno">·5315</span> <span·class="preprocessor">#**·@method·SetSchema()</span></div><div·class="line"><a·name="l05316"></a><span·class="lineno">·5316</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05317"></a><span·class="lineno">·5317</span> sub·SetSchema·{</div><div·class="line"><a·name="l05318"></a><span·class="lineno">·5318</span> }</div><div·class="line"><a·name="l05319"></a><span·class="lineno">·5319</span> </div><div·class="line"><a·name="l05320"></a><span·class="lineno">·5320</span> <span·class="preprocessor">#**·@method·scalar·SpatialReference($sr)</span></div><div·class="line"><a·name="l05321"></a><span·class="lineno">·5321</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05322"></a><span·class="lineno">·5322</span> <span·class="preprocessor">#·@note·a.k.a.·GetSpatialRef,·SetSpatialRef</span></div><div·class="line"><a·name="l05323"></a><span·class="lineno">·5323</span> <span·class="preprocessor">#·@return·the·spatial·reference·of·the·field·as·a·Geo::OSR::SpatialReference·object.</span></div><div·class="line"><a·name="l05324"></a><span·class="lineno">·5324</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05325"></a><span·class="lineno">·5325</span> sub·SpatialReference·{</div><div·class="line"><a·name="l05326"></a><span·class="lineno">·5326</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05327"></a><span·class="lineno">·5327</span> ····SetSpatialRef($self,·$_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l05328"></a><span·class="lineno">·5328</span> ····GetSpatialRef($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05329"></a><span·class="lineno">·5329</span> }</div><div·class="line"><a·name="l05330"></a><span·class="lineno">·5330</span> </div><div·class="line"><a·name="l05331"></a><span·class="lineno">·5331</span> <span·class="preprocessor">#**·@method·Type()</span></div><div·class="line"><a·name="l05332"></a><span·class="lineno">·5332</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05333"></a><span·class="lineno">·5333</span> <span·class="preprocessor">#·@return·the·type·of·this·geometry·field.·One·of·Geo::OGR::GeomFieldDefn::Types</span></div><div·class="line"><a·name="l05334"></a><span·class="lineno">·5334</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05335"></a><span·class="lineno">·5335</span> sub·Type·{</div><div·class="line"><a·name="l05336"></a><span·class="lineno">·5336</span> ····my($self,·$type)·=·@_;</div><div·class="line"><a·name="l05337"></a><span·class="lineno">·5337</span> ····<span·class="keywordflow">if</span>·(defined·$type)·{</div><div·class="line"><a·name="l05338"></a><span·class="lineno">·5338</span> ········$type·=·s2i(geometry_type·=>·$type);</div><div·class="line"><a·name="l05339"></a><span·class="lineno">·5339</span> ········SetType($self,·$type);</div><div·class="line"><a·name="l05340"></a><span·class="lineno">·5340</span> ····}</div><div·class="line"><a·name="l05341"></a><span·class="lineno">·5341</span> ····i2s(geometry_type·=>·GetType($self))·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05342"></a><span·class="lineno">·5342</span> }</div><div·class="line"><a·name="l05343"></a><span·class="lineno">·5343</span> </div><div·class="line"><a·name="l05344"></a><span·class="lineno">·5344</span> <span·class="preprocessor">#**·@method·Types()</span></div><div·class="line"><a·name="l05345"></a><span·class="lineno">·5345</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l05346"></a><span·class="lineno">·5346</span> <span·class="preprocessor">#·@return·a·list·of·all·geometry·types,·currently:</span></div><div·class="line"><a·name="l05347"></a><span·class="lineno">·5347</span> <span·class="preprocessor">#·CircularString,·CircularStringM,·CircularStringZ,·CircularStringZM,·CompoundCurve,·CompoundCurveM,·CompoundCurveZ,·CompoundCurveZM,·Curve,·CurveM,·CurvePolygon,·CurvePolygonM,·CurvePolygonZ,·CurvePolygonZM,·CurveZ,·CurveZM,·GeometryCollection,·GeometryCollection25D,·GeometryCollectionM,·GeometryCollectionZM,·LineString,·LineString25D,·LineStringM,·LineStringZM,·LinearRing,·MultiCurve,·MultiCurveM,·MultiCurveZ,·MultiCurveZM,·MultiLineString,·MultiLineString25D,·MultiLineStringM,·MultiLineStringZM,·MultiPoint,·MultiPoint25D,·MultiPointM,·MultiPointZM,·MultiPolygon,·MultiPolygon25D,·MultiPolygonM,·MultiPolygonZM,·MultiSurface,·MultiSurfaceM,·MultiSurfaceZ,·MultiSurfaceZM,·None,·Point,·Point25D,·PointM,·PointZM,·Polygon,·Polygon25D,·PolygonM,·PolygonZM,·PolyhedralSurface,·PolyhedralSurfaceM,·PolyhedralSurfaceZ,·PolyhedralSurfaceZM,·Surface,·SurfaceM,·SurfaceZ,·SurfaceZM,·TIN,·TINM,·TINZ,·TINZM,·Triangle,·TriangleM,·TriangleZ,·TriangleZM,·and·Unknown.</span></div><div·class="line"><a·name="l05348"></a><span·class="lineno">·5348</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05349"></a><span·class="lineno">·5349</span> sub·Types·{</div><div·class="line"><a·name="l05350"></a><span·class="lineno">·5350</span> ····<span·class="keywordflow">return</span>·<a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a2ec865a500a31aa099f7d7606bd060c0">Geo::OGR::Geometry::GeometryTypes</a>();</div><div·class="line"><a·name="l05351"></a><span·class="lineno">·5351</span> }</div><div·class="line"><a·name="l05352"></a><span·class="lineno">·5352</span> </div><div·class="line"><a·name="l05353"></a><span·class="lineno">·5353</span> <span·class="preprocessor">#**·@method·Geo::OGR::GeomFieldDefn·new(%params)</span></div><div·class="line"><a·name="l05354"></a><span·class="lineno">·5354</span> <span·class="preprocessor">#·Class·method.</span></div><div·class="line"><a·name="l05355"></a><span·class="lineno">·5355</span> <span·class="preprocessor">#·@brief·Create·a·new·spatial·field·definition.</span></div><div·class="line"><a·name="l05356"></a><span·class="lineno">·5356</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l05357"></a><span·class="lineno">·5357</span> <span·class="preprocessor">#·@param·params·one·or·more·of:</span></div><div·class="line"><a·name="l05358"></a><span·class="lineno">·5358</span> <span·class="preprocessor">#·-·\a·Name·name·for·the·field·(default·is·'geom').</span></div><div·class="line"><a·name="l05359"></a><span·class="lineno">·5359</span> <span·class="preprocessor">#·-·\a·GeometryType·type·for·the·field·type,·one·of·Geo::OGR::GeomFieldDefn::Types·(default·is·'Unknown').</span></div><div·class="line"><a·name="l05360"></a><span·class="lineno">·5360</span> <span·class="preprocessor">#·-·\a·SpatialReference·a·Geo::OSR::SpatialReference·object.</span></div><div·class="line"><a·name="l05361"></a><span·class="lineno">·5361</span> <span·class="preprocessor">#·-·\a·Nullable·(default·is·true)</span></div><div·class="line"><a·name="l05362"></a><span·class="lineno">·5362</span> <span·class="preprocessor">#·-·\a·Ignored·(default·is·false)</span></div><div·class="line"><a·name="l05363"></a><span·class="lineno">·5363</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l05364"></a><span·class="lineno">·5364</span> <span·class="preprocessor">#·@note·Simplified·parameters·<name>·=>·<type>·is·also·supported.</span></div><div·class="line"><a·name="l05365"></a><span·class="lineno">·5365</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l05366"></a><span·class="lineno">·5366</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::GeomFieldDefn·object</span></div><div·class="line"><a·name="l05367"></a><span·class="lineno">·5367</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05368"></a><span·class="lineno">·5368</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l05369"></a><span·class="lineno">·5369</span> ····my·$pkg·=·shift;</div><div·class="line"><a·name="l05370"></a><span·class="lineno">·5370</span> ····my·$params·=·{Name·=>·<span·class="stringliteral">'geom'</span>,·Type·=>·<span·class="stringliteral">'Unknown'</span>};</div><div·class="line"><a·name="l05371"></a><span·class="lineno">·5371</span> ····<span·class="keywordflow">if</span>·(@_·==·0)·{</div><div·class="line"><a·name="l05372"></a><span·class="lineno">·5372</span> ····}·elsif·(@_·==·1)·{</div><div·class="line"><a·name="l05373"></a><span·class="lineno">·5373</span> ········$params->{Name}·=·shift;</div><div·class="line"><a·name="l05374"></a><span·class="lineno">·5374</span> ····}·elsif·(@_·==·2·and·not·$Geo::OGR::GeomFieldDefn::SCHEMA_KEYS{$_[0]})·{</div><div·class="line"><a·name="l05375"></a><span·class="lineno">·5375</span> ········$params->{Name}·=·shift;</div><div·class="line"><a·name="l05376"></a><span·class="lineno">·5376</span> ········$params->{Type}·=·shift;</div><div·class="line"><a·name="l05377"></a><span·class="lineno">·5377</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l05378"></a><span·class="lineno">·5378</span> ········my·$tmp·=·@_·%·2·==·0·?·{@_}·:·shift;</div><div·class="line"><a·name="l05379"></a><span·class="lineno">·5379</span> ········<span·class="keywordflow">for</span>·my·$key·(keys·%$tmp)·{</div><div·class="line"><a·name="l05380"></a><span·class="lineno">·5380</span> ············<span·class="keywordflow">if</span>·($Geo::OGR::GeomFieldDefn::SCHEMA_KEYS{$key})·{</div><div·class="line"><a·name="l05381"></a><span·class="lineno">·5381</span> ················$params->{$key}·=·$tmp->{$key};</div><div·class="line"><a·name="l05382"></a><span·class="lineno">·5382</span> ············}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l05383"></a><span·class="lineno">·5383</span> ················carp·<span·class="stringliteral">"Unknown·parameter:·'$key'."</span>·<span·class="keywordflow">if</span>·$key·ne·<span·class="stringliteral">'Index'</span>·&&·$key·ne·<span·class="stringliteral">'GeometryType'</span>;</div><div·class="line"><a·name="l05384"></a><span·class="lineno">·5384</span> ············}</div><div·class="line"><a·name="l05385"></a><span·class="lineno">·5385</span> ········}</div><div·class="line"><a·name="l05386"></a><span·class="lineno">·5386</span> ········$params->{Type}·<span·class="comment">//=·$tmp->{GeometryType};</span></div><div·class="line"><a·name="l05387"></a><span·class="lineno">·5387</span> ····}</div><div·class="line"><a·name="l05388"></a><span·class="lineno">·5388</span> ····$params->{Type}·=·s2i(geometry_type·=>·$params->{Type});</div><div·class="line"><a·name="l05389"></a><span·class="lineno">·5389</span> ····my·$self·=·Geo::OGRc::new_GeomFieldDefn($params->{Name},·$params->{Type});</div><div·class="line"><a·name="l05390"></a><span·class="lineno">·5390</span> ····bless·$self,·$pkg;</div><div·class="line"><a·name="l05391"></a><span·class="lineno">·5391</span> ····<span·class="keyword">delete</span>·$params->{Name};</div><div·class="line"><a·name="l05392"></a><span·class="lineno">·5392</span> ····<span·class="keyword">delete</span>·$params->{Type};</div><div·class="line"><a·name="l05393"></a><span·class="lineno">·5393</span> ····$self->Schema($params);</div><div·class="line"><a·name="l05394"></a><span·class="lineno">·5394</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l05395"></a><span·class="lineno">·5395</span> }</div><div·class="line"><a·name="l05396"></a><span·class="lineno">·5396</span> </div><div·class="line"><a·name="l05397"></a><span·class="lineno">·5397</span> <span·class="preprocessor">#**·@class·Geo::OGR::Geometry</span></div><div·class="line"><a·name="l05398"></a><span·class="lineno">·5398</span> <span·class="preprocessor">#·@brief·Spatial·data.</span></div><div·class="line"><a·name="l05399"></a><span·class="lineno">·5399</span> <span·class="preprocessor">#·@details·A·geometry·is·spatial·data·(coordinate·values,·and·a·reference·to·a</span></div><div·class="line"><a·name="l05400"></a><span·class="lineno">·5400</span> <span·class="preprocessor">#·spatial·reference·system)·organized·into·one·of·the·geometry</span></div><div·class="line"><a·name="l05401"></a><span·class="lineno">·5401</span> <span·class="preprocessor">#·types.·Geometries·can·be·created·from·several·type·of·data·including</span></div><div·class="line"><a·name="l05402"></a><span·class="lineno">·5402</span> <span·class="preprocessor">#·a·Perl·data·structure.·There·are·several·methods,·which·modify,</span></div><div·class="line"><a·name="l05403"></a><span·class="lineno">·5403</span> <span·class="preprocessor">#·compare,·test,·or·compute·values·from·geometries.</span></div><div·class="line"><a·name="l05404"></a><span·class="lineno">·5404</span> <span·class="preprocessor">#·@note·Most·spatial·analysis·methods·require·<a</span></div><div·class="line"><a·name="l05405"></a><span·class="lineno">·5405</span> <span·class="preprocessor">#·href="http://geos.osgeo.org/doxygen/">GEOS</a>·to·work·rigorously.</span></div><div·class="line"><a·name="l05406"></a><span·class="lineno">·5406</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05407"></a><span·class="lineno">·5407</span> <span·class="keyword">package·</span>Geo::OGR::Geometry;</div><div·class="line"><a·name="l05408"></a><span·class="lineno">·5408</span> </div><div·class="line"><a·name="l05409"></a><span·class="lineno">·5409</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1OGR.html">Geo::OGR</a>)</div><div·class="line"><a·name="l05410"></a><span·class="lineno">·5410</span> </div><div·class="line"><a·name="l05411"></a><span·class="lineno">·5411</span> <span·class="preprocessor">#**·@method·AddGeometry($other)</span></div><div·class="line"><a·name="l05412"></a><span·class="lineno">·5412</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05413"></a><span·class="lineno">·5413</span> <span·class="preprocessor">#·Add·a·copy·of·another·geometry·to·a·geometry·collection</span></div><div·class="line"><a·name="l05414"></a><span·class="lineno">·5414</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05415"></a><span·class="lineno">·5415</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05416"></a><span·class="lineno">·5416</span> sub·AddGeometry·{</div><div·class="line"><a·name="l05417"></a><span·class="lineno">·5417</span> }</div><div·class="line"><a·name="l05418"></a><span·class="lineno">·5418</span> </div><div·class="line"><a·name="l05419"></a><span·class="lineno">·5419</span> <span·class="preprocessor">#**·@method·AddGeometryDirectly($other)</span></div><div·class="line"><a·name="l05420"></a><span·class="lineno">·5420</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05421"></a><span·class="lineno">·5421</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05422"></a><span·class="lineno">·5422</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05423"></a><span·class="lineno">·5423</span> sub·AddGeometryDirectly·{</div><div·class="line"><a·name="l05424"></a><span·class="lineno">·5424</span> }</div><div·class="line"><a·name="l05425"></a><span·class="lineno">·5425</span> </div><div·class="line"><a·name="l05426"></a><span·class="lineno">·5426</span> <span·class="preprocessor">#**·@method·AddPoint($x,·$y,·$z)</span></div><div·class="line"><a·name="l05427"></a><span·class="lineno">·5427</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05428"></a><span·class="lineno">·5428</span> <span·class="preprocessor">#·Set·the·data·of·a·point·or·add·a·point·to·a·line·string.·Consider</span></div><div·class="line"><a·name="l05429"></a><span·class="lineno">·5429</span> <span·class="preprocessor">#·using·Geo::OGR::Geometry::Points.··Note·that·the·coordinate</span></div><div·class="line"><a·name="l05430"></a><span·class="lineno">·5430</span> <span·class="preprocessor">#·dimension·is·automatically·upgraded·to·25D·(3)·if·z·is·given.</span></div><div·class="line"><a·name="l05431"></a><span·class="lineno">·5431</span> <span·class="preprocessor">#·@param·x</span></div><div·class="line"><a·name="l05432"></a><span·class="lineno">·5432</span> <span·class="preprocessor">#·@param·y</span></div><div·class="line"><a·name="l05433"></a><span·class="lineno">·5433</span> <span·class="preprocessor">#·@param·z·[optional]</span></div><div·class="line"><a·name="l05434"></a><span·class="lineno">·5434</span> <span·class="preprocessor">#·Calls·internally·the·2D·or·3D·version·depending·on·the·number·of·parameters.</span></div><div·class="line"><a·name="l05435"></a><span·class="lineno">·5435</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05436"></a><span·class="lineno">·5436</span> sub·AddPoint·{</div><div·class="line"><a·name="l05437"></a><span·class="lineno">·5437</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05438"></a><span·class="lineno">·5438</span> ····my·$t·=·$self->GetGeometryType;</div><div·class="line"><a·name="l05439"></a><span·class="lineno">·5439</span> ····my·$has_z·=·HasZ($t);</div><div·class="line"><a·name="l05440"></a><span·class="lineno">·5440</span> ····my·$has_m·=·HasM($t);</div><div·class="line"><a·name="l05441"></a><span·class="lineno">·5441</span> ····<span·class="keywordflow">if</span>·(!$has_z·&&·!$has_m)·{</div><div·class="line"><a·name="l05442"></a><span·class="lineno">·5442</span> ········$self->AddPoint_2D(@_[0..1]);</div><div·class="line"><a·name="l05443"></a><span·class="lineno">·5443</span> ····}·elsif·($has_z·&&·!$has_m)·{</div><div·class="line"><a·name="l05444"></a><span·class="lineno">·5444</span> ········$self->AddPoint_3D(@_[0..2]);</div><div·class="line"><a·name="l05445"></a><span·class="lineno">·5445</span> ····}·elsif·(!$has_z·&&·$has_m)·{</div><div·class="line"><a·name="l05446"></a><span·class="lineno">·5446</span> ········$self->AddPointM(@_[0..2]);</div><div·class="line"><a·name="l05447"></a><span·class="lineno">·5447</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l05448"></a><span·class="lineno">·5448</span> ········$self->AddPointZM(@_[0..3]);</div><div·class="line"><a·name="l05449"></a><span·class="lineno">·5449</span> ····}</div><div·class="line"><a·name="l05450"></a><span·class="lineno">·5450</span> }</div><div·class="line"><a·name="l05451"></a><span·class="lineno">·5451</span> </div><div·class="line"><a·name="l05452"></a><span·class="lineno">·5452</span> <span·class="preprocessor">#**·@method·AddPointM()</span></div><div·class="line"><a·name="l05453"></a><span·class="lineno">·5453</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05454"></a><span·class="lineno">·5454</span> sub·AddPointM·{</div><div·class="line"><a·name="l05455"></a><span·class="lineno">·5455</span> }</div><div·class="line"><a·name="l05456"></a><span·class="lineno">·5456</span> </div><div·class="line"><a·name="l05457"></a><span·class="lineno">·5457</span> <span·class="preprocessor">#**·@method·AddPointZM()</span></div><div·class="line"><a·name="l05458"></a><span·class="lineno">·5458</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05459"></a><span·class="lineno">·5459</span> sub·AddPointZM·{</div><div·class="line"><a·name="l05460"></a><span·class="lineno">·5460</span> }</div><div·class="line"><a·name="l05461"></a><span·class="lineno">·5461</span> </div><div·class="line"><a·name="l05462"></a><span·class="lineno">·5462</span> <span·class="preprocessor">#**·@method·AddPoint_2D($x,·$y)</span></div><div·class="line"><a·name="l05463"></a><span·class="lineno">·5463</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05464"></a><span·class="lineno">·5464</span> <span·class="preprocessor">#·Set·the·data·of·a·point·or·add·a·point·to·a·line·string.·Consider</span></div><div·class="line"><a·name="l05465"></a><span·class="lineno">·5465</span> <span·class="preprocessor">#·using·Geo::OGR::Geometry::Points.</span></div><div·class="line"><a·name="l05466"></a><span·class="lineno">·5466</span> <span·class="preprocessor">#·@param·x</span></div><div·class="line"><a·name="l05467"></a><span·class="lineno">·5467</span> <span·class="preprocessor">#·@param·y</span></div><div·class="line"><a·name="l05468"></a><span·class="lineno">·5468</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05469"></a><span·class="lineno">·5469</span> sub·AddPoint_2D·{</div><div·class="line"><a·name="l05470"></a><span·class="lineno">·5470</span> }</div><div·class="line"><a·name="l05471"></a><span·class="lineno">·5471</span> </div><div·class="line"><a·name="l05472"></a><span·class="lineno">·5472</span> <span·class="preprocessor">#**·@method·AddPoint_3D($x,·$y,·$z)</span></div><div·class="line"><a·name="l05473"></a><span·class="lineno">·5473</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05474"></a><span·class="lineno">·5474</span> <span·class="preprocessor">#·Set·the·data·of·a·point·or·add·a·point·to·a·line·string.·Note·that</span></div><div·class="line"><a·name="l05475"></a><span·class="lineno">·5475</span> <span·class="preprocessor">#·the·coordinate·dimension·is·automatically·upgraded·to·25D·(3).·Consider</span></div><div·class="line"><a·name="l05476"></a><span·class="lineno">·5476</span> <span·class="preprocessor">#·using·Geo::OGR::Geometry::Points.</span></div><div·class="line"><a·name="l05477"></a><span·class="lineno">·5477</span> <span·class="preprocessor">#·@param·x</span></div><div·class="line"><a·name="l05478"></a><span·class="lineno">·5478</span> <span·class="preprocessor">#·@param·y</span></div><div·class="line"><a·name="l05479"></a><span·class="lineno">·5479</span> <span·class="preprocessor">#·@param·z</span></div><div·class="line"><a·name="l05480"></a><span·class="lineno">·5480</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05481"></a><span·class="lineno">·5481</span> sub·AddPoint_3D·{</div><div·class="line"><a·name="l05482"></a><span·class="lineno">·5482</span> }</div><div·class="line"><a·name="l05483"></a><span·class="lineno">·5483</span> </div><div·class="line"><a·name="l05484"></a><span·class="lineno">·5484</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·ApproximateArcAngles(%params)</span></div><div·class="line"><a·name="l05485"></a><span·class="lineno">·5485</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l05486"></a><span·class="lineno">·5486</span> <span·class="preprocessor">#·Create·a·line·string,·which·approximates·an·arc.</span></div><div·class="line"><a·name="l05487"></a><span·class="lineno">·5487</span> <span·class="preprocessor">#·@note·All·angles·are·in·degrees.</span></div><div·class="line"><a·name="l05488"></a><span·class="lineno">·5488</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l05489"></a><span·class="lineno">·5489</span> <span·class="preprocessor">#·@param·%params·Named·parameters:</span></div><div·class="line"><a·name="l05490"></a><span·class="lineno">·5490</span> <span·class="preprocessor">#·-·\a·Center·center·point·(default·is·[0,·0,·0])</span></div><div·class="line"><a·name="l05491"></a><span·class="lineno">·5491</span> <span·class="preprocessor">#·-·\a·PrimaryRadius·default·is·1.</span></div><div·class="line"><a·name="l05492"></a><span·class="lineno">·5492</span> <span·class="preprocessor">#·-·\a·SecondaryAxis·default·is·1.</span></div><div·class="line"><a·name="l05493"></a><span·class="lineno">·5493</span> <span·class="preprocessor">#·-·\a·Rotation·default·is·0.</span></div><div·class="line"><a·name="l05494"></a><span·class="lineno">·5494</span> <span·class="preprocessor">#·-·\a·StartAngle·default·is·0.</span></div><div·class="line"><a·name="l05495"></a><span·class="lineno">·5495</span> <span·class="preprocessor">#·-·\a·EndAngle·default·is·360.</span></div><div·class="line"><a·name="l05496"></a><span·class="lineno">·5496</span> <span·class="preprocessor">#·-·\a·MaxAngleStepSizeDegrees·default·is·4.</span></div><div·class="line"><a·name="l05497"></a><span·class="lineno">·5497</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object.</span></div><div·class="line"><a·name="l05498"></a><span·class="lineno">·5498</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05499"></a><span·class="lineno">·5499</span> sub·ApproximateArcAngles·{</div><div·class="line"><a·name="l05500"></a><span·class="lineno">·5500</span> ····my·%p·=·@_;</div><div·class="line"><a·name="l05501"></a><span·class="lineno">·5501</span> ····my·%<span·class="keywordflow">default</span>·=·(·Center·=>·[0,0,0],</div><div·class="line"><a·name="l05502"></a><span·class="lineno">·5502</span> ····················PrimaryRadius·=>·1,</div><div·class="line"><a·name="l05503"></a><span·class="lineno">·5503</span> ····················SecondaryAxis·=>·1,</div><div·class="line"><a·name="l05504"></a><span·class="lineno">·5504</span> ····················Rotation·=>·0,</div><div·class="line"><a·name="l05505"></a><span·class="lineno">·5505</span> ····················StartAngle·=>·0,</div><div·class="line"><a·name="l05506"></a><span·class="lineno">·5506</span> ····················EndAngle·=>·360,</div><div·class="line"><a·name="l05507"></a><span·class="lineno">·5507</span> ····················MaxAngleStepSizeDegrees·=>·4</div><div·class="line"><a·name="l05508"></a><span·class="lineno">·5508</span> ········);</div><div·class="line"><a·name="l05509"></a><span·class="lineno">·5509</span> ····<span·class="keywordflow">for</span>·my·$p·(keys·%p)·{</div><div·class="line"><a·name="l05510"></a><span·class="lineno">·5510</span> ········<span·class="keywordflow">if</span>·(exists·$default{$p})·{</div><div·class="line"><a·name="l05511"></a><span·class="lineno">·5511</span> ············$p{$p}·<span·class="comment">//=·$default{$p};</span></div><div·class="line"><a·name="l05512"></a><span·class="lineno">·5512</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l05513"></a><span·class="lineno">·5513</span> ············carp·<span·class="stringliteral">"Unknown·parameter:·'$p'."</span>;</div><div·class="line"><a·name="l05514"></a><span·class="lineno">·5514</span> ········}</div><div·class="line"><a·name="l05515"></a><span·class="lineno">·5515</span> ····}</div><div·class="line"><a·name="l05516"></a><span·class="lineno">·5516</span> ····<span·class="keywordflow">for</span>·my·$p·(keys·%<span·class="keywordflow">default</span>)·{</div><div·class="line"><a·name="l05517"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Extent.html">·5517</a></span> ········$p{$p}·<span·class="comment">//=·$default{$p};</span></div><div·class="line"><a·name="l05518"></a><span·class="lineno">·5518</span> ····}</div><div·class="line"><a·name="l05519"></a><span·class="lineno">·5519</span> ····error(<span·class="stringliteral">"Usage:·Center·=>·[x,y,z]."</span>)·unless·ref($p{Center})·eq·<span·class="stringliteral">'ARRAY'</span>;</div><div·class="line"><a·name="l05520"></a><span·class="lineno">·5520</span> ····<span·class="keywordflow">for</span>·my·$i·(0..2)·{</div><div·class="line"><a·name="l05521"></a><span·class="lineno">·5521</span> ········$p{Center}->[$i]·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l05522"></a><span·class="lineno">·5522</span> ····}</div><div·class="line"><a·name="l05523"></a><span·class="lineno">·5523</span> ····<span·class="keywordflow">return</span>·Geo::OGR::ApproximateArcAngles($p{Center}->[0],·$p{Center}->[1],·$p{Center}->[2],·$p{PrimaryRadius},·$p{SecondaryAxis},·$p{Rotation},·$p{StartAngle},·$p{EndAngle},·$p{MaxAngleStepSizeDegrees});</div><div·class="line"><a·name="l05524"></a><span·class="lineno">·5524</span> }</div><div·class="line"><a·name="l05525"></a><span·class="lineno">·5525</span> </div><div·class="line"><a·name="l05526"></a><span·class="lineno">·5526</span> <span·class="preprocessor">#**·@method·scalar·Area()</span></div><div·class="line"><a·name="l05527"></a><span·class="lineno">·5527</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05528"></a><span·class="lineno">·5528</span> <span·class="preprocessor">#·@note·a.k.a.·GetArea</span></div><div·class="line"><a·name="l05529"></a><span·class="lineno">·5529</span> <span·class="preprocessor">#·@return·the·area·of·the·polygon·or·multipolygon</span></div><div·class="line"><a·name="l05530"></a><span·class="lineno">·5530</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05531"></a><span·class="lineno">·5531</span> sub·Area·{</div><div·class="line"><a·name="l05532"></a><span·class="lineno">·5532</span> }</div><div·class="line"><a·name="l05533"></a><span·class="lineno">·5533</span> </div><div·class="line"><a·name="l05534"></a><span·class="lineno">·5534</span> <span·class="preprocessor">#**·@method·scalar·As(%params)</span></div><div·class="line"><a·name="l05535"></a><span·class="lineno">·5535</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05536"></a><span·class="lineno">·5536</span> <span·class="preprocessor">#·Export·the·geometry·into·a·known·format.</span></div><div·class="line"><a·name="l05537"></a><span·class="lineno">·5537</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l05538"></a><span·class="lineno">·5538</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l05539"></a><span·class="lineno">·5539</span> <span·class="preprocessor">#·-·\a·Format·One·of</span></div><div·class="line"><a·name="l05540"></a><span·class="lineno">·5540</span> <span·class="preprocessor">#·····-·\a·WKT·Well·Known·Text.</span></div><div·class="line"><a·name="l05541"></a><span·class="lineno">·5541</span> <span·class="preprocessor">#·····-·<em>ISO·WKT</em></span></div><div·class="line"><a·name="l05542"></a><span·class="lineno">·5542</span> <span·class="preprocessor">#·····-·\a·Text·Same·as·WKT.</span></div><div·class="line"><a·name="l05543"></a><span·class="lineno">·5543</span> <span·class="preprocessor">#·····-·\a·WKB·Well·Known·Binary.</span></div><div·class="line"><a·name="l05544"></a><span·class="lineno">·5544</span> <span·class="preprocessor">#·····-·<em>ISO·WKB</em></span></div><div·class="line"><a·name="l05545"></a><span·class="lineno">·5545</span> <span·class="preprocessor">#·····-·\a·Binary·Same·as·WKB.</span></div><div·class="line"><a·name="l05546"></a><span·class="lineno">·5546</span> <span·class="preprocessor">#·····-·\a·HEXWKB</span></div><div·class="line"><a·name="l05547"></a><span·class="lineno">·5547</span> <span·class="preprocessor">#·····-·\a·HEXEWKB</span></div><div·class="line"><a·name="l05548"></a><span·class="lineno">·5548</span> <span·class="preprocessor">#·····-·\a·GML</span></div><div·class="line"><a·name="l05549"></a><span·class="lineno">·5549</span> <span·class="preprocessor">#·····-·\a·GeoJSON</span></div><div·class="line"><a·name="l05550"></a><span·class="lineno">·5550</span> <span·class="preprocessor">#·-·\a·ByteOrder·Byte·order·for·binary·formats.·Default·is·'XDR'.</span></div><div·class="line"><a·name="l05551"></a><span·class="lineno">·5551</span> <span·class="preprocessor">#·-·\a·SRID·Spatial·reference·id·for·HEXEWKB.</span></div><div·class="line"><a·name="l05552"></a><span·class="lineno">·5552</span> <span·class="preprocessor">#·-·\a·Options·GML·generation·options.</span></div><div·class="line"><a·name="l05553"></a><span·class="lineno">·5553</span> <span·class="preprocessor">#·-·\a·AltitudeMode·For·KML.</span></div><div·class="line"><a·name="l05554"></a><span·class="lineno">·5554</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l05555"></a><span·class="lineno">·5555</span> <span·class="preprocessor">#·@return·the·geometry·in·a·given·format.</span></div><div·class="line"><a·name="l05556"></a><span·class="lineno">·5556</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05557"></a><span·class="lineno">·5557</span> sub·As·{</div><div·class="line"><a·name="l05558"></a><span·class="lineno">·5558</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05559"></a><span·class="lineno">·5559</span> ····my·$p·=·named_parameters(\@_,·Format·=>·undef,·ByteOrder·=>·<span·class="stringliteral">'XDR'</span>,·SRID·=>·undef,·Options·=>·undef,·AltitudeMode·=>·undef);</div><div·class="line"><a·name="l05560"></a><span·class="lineno">·5560</span> ····my·$f·=·$p->{format};</div><div·class="line"><a·name="l05561"></a><span·class="lineno">·5561</span> ····<span·class="keywordflow">if</span>·($f·=~·/text/i)·{</div><div·class="line"><a·name="l05562"></a><span·class="lineno">·5562</span> ········<span·class="keywordflow">return</span>·$self->AsText;</div><div·class="line"><a·name="l05563"></a><span·class="lineno">·5563</span> ····}·elsif·($f·=~·/wkt/i)·{</div><div·class="line"><a·name="l05564"></a><span·class="lineno">·5564</span> ········<span·class="keywordflow">if</span>·($f·=~·/iso/i)·{</div><div·class="line"><a·name="l05565"></a><span·class="lineno">·5565</span> ············<span·class="keywordflow">return</span>·$self->ExportToIsoWkt;</div><div·class="line"><a·name="l05566"></a><span·class="lineno">·5566</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l05567"></a><span·class="lineno">·5567</span> ············<span·class="keywordflow">return</span>·$self->AsText;</div><div·class="line"><a·name="l05568"></a><span·class="lineno">·5568</span> ········}</div><div·class="line"><a·name="l05569"></a><span·class="lineno">·5569</span> ····}·elsif·($f·=~·/binary/i)·{</div><div·class="line"><a·name="l05570"></a><span·class="lineno">·5570</span> ········<span·class="keywordflow">return</span>·$self->ExportToWkb($p->{byteorder});</div><div·class="line"><a·name="l05571"></a><span·class="lineno">·5571</span> ····}·elsif·($f·=~·/wkb/i)·{</div><div·class="line"><a·name="l05572"></a><span·class="lineno">·5572</span> ········<span·class="keywordflow">if</span>·($f·=~·/iso/i)·{</div><div·class="line"><a·name="l05573"></a><span·class="lineno">·5573</span> ············$p->{byteorder}·=·s2i(byte_order·=>·$p->{byteorder});</div><div·class="line"><a·name="l05574"></a><span·class="lineno">·5574</span> ············<span·class="keywordflow">return</span>·$self->ExportToIsoWkb($p->{byteorder});</div><div·class="line"><a·name="l05575"></a><span·class="lineno">·5575</span> ········}·elsif·($f·=~·/ewkb/i)·{</div><div·class="line"><a·name="l05576"></a><span·class="lineno">·5576</span> ············<span·class="keywordflow">return</span>·$self->AsHEXEWKB($p->{srid});</div><div·class="line"><a·name="l05577"></a><span·class="lineno">·5577</span> ········}·elsif·($f·=~·/hex/i)·{</div><div·class="line"><a·name="l05578"></a><span·class="lineno">·5578</span> ············<span·class="keywordflow">return</span>·$self->AsHEXWKB;</div><div·class="line"><a·name="l05579"></a><span·class="lineno">·5579</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l05580"></a><span·class="lineno">·5580</span> ············<span·class="keywordflow">return</span>·$self->ExportToWkb($p->{byteorder});</div><div·class="line"><a·name="l05581"></a><span·class="lineno">·5581</span> ········}</div><div·class="line"><a·name="l05582"></a><span·class="lineno">·5582</span> ····}·elsif·($f·=~·/gml/i)·{</div><div·class="line"><a·name="l05583"></a><span·class="lineno">·5583</span> ········<span·class="keywordflow">return</span>·$self->ExportToGML($p->{options});</div><div·class="line"><a·name="l05584"></a><span·class="lineno">·5584</span> ····}·elsif·($f·=~·/kml/i)·{</div><div·class="line"><a·name="l05585"></a><span·class="lineno">·5585</span> ········<span·class="keywordflow">return</span>·$self->ExportToKML($p->{altitudemode});</div><div·class="line"><a·name="l05586"></a><span·class="lineno">·5586</span> ····}·elsif·($f·=~·/json/i)·{</div><div·class="line"><a·name="l05587"></a><span·class="lineno">·5587</span> ········<span·class="keywordflow">return</span>·$self->AsJSON;</div><div·class="line"><a·name="l05588"></a><span·class="lineno">·5588</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l05589"></a><span·class="lineno">·5589</span> ········error(1,·$f,·map·{$_=>1}·qw/Text·WKT·ISO_WKT·ISO_WKB·HEX_WKB·HEX_EWKB·Binary·GML·KML·JSON/);</div><div·class="line"><a·name="l05590"></a><span·class="lineno">·5590</span> ····}</div><div·class="line"><a·name="l05591"></a><span·class="lineno">·5591</span> }</div><div·class="line"><a·name="l05592"></a><span·class="lineno">·5592</span> </div><div·class="line"><a·name="l05593"></a><span·class="lineno">·5593</span> <span·class="preprocessor">#**·@method·scalar·AsBinary()</span></div><div·class="line"><a·name="l05594"></a><span·class="lineno">·5594</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05595"></a><span·class="lineno">·5595</span> <span·class="preprocessor">#·Export·the·geometry·into·WKB.</span></div><div·class="line"><a·name="l05596"></a><span·class="lineno">·5596</span> <span·class="preprocessor">#·@sa·Geo::OGR::Geometry::As</span></div><div·class="line"><a·name="l05597"></a><span·class="lineno">·5597</span> <span·class="preprocessor">#·@return·the·geometry·as·WKB.</span></div><div·class="line"><a·name="l05598"></a><span·class="lineno">·5598</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05599"></a><span·class="lineno">·5599</span> sub·AsBinary·{</div><div·class="line"><a·name="l05600"></a><span·class="lineno">·5600</span> }</div><div·class="line"><a·name="l05601"></a><span·class="lineno">·5601</span> </div><div·class="line"><a·name="l05602"></a><span·class="lineno">·5602</span> <span·class="preprocessor">#**·@method·scalar·AsText()</span></div><div·class="line"><a·name="l05603"></a><span·class="lineno">·5603</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05604"></a><span·class="lineno">·5604</span> <span·class="preprocessor">#·Export·the·geometry·into·WKT.</span></div><div·class="line"><a·name="l05605"></a><span·class="lineno">·5605</span> <span·class="preprocessor">#·@sa·Geo::OGR::Geometry::As</span></div><div·class="line"><a·name="l05606"></a><span·class="lineno">·5606</span> <span·class="preprocessor">#·@return·the·geometry·as·WKT.</span></div><div·class="line"><a·name="l05607"></a><span·class="lineno">·5607</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05608"></a><span·class="lineno">·5608</span> sub·AsText·{</div><div·class="line"><a·name="l05609"></a><span·class="lineno">·5609</span> }</div><div·class="line"><a·name="l05610"></a><span·class="lineno">·5610</span> </div><div·class="line"><a·name="l05611"></a><span·class="lineno">·5611</span> <span·class="preprocessor">#**·@method·AssignSpatialReference($srs)</span></div><div·class="line"><a·name="l05612"></a><span·class="lineno">·5612</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05613"></a><span·class="lineno">·5613</span> <span·class="preprocessor">#·@param·srs·a·Geo::OSR::SpatialReference·object</span></div><div·class="line"><a·name="l05614"></a><span·class="lineno">·5614</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05615"></a><span·class="lineno">·5615</span> sub·AssignSpatialReference·{</div><div·class="line"><a·name="l05616"></a><span·class="lineno">·5616</span> }</div><div·class="line"><a·name="l05617"></a><span·class="lineno">·5617</span> </div><div·class="line"><a·name="l05618"></a><span·class="lineno">·5618</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·Boundary()</span></div><div·class="line"><a·name="l05619"></a><span·class="lineno">·5619</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05620"></a><span·class="lineno">·5620</span> <span·class="preprocessor">#·@note·a.k.a.·GetBoundary</span></div><div·class="line"><a·name="l05621"></a><span·class="lineno">·5621</span> <span·class="preprocessor">#·@return·the·boundary·of·this·geometry·as·a·geometry</span></div><div·class="line"><a·name="l05622"></a><span·class="lineno">·5622</span> <span·class="preprocessor">#·@since·1.8.0</span></div><div·class="line"><a·name="l05623"></a><span·class="lineno">·5623</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05624"></a><span·class="lineno">·5624</span> sub·Boundary·{</div><div·class="line"><a·name="l05625"></a><span·class="lineno">·5625</span> }</div><div·class="line"><a·name="l05626"></a><span·class="lineno">·5626</span> </div><div·class="line"><a·name="l05627"></a><span·class="lineno">·5627</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·Buffer($distance,·$quadsecs·=·30)</span></div><div·class="line"><a·name="l05628"></a><span·class="lineno">·5628</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05629"></a><span·class="lineno">·5629</span> <span·class="preprocessor">#·@param·distance</span></div><div·class="line"><a·name="l05630"></a><span·class="lineno">·5630</span> <span·class="preprocessor">#·@param·quadsecs</span></div><div·class="line"><a·name="l05631"></a><span·class="lineno">·5631</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05632"></a><span·class="lineno">·5632</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05633"></a><span·class="lineno">·5633</span> sub·Buffer·{</div><div·class="line"><a·name="l05634"></a><span·class="lineno">·5634</span> }</div><div·class="line"><a·name="l05635"></a><span·class="lineno">·5635</span> </div><div·class="line"><a·name="l05636"></a><span·class="lineno">·5636</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·BuildPolygonFromEdges($BestEffort·=·0,·$AutoClose·=·0,·$Tolerance·=·0)</span></div><div·class="line"><a·name="l05637"></a><span·class="lineno">·5637</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05638"></a><span·class="lineno">·5638</span> <span·class="preprocessor">#·Attempt·to·create·a·polygon·from·a·collection·of·lines·or·from·a·multilinestring.</span></div><div·class="line"><a·name="l05639"></a><span·class="lineno">·5639</span> <span·class="preprocessor">#·@param·BestEffort·For·future</span></div><div·class="line"><a·name="l05640"></a><span·class="lineno">·5640</span> <span·class="preprocessor">#·@param·AutoClose·Assure·the·first·and·last·points·of·rings·are·same.</span></div><div·class="line"><a·name="l05641"></a><span·class="lineno">·5641</span> <span·class="preprocessor">#·@param·Tolerance·Snap·distance.</span></div><div·class="line"><a·name="l05642"></a><span·class="lineno">·5642</span> <span·class="preprocessor">#·@exception·Several·possibilities,·some·are·reported,·some·are·general·errors.</span></div><div·class="line"><a·name="l05643"></a><span·class="lineno">·5643</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object·(Polygon)</span></div><div·class="line"><a·name="l05644"></a><span·class="lineno">·5644</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05645"></a><span·class="lineno">·5645</span> sub·BuildPolygonFromEdges·{</div><div·class="line"><a·name="l05646"></a><span·class="lineno">·5646</span> }</div><div·class="line"><a·name="l05647"></a><span·class="lineno">·5647</span> </div><div·class="line"><a·name="l05648"></a><span·class="lineno">·5648</span> <span·class="preprocessor">#**·@method·list·ByteOrders()</span></div><div·class="line"><a·name="l05649"></a><span·class="lineno">·5649</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l05650"></a><span·class="lineno">·5650</span> <span·class="preprocessor">#·Same·as·Geo::OGR::ByteOrders</span></div><div·class="line"><a·name="l05651"></a><span·class="lineno">·5651</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05652"></a><span·class="lineno">·5652</span> sub·ByteOrders·{</div><div·class="line"><a·name="l05653"></a><span·class="lineno">·5653</span> ····<span·class="keywordflow">return</span>·@BYTE_ORDER_TYPES;</div><div·class="line"><a·name="l05654"></a><span·class="lineno">·5654</span> }</div><div·class="line"><a·name="l05655"></a><span·class="lineno">·5655</span> </div><div·class="line"><a·name="l05656"></a><span·class="lineno">·5656</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·Centroid()</span></div><div·class="line"><a·name="l05657"></a><span·class="lineno">·5657</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05658"></a><span·class="lineno">·5658</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05659"></a><span·class="lineno">·5659</span> <span·class="preprocessor">#·@since·1.8.0</span></div><div·class="line"><a·name="l05660"></a><span·class="lineno">·5660</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05661"></a><span·class="lineno">·5661</span> sub·Centroid·{</div><div·class="line"><a·name="l05662"></a><span·class="lineno">·5662</span> }</div><div·class="line"><a·name="l05663"></a><span·class="lineno">·5663</span> </div><div·class="line"><a·name="l05664"></a><span·class="lineno">·5664</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·Clone()</span></div><div·class="line"><a·name="l05665"></a><span·class="lineno">·5665</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05666"></a><span·class="lineno">·5666</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05667"></a><span·class="lineno">·5667</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05668"></a><span·class="lineno">·5668</span> sub·Clone·{</div><div·class="line"><a·name="l05669"></a><span·class="lineno">·5669</span> }</div><div·class="line"><a·name="l05670"></a><span·class="lineno">·5670</span> </div><div·class="line"><a·name="l05671"></a><span·class="lineno">·5671</span> <span·class="preprocessor">#**·@method·CloseRings()</span></div><div·class="line"><a·name="l05672"></a><span·class="lineno">·5672</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05673"></a><span·class="lineno">·5673</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05674"></a><span·class="lineno">·5674</span> sub·CloseRings·{</div><div·class="line"><a·name="l05675"></a><span·class="lineno">·5675</span> }</div><div·class="line"><a·name="l05676"></a><span·class="lineno">·5676</span> </div><div·class="line"><a·name="l05677"></a><span·class="lineno">·5677</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·Collect(@geometries)</span></div><div·class="line"><a·name="l05678"></a><span·class="lineno">·5678</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05679"></a><span·class="lineno">·5679</span> <span·class="preprocessor">#·Create·a·geometrycollection·from·this·and·possibly·other·geometries.</span></div><div·class="line"><a·name="l05680"></a><span·class="lineno">·5680</span> <span·class="preprocessor">#·@param·geometries·[optional]·More·geometries·to·add·to·the·collection.</span></div><div·class="line"><a·name="l05681"></a><span·class="lineno">·5681</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object·of·type·geometrycollection.</span></div><div·class="line"><a·name="l05682"></a><span·class="lineno">·5682</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05683"></a><span·class="lineno">·5683</span> sub·Collect·{</div><div·class="line"><a·name="l05684"></a><span·class="lineno">·5684</span> }</div><div·class="line"><a·name="l05685"></a><span·class="lineno">·5685</span> </div><div·class="line"><a·name="l05686"></a><span·class="lineno">·5686</span> <span·class="preprocessor">#**·@method·scalar·Contains($other)</span></div><div·class="line"><a·name="l05687"></a><span·class="lineno">·5687</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05688"></a><span·class="lineno">·5688</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05689"></a><span·class="lineno">·5689</span> <span·class="preprocessor">#·@return·true·if·this·geometry·contains·the·other·geometry,·false·otherwise</span></div><div·class="line"><a·name="l05690"></a><span·class="lineno">·5690</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05691"></a><span·class="lineno">·5691</span> sub·Contains·{</div><div·class="line"><a·name="l05692"></a><span·class="lineno">·5692</span> }</div><div·class="line"><a·name="l05693"></a><span·class="lineno">·5693</span> </div><div·class="line"><a·name="l05694"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1GCP.html">·5694</a></span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·ConvexHull()</span></div><div·class="line"><a·name="l05695"></a><span·class="lineno">·5695</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05696"></a><span·class="lineno">·5696</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05697"></a><span·class="lineno">·5697</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05698"></a><span·class="lineno">·5698</span> sub·ConvexHull·{</div><div·class="line"><a·name="l05699"></a><span·class="lineno">·5699</span> }</div><div·class="line"><a·name="l05700"></a><span·class="lineno">·5700</span> </div><div·class="line"><a·name="l05701"></a><span·class="lineno">·5701</span> <span·class="preprocessor">#**·@method·scalar·CoordinateDimension($dimension)</span></div><div·class="line"><a·name="l05702"></a><span·class="lineno">·5702</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05703"></a><span·class="lineno">·5703</span> <span·class="preprocessor">#·@param·dimension·[optional]</span></div><div·class="line"><a·name="l05704"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1GCP.html#a0b95311de3ae704ec6b32979b548bb4e">·5704</a></span> <span·class="preprocessor">#·@return·2·or·3</span></div><div·class="line"><a·name="l05705"></a><span·class="lineno">·5705</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05706"></a><span·class="lineno">·5706</span> sub·CoordinateDimension·{</div><div·class="line"><a·name="l05707"></a><span·class="lineno">·5707</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05708"></a><span·class="lineno">·5708</span> ····SetCoordinateDimension($self,·$_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l05709"></a><span·class="lineno">·5709</span> ····GetCoordinateDimension($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05710"></a><span·class="lineno">·5710</span> }</div><div·class="line"><a·name="l05711"></a><span·class="lineno">·5711</span> </div><div·class="line"><a·name="l05712"></a><span·class="lineno">·5712</span> <span·class="preprocessor">#**·@method·scalar·Crosses($other)</span></div><div·class="line"><a·name="l05713"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1GCP.html#a45080e3dc1ea5b3598e1819f2127ff03">·5713</a></span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05714"></a><span·class="lineno">·5714</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05715"></a><span·class="lineno">·5715</span> <span·class="preprocessor">#·@return·true·if·this·geometry·crosses·the·other·geometry,·false·otherwise</span></div><div·class="line"><a·name="l05716"></a><span·class="lineno">·5716</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05717"></a><span·class="lineno">·5717</span> sub·Crosses·{</div><div·class="line"><a·name="l05718"></a><span·class="lineno">·5718</span> }</div><div·class="line"><a·name="l05719"></a><span·class="lineno">·5719</span> </div><div·class="line"><a·name="l05720"></a><span·class="lineno">·5720</span> <span·class="preprocessor">#**·@method·DelaunayTriangulation()</span></div><div·class="line"><a·name="l05721"></a><span·class="lineno">·5721</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05722"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1GCP.html#ab1398d2d9e77ced02ca259d44a16dc05">·5722</a></span> sub·DelaunayTriangulation·{</div><div·class="line"><a·name="l05723"></a><span·class="lineno">·5723</span> }</div><div·class="line"><a·name="l05724"></a><span·class="lineno">·5724</span> </div><div·class="line"><a·name="l05725"></a><span·class="lineno">·5725</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·Difference($other)</span></div><div·class="line"><a·name="l05726"></a><span·class="lineno">·5726</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05727"></a><span·class="lineno">·5727</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05728"></a><span·class="lineno">·5728</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05729"></a><span·class="lineno">·5729</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05730"></a><span·class="lineno">·5730</span> sub·Difference·{</div><div·class="line"><a·name="l05731"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1GCP.html#a8cbdd2dffb8be1ec948adc82e27c73d8">·5731</a></span> }</div><div·class="line"><a·name="l05732"></a><span·class="lineno">·5732</span> </div><div·class="line"><a·name="l05733"></a><span·class="lineno">·5733</span> <span·class="preprocessor">#**·@method·scalar·Disjoint($other)</span></div><div·class="line"><a·name="l05734"></a><span·class="lineno">·5734</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05735"></a><span·class="lineno">·5735</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05736"></a><span·class="lineno">·5736</span> <span·class="preprocessor">#·@return·true·if·this·geometry·is·disjoint·from·the·other·geometry,·false·otherwise</span></div><div·class="line"><a·name="l05737"></a><span·class="lineno">·5737</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05738"></a><span·class="lineno">·5738</span> sub·Disjoint·{</div><div·class="line"><a·name="l05739"></a><span·class="lineno">·5739</span> }</div><div·class="line"><a·name="l05740"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1GCP.html#a4dab64137a0d28dff42412a47f4ffaad">·5740</a></span> </div><div·class="line"><a·name="l05741"></a><span·class="lineno">·5741</span> <span·class="preprocessor">#**·@method·list·Dissolve()</span></div><div·class="line"><a·name="l05742"></a><span·class="lineno">·5742</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05743"></a><span·class="lineno">·5743</span> <span·class="preprocessor">#·Dissolve·a·geometrycollection·into·separate·geometries.</span></div><div·class="line"><a·name="l05744"></a><span·class="lineno">·5744</span> <span·class="preprocessor">#·@return·a·list·of·new·Geo::OGR::Geometry·objects·cloned·from·the·collection.</span></div><div·class="line"><a·name="l05745"></a><span·class="lineno">·5745</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05746"></a><span·class="lineno">·5746</span> sub·Dissolve·{</div><div·class="line"><a·name="l05747"></a><span·class="lineno">·5747</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05748"></a><span·class="lineno">·5748</span> ····my·@c;</div><div·class="line"><a·name="l05749"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1GCP.html#a69129b9d55ff5eb24a695d87e00a2ef0">·5749</a></span> ····my·$n·=·$self->GetGeometryCount;</div><div·class="line"><a·name="l05750"></a><span·class="lineno">·5750</span> ····<span·class="keywordflow">if</span>·($n·>·0)·{</div><div·class="line"><a·name="l05751"></a><span·class="lineno">·5751</span> ········<span·class="keywordflow">for</span>·my·$i·(0..$n-1)·{</div><div·class="line"><a·name="l05752"></a><span·class="lineno">·5752</span> ············push·@c,·$self->GetGeometryRef($i)->Clone;</div><div·class="line"><a·name="l05753"></a><span·class="lineno">·5753</span> ········}</div><div·class="line"><a·name="l05754"></a><span·class="lineno">·5754</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l05755"></a><span·class="lineno">·5755</span> ········push·@c,·$self;</div><div·class="line"><a·name="l05756"></a><span·class="lineno">·5756</span> ····}</div><div·class="line"><a·name="l05757"></a><span·class="lineno">·5757</span> ····<span·class="keywordflow">return</span>·@c;</div><div·class="line"><a·name="l05758"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1GCP.html#a615df89613d2ae2eb55304261db4c903">·5758</a></span> }</div><div·class="line"><a·name="l05759"></a><span·class="lineno">·5759</span> </div><div·class="line"><a·name="l05760"></a><span·class="lineno">·5760</span> <span·class="preprocessor">#**·@method·scalar·Distance($other)</span></div><div·class="line"><a·name="l05761"></a><span·class="lineno">·5761</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05762"></a><span·class="lineno">·5762</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05763"></a><span·class="lineno">·5763</span> <span·class="preprocessor">#·@return·the·distance·to·the·other·geometry</span></div><div·class="line"><a·name="l05764"></a><span·class="lineno">·5764</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05765"></a><span·class="lineno">·5765</span> sub·Distance·{</div><div·class="line"><a·name="l05766"></a><span·class="lineno">·5766</span> }</div><div·class="line"><a·name="l05767"></a><span·class="lineno">·5767</span> </div><div·class="line"><a·name="l05768"></a><span·class="lineno">·5768</span> <span·class="preprocessor">#**·@method·Distance3D()</span></div><div·class="line"><a·name="l05769"></a><span·class="lineno">·5769</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05770"></a><span·class="lineno">·5770</span> sub·Distance3D·{</div><div·class="line"><a·name="l05771"></a><span·class="lineno">·5771</span> }</div><div·class="line"><a·name="l05772"></a><span·class="lineno">·5772</span> </div><div·class="line"><a·name="l05773"></a><span·class="lineno">·5773</span> <span·class="preprocessor">#**·@method·Empty()</span></div><div·class="line"><a·name="l05774"></a><span·class="lineno">·5774</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05775"></a><span·class="lineno">·5775</span> <span·class="preprocessor">#·Clear·geometry·data,·i.e.,·remove·all·points,·or,·for·a·point,·set</span></div><div·class="line"><a·name="l05776"></a><span·class="lineno">·5776</span> <span·class="preprocessor">#·the·coordinate·dimension·as·zero.</span></div><div·class="line"><a·name="l05777"></a><span·class="lineno">·5777</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05778"></a><span·class="lineno">·5778</span> sub·Empty·{</div><div·class="line"><a·name="l05779"></a><span·class="lineno">·5779</span> }</div><div·class="line"><a·name="l05780"></a><span·class="lineno">·5780</span> </div><div·class="line"><a·name="l05781"></a><span·class="lineno">·5781</span> <span·class="preprocessor">#**·@method·scalar·Equals($other)</span></div><div·class="line"><a·name="l05782"></a><span·class="lineno">·5782</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05783"></a><span·class="lineno">·5783</span> <span·class="preprocessor">#·@note·a.k.a.·Equal·(deprecated)</span></div><div·class="line"><a·name="l05784"></a><span·class="lineno">·5784</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05785"></a><span·class="lineno">·5785</span> <span·class="preprocessor">#·@return·true·if·this·geometry·is·equivalent·to·the·other·geometry,·false·otherwise</span></div><div·class="line"><a·name="l05786"></a><span·class="lineno">·5786</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05787"></a><span·class="lineno">·5787</span> sub·Equals·{</div><div·class="line"><a·name="l05788"></a><span·class="lineno">·5788</span> }</div><div·class="line"><a·name="l05789"></a><span·class="lineno">·5789</span> </div><div·class="line"><a·name="l05790"></a><span·class="lineno">·5790</span> <span·class="preprocessor">#**·@method·Extent()</span></div><div·class="line"><a·name="l05791"></a><span·class="lineno">·5791</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05792"></a><span·class="lineno">·5792</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html">Extent</a>·{</div><div·class="line"><a·name="l05793"></a><span·class="lineno">·5793</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05794"></a><span·class="lineno">·5794</span> ····<span·class="keywordflow">return</span>·<a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html">Geo::GDAL::Extent</a>-><a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html#aaa908458e9aaa398762601ae2b466e9a">new</a>($self->GetEnvelope);</div><div·class="line"><a·name="l05795"></a><span·class="lineno">·5795</span> }</div><div·class="line"><a·name="l05796"></a><span·class="lineno">·5796</span> </div><div·class="line"><a·name="l05797"></a><span·class="lineno">·5797</span> <span·class="preprocessor">#**·@method·Feature()</span></div><div·class="line"><a·name="l05798"></a><span·class="lineno">·5798</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05799"></a><span·class="lineno">·5799</span> sub·Feature·{</div><div·class="line"><a·name="l05800"></a><span·class="lineno">·5800</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05801"></a><span·class="lineno">·5801</span> ····parent($self);</div><div·class="line"><a·name="l05802"></a><span·class="lineno">·5802</span> }</div><div·class="line"><a·name="l05803"></a><span·class="lineno">·5803</span> </div><div·class="line"><a·name="l05804"></a><span·class="lineno">·5804</span> <span·class="preprocessor">#**·@method·FlattenTo2D()</span></div><div·class="line"><a·name="l05805"></a><span·class="lineno">·5805</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05806"></a><span·class="lineno">·5806</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05807"></a><span·class="lineno">·5807</span> sub·FlattenTo2D·{</div><div·class="line"><a·name="l05808"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1GeoTransform.html">·5808</a></span> }</div><div·class="line"><a·name="l05809"></a><span·class="lineno">·5809</span> </div><div·class="line"><a·name="l05810"></a><span·class="lineno">·5810</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·ForceTo($type,·ref·options)</span></div><div·class="line"><a·name="l05811"></a><span·class="lineno">·5811</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05812"></a><span·class="lineno">·5812</span> <span·class="preprocessor">#·Attempt·to·make·a·geometry·of·type·'type'·out·of·this·geometry.</span></div><div·class="line"><a·name="l05813"></a><span·class="lineno">·5813</span> <span·class="preprocessor">#·@param·type·target·geometry·type.·One·of·Geo::OGR::GeometryTypes.</span></div><div·class="line"><a·name="l05814"></a><span·class="lineno">·5814</span> <span·class="preprocessor">#·@param·options·not·used·currently.</span></div><div·class="line"><a·name="l05815"></a><span·class="lineno">·5815</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object.</span></div><div·class="line"><a·name="l05816"></a><span·class="lineno">·5816</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05817"></a><span·class="lineno">·5817</span> sub·ForceTo·{</div><div·class="line"><a·name="l05818"></a><span·class="lineno">·5818</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05819"></a><span·class="lineno">·5819</span> ····my·$type·=·shift;</div><div·class="line"><a·name="l05820"></a><span·class="lineno">·5820</span> ····$type·=·s2i(geometry_type·=>·$type);</div><div·class="line"><a·name="l05821"></a><span·class="lineno">·5821</span> ····eval·{</div><div·class="line"><a·name="l05822"></a><span·class="lineno">·5822</span> ········$self·=·Geo::OGR::ForceTo($self,·$type,·@_);</div><div·class="line"><a·name="l05823"></a><span·class="lineno">·5823</span> ····};</div><div·class="line"><a·name="l05824"></a><span·class="lineno">·5824</span> ····confess·last_error()·<span·class="keywordflow">if</span>·$@;</div><div·class="line"><a·name="l05825"></a><span·class="lineno">·5825</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l05826"></a><span·class="lineno">·5826</span> }</div><div·class="line"><a·name="l05827"></a><span·class="lineno">·5827</span> </div><div·class="line"><a·name="l05828"></a><span·class="lineno">·5828</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·ForceToCollection(@geometries)</span></div><div·class="line"><a·name="l05829"></a><span·class="lineno">·5829</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05830"></a><span·class="lineno">·5830</span> <span·class="preprocessor">#·Create·a·geometrycollection·from·the·geometry.</span></div><div·class="line"><a·name="l05831"></a><span·class="lineno">·5831</span> <span·class="preprocessor">#·@param·geometries·[optional]·More·geometries·to·add·to·the·collection.</span></div><div·class="line"><a·name="l05832"></a><span·class="lineno">·5832</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object·of·type·geometrycollection.</span></div><div·class="line"><a·name="l05833"></a><span·class="lineno">·5833</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05834"></a><span·class="lineno">·5834</span> sub·ForceToCollection·{</div><div·class="line"><a·name="l05835"></a><span·class="lineno">·5835</span> ····my·$self·=·<a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html">Geo::OGR::Geometry</a>-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a95c4be922b97e1067d68340871a617c8">new</a>(GeometryType·=>·<span·class="stringliteral">'GeometryCollection'</span>);</div><div·class="line"><a·name="l05836"></a><span·class="lineno">·5836</span> ····<span·class="keywordflow">for</span>·my·$g·(@_)·{</div><div·class="line"><a·name="l05837"></a><span·class="lineno">·5837</span> ········$self-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a5344d7bb02a62c64f6fae2b0bf41c4a9">AddGeometry</a>($g);</div><div·class="line"><a·name="l05838"></a><span·class="lineno">·5838</span> ····}</div><div·class="line"><a·name="l05839"></a><span·class="lineno">·5839</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l05840"></a><span·class="lineno">·5840</span> }</div><div·class="line"><a·name="l05841"></a><span·class="lineno">·5841</span> </div><div·class="line"><a·name="l05842"></a><span·class="lineno">·5842</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·ForceToLineString()</span></div><div·class="line"><a·name="l05843"></a><span·class="lineno">·5843</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05844"></a><span·class="lineno">·5844</span> <span·class="preprocessor">#·Attempt·to·create·a·line·string·from·this·geometry.</span></div><div·class="line"><a·name="l05845"></a><span·class="lineno">·5845</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object.</span></div><div·class="line"><a·name="l05846"></a><span·class="lineno">·5846</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05847"></a><span·class="lineno">·5847</span> sub·ForceToLineString·{</div><div·class="line"><a·name="l05848"></a><span·class="lineno">·5848</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05849"></a><span·class="lineno">·5849</span> ····<span·class="keywordflow">return</span>·Geo::OGR::ForceToLineString($self);</div><div·class="line"><a·name="l05850"></a><span·class="lineno">·5850</span> }</div><div·class="line"><a·name="l05851"></a><span·class="lineno">·5851</span> </div><div·class="line"><a·name="l05852"></a><span·class="lineno">·5852</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·ForceToMultiLineString(@linestrings)</span></div><div·class="line"><a·name="l05853"></a><span·class="lineno">·5853</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05854"></a><span·class="lineno">·5854</span> <span·class="preprocessor">#·Attempt·to·create·a·multilinestring·from·the·geometry,·which·must·be·a·linestring.</span></div><div·class="line"><a·name="l05855"></a><span·class="lineno">·5855</span> <span·class="preprocessor">#·@param·linestrings·[optional]·More·linestrings·to·add·to·the·collection.</span></div><div·class="line"><a·name="l05856"></a><span·class="lineno">·5856</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object·of·type·multilinestring.</span></div><div·class="line"><a·name="l05857"></a><span·class="lineno">·5857</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05858"></a><span·class="lineno">·5858</span> sub·ForceToMultiLineString·{</div><div·class="line"><a·name="l05859"></a><span·class="lineno">·5859</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05860"></a><span·class="lineno">·5860</span> ····$self·=·Geo::OGR::ForceToMultiLineString($self);</div><div·class="line"><a·name="l05861"></a><span·class="lineno">·5861</span> ····<span·class="keywordflow">for</span>·my·$g·(@_)·{</div><div·class="line"><a·name="l05862"></a><span·class="lineno">·5862</span> ········$self->AddGeometry($g);</div><div·class="line"><a·name="l05863"></a><span·class="lineno">·5863</span> ····}</div><div·class="line"><a·name="l05864"></a><span·class="lineno">·5864</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l05865"></a><span·class="lineno">·5865</span> }</div><div·class="line"><a·name="l05866"></a><span·class="lineno">·5866</span> </div><div·class="line"><a·name="l05867"></a><span·class="lineno">·5867</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·ForceToMultiPoint(@points)</span></div><div·class="line"><a·name="l05868"></a><span·class="lineno">·5868</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05869"></a><span·class="lineno">·5869</span> <span·class="preprocessor">#·Attempt·to·create·a·multipoint·from·the·geometry,·which·must·be·a·point.</span></div><div·class="line"><a·name="l05870"></a><span·class="lineno">·5870</span> <span·class="preprocessor">#·@param·points·[optional]·More·points·to·add·to·the·collection.</span></div><div·class="line"><a·name="l05871"></a><span·class="lineno">·5871</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object·of·type·multipoint.</span></div><div·class="line"><a·name="l05872"></a><span·class="lineno">·5872</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05873"></a><span·class="lineno">·5873</span> sub·ForceToMultiPoint·{</div><div·class="line"><a·name="l05874"></a><span·class="lineno">·5874</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05875"></a><span·class="lineno">·5875</span> ····$self·=·Geo::OGR::ForceToMultiPoint($self);</div><div·class="line"><a·name="l05876"></a><span·class="lineno">·5876</span> ····<span·class="keywordflow">for</span>·my·$g·(@_)·{</div><div·class="line"><a·name="l05877"></a><span·class="lineno">·5877</span> ········$self->AddGeometry($g);</div><div·class="line"><a·name="l05878"></a><span·class="lineno">·5878</span> ····}</div><div·class="line"><a·name="l05879"></a><span·class="lineno">·5879</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l05880"></a><span·class="lineno">·5880</span> }</div><div·class="line"><a·name="l05881"></a><span·class="lineno">·5881</span> </div><div·class="line"><a·name="l05882"></a><span·class="lineno">·5882</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·ForceToMultiPolygon(@polygons)</span></div><div·class="line"><a·name="l05883"></a><span·class="lineno">·5883</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05884"></a><span·class="lineno">·5884</span> <span·class="preprocessor">#·Attempt·to·create·a·multipolygon·from·the·geometry,·which·must·be·a·polygon.</span></div><div·class="line"><a·name="l05885"></a><span·class="lineno">·5885</span> <span·class="preprocessor">#·@param·polygons·[optional]·More·polygons·to·add·to·the·collection.</span></div><div·class="line"><a·name="l05886"></a><span·class="lineno">·5886</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object·of·type·multipolygon.</span></div><div·class="line"><a·name="l05887"></a><span·class="lineno">·5887</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05888"></a><span·class="lineno">·5888</span> sub·ForceToMultiPolygon·{</div><div·class="line"><a·name="l05889"></a><span·class="lineno">·5889</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05890"></a><span·class="lineno">·5890</span> ····$self·=·Geo::OGR::ForceToMultiPolygon($self);</div><div·class="line"><a·name="l05891"></a><span·class="lineno">·5891</span> ····<span·class="keywordflow">for</span>·my·$g·(@_)·{</div><div·class="line"><a·name="l05892"></a><span·class="lineno">·5892</span> ········$self->AddGeometry($g);</div><div·class="line"><a·name="l05893"></a><span·class="lineno">·5893</span> ····}</div><div·class="line"><a·name="l05894"></a><span·class="lineno">·5894</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l05895"></a><span·class="lineno">·5895</span> }</div><div·class="line"><a·name="l05896"></a><span·class="lineno">·5896</span> </div><div·class="line"><a·name="l05897"></a><span·class="lineno">·5897</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·ForceToPolygon()</span></div><div·class="line"><a·name="l05898"></a><span·class="lineno">·5898</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05899"></a><span·class="lineno">·5899</span> <span·class="preprocessor">#·Attempt·to·create·a·polygon·from·this·geometry.</span></div><div·class="line"><a·name="l05900"></a><span·class="lineno">·5900</span> <span·class="preprocessor">#·@exception·None·reported.·If·this·method·fails,·just·a·copy·is·returned.</span></div><div·class="line"><a·name="l05901"></a><span·class="lineno">·5901</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object.</span></div><div·class="line"><a·name="l05902"></a><span·class="lineno">·5902</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05903"></a><span·class="lineno">·5903</span> sub·ForceToPolygon·{</div><div·class="line"><a·name="l05904"></a><span·class="lineno">·5904</span> }</div><div·class="line"><a·name="l05905"></a><span·class="lineno">·5905</span> </div><div·class="line"><a·name="l05906"></a><span·class="lineno">·5906</span> <span·class="preprocessor">#**·@method·scalar·Geometry($n)</span></div><div·class="line"><a·name="l05907"></a><span·class="lineno">·5907</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05908"></a><span·class="lineno">·5908</span> <span·class="preprocessor">#·Return·the·n:th·(note·zero-based·index)·element·in·this·geometry·or</span></div><div·class="line"><a·name="l05909"></a><span·class="lineno">·5909</span> <span·class="preprocessor">#·geometry·in·this·collection.</span></div><div·class="line"><a·name="l05910"></a><span·class="lineno">·5910</span> <span·class="preprocessor">#·@note·a.k.a.·GetGeometryRef</span></div><div·class="line"><a·name="l05911"></a><span·class="lineno">·5911</span> <span·class="preprocessor">#·@param·n·index·to·the·geometry,·which·is·a·part·of·this·geometry</span></div><div·class="line"><a·name="l05912"></a><span·class="lineno">·5912</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object·whose·data·is·a·part·of·the</span></div><div·class="line"><a·name="l05913"></a><span·class="lineno">·5913</span> <span·class="preprocessor">#·parent·geometry·(this·geometry·is·kept·alive·while·the·returned</span></div><div·class="line"><a·name="l05914"></a><span·class="lineno">·5914</span> <span·class="preprocessor">#·geometry·exists)</span></div><div·class="line"><a·name="l05915"></a><span·class="lineno">·5915</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05916"></a><span·class="lineno">·5916</span> sub·Geometry·{</div><div·class="line"><a·name="l05917"></a><span·class="lineno">·5917</span> }</div><div·class="line"><a·name="l05918"></a><span·class="lineno">·5918</span> </div><div·class="line"><a·name="l05919"></a><span·class="lineno">·5919</span> <span·class="preprocessor">#**·@method·scalar·GeometryCount()</span></div><div·class="line"><a·name="l05920"></a><span·class="lineno">·5920</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05921"></a><span·class="lineno">·5921</span> <span·class="preprocessor">#·Return·the·number·of·elements·in·this·geometry·or·geometries·in·this·collection.</span></div><div·class="line"><a·name="l05922"></a><span·class="lineno">·5922</span> <span·class="preprocessor">#·@note·a.k.a.·GetGeometryCount</span></div><div·class="line"><a·name="l05923"></a><span·class="lineno">·5923</span> <span·class="preprocessor">#·@return·an·integer</span></div><div·class="line"><a·name="l05924"></a><span·class="lineno">·5924</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05925"></a><span·class="lineno">·5925</span> sub·GeometryCount·{</div><div·class="line"><a·name="l05926"></a><span·class="lineno">·5926</span> }</div><div·class="line"><a·name="l05927"></a><span·class="lineno">·5927</span> </div><div·class="line"><a·name="l05928"></a><span·class="lineno">·5928</span> <span·class="preprocessor">#**·@method·scalar·GeometryType()</span></div><div·class="line"><a·name="l05929"></a><span·class="lineno">·5929</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05930"></a><span·class="lineno">·5930</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l05931"></a><span·class="lineno">·5931</span> <span·class="preprocessor">#·@note·The·deprecated·method·GetGeometryType·returns·the</span></div><div·class="line"><a·name="l05932"></a><span·class="lineno">·5932</span> <span·class="preprocessor">#·type·as·an·integer</span></div><div·class="line"><a·name="l05933"></a><span·class="lineno">·5933</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l05934"></a><span·class="lineno">·5934</span> <span·class="preprocessor">#·@return·the·geometry·type·of·this·geometry·(one·of·Geo::OGR::GeometryTypes).</span></div><div·class="line"><a·name="l05935"></a><span·class="lineno">·5935</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05936"></a><span·class="lineno">·5936</span> sub·GeometryType·{</div><div·class="line"><a·name="l05937"></a><span·class="lineno">·5937</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05938"></a><span·class="lineno">·5938</span> ····<span·class="keywordflow">return</span>·i2s(geometry_type·=>·$self->GetGeometryType);</div><div·class="line"><a·name="l05939"></a><span·class="lineno">·5939</span> }</div><div·class="line"><a·name="l05940"></a><span·class="lineno">·5940</span> </div><div·class="line"><a·name="l05941"></a><span·class="lineno">·5941</span> <span·class="preprocessor">#**·@method·list·GeometryTypes()</span></div><div·class="line"><a·name="l05942"></a><span·class="lineno">·5942</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l05943"></a><span·class="lineno">·5943</span> <span·class="preprocessor">#·Same·as·Geo::OGR::GeometryTypes</span></div><div·class="line"><a·name="l05944"></a><span·class="lineno">·5944</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05945"></a><span·class="lineno">·5945</span> sub·GeometryTypes·{</div><div·class="line"><a·name="l05946"></a><span·class="lineno">·5946</span> ····<span·class="keywordflow">return</span>·@GEOMETRY_TYPES;</div><div·class="line"><a·name="l05947"></a><span·class="lineno">·5947</span> }</div><div·class="line"><a·name="l05948"></a><span·class="lineno">·5948</span> </div><div·class="line"><a·name="l05949"></a><span·class="lineno">·5949</span> <span·class="preprocessor">#**·@method·scalar·GetCoordinateDimension()</span></div><div·class="line"><a·name="l05950"></a><span·class="lineno">·5950</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05951"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1MajorObject.html">·5951</a></span> <span·class="preprocessor">#·@return·an·integer</span></div><div·class="line"><a·name="l05952"></a><span·class="lineno">·5952</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05953"></a><span·class="lineno">·5953</span> sub·GetCoordinateDimension·{</div><div·class="line"><a·name="l05954"></a><span·class="lineno">·5954</span> }</div><div·class="line"><a·name="l05955"></a><span·class="lineno">·5955</span> </div><div·class="line"><a·name="l05956"></a><span·class="lineno">·5956</span> <span·class="preprocessor">#**·@method·GetCurveGeometry()</span></div><div·class="line"><a·name="l05957"></a><span·class="lineno">·5957</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05958"></a><span·class="lineno">·5958</span> sub·GetCurveGeometry·{</div><div·class="line"><a·name="l05959"></a><span·class="lineno">·5959</span> }</div><div·class="line"><a·name="l05960"></a><span·class="lineno">·5960</span> </div><div·class="line"><a·name="l05961"></a><span·class="lineno">·5961</span> <span·class="preprocessor">#**·@method·scalar·GetDimension()</span></div><div·class="line"><a·name="l05962"></a><span·class="lineno">·5962</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05963"></a><span·class="lineno">·5963</span> <span·class="preprocessor">#·@return·0,·1,·or·2</span></div><div·class="line"><a·name="l05964"></a><span·class="lineno">·5964</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05965"></a><span·class="lineno">·5965</span> sub·GetDimension·{</div><div·class="line"><a·name="l05966"></a><span·class="lineno">·5966</span> }</div><div·class="line"><a·name="l05967"></a><span·class="lineno">·5967</span> </div><div·class="line"><a·name="l05968"></a><span·class="lineno">·5968</span> <span·class="preprocessor">#**·@method·list·GetEnvelope()</span></div><div·class="line"><a·name="l05969"></a><span·class="lineno">·5969</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05970"></a><span·class="lineno">·5970</span> <span·class="preprocessor">#·@note·In·scalar·context·returns·a·reference·to·an·anonymous·array</span></div><div·class="line"><a·name="l05971"></a><span·class="lineno">·5971</span> <span·class="preprocessor">#·containing·the·envelope.</span></div><div·class="line"><a·name="l05972"></a><span·class="lineno">·5972</span> <span·class="preprocessor">#·@return·the·envelope·($minx,·$maxx,·$miny,·$maxy)</span></div><div·class="line"><a·name="l05973"></a><span·class="lineno">·5973</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05974"></a><span·class="lineno">·5974</span> sub·GetEnvelope·{</div><div·class="line"><a·name="l05975"></a><span·class="lineno">·5975</span> }</div><div·class="line"><a·name="l05976"></a><span·class="lineno">·5976</span> </div><div·class="line"><a·name="l05977"></a><span·class="lineno">·5977</span> <span·class="preprocessor">#**·@method·list·GetEnvelope3D()</span></div><div·class="line"><a·name="l05978"></a><span·class="lineno">·5978</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05979"></a><span·class="lineno">·5979</span> <span·class="preprocessor">#·@note·In·scalar·context·returns·a·reference·to·an·anonymous·array</span></div><div·class="line"><a·name="l05980"></a><span·class="lineno">·5980</span> <span·class="preprocessor">#·containing·the·envelope.</span></div><div·class="line"><a·name="l05981"></a><span·class="lineno">·5981</span> <span·class="preprocessor">#·@return·the·3-D·envelope·($minx,·$maxx,·$miny,·$maxy,·$minz,·$maxz)</span></div><div·class="line"><a·name="l05982"></a><span·class="lineno">·5982</span> <span·class="preprocessor">#·@since·1.9.0</span></div><div·class="line"><a·name="l05983"></a><span·class="lineno">·5983</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05984"></a><span·class="lineno">·5984</span> sub·GetEnvelope3D·{</div><div·class="line"><a·name="l05985"></a><span·class="lineno">·5985</span> }</div><div·class="line"><a·name="l05986"></a><span·class="lineno">·5986</span> </div><div·class="line"><a·name="l05987"></a><span·class="lineno">·5987</span> <span·class="preprocessor">#**·@method·scalar·GetGeometryRef($index)</span></div><div·class="line"><a·name="l05988"></a><span·class="lineno">·5988</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05989"></a><span·class="lineno">·5989</span> <span·class="preprocessor">#·@deprecated·Use·Geo::OGR::Geometry</span></div><div·class="line"><a·name="l05990"></a><span·class="lineno">·5990</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05991"></a><span·class="lineno">·5991</span> sub·GetGeometryRef·{</div><div·class="line"><a·name="l05992"></a><span·class="lineno">·5992</span> ····my·($self,·$i)·=·@_;</div><div·class="line"><a·name="l05993"></a><span·class="lineno">·5993</span> ····my·$ref·=·$self->_GetGeometryRef($i);</div><div·class="line"><a·name="l05994"></a><span·class="lineno">·5994</span> ····keep($ref,·$self);</div><div·class="line"><a·name="l05995"></a><span·class="lineno">·5995</span> ····<span·class="keywordflow">return</span>·$ref;</div><div·class="line"><a·name="l05996"></a><span·class="lineno">·5996</span> }</div><div·class="line"><a·name="l05997"></a><span·class="lineno">·5997</span> </div><div·class="line"><a·name="l05998"></a><span·class="lineno">·5998</span> <span·class="preprocessor">#**·@method·GetLinearGeometry()</span></div><div·class="line"><a·name="l05999"></a><span·class="lineno">·5999</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06000"></a><span·class="lineno">·6000</span> sub·GetLinearGeometry·{</div><div·class="line"><a·name="l06001"></a><span·class="lineno">·6001</span> }</div><div·class="line"><a·name="l06002"></a><span·class="lineno">·6002</span> </div><div·class="line"><a·name="l06003"></a><span·class="lineno">·6003</span> <span·class="preprocessor">#**·@method·GetM()</span></div><div·class="line"><a·name="l06004"></a><span·class="lineno">·6004</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06005"></a><span·class="lineno">·6005</span> sub·GetM·{</div><div·class="line"><a·name="l06006"></a><span·class="lineno">·6006</span> }</div><div·class="line"><a·name="l06007"></a><span·class="lineno">·6007</span> </div><div·class="line"><a·name="l06008"></a><span·class="lineno">·6008</span> <span·class="preprocessor">#**·@method·list·GetPoint($index·=·0)</span></div><div·class="line"><a·name="l06009"></a><span·class="lineno">·6009</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06010"></a><span·class="lineno">·6010</span> <span·class="preprocessor">#·@param·index</span></div><div·class="line"><a·name="l06011"></a><span·class="lineno">·6011</span> <span·class="preprocessor">#·@return·(x,y)·or·a·list·with·more·coordinates</span></div><div·class="line"><a·name="l06012"></a><span·class="lineno">·6012</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06013"></a><span·class="lineno">·6013</span> sub·GetPoint·{</div><div·class="line"><a·name="l06014"></a><span·class="lineno">·6014</span> ····my($self,·$i)·=·@_;</div><div·class="line"><a·name="l06015"></a><span·class="lineno">·6015</span> ····$i·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l06016"></a><span·class="lineno">·6016</span> ····my·$t·=·$self->GetGeometryType;</div><div·class="line"><a·name="l06017"></a><span·class="lineno">·6017</span> ····my·$has_z·=·HasZ($t);</div><div·class="line"><a·name="l06018"></a><span·class="lineno">·6018</span> ····my·$has_m·=·HasM($t);</div><div·class="line"><a·name="l06019"></a><span·class="lineno">·6019</span> ····my·$point;</div><div·class="line"><a·name="l06020"></a><span·class="lineno">·6020</span> ····<span·class="keywordflow">if</span>·(!$has_z·&&·!$has_m)·{</div><div·class="line"><a·name="l06021"></a><span·class="lineno">·6021</span> ········$point·=·$self->GetPoint_2D($i);</div><div·class="line"><a·name="l06022"></a><span·class="lineno">·6022</span> ····}·elsif·($has_z·&&·!$has_m)·{</div><div·class="line"><a·name="l06023"></a><span·class="lineno">·6023</span> ········$point·=·$self->GetPoint_3D($i);</div><div·class="line"><a·name="l06024"></a><span·class="lineno">·6024</span> ····}·elsif·(!$has_z·&&·$has_m)·{</div><div·class="line"><a·name="l06025"></a><span·class="lineno">·6025</span> ········$point·=·$self->GetPointZM($i);</div><div·class="line"><a·name="l06026"></a><span·class="lineno">·6026</span> ········@$point·=·($point->[0],·$point->[1],·$point->[3]);</div><div·class="line"><a·name="l06027"></a><span·class="lineno">·6027</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06028"></a><span·class="lineno">·6028</span> ········$point·=·$self->GetPointZM($i);</div><div·class="line"><a·name="l06029"></a><span·class="lineno">·6029</span> ····}</div><div·class="line"><a·name="l06030"></a><span·class="lineno">·6030</span> ····<span·class="keywordflow">return</span>·wantarray·?·@$point·:·$point;</div><div·class="line"><a·name="l06031"></a><span·class="lineno">·6031</span> }</div><div·class="line"><a·name="l06032"></a><span·class="lineno">·6032</span> </div><div·class="line"><a·name="l06033"></a><span·class="lineno">·6033</span> <span·class="preprocessor">#**·@method·scalar·GetPointCount()</span></div><div·class="line"><a·name="l06034"></a><span·class="lineno">·6034</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06035"></a><span·class="lineno">·6035</span> <span·class="preprocessor">#·@return·an·integer</span></div><div·class="line"><a·name="l06036"></a><span·class="lineno">·6036</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06037"></a><span·class="lineno">·6037</span> sub·GetPointCount·{</div><div·class="line"><a·name="l06038"></a><span·class="lineno">·6038</span> }</div><div·class="line"><a·name="l06039"></a><span·class="lineno">·6039</span> </div><div·class="line"><a·name="l06040"></a><span·class="lineno">·6040</span> <span·class="preprocessor">#**·@method·GetPointZM()</span></div><div·class="line"><a·name="l06041"></a><span·class="lineno">·6041</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06042"></a><span·class="lineno">·6042</span> sub·GetPointZM·{</div><div·class="line"><a·name="l06043"></a><span·class="lineno">·6043</span> }</div><div·class="line"><a·name="l06044"></a><span·class="lineno">·6044</span> </div><div·class="line"><a·name="l06045"></a><span·class="lineno">·6045</span> <span·class="preprocessor">#**·@method·scalar·GetPoint_2D($index·=·0)</span></div><div·class="line"><a·name="l06046"></a><span·class="lineno">·6046</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06047"></a><span·class="lineno">·6047</span> <span·class="preprocessor">#·@param·index</span></div><div·class="line"><a·name="l06048"></a><span·class="lineno">·6048</span> <span·class="preprocessor">#·@return·(x,y)·or·a·list·with·more·coordinates</span></div><div·class="line"><a·name="l06049"></a><span·class="lineno">·6049</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06050"></a><span·class="lineno">·6050</span> sub·GetPoint_2D·{</div><div·class="line"><a·name="l06051"></a><span·class="lineno">·6051</span> }</div><div·class="line"><a·name="l06052"></a><span·class="lineno">·6052</span> </div><div·class="line"><a·name="l06053"></a><span·class="lineno">·6053</span> <span·class="preprocessor">#**·@method·scalar·GetPoint_3D($index·=·0)</span></div><div·class="line"><a·name="l06054"></a><span·class="lineno">·6054</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06055"></a><span·class="lineno">·6055</span> <span·class="preprocessor">#·@param·index</span></div><div·class="line"><a·name="l06056"></a><span·class="lineno">·6056</span> <span·class="preprocessor">#·@return·(x,y)·or·a·list·with·more·coordinates</span></div><div·class="line"><a·name="l06057"></a><span·class="lineno">·6057</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06058"></a><span·class="lineno">·6058</span> sub·GetPoint_3D·{</div><div·class="line"><a·name="l06059"></a><span·class="lineno">·6059</span> }</div><div·class="line"><a·name="l06060"></a><span·class="lineno">·6060</span> </div><div·class="line"><a·name="l06061"></a><span·class="lineno">·6061</span> <span·class="preprocessor">#**·@method·Geo::OSR::SpatialReference·GetSpatialReference()</span></div><div·class="line"><a·name="l06062"></a><span·class="lineno">·6062</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06063"></a><span·class="lineno">·6063</span> <span·class="preprocessor">#·@return·a·new·Geo::OSR::SpatialReference·object</span></div><div·class="line"><a·name="l06064"></a><span·class="lineno">·6064</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06065"></a><span·class="lineno">·6065</span> sub·GetSpatialReference·{</div><div·class="line"><a·name="l06066"></a><span·class="lineno">·6066</span> }</div><div·class="line"><a·name="l06067"></a><span·class="lineno">·6067</span> </div><div·class="line"><a·name="l06068"></a><span·class="lineno">·6068</span> <span·class="preprocessor">#**·@method·scalar·GetX($index·=·0)</span></div><div·class="line"><a·name="l06069"></a><span·class="lineno">·6069</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06070"></a><span·class="lineno">·6070</span> <span·class="preprocessor">#·@param·index</span></div><div·class="line"><a·name="l06071"></a><span·class="lineno">·6071</span> <span·class="preprocessor">#·@return·a·number</span></div><div·class="line"><a·name="l06072"></a><span·class="lineno">·6072</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06073"></a><span·class="lineno">·6073</span> sub·GetX·{</div><div·class="line"><a·name="l06074"></a><span·class="lineno">·6074</span> }</div><div·class="line"><a·name="l06075"></a><span·class="lineno">·6075</span> </div><div·class="line"><a·name="l06076"></a><span·class="lineno">·6076</span> <span·class="preprocessor">#**·@method·scalar·GetY($index·=·0)</span></div><div·class="line"><a·name="l06077"></a><span·class="lineno">·6077</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06078"></a><span·class="lineno">·6078</span> <span·class="preprocessor">#·@param·index</span></div><div·class="line"><a·name="l06079"></a><span·class="lineno">·6079</span> <span·class="preprocessor">#·@return·a·number</span></div><div·class="line"><a·name="l06080"></a><span·class="lineno">·6080</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06081"></a><span·class="lineno">·6081</span> sub·GetY·{</div><div·class="line"><a·name="l06082"></a><span·class="lineno">·6082</span> }</div><div·class="line"><a·name="l06083"></a><span·class="lineno">·6083</span> </div><div·class="line"><a·name="l06084"></a><span·class="lineno">·6084</span> <span·class="preprocessor">#**·@method·scalar·GetZ($index·=·0)</span></div><div·class="line"><a·name="l06085"></a><span·class="lineno">·6085</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06086"></a><span·class="lineno">·6086</span> <span·class="preprocessor">#·@param·index</span></div><div·class="line"><a·name="l06087"></a><span·class="lineno">·6087</span> <span·class="preprocessor">#·@return·a·number</span></div><div·class="line"><a·name="l06088"></a><span·class="lineno">·6088</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06089"></a><span·class="lineno">·6089</span> sub·GetZ·{</div><div·class="line"><a·name="l06090"></a><span·class="lineno">·6090</span> }</div><div·class="line"><a·name="l06091"></a><span·class="lineno">·6091</span> </div><div·class="line"><a·name="l06092"></a><span·class="lineno">·6092</span> <span·class="preprocessor">#**·@method·HasCurveGeometry()</span></div><div·class="line"><a·name="l06093"></a><span·class="lineno">·6093</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06094"></a><span·class="lineno">·6094</span> sub·HasCurveGeometry·{</div><div·class="line"><a·name="l06095"></a><span·class="lineno">·6095</span> }</div><div·class="line"><a·name="l06096"></a><span·class="lineno">·6096</span> </div><div·class="line"><a·name="l06097"></a><span·class="lineno">·6097</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·Intersection($other)</span></div><div·class="line"><a·name="l06098"></a><span·class="lineno">·6098</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06099"></a><span·class="lineno">·6099</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l06100"></a><span·class="lineno">·6100</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l06101"></a><span·class="lineno">·6101</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06102"></a><span·class="lineno">·6102</span> sub·Intersection·{</div><div·class="line"><a·name="l06103"></a><span·class="lineno">·6103</span> }</div><div·class="line"><a·name="l06104"></a><span·class="lineno">·6104</span> </div><div·class="line"><a·name="l06105"></a><span·class="lineno">·6105</span> <span·class="preprocessor">#**·@method·scalar·Intersects($other)</span></div><div·class="line"><a·name="l06106"></a><span·class="lineno">·6106</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06107"></a><span·class="lineno">·6107</span> <span·class="preprocessor">#·@note·a.k.a.·Intersect·(deprecated)</span></div><div·class="line"><a·name="l06108"></a><span·class="lineno">·6108</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l06109"></a><span·class="lineno">·6109</span> <span·class="preprocessor">#·@return·true·if·this·geometry·intersects·with·the·other·geometry,·false·otherwise</span></div><div·class="line"><a·name="l06110"></a><span·class="lineno">·6110</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06111"></a><span·class="lineno">·6111</span> sub·Intersects·{</div><div·class="line"><a·name="l06112"></a><span·class="lineno">·6112</span> }</div><div·class="line"><a·name="l06113"></a><span·class="lineno">·6113</span> </div><div·class="line"><a·name="l06114"></a><span·class="lineno">·6114</span> <span·class="preprocessor">#**·@method·Is3D()</span></div><div·class="line"><a·name="l06115"></a><span·class="lineno">·6115</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06116"></a><span·class="lineno">·6116</span> sub·Is3D·{</div><div·class="line"><a·name="l06117"></a><span·class="lineno">·6117</span> }</div><div·class="line"><a·name="l06118"></a><span·class="lineno">·6118</span> </div><div·class="line"><a·name="l06119"></a><span·class="lineno">·6119</span> <span·class="preprocessor">#**·@method·scalar·IsEmpty()</span></div><div·class="line"><a·name="l06120"></a><span·class="lineno">·6120</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06121"></a><span·class="lineno">·6121</span> <span·class="preprocessor">#·Test·whether·the·geometry·is·empty·(has·no·points,·or,·for·a·point,</span></div><div·class="line"><a·name="l06122"></a><span·class="lineno">·6122</span> <span·class="preprocessor">#·has·coordinate·dimension·of·zero).</span></div><div·class="line"><a·name="l06123"></a><span·class="lineno">·6123</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l06124"></a><span·class="lineno">·6124</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06125"></a><span·class="lineno">·6125</span> sub·IsEmpty·{</div><div·class="line"><a·name="l06126"></a><span·class="lineno">·6126</span> }</div><div·class="line"><a·name="l06127"></a><span·class="lineno">·6127</span> </div><div·class="line"><a·name="l06128"></a><span·class="lineno">·6128</span> <span·class="preprocessor">#**·@method·IsMeasured()</span></div><div·class="line"><a·name="l06129"></a><span·class="lineno">·6129</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06130"></a><span·class="lineno">·6130</span> sub·IsMeasured·{</div><div·class="line"><a·name="l06131"></a><span·class="lineno">·6131</span> }</div><div·class="line"><a·name="l06132"></a><span·class="lineno">·6132</span> </div><div·class="line"><a·name="l06133"></a><span·class="lineno">·6133</span> <span·class="preprocessor">#**·@method·scalar·IsRing()</span></div><div·class="line"><a·name="l06134"></a><span·class="lineno">·6134</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06135"></a><span·class="lineno">·6135</span> <span·class="preprocessor">#·Test·if·the·geometry·is·a·ring.·Requires·GEOS·in·GDAL.</span></div><div·class="line"><a·name="l06136"></a><span·class="lineno">·6136</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l06137"></a><span·class="lineno">·6137</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06138"></a><span·class="lineno">·6138</span> sub·IsRing·{</div><div·class="line"><a·name="l06139"></a><span·class="lineno">·6139</span> }</div><div·class="line"><a·name="l06140"></a><span·class="lineno">·6140</span> </div><div·class="line"><a·name="l06141"></a><span·class="lineno">·6141</span> <span·class="preprocessor">#**·@method·scalar·IsSimple()</span></div><div·class="line"><a·name="l06142"></a><span·class="lineno">·6142</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06143"></a><span·class="lineno">·6143</span> <span·class="preprocessor">#·Test·the·simplicity·of·the·geometry·(OGC·sense).·Requires·GEOS·in·GDAL.</span></div><div·class="line"><a·name="l06144"></a><span·class="lineno">·6144</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l06145"></a><span·class="lineno">·6145</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06146"></a><span·class="lineno">·6146</span> sub·IsSimple·{</div><div·class="line"><a·name="l06147"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1RasterAttributeTable.html">·6147</a></span> }</div><div·class="line"><a·name="l06148"></a><span·class="lineno">·6148</span> </div><div·class="line"><a·name="l06149"></a><span·class="lineno">·6149</span> <span·class="preprocessor">#**·@method·scalar·IsValid()</span></div><div·class="line"><a·name="l06150"></a><span·class="lineno">·6150</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06151"></a><span·class="lineno">·6151</span> <span·class="preprocessor">#·Test·the·validity·of·the·geometry·(OGC·sense).·Requires·GEOS·in·GDAL.</span></div><div·class="line"><a·name="l06152"></a><span·class="lineno">·6152</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l06153"></a><span·class="lineno">·6153</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06154"></a><span·class="lineno">·6154</span> sub·IsValid·{</div><div·class="line"><a·name="l06155"></a><span·class="lineno">·6155</span> }</div><div·class="line"><a·name="l06156"></a><span·class="lineno">·6156</span> </div><div·class="line"><a·name="l06157"></a><span·class="lineno">·6157</span> <span·class="preprocessor">#**·@method·scalar·Length()</span></div><div·class="line"><a·name="l06158"></a><span·class="lineno">·6158</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06159"></a><span·class="lineno">·6159</span> <span·class="preprocessor">#·@return·the·length·of·the·linestring</span></div><div·class="line"><a·name="l06160"></a><span·class="lineno">·6160</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06161"></a><span·class="lineno">·6161</span> sub·Length·{</div><div·class="line"><a·name="l06162"></a><span·class="lineno">·6162</span> }</div><div·class="line"><a·name="l06163"></a><span·class="lineno">·6163</span> </div><div·class="line"><a·name="l06164"></a><span·class="lineno">·6164</span> <span·class="preprocessor">#**·@method·Move($dx,·$dy,·$dz)</span></div><div·class="line"><a·name="l06165"></a><span·class="lineno">·6165</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06166"></a><span·class="lineno">·6166</span> <span·class="preprocessor">#·Move·every·point·of·the·object·as·defined·by·the·parameters.</span></div><div·class="line"><a·name="l06167"></a><span·class="lineno">·6167</span> <span·class="preprocessor">#·@param·dx</span></div><div·class="line"><a·name="l06168"></a><span·class="lineno">·6168</span> <span·class="preprocessor">#·@param·dy</span></div><div·class="line"><a·name="l06169"></a><span·class="lineno">·6169</span> <span·class="preprocessor">#·@param·dz·[optional]</span></div><div·class="line"><a·name="l06170"></a><span·class="lineno">·6170</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06171"></a><span·class="lineno">·6171</span> sub·Move·{</div><div·class="line"><a·name="l06172"></a><span·class="lineno">·6172</span> }</div><div·class="line"><a·name="l06173"></a><span·class="lineno">·6173</span> </div><div·class="line"><a·name="l06174"></a><span·class="lineno">·6174</span> <span·class="preprocessor">#**·@method·scalar·Overlaps($other)</span></div><div·class="line"><a·name="l06175"></a><span·class="lineno">·6175</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06176"></a><span·class="lineno">·6176</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l06177"></a><span·class="lineno">·6177</span> <span·class="preprocessor">#·@return·true·if·this·geometry·overlaps·the·other·geometry,·false·otherwise</span></div><div·class="line"><a·name="l06178"></a><span·class="lineno">·6178</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06179"></a><span·class="lineno">·6179</span> sub·Overlaps·{</div><div·class="line"><a·name="l06180"></a><span·class="lineno">·6180</span> }</div><div·class="line"><a·name="l06181"></a><span·class="lineno">·6181</span> </div><div·class="line"><a·name="l06182"></a><span·class="lineno">·6182</span> <span·class="preprocessor">#**·@method·list·Point($index,·$x,·$y,·$z)</span></div><div·class="line"><a·name="l06183"></a><span·class="lineno">·6183</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06184"></a><span·class="lineno">·6184</span> <span·class="preprocessor">#·Get·or·set·the·point</span></div><div·class="line"><a·name="l06185"></a><span·class="lineno">·6185</span> <span·class="preprocessor">#·@param·index·The·index·of·the·point.·Optional·(ignored·if·given)·for</span></div><div·class="line"><a·name="l06186"></a><span·class="lineno">·6186</span> <span·class="preprocessor">#·Point·and·Point25D·geometries.</span></div><div·class="line"><a·name="l06187"></a><span·class="lineno">·6187</span> <span·class="preprocessor">#·@param·x·[optional]</span></div><div·class="line"><a·name="l06188"></a><span·class="lineno">·6188</span> <span·class="preprocessor">#·@param·y·[optional]</span></div><div·class="line"><a·name="l06189"></a><span·class="lineno">·6189</span> <span·class="preprocessor">#·@param·z·[optional]</span></div><div·class="line"><a·name="l06190"></a><span·class="lineno">·6190</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l06191"></a><span·class="lineno">·6191</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06192"></a><span·class="lineno">·6192</span> sub·Point·{</div><div·class="line"><a·name="l06193"></a><span·class="lineno">·6193</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06194"></a><span·class="lineno">·6194</span> ····my·$i;</div><div·class="line"><a·name="l06195"></a><span·class="lineno">·6195</span> ····<span·class="keywordflow">if</span>·(@_)·{</div><div·class="line"><a·name="l06196"></a><span·class="lineno">·6196</span> ········my·$t·=·$self->GetGeometryType;</div><div·class="line"><a·name="l06197"></a><span·class="lineno">·6197</span> ········my·$i;</div><div·class="line"><a·name="l06198"></a><span·class="lineno">·6198</span> ········<span·class="keywordflow">if</span>·(Flatten($t)·==·$Geo::OGR::wkbPoint)·{</div><div·class="line"><a·name="l06199"></a><span·class="lineno">·6199</span> ············my·$has_z·=·HasZ($t);</div><div·class="line"><a·name="l06200"></a><span·class="lineno">·6200</span> ············my·$has_m·=·HasM($t);</div><div·class="line"><a·name="l06201"></a><span·class="lineno">·6201</span> ············<span·class="keywordflow">if</span>·(!$has_z·&&·!$has_m)·{</div><div·class="line"><a·name="l06202"></a><span·class="lineno">·6202</span> ················shift·<span·class="keywordflow">if</span>·@_·>·2;</div><div·class="line"><a·name="l06203"></a><span·class="lineno">·6203</span> ················$i·=·0;</div><div·class="line"><a·name="l06204"></a><span·class="lineno">·6204</span> ············}·elsif·($has_z·||·$has_m)·{</div><div·class="line"><a·name="l06205"></a><span·class="lineno">·6205</span> ················shift·<span·class="keywordflow">if</span>·@_·>·3;</div><div·class="line"><a·name="l06206"></a><span·class="lineno">·6206</span> ················$i·=·0;</div><div·class="line"><a·name="l06207"></a><span·class="lineno">·6207</span> ············}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06208"></a><span·class="lineno">·6208</span> ················shift·<span·class="keywordflow">if</span>·@_·>·4;</div><div·class="line"><a·name="l06209"></a><span·class="lineno">·6209</span> ················$i·=·0;</div><div·class="line"><a·name="l06210"></a><span·class="lineno">·6210</span> ············}</div><div·class="line"><a·name="l06211"></a><span·class="lineno">·6211</span> ········}</div><div·class="line"><a·name="l06212"></a><span·class="lineno">·6212</span> ········$i·=·shift·unless·defined·$i;</div><div·class="line"><a·name="l06213"></a><span·class="lineno">·6213</span> ········$self->SetPoint($i,·@_);</div><div·class="line"><a·name="l06214"></a><span·class="lineno">·6214</span> ····}</div><div·class="line"><a·name="l06215"></a><span·class="lineno">·6215</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l06216"></a><span·class="lineno">·6216</span> ····my·$point·=·$self->GetPoint;</div><div·class="line"><a·name="l06217"></a><span·class="lineno">·6217</span> ····<span·class="keywordflow">return</span>·wantarray·?·@$point·:·$point;</div><div·class="line"><a·name="l06218"></a><span·class="lineno">·6218</span> }</div><div·class="line"><a·name="l06219"></a><span·class="lineno">·6219</span> </div><div·class="line"><a·name="l06220"></a><span·class="lineno">·6220</span> <span·class="preprocessor">#**·@method·PointOnSurface()</span></div><div·class="line"><a·name="l06221"></a><span·class="lineno">·6221</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06222"></a><span·class="lineno">·6222</span> sub·PointOnSurface·{</div><div·class="line"><a·name="l06223"></a><span·class="lineno">·6223</span> }</div><div·class="line"><a·name="l06224"></a><span·class="lineno">·6224</span> </div><div·class="line"><a·name="l06225"></a><span·class="lineno">·6225</span> <span·class="preprocessor">#**·@method·array·reference·Points(arrayref·points)</span></div><div·class="line"><a·name="l06226"></a><span·class="lineno">·6226</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06227"></a><span·class="lineno">·6227</span> <span·class="preprocessor">#·Get·or·set·the·points·of·the·geometry.·The·points·(vertices)·are</span></div><div·class="line"><a·name="l06228"></a><span·class="lineno">·6228</span> <span·class="preprocessor">#·stored·in·obvious·lists·of·lists.·When·setting,·the·geometry·is</span></div><div·class="line"><a·name="l06229"></a><span·class="lineno">·6229</span> <span·class="preprocessor">#·first·emptied.·The·method·uses·internally·either·AddPoint_2D·or</span></div><div·class="line"><a·name="l06230"></a><span·class="lineno">·6230</span> <span·class="preprocessor">#·AddPoint_3D·depending·on·the·coordinate·dimension·of·the·input·data.</span></div><div·class="line"><a·name="l06231"></a><span·class="lineno">·6231</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06232"></a><span·class="lineno">·6232</span> <span·class="preprocessor">#·@note·The·same·structure·may·represent·different·geometries</span></div><div·class="line"><a·name="l06233"></a><span·class="lineno">·6233</span> <span·class="preprocessor">#·depending·on·the·actual·geometry·type·of·the·object.</span></div><div·class="line"><a·name="l06234"></a><span·class="lineno">·6234</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06235"></a><span·class="lineno">·6235</span> <span·class="preprocessor">#·@param·points·[optional]·A·reference·to·an·array.·A·point·is·a·reference·to·an</span></div><div·class="line"><a·name="l06236"></a><span·class="lineno">·6236</span> <span·class="preprocessor">#·array·of·numbers,·a·linestring·or·a·ring·is·a·reference·to·an·array·of·points,</span></div><div·class="line"><a·name="l06237"></a><span·class="lineno">·6237</span> <span·class="preprocessor">#·a·polygon·is·a·reference·to·an·array·of·rings,·etc.</span></div><div·class="line"><a·name="l06238"></a><span·class="lineno">·6238</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06239"></a><span·class="lineno">·6239</span> <span·class="preprocessor">#·@return·A·reference·to·an·array.</span></div><div·class="line"><a·name="l06240"></a><span·class="lineno">·6240</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06241"></a><span·class="lineno">·6241</span> sub·Points·{</div><div·class="line"><a·name="l06242"></a><span·class="lineno">·6242</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06243"></a><span·class="lineno">·6243</span> ····my·$t·=·$self->GetGeometryType;</div><div·class="line"><a·name="l06244"></a><span·class="lineno">·6244</span> ····my·$has_z·=·HasZ($t);</div><div·class="line"><a·name="l06245"></a><span·class="lineno">·6245</span> ····my·$has_m·=·HasM($t);</div><div·class="line"><a·name="l06246"></a><span·class="lineno">·6246</span> ····my·$postfix·=·<span·class="stringliteral">''</span>;</div><div·class="line"><a·name="l06247"></a><span·class="lineno">·6247</span> ····$postfix·.=·<span·class="charliteral">'Z'</span>·<span·class="keywordflow">if</span>·HasZ($t);</div><div·class="line"><a·name="l06248"></a><span·class="lineno">·6248</span> ····$postfix·.=·<span·class="charliteral">'M'</span>·<span·class="keywordflow">if</span>·HasM($t);</div><div·class="line"><a·name="l06249"></a><span·class="lineno">·6249</span> ····$t·=·i2s(geometry_type·=>·Flatten($t));</div><div·class="line"><a·name="l06250"></a><span·class="lineno">·6250</span> ····my·$points·=·shift;</div><div·class="line"><a·name="l06251"></a><span·class="lineno">·6251</span> ····<span·class="keywordflow">if</span>·($points)·{</div><div·class="line"><a·name="l06252"></a><span·class="lineno">·6252</span> ········Empty($self);</div><div·class="line"><a·name="l06253"></a><span·class="lineno">·6253</span> ········<span·class="keywordflow">if</span>·($t·eq·<span·class="stringliteral">'Unknown'</span>·or·$t·eq·<span·class="stringliteral">'None'</span>·or·$t·eq·<span·class="stringliteral">'GeometryCollection'</span>)·{</div><div·class="line"><a·name="l06254"></a><span·class="lineno">·6254</span> ············error(<span·class="stringliteral">"Can't·set·points·of·a·geometry·of·type·'$t'."</span>);</div><div·class="line"><a·name="l06255"></a><span·class="lineno">·6255</span> ········}·elsif·($t·eq·<span·class="stringliteral">'Point'</span>)·{</div><div·class="line"><a·name="l06256"></a><span·class="lineno">·6256</span> <span·class="preprocessor">············#·support·both·"Point"·as·a·list·of·one·point·and·one·point</span></div><div·class="line"><a·name="l06257"></a><span·class="lineno">·6257</span> ············<span·class="keywordflow">if</span>·(ref($points->[0]))·{</div><div·class="line"><a·name="l06258"></a><span·class="lineno">·6258</span> ················$self->AddPoint(@{$points->[0]});</div><div·class="line"><a·name="l06259"></a><span·class="lineno">·6259</span> ············}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06260"></a><span·class="lineno">·6260</span> ················$self->AddPoint(@$points);</div><div·class="line"><a·name="l06261"></a><span·class="lineno">·6261</span> ············}</div><div·class="line"><a·name="l06262"></a><span·class="lineno">·6262</span> ········}·elsif·($t·eq·<span·class="stringliteral">'LineString'</span>·or·$t·eq·<span·class="stringliteral">'LinearRing'</span>·or·$t·eq·<span·class="stringliteral">'CircularString'</span>)·{</div><div·class="line"><a·name="l06263"></a><span·class="lineno">·6263</span> ············<span·class="keywordflow">for</span>·my·$p·(@$points)·{</div><div·class="line"><a·name="l06264"></a><span·class="lineno">·6264</span> ················$self->AddPoint(@$p);</div><div·class="line"><a·name="l06265"></a><span·class="lineno">·6265</span> ············}</div><div·class="line"><a·name="l06266"></a><span·class="lineno">·6266</span> ········}·elsif·($t·eq·<span·class="stringliteral">'Polygon'</span>)·{</div><div·class="line"><a·name="l06267"></a><span·class="lineno">·6267</span> ············<span·class="keywordflow">for</span>·my·$r·(@$points)·{</div><div·class="line"><a·name="l06268"></a><span·class="lineno">·6268</span> ················my·$ring·=·<a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html">Geo::OGR::Geometry</a>-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a95c4be922b97e1067d68340871a617c8">new</a>(<span·class="stringliteral">'LinearRing'</span>);</div><div·class="line"><a·name="l06269"></a><span·class="lineno">·6269</span> ················$ring-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#ad285179d427c6021d22921ff62299ac0">Set3D</a>(1)·<span·class="keywordflow">if</span>·$has_z;</div><div·class="line"><a·name="l06270"></a><span·class="lineno">·6270</span> ················$ring->SetMeasured(1)·<span·class="keywordflow">if</span>·$has_m;</div><div·class="line"><a·name="l06271"></a><span·class="lineno">·6271</span> ················$ring->Points($r);</div><div·class="line"><a·name="l06272"></a><span·class="lineno">·6272</span> ················$self->AddGeometryDirectly($ring);</div><div·class="line"><a·name="l06273"></a><span·class="lineno">·6273</span> ············}</div><div·class="line"><a·name="l06274"></a><span·class="lineno">·6274</span> ········}·elsif·($t·eq·<span·class="stringliteral">'MultiPoint'</span>)·{</div><div·class="line"><a·name="l06275"></a><span·class="lineno">·6275</span> ············<span·class="keywordflow">for</span>·my·$p·(@$points)·{</div><div·class="line"><a·name="l06276"></a><span·class="lineno">·6276</span> ················my·$point·=·<a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html">Geo::OGR::Geometry</a>-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a95c4be922b97e1067d68340871a617c8">new</a>(<span·class="stringliteral">'Point'</span>.$postfix);</div><div·class="line"><a·name="l06277"></a><span·class="lineno">·6277</span> ················$point-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a41fca662edd1228dad2a654e2460e37c">Points</a>($p);</div><div·class="line"><a·name="l06278"></a><span·class="lineno">·6278</span> ················$self->AddGeometryDirectly($point);</div><div·class="line"><a·name="l06279"></a><span·class="lineno">·6279</span> ············}</div><div·class="line"><a·name="l06280"></a><span·class="lineno">·6280</span> ········}·elsif·($t·eq·<span·class="stringliteral">'MultiLineString'</span>)·{</div><div·class="line"><a·name="l06281"></a><span·class="lineno">·6281</span> ············<span·class="keywordflow">for</span>·my·$l·(@$points)·{</div><div·class="line"><a·name="l06282"></a><span·class="lineno">·6282</span> ················my·$linestring·=·<a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html">Geo::OGR::Geometry</a>-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a95c4be922b97e1067d68340871a617c8">new</a>(<span·class="stringliteral">'LineString'</span>.$postfix);</div><div·class="line"><a·name="l06283"></a><span·class="lineno">·6283</span> ················$linestring-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a41fca662edd1228dad2a654e2460e37c">Points</a>($l);</div><div·class="line"><a·name="l06284"></a><span·class="lineno">·6284</span> ················$self->AddGeometryDirectly($linestring);</div><div·class="line"><a·name="l06285"></a><span·class="lineno">·6285</span> ············}</div><div·class="line"><a·name="l06286"></a><span·class="lineno">·6286</span> ········}·elsif·($t·eq·<span·class="stringliteral">'MultiPolygon'</span>)·{</div><div·class="line"><a·name="l06287"></a><span·class="lineno">·6287</span> ············<span·class="keywordflow">for</span>·my·$p·(@$points)·{</div><div·class="line"><a·name="l06288"></a><span·class="lineno">·6288</span> ················my·$polygon·=·<a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html">Geo::OGR::Geometry</a>-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a95c4be922b97e1067d68340871a617c8">new</a>(<span·class="stringliteral">'Polygon'</span>.$postfix);</div><div·class="line"><a·name="l06289"></a><span·class="lineno">·6289</span> ················$polygon-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a41fca662edd1228dad2a654e2460e37c">Points</a>($p);</div><div·class="line"><a·name="l06290"></a><span·class="lineno">·6290</span> ················$self->AddGeometryDirectly($polygon);</div><div·class="line"><a·name="l06291"></a><span·class="lineno">·6291</span> ············}</div><div·class="line"><a·name="l06292"></a><span·class="lineno">·6292</span> ········}</div><div·class="line"><a·name="l06293"></a><span·class="lineno">·6293</span> ····}</div><div·class="line"><a·name="l06294"></a><span·class="lineno">·6294</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l06295"></a><span·class="lineno">·6295</span> ····$self->_GetPoints();</div><div·class="line"><a·name="l06296"></a><span·class="lineno">·6296</span> }</div><div·class="line"><a·name="l06297"></a><span·class="lineno">·6297</span> </div><div·class="line"><a·name="l06298"></a><span·class="lineno">·6298</span> <span·class="preprocessor">#**·@method·Polygonize()</span></div><div·class="line"><a·name="l06299"></a><span·class="lineno">·6299</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06300"></a><span·class="lineno">·6300</span> sub·Polygonize·{</div><div·class="line"><a·name="l06301"></a><span·class="lineno">·6301</span> }</div><div·class="line"><a·name="l06302"></a><span·class="lineno">·6302</span> </div><div·class="line"><a·name="l06303"></a><span·class="lineno">·6303</span> <span·class="preprocessor">#**·@method·RemoveGeometry()</span></div><div·class="line"><a·name="l06304"></a><span·class="lineno">·6304</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06305"></a><span·class="lineno">·6305</span> sub·RemoveGeometry·{</div><div·class="line"><a·name="l06306"></a><span·class="lineno">·6306</span> }</div><div·class="line"><a·name="l06307"></a><span·class="lineno">·6307</span> </div><div·class="line"><a·name="l06308"></a><span·class="lineno">·6308</span> <span·class="preprocessor">#**·@method·Segmentize($MaxLength)</span></div><div·class="line"><a·name="l06309"></a><span·class="lineno">·6309</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06310"></a><span·class="lineno">·6310</span> <span·class="preprocessor">#·Modify·the·geometry·such·it·has·no·segment·longer·than·the·given·length.</span></div><div·class="line"><a·name="l06311"></a><span·class="lineno">·6311</span> <span·class="preprocessor">#·@param·MaxLength·the·given·length</span></div><div·class="line"><a·name="l06312"></a><span·class="lineno">·6312</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06313"></a><span·class="lineno">·6313</span> sub·Segmentize·{</div><div·class="line"><a·name="l06314"></a><span·class="lineno">·6314</span> }</div><div·class="line"><a·name="l06315"></a><span·class="lineno">·6315</span> </div><div·class="line"><a·name="l06316"></a><span·class="lineno">·6316</span> <span·class="preprocessor">#**·@method·Set3D()</span></div><div·class="line"><a·name="l06317"></a><span·class="lineno">·6317</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06318"></a><span·class="lineno">·6318</span> sub·Set3D·{</div><div·class="line"><a·name="l06319"></a><span·class="lineno">·6319</span> }</div><div·class="line"><a·name="l06320"></a><span·class="lineno">·6320</span> </div><div·class="line"><a·name="l06321"></a><span·class="lineno">·6321</span> <span·class="preprocessor">#**·@method·SetCoordinateDimension($dimension)</span></div><div·class="line"><a·name="l06322"></a><span·class="lineno">·6322</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06323"></a><span·class="lineno">·6323</span> <span·class="preprocessor">#·@param·dimension</span></div><div·class="line"><a·name="l06324"></a><span·class="lineno">·6324</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06325"></a><span·class="lineno">·6325</span> sub·SetCoordinateDimension·{</div><div·class="line"><a·name="l06326"></a><span·class="lineno">·6326</span> }</div><div·class="line"><a·name="l06327"></a><span·class="lineno">·6327</span> </div><div·class="line"><a·name="l06328"></a><span·class="lineno">·6328</span> <span·class="preprocessor">#**·@method·SetMeasured()</span></div><div·class="line"><a·name="l06329"></a><span·class="lineno">·6329</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06330"></a><span·class="lineno">·6330</span> sub·SetMeasured·{</div><div·class="line"><a·name="l06331"></a><span·class="lineno">·6331</span> }</div><div·class="line"><a·name="l06332"></a><span·class="lineno">·6332</span> </div><div·class="line"><a·name="l06333"></a><span·class="lineno">·6333</span> <span·class="preprocessor">#**·@method·SetPoint($index,·$x,·$y,·$z)</span></div><div·class="line"><a·name="l06334"></a><span·class="lineno">·6334</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06335"></a><span·class="lineno">·6335</span> <span·class="preprocessor">#·Set·the·data·of·a·point·or·a·line·string.·Note·that·the·coordinate</span></div><div·class="line"><a·name="l06336"></a><span·class="lineno">·6336</span> <span·class="preprocessor">#·dimension·is·automatically·upgraded·to·25D·(3)·if·z·is·given.</span></div><div·class="line"><a·name="l06337"></a><span·class="lineno">·6337</span> <span·class="preprocessor">#·@param·index</span></div><div·class="line"><a·name="l06338"></a><span·class="lineno">·6338</span> <span·class="preprocessor">#·@param·x</span></div><div·class="line"><a·name="l06339"></a><span·class="lineno">·6339</span> <span·class="preprocessor">#·@param·y</span></div><div·class="line"><a·name="l06340"></a><span·class="lineno">·6340</span> <span·class="preprocessor">#·@param·z·[optional]</span></div><div·class="line"><a·name="l06341"></a><span·class="lineno">·6341</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06342"></a><span·class="lineno">·6342</span> sub·SetPoint·{</div><div·class="line"><a·name="l06343"></a><span·class="lineno">·6343</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06344"></a><span·class="lineno">·6344</span> ····my·$t·=·$self->GetGeometryType;</div><div·class="line"><a·name="l06345"></a><span·class="lineno">·6345</span> ····my·$has_z·=·HasZ($t);</div><div·class="line"><a·name="l06346"></a><span·class="lineno">·6346</span> ····my·$has_m·=·HasM($t);</div><div·class="line"><a·name="l06347"></a><span·class="lineno">·6347</span> ····<span·class="keywordflow">if</span>·(!$has_z·&&·!$has_m)·{</div><div·class="line"><a·name="l06348"></a><span·class="lineno">·6348</span> ········$self->SetPoint_2D(@_[0..2]);</div><div·class="line"><a·name="l06349"></a><span·class="lineno">·6349</span> ····}·elsif·($has_z·&&·!$has_m)·{</div><div·class="line"><a·name="l06350"></a><span·class="lineno">·6350</span> ········$self->SetPoint_3D(@_[0..3]);</div><div·class="line"><a·name="l06351"></a><span·class="lineno">·6351</span> ····}·elsif·(!$has_z·&&·$has_m)·{</div><div·class="line"><a·name="l06352"></a><span·class="lineno">·6352</span> ········$self->SetPointM(@_[0..3]);</div><div·class="line"><a·name="l06353"></a><span·class="lineno">·6353</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06354"></a><span·class="lineno">·6354</span> ········$self->SetPointZM(@_[0..4]);</div><div·class="line"><a·name="l06355"></a><span·class="lineno">·6355</span> ····}</div><div·class="line"><a·name="l06356"></a><span·class="lineno">·6356</span> }</div><div·class="line"><a·name="l06357"></a><span·class="lineno">·6357</span> </div><div·class="line"><a·name="l06358"></a><span·class="lineno">·6358</span> <span·class="preprocessor">#**·@method·SetPointM()</span></div><div·class="line"><a·name="l06359"></a><span·class="lineno">·6359</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06360"></a><span·class="lineno">·6360</span> sub·SetPointM·{</div><div·class="line"><a·name="l06361"></a><span·class="lineno">·6361</span> }</div><div·class="line"><a·name="l06362"></a><span·class="lineno">·6362</span> </div><div·class="line"><a·name="l06363"></a><span·class="lineno">·6363</span> <span·class="preprocessor">#**·@method·SetPointZM()</span></div><div·class="line"><a·name="l06364"></a><span·class="lineno">·6364</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06365"></a><span·class="lineno">·6365</span> sub·SetPointZM·{</div><div·class="line"><a·name="l06366"></a><span·class="lineno">·6366</span> }</div><div·class="line"><a·name="l06367"></a><span·class="lineno">·6367</span> </div><div·class="line"><a·name="l06368"></a><span·class="lineno">·6368</span> <span·class="preprocessor">#**·@method·SetPoint_2D($index,·$x,·$y)</span></div><div·class="line"><a·name="l06369"></a><span·class="lineno">·6369</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06370"></a><span·class="lineno">·6370</span> <span·class="preprocessor">#·@param·index</span></div><div·class="line"><a·name="l06371"></a><span·class="lineno">·6371</span> <span·class="preprocessor">#·@param·x</span></div><div·class="line"><a·name="l06372"></a><span·class="lineno">·6372</span> <span·class="preprocessor">#·@param·y</span></div><div·class="line"><a·name="l06373"></a><span·class="lineno">·6373</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06374"></a><span·class="lineno">·6374</span> sub·SetPoint_2D·{</div><div·class="line"><a·name="l06375"></a><span·class="lineno">·6375</span> }</div><div·class="line"><a·name="l06376"></a><span·class="lineno">·6376</span> </div><div·class="line"><a·name="l06377"></a><span·class="lineno">·6377</span> <span·class="preprocessor">#**·@method·SetPoint_3D($index,·$x,·$y,·$z)</span></div><div·class="line"><a·name="l06378"></a><span·class="lineno">·6378</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06379"></a><span·class="lineno">·6379</span> <span·class="preprocessor">#·Set·the·data·of·a·point·or·a·line·string.·Note·that·the·coordinate</span></div><div·class="line"><a·name="l06380"></a><span·class="lineno">·6380</span> <span·class="preprocessor">#·dimension·is·automatically·upgraded·to·25D·(3).</span></div><div·class="line"><a·name="l06381"></a><span·class="lineno">·6381</span> <span·class="preprocessor">#·@param·index</span></div><div·class="line"><a·name="l06382"></a><span·class="lineno">·6382</span> <span·class="preprocessor">#·@param·x</span></div><div·class="line"><a·name="l06383"></a><span·class="lineno">·6383</span> <span·class="preprocessor">#·@param·y</span></div><div·class="line"><a·name="l06384"></a><span·class="lineno">·6384</span> <span·class="preprocessor">#·@param·z</span></div><div·class="line"><a·name="l06385"></a><span·class="lineno">·6385</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06386"></a><span·class="lineno">·6386</span> sub·SetPoint_3D·{</div><div·class="line"><a·name="l06387"></a><span·class="lineno">·6387</span> }</div><div·class="line"><a·name="l06388"></a><span·class="lineno">·6388</span> </div><div·class="line"><a·name="l06389"></a><span·class="lineno">·6389</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·Simplify($Tolerance)</span></div><div·class="line"><a·name="l06390"></a><span·class="lineno">·6390</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06391"></a><span·class="lineno">·6391</span> <span·class="preprocessor">#·Simplify·the·geometry.</span></div><div·class="line"><a·name="l06392"></a><span·class="lineno">·6392</span> <span·class="preprocessor">#·@param·Tolerance·the·length·tolerance·for·the·simplification</span></div><div·class="line"><a·name="l06393"></a><span·class="lineno">·6393</span> <span·class="preprocessor">#·@since·1.8.0</span></div><div·class="line"><a·name="l06394"></a><span·class="lineno">·6394</span> <span·class="preprocessor">#·@return·a·new·Geo::OSR::Geometry·object</span></div><div·class="line"><a·name="l06395"></a><span·class="lineno">·6395</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06396"></a><span·class="lineno">·6396</span> sub·Simplify·{</div><div·class="line"><a·name="l06397"></a><span·class="lineno">·6397</span> }</div><div·class="line"><a·name="l06398"></a><span·class="lineno">·6398</span> </div><div·class="line"><a·name="l06399"></a><span·class="lineno">·6399</span> <span·class="preprocessor">#**·@method·SimplifyPreserveTopology()</span></div><div·class="line"><a·name="l06400"></a><span·class="lineno">·6400</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06401"></a><span·class="lineno">·6401</span> sub·SimplifyPreserveTopology·{</div><div·class="line"><a·name="l06402"></a><span·class="lineno">·6402</span> }</div><div·class="line"><a·name="l06403"></a><span·class="lineno">·6403</span> </div><div·class="line"><a·name="l06404"></a><span·class="lineno">·6404</span> <span·class="preprocessor">#**·@method·SwapXY()</span></div><div·class="line"><a·name="l06405"></a><span·class="lineno">·6405</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06406"></a><span·class="lineno">·6406</span> sub·SwapXY·{</div><div·class="line"><a·name="l06407"></a><span·class="lineno">·6407</span> }</div><div·class="line"><a·name="l06408"></a><span·class="lineno">·6408</span> </div><div·class="line"><a·name="l06409"></a><span·class="lineno">·6409</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·SymDifference($other)</span></div><div·class="line"><a·name="l06410"></a><span·class="lineno">·6410</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06411"></a><span·class="lineno">·6411</span> <span·class="preprocessor">#·Compute·symmetric·difference.</span></div><div·class="line"><a·name="l06412"></a><span·class="lineno">·6412</span> <span·class="preprocessor">#·@note·a.k.a.·SymmetricDifference</span></div><div·class="line"><a·name="l06413"></a><span·class="lineno">·6413</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l06414"></a><span·class="lineno">·6414</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l06415"></a><span·class="lineno">·6415</span> <span·class="preprocessor">#·@since·1.8.0</span></div><div·class="line"><a·name="l06416"></a><span·class="lineno">·6416</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06417"></a><span·class="lineno">·6417</span> sub·SymDifference·{</div><div·class="line"><a·name="l06418"></a><span·class="lineno">·6418</span> }</div><div·class="line"><a·name="l06419"></a><span·class="lineno">·6419</span> </div><div·class="line"><a·name="l06420"></a><span·class="lineno">·6420</span> <span·class="preprocessor">#**·@method·scalar·Touches($other)</span></div><div·class="line"><a·name="l06421"></a><span·class="lineno">·6421</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06422"></a><span·class="lineno">·6422</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l06423"></a><span·class="lineno">·6423</span> <span·class="preprocessor">#·@return·true·if·this·geometry·touches·the·other·geometry,·false·otherwise</span></div><div·class="line"><a·name="l06424"></a><span·class="lineno">·6424</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06425"></a><span·class="lineno">·6425</span> sub·Touches·{</div><div·class="line"><a·name="l06426"></a><span·class="lineno">·6426</span> }</div><div·class="line"><a·name="l06427"></a><span·class="lineno">·6427</span> </div><div·class="line"><a·name="l06428"></a><span·class="lineno">·6428</span> <span·class="preprocessor">#**·@method·Transform($trans)</span></div><div·class="line"><a·name="l06429"></a><span·class="lineno">·6429</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06430"></a><span·class="lineno">·6430</span> <span·class="preprocessor">#·@param·trans·a·Geo::OSR::CoordinateTransformation·object</span></div><div·class="line"><a·name="l06431"></a><span·class="lineno">·6431</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06432"></a><span·class="lineno">·6432</span> sub·Transform·{</div><div·class="line"><a·name="l06433"></a><span·class="lineno">·6433</span> }</div><div·class="line"><a·name="l06434"></a><span·class="lineno">·6434</span> </div><div·class="line"><a·name="l06435"></a><span·class="lineno">·6435</span> <span·class="preprocessor">#**·@method·TransformTo($srs)</span></div><div·class="line"><a·name="l06436"></a><span·class="lineno">·6436</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06437"></a><span·class="lineno">·6437</span> <span·class="preprocessor">#·@param·srs·a·Geo::OSR::SpatialReference·object</span></div><div·class="line"><a·name="l06438"></a><span·class="lineno">·6438</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06439"></a><span·class="lineno">·6439</span> sub·TransformTo·{</div><div·class="line"><a·name="l06440"></a><span·class="lineno">·6440</span> }</div><div·class="line"><a·name="l06441"></a><span·class="lineno">·6441</span> </div><div·class="line"><a·name="l06442"></a><span·class="lineno">·6442</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·Union($other)</span></div><div·class="line"><a·name="l06443"></a><span·class="lineno">·6443</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06444"></a><span·class="lineno">·6444</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l06445"></a><span·class="lineno">·6445</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l06446"></a><span·class="lineno">·6446</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06447"></a><span·class="lineno">·6447</span> sub·Union·{</div><div·class="line"><a·name="l06448"></a><span·class="lineno">·6448</span> }</div><div·class="line"><a·name="l06449"></a><span·class="lineno">·6449</span> </div><div·class="line"><a·name="l06450"></a><span·class="lineno">·6450</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·UnionCascaded()</span></div><div·class="line"><a·name="l06451"></a><span·class="lineno">·6451</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06452"></a><span·class="lineno">·6452</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l06453"></a><span·class="lineno">·6453</span> <span·class="preprocessor">#·@since·1.8.0</span></div><div·class="line"><a·name="l06454"></a><span·class="lineno">·6454</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06455"></a><span·class="lineno">·6455</span> sub·UnionCascaded·{</div><div·class="line"><a·name="l06456"></a><span·class="lineno">·6456</span> }</div><div·class="line"><a·name="l06457"></a><span·class="lineno">·6457</span> </div><div·class="line"><a·name="l06458"></a><span·class="lineno">·6458</span> <span·class="preprocessor">#**·@method·Value()</span></div><div·class="line"><a·name="l06459"></a><span·class="lineno">·6459</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06460"></a><span·class="lineno">·6460</span> sub·Value·{</div><div·class="line"><a·name="l06461"></a><span·class="lineno">·6461</span> }</div><div·class="line"><a·name="l06462"></a><span·class="lineno">·6462</span> </div><div·class="line"><a·name="l06463"></a><span·class="lineno">·6463</span> <span·class="preprocessor">#**·@method·scalar·Within($other)</span></div><div·class="line"><a·name="l06464"></a><span·class="lineno">·6464</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06465"></a><span·class="lineno">·6465</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l06466"></a><span·class="lineno">·6466</span> <span·class="preprocessor">#·@return·true·if·this·geometry·is·within·the·other·geometry,·false·otherwise</span></div><div·class="line"><a·name="l06467"></a><span·class="lineno">·6467</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06468"></a><span·class="lineno">·6468</span> sub·Within·{</div><div·class="line"><a·name="l06469"></a><span·class="lineno">·6469</span> }</div><div·class="line"><a·name="l06470"></a><span·class="lineno">·6470</span> </div><div·class="line"><a·name="l06471"></a><span·class="lineno">·6471</span> <span·class="preprocessor">#**·@method·scalar·WkbSize()</span></div><div·class="line"><a·name="l06472"></a><span·class="lineno">·6472</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06473"></a><span·class="lineno">·6473</span> <span·class="preprocessor">#·@return·an·integer</span></div><div·class="line"><a·name="l06474"></a><span·class="lineno">·6474</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06475"></a><span·class="lineno">·6475</span> sub·WkbSize·{</div><div·class="line"><a·name="l06476"></a><span·class="lineno">·6476</span> }</div><div·class="line"><a·name="l06477"></a><span·class="lineno">·6477</span> </div><div·class="line"><a·name="l06478"></a><span·class="lineno">·6478</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·new(%params)</span></div><div·class="line"><a·name="l06479"></a><span·class="lineno">·6479</span> <span·class="preprocessor">#·Class·method.</span></div><div·class="line"><a·name="l06480"></a><span·class="lineno">·6480</span> <span·class="preprocessor">#·@param·%params·A·named·parameter,·one·of:</span></div><div·class="line"><a·name="l06481"></a><span·class="lineno">·6481</span> <span·class="preprocessor">#·-·\a·GeometryType·one·the·supported·geometry·types,·see·Geo::OGR::GeometryTypes.</span></div><div·class="line"><a·name="l06482"></a><span·class="lineno">·6482</span> <span·class="preprocessor">#·-·\a·WKT·a·well·known·text·string,·which·defines·a·geometry.</span></div><div·class="line"><a·name="l06483"></a><span·class="lineno">·6483</span> <span·class="preprocessor">#·-·\a·WKB·a·well·known·binary·string,·which·defines·a·geometry.</span></div><div·class="line"><a·name="l06484"></a><span·class="lineno">·6484</span> <span·class="preprocessor">#·-·\a·HEXWKB·WKB·in·hexadecimal.</span></div><div·class="line"><a·name="l06485"></a><span·class="lineno">·6485</span> <span·class="preprocessor">#·-·\a·HEXEWKB·PostGIS·extended·WKB.</span></div><div·class="line"><a·name="l06486"></a><span·class="lineno">·6486</span> <span·class="preprocessor">#·-·\a·GML·geometry·written·in·Geographic·Markup·Language.</span></div><div·class="line"><a·name="l06487"></a><span·class="lineno">·6487</span> <span·class="preprocessor">#·-·\a·GeoJSON·geometry·written·in·GeoJSON·(JavaScript·Object·Notation·for·Geographic·data).</span></div><div·class="line"><a·name="l06488"></a><span·class="lineno">·6488</span> <span·class="preprocessor">#·-·\a·arc·a·reference·to·a·list·of·values·defining·an·arc:·[CenterX,</span></div><div·class="line"><a·name="l06489"></a><span·class="lineno">·6489</span> <span·class="preprocessor">#····CenterY,·CenterZ,·PrimaryRadius,·SecondaryRadius,·Rotation,</span></div><div·class="line"><a·name="l06490"></a><span·class="lineno">·6490</span> <span·class="preprocessor">#····StartAngle,·EndAngle,·MaxAngleStepSizeDegrees]·(see·also·Geo::OGR::Geometry::ApproximateArcAngles)</span></div><div·class="line"><a·name="l06491"></a><span·class="lineno">·6491</span> <span·class="preprocessor">#·-·\a·Points·An·anonymous·array·as·in·method</span></div><div·class="line"><a·name="l06492"></a><span·class="lineno">·6492</span> <span·class="preprocessor">#······Geo::OGR::Geometry::Points;·Note:·requires·also·GeometryType</span></div><div·class="line"><a·name="l06493"></a><span·class="lineno">·6493</span> <span·class="preprocessor">#······parameter</span></div><div·class="line"><a·name="l06494"></a><span·class="lineno">·6494</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06495"></a><span·class="lineno">·6495</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object.</span></div><div·class="line"><a·name="l06496"></a><span·class="lineno">·6496</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06497"></a><span·class="lineno">·6497</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l06498"></a><span·class="lineno">·6498</span> ····my·$pkg·=·shift;</div><div·class="line"><a·name="l06499"></a><span·class="lineno">·6499</span> ····my·%param;</div><div·class="line"><a·name="l06500"></a><span·class="lineno">·6500</span> ····<span·class="keywordflow">if</span>·(@_·==·1·and·ref($_[0])·eq·<span·class="stringliteral">'HASH'</span>)·{</div><div·class="line"><a·name="l06501"></a><span·class="lineno">·6501</span> ········%param·=·%{$_[0]};</div><div·class="line"><a·name="l06502"></a><span·class="lineno">·6502</span> ····}·elsif·(@_·%·2·==·0)·{</div><div·class="line"><a·name="l06503"></a><span·class="lineno">·6503</span> ········%param·=·@_;</div><div·class="line"><a·name="l06504"></a><span·class="lineno">·6504</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06505"></a><span·class="lineno">·6505</span> ········($param{GeometryType})·=·@_;</div><div·class="line"><a·name="l06506"></a><span·class="lineno">·6506</span> ····}</div><div·class="line"><a·name="l06507"></a><span·class="lineno">·6507</span> ····my·$type·=·$param{GeometryType}·<span·class="comment">//·$param{Type}·//·$param{type};</span></div><div·class="line"><a·name="l06508"></a><span·class="lineno">·6508</span> ····my·$srs·=·$param{SRS}·<span·class="comment">//·$param{srs};</span></div><div·class="line"><a·name="l06509"></a><span·class="lineno">·6509</span> ····my·$wkt·=·$param{WKT}·<span·class="comment">//·$param{wkt};</span></div><div·class="line"><a·name="l06510"></a><span·class="lineno">·6510</span> ····my·$wkb·=·$param{WKB}·<span·class="comment">//·$param{wkb};</span></div><div·class="line"><a·name="l06511"></a><span·class="lineno">·6511</span> ····my·$hex·=·$param{HEXEWKB}·<span·class="comment">//·$param{HEX_EWKB}·//·$param{hexewkb}·//·$param{hex_ewkb};</span></div><div·class="line"><a·name="l06512"></a><span·class="lineno">·6512</span> ····my·$srid;</div><div·class="line"><a·name="l06513"></a><span·class="lineno">·6513</span> ····<span·class="keywordflow">if</span>·($hex)·{</div><div·class="line"><a·name="l06514"></a><span·class="lineno">·6514</span> <span·class="preprocessor">········#·EWKB·contains·SRID</span></div><div·class="line"><a·name="l06515"></a><span·class="lineno">·6515</span> ········$srid·=·substr($hex,·10,·8);</div><div·class="line"><a·name="l06516"></a><span·class="lineno">·6516</span> ········substr($hex,·10,·8)·=·<span·class="stringliteral">''</span>;</div><div·class="line"><a·name="l06517"></a><span·class="lineno">·6517</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06518"></a><span·class="lineno">·6518</span> ········$hex·=·$param{HEXWKB}·<span·class="comment">//·$param{HEX_WKB}·//·$param{hexwkb}·//·$param{hex_wkb};</span></div><div·class="line"><a·name="l06519"></a><span·class="lineno">·6519</span> ····}</div><div·class="line"><a·name="l06520"></a><span·class="lineno">·6520</span> ····<span·class="keywordflow">if</span>·($hex)·{</div><div·class="line"><a·name="l06521"></a><span·class="lineno">·6521</span> ········$wkb·=·<span·class="stringliteral">''</span>;</div><div·class="line"><a·name="l06522"></a><span·class="lineno">·6522</span> ········<span·class="keywordflow">for</span>·(my·$i·=·0;·$i·<·length($hex);·$i+=2)·{</div><div·class="line"><a·name="l06523"></a><span·class="lineno">·6523</span> ············$wkb·.=·chr(hex(substr($hex,$i,2)));</div><div·class="line"><a·name="l06524"></a><span·class="lineno">·6524</span> ········}</div><div·class="line"><a·name="l06525"></a><span·class="lineno">·6525</span> ····}</div><div·class="line"><a·name="l06526"></a><span·class="lineno">·6526</span> ····my·$gml·=·$param{GML}·<span·class="comment">//·$param{gml};</span></div><div·class="line"><a·name="l06527"></a><span·class="lineno">·6527</span> ····my·$json·=·$param{GeoJSON}·<span·class="comment">//·$param{geojson}·//·$param{JSON}·//·$param{json};</span></div><div·class="line"><a·name="l06528"></a><span·class="lineno">·6528</span> ····my·$points·=·$param{Points}·<span·class="comment">//·$param{points};</span></div><div·class="line"><a·name="l06529"></a><span·class="lineno">·6529</span> ····my·$arc·=·$param{Arc}·<span·class="comment">//·$param{arc};</span></div><div·class="line"><a·name="l06530"></a><span·class="lineno">·6530</span> ····my·$self;</div><div·class="line"><a·name="l06531"></a><span·class="lineno">·6531</span> ····<span·class="keywordflow">if</span>·(defined·$wkt)·{</div><div·class="line"><a·name="l06532"></a><span·class="lineno">·6532</span> ········$self·=·Geo::OGRc::CreateGeometryFromWkt($wkt,·$srs);</div><div·class="line"><a·name="l06533"></a><span·class="lineno">·6533</span> ····}·elsif·(defined·$wkb)·{</div><div·class="line"><a·name="l06534"></a><span·class="lineno">·6534</span> ········$self·=·Geo::OGRc::CreateGeometryFromWkb($wkb,·$srs);</div><div·class="line"><a·name="l06535"></a><span·class="lineno">·6535</span> ····}·elsif·(defined·$gml)·{</div><div·class="line"><a·name="l06536"></a><span·class="lineno">·6536</span> ········$self·=·Geo::OGRc::CreateGeometryFromGML($gml);</div><div·class="line"><a·name="l06537"></a><span·class="lineno">·6537</span> ····}·elsif·(defined·$json)·{</div><div·class="line"><a·name="l06538"></a><span·class="lineno">·6538</span> ········$self·=·Geo::OGRc::CreateGeometryFromJson($json);</div><div·class="line"><a·name="l06539"></a><span·class="lineno">·6539</span> ····}·elsif·(defined·$type)·{</div><div·class="line"><a·name="l06540"></a><span·class="lineno">·6540</span> ········$type·=·s2i(geometry_type·=>·$type);</div><div·class="line"><a·name="l06541"></a><span·class="lineno">·6541</span> ········$self·=·Geo::OGRc::new_Geometry($type);·#·flattens·the·type</div><div·class="line"><a·name="l06542"></a><span·class="lineno">·6542</span> ········$self->Set3D(1)·<span·class="keywordflow">if</span>·HasZ($type);</div><div·class="line"><a·name="l06543"></a><span·class="lineno">·6543</span> ········$self->SetMeasured(1)·<span·class="keywordflow">if</span>·HasM($type);</div><div·class="line"><a·name="l06544"></a><span·class="lineno">·6544</span> ····}·elsif·(defined·$arc)·{</div><div·class="line"><a·name="l06545"></a><span·class="lineno">·6545</span> ········$self·=·Geo::OGRc::ApproximateArcAngles(@$arc);</div><div·class="line"><a·name="l06546"></a><span·class="lineno">·6546</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06547"></a><span·class="lineno">·6547</span> ········error(1,·undef,·map·{$_=>1}·qw/GeometryType·WKT·WKB·HEXEWKB·HEXWKB·GML·GeoJSON·Arc/);</div><div·class="line"><a·name="l06548"></a><span·class="lineno">·6548</span> ····}</div><div·class="line"><a·name="l06549"></a><span·class="lineno">·6549</span> ····bless·$self,·$pkg·<span·class="keywordflow">if</span>·defined·$self;</div><div·class="line"><a·name="l06550"></a><span·class="lineno">·6550</span> ····$self->Points($points)·<span·class="keywordflow">if</span>·$points;</div><div·class="line"><a·name="l06551"></a><span·class="lineno">·6551</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l06552"></a><span·class="lineno">·6552</span> }</div><div·class="line"><a·name="l06553"></a><span·class="lineno">·6553</span> </div><div·class="line"><a·name="l06554"></a><span·class="lineno">·6554</span> <span·class="preprocessor">#**·@class·Geo::OGR::Layer</span></div><div·class="line"><a·name="l06555"></a><span·class="lineno">·6555</span> <span·class="preprocessor">#·@brief·A·collection·of·similar·features.</span></div><div·class="line"><a·name="l06556"></a><span·class="lineno">·6556</span> <span·class="preprocessor">#·@details·A·layer·object·is·typically·obtained·with·a·data·source·object.·A</span></div><div·class="line"><a·name="l06557"></a><span·class="lineno">·6557</span> <span·class="preprocessor">#·layer·has·a·data·model·(a·schema),·which·is·maintained·in·a</span></div><div·class="line"><a·name="l06558"></a><span·class="lineno">·6558</span> <span·class="preprocessor">#·definition·object,·and·a·set·of·features,·which·contain·data</span></div><div·class="line"><a·name="l06559"></a><span·class="lineno">·6559</span> <span·class="preprocessor">#·according·to·the·data·model.·The·schema·is·typically·set·when·the</span></div><div·class="line"><a·name="l06560"></a><span·class="lineno">·6560</span> <span·class="preprocessor">#·layer·is·created·or·opened,·but·it·may·be·altered·somewhat·with</span></div><div·class="line"><a·name="l06561"></a><span·class="lineno">·6561</span> <span·class="preprocessor">#·methods·Geo::OGR::Layer::CreateField,</span></div><div·class="line"><a·name="l06562"></a><span·class="lineno">·6562</span> <span·class="preprocessor">#·Geo::OGR::Layer::AlterFieldDefn,·and</span></div><div·class="line"><a·name="l06563"></a><span·class="lineno">·6563</span> <span·class="preprocessor">#·Geo::OGR::Layer::DeleteField.·Features·and/or·their·data·can·be</span></div><div·class="line"><a·name="l06564"></a><span·class="lineno">·6564</span> <span·class="preprocessor">#·read,·inserted·and·deleted.·Reading·can·be·filtered.·Layers·can·be</span></div><div·class="line"><a·name="l06565"></a><span·class="lineno">·6565</span> <span·class="preprocessor">#·compared·to·each·other·with·methods·Clip,·Erase,·Identity,</span></div><div·class="line"><a·name="l06566"></a><span·class="lineno">·6566</span> <span·class="preprocessor">#·Intersection,·SymDifference,·Union,·and·Update.</span></div><div·class="line"><a·name="l06567"></a><span·class="lineno">·6567</span> <span·class="preprocessor">#·A·layer·may·have·metadata·OLMD_FID64·=>·'YES'·if·it·holds·features</span></div><div·class="line"><a·name="l06568"></a><span·class="lineno">·6568</span> <span·class="preprocessor">#·with·64·bit·FIDs.·The·metadata·of·a·layer·can·be·obtained·with</span></div><div·class="line"><a·name="l06569"></a><span·class="lineno">·6569</span> <span·class="preprocessor">#·GetMetadata·method.</span></div><div·class="line"><a·name="l06570"></a><span·class="lineno">·6570</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06571"></a><span·class="lineno">·6571</span> <span·class="keyword">package·</span>Geo::OGR::Layer;</div><div·class="line"><a·name="l06572"></a><span·class="lineno">·6572</span> </div><div·class="line"><a·name="l06573"></a><span·class="lineno">·6573</span> use·base·qw(<a·class="code"·href="classGeo_1_1GDAL_1_1MajorObject.html">Geo::GDAL::MajorObject</a>·<a·class="code"·href="namespaceGeo_1_1OGR.html">Geo::OGR</a>)</div><div·class="line"><a·name="l06574"></a><span·class="lineno">·6574</span> </div><div·class="line"><a·name="l06575"></a><span·class="lineno">·6575</span> <span·class="preprocessor">#**·@method·AlterFieldDefn($name,·%params)</span></div><div·class="line"><a·name="l06576"></a><span·class="lineno">·6576</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06577"></a><span·class="lineno">·6577</span> <span·class="preprocessor">#·@param·field·the·name·of·the·field·to·be·altered.</span></div><div·class="line"><a·name="l06578"></a><span·class="lineno">·6578</span> <span·class="preprocessor">#·@param·params·as·in·Geo::OGR::FieldDefn::new.·Width·and</span></div><div·class="line"><a·name="l06579"></a><span·class="lineno">·6579</span> <span·class="preprocessor">#·Precision·should·be·both·or·neither.</span></div><div·class="line"><a·name="l06580"></a><span·class="lineno">·6580</span> <span·class="preprocessor">#·@note·Only·non-spatial·fields·can·be·altered.</span></div><div·class="line"><a·name="l06581"></a><span·class="lineno">·6581</span> <span·class="preprocessor">#·@note·Also·the·deprecated·form·AlterFieldDefn($field,</span></div><div·class="line"><a·name="l06582"></a><span·class="lineno">·6582</span> <span·class="preprocessor">#·Geo::OGR::FieldDefn·$Defn,·$Flags)·works.</span></div><div·class="line"><a·name="l06583"></a><span·class="lineno">·6583</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06584"></a><span·class="lineno">·6584</span> sub·AlterFieldDefn·{</div><div·class="line"><a·name="l06585"></a><span·class="lineno">·6585</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06586"></a><span·class="lineno">·6586</span> ····my·$index·=·$self->GetLayerDefn->GetFieldIndex(shift·<span·class="comment">//·0);</span></div><div·class="line"><a·name="l06587"></a><span·class="lineno">·6587</span> ····my·$param·=·@_·%·2·==·0·?·{@_}·:·shift;</div><div·class="line"><a·name="l06588"></a><span·class="lineno">·6588</span> ····<span·class="keywordflow">if</span>·(blessed($param)·and·$param->isa(<span·class="stringliteral">'Geo::OGR::FieldDefn'</span>))·{</div><div·class="line"><a·name="l06589"></a><span·class="lineno">·6589</span> ········_AlterFieldDefn($self,·$index,·@_);</div><div·class="line"><a·name="l06590"></a><span·class="lineno">·6590</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06591"></a><span·class="lineno">·6591</span> ········my·$definition·=·<a·class="code"·href="classGeo_1_1OGR_1_1FieldDefn.html">Geo::OGR::FieldDefn</a>-><a·class="code"·href="classGeo_1_1OGR_1_1FieldDefn.html#a02f94b3023e631aad8574caf0eff8491">new</a>($param);</div><div·class="line"><a·name="l06592"></a><span·class="lineno">·6592</span> ········my·$flags·=·0;</div><div·class="line"><a·name="l06593"></a><span·class="lineno">·6593</span> ········$flags·|=·1·<span·class="keywordflow">if</span>·exists·$param->{Name};</div><div·class="line"><a·name="l06594"></a><span·class="lineno">·6594</span> ········$flags·|=·2·<span·class="keywordflow">if</span>·exists·$param->{Type};</div><div·class="line"><a·name="l06595"></a><span·class="lineno">·6595</span> ········$flags·|=·4·<span·class="keywordflow">if</span>·exists·$param->{Width}·or·exists·$param->{Precision};</div><div·class="line"><a·name="l06596"></a><span·class="lineno">·6596</span> ········$flags·|=·8·<span·class="keywordflow">if</span>·exists·$param->{Nullable};</div><div·class="line"><a·name="l06597"></a><span·class="lineno">·6597</span> ········$flags·|=·16·<span·class="keywordflow">if</span>·exists·$param->{Default};</div><div·class="line"><a·name="l06598"></a><span·class="lineno">·6598</span> ········_AlterFieldDefn($self,·$index,·$definition,·$flags);</div><div·class="line"><a·name="l06599"></a><span·class="lineno">·6599</span> ····}</div><div·class="line"><a·name="l06600"></a><span·class="lineno">·6600</span> }</div><div·class="line"><a·name="l06601"></a><span·class="lineno">·6601</span> </div><div·class="line"><a·name="l06602"></a><span·class="lineno">·6602</span> <span·class="preprocessor">#**·@method·list·Capabilities()</span></div><div·class="line"><a·name="l06603"></a><span·class="lineno">·6603</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06604"></a><span·class="lineno">·6604</span> <span·class="preprocessor">#·Both·a·package·subroutine·and·an·object·method.</span></div><div·class="line"><a·name="l06605"></a><span·class="lineno">·6605</span> <span·class="preprocessor">#·@return·a·list·of·capabilities.·The·object·method·returns·a·list·of</span></div><div·class="line"><a·name="l06606"></a><span·class="lineno">·6606</span> <span·class="preprocessor">#·the·capabilities·the·layer·has.·The·package·subroutine·returns·a·list·of</span></div><div·class="line"><a·name="l06607"></a><span·class="lineno">·6607</span> <span·class="preprocessor">#·all·potential·capabilities·a·layer·may·have.·These·are·currently:</span></div><div·class="line"><a·name="l06608"></a><span·class="lineno">·6608</span> <span·class="preprocessor">#·AlterFieldDefn,·CreateField,·CreateGeomField,·CurveGeometries,·DeleteFeature,·DeleteField,·FastFeatureCount,·FastGetExtent,·FastSetNextByIndex,·FastSpatialFilter,·IgnoreFields,·MeasuredGeometries,·RandomRead,·RandomWrite,·ReorderFields,·SequentialWrite,·StringsAsUTF8,·and·Transactions.</span></div><div·class="line"><a·name="l06609"></a><span·class="lineno">·6609</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06610"></a><span·class="lineno">·6610</span> <span·class="preprocessor">#·Examples:</span></div><div·class="line"><a·name="l06611"></a><span·class="lineno">·6611</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l06612"></a><span·class="lineno">·6612</span> <span·class="preprocessor">#·@cap·=·Geo::OGR::Layer::Capabilities();·#·the·package·subroutine</span></div><div·class="line"><a·name="l06613"></a><span·class="lineno">·6613</span> <span·class="preprocessor">#·@cap·=·$layer->Capabilities();·#·the·object·method</span></div><div·class="line"><a·name="l06614"></a><span·class="lineno">·6614</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l06615"></a><span·class="lineno">·6615</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06616"></a><span·class="lineno">·6616</span> sub·Capabilities·{</div><div·class="line"><a·name="l06617"></a><span·class="lineno">·6617</span> ····<span·class="keywordflow">return</span>·@CAPABILITIES·<span·class="keywordflow">if</span>·@_·==·0;</div><div·class="line"><a·name="l06618"></a><span·class="lineno">·6618</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06619"></a><span·class="lineno">·6619</span> ····my·@cap;</div><div·class="line"><a·name="l06620"></a><span·class="lineno">·6620</span> ····<span·class="keywordflow">for</span>·my·$cap·(@CAPABILITIES)·{</div><div·class="line"><a·name="l06621"></a><span·class="lineno">·6621</span> ········push·@cap,·$cap·<span·class="keywordflow">if</span>·_TestCapability($self,·$CAPABILITIES{$cap});</div><div·class="line"><a·name="l06622"></a><span·class="lineno">·6622</span> ····}</div><div·class="line"><a·name="l06623"></a><span·class="lineno">·6623</span> ····<span·class="keywordflow">return</span>·@cap;</div><div·class="line"><a·name="l06624"></a><span·class="lineno">·6624</span> }</div><div·class="line"><a·name="l06625"></a><span·class="lineno">·6625</span> </div><div·class="line"><a·name="l06626"></a><span·class="lineno">·6626</span> <span·class="preprocessor">#**·@method·Clip(Geo::OGR::Layer·method,·Geo::OGR::Layer·result,·hashref·options,·coderef·callback,·$callback_data)</span></div><div·class="line"><a·name="l06627"></a><span·class="lineno">·6627</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06628"></a><span·class="lineno">·6628</span> <span·class="preprocessor">#·Clip·off·areas·that·are·not·covered·by·the·method·layer.·The·schema</span></div><div·class="line"><a·name="l06629"></a><span·class="lineno">·6629</span> <span·class="preprocessor">#·of·the·result·layer·can·be·set·before·calling·this·method,·or·is</span></div><div·class="line"><a·name="l06630"></a><span·class="lineno">·6630</span> <span·class="preprocessor">#·initialized·to·to·contain·all·fields·from</span></div><div·class="line"><a·name="l06631"></a><span·class="lineno">·6631</span> <span·class="preprocessor">#·this·and·method·layer.</span></div><div·class="line"><a·name="l06632"></a><span·class="lineno">·6632</span> <span·class="preprocessor">#·@param·method·method·layer.</span></div><div·class="line"><a·name="l06633"></a><span·class="lineno">·6633</span> <span·class="preprocessor">#·@param·result·result·layer.</span></div><div·class="line"><a·name="l06634"></a><span·class="lineno">·6634</span> <span·class="preprocessor">#·@param·options·a·reference·to·an·options·hash.</span></div><div·class="line"><a·name="l06635"></a><span·class="lineno">·6635</span> <span·class="preprocessor">#·@param·callback·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l06636"></a><span·class="lineno">·6636</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·callback_data)</span></div><div·class="line"><a·name="l06637"></a><span·class="lineno">·6637</span> <span·class="preprocessor">#·@param·callback_data·[optional]</span></div><div·class="line"><a·name="l06638"></a><span·class="lineno">·6638</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06639"></a><span·class="lineno">·6639</span> sub·Clip·{</div><div·class="line"><a·name="l06640"></a><span·class="lineno">·6640</span> }</div><div·class="line"><a·name="l06641"></a><span·class="lineno">·6641</span> </div><div·class="line"><a·name="l06642"></a><span·class="lineno">·6642</span> <span·class="preprocessor">#**·@method·CommitTransaction()</span></div><div·class="line"><a·name="l06643"></a><span·class="lineno">·6643</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06644"></a><span·class="lineno">·6644</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06645"></a><span·class="lineno">·6645</span> sub·CommitTransaction·{</div><div·class="line"><a·name="l06646"></a><span·class="lineno">·6646</span> }</div><div·class="line"><a·name="l06647"></a><span·class="lineno">·6647</span> </div><div·class="line"><a·name="l06648"></a><span·class="lineno">·6648</span> <span·class="preprocessor">#**·@method·CreateFeature()</span></div><div·class="line"><a·name="l06649"></a><span·class="lineno">·6649</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06650"></a><span·class="lineno">·6650</span> sub·CreateFeature·{</div><div·class="line"><a·name="l06651"></a><span·class="lineno">·6651</span> }</div><div·class="line"><a·name="l06652"></a><span·class="lineno">·6652</span> </div><div·class="line"><a·name="l06653"></a><span·class="lineno">·6653</span> <span·class="preprocessor">#**·@method·CreateField(%params)</span></div><div·class="line"><a·name="l06654"></a><span·class="lineno">·6654</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06655"></a><span·class="lineno">·6655</span> <span·class="preprocessor">#·Create·a·field.</span></div><div·class="line"><a·name="l06656"></a><span·class="lineno">·6656</span> <span·class="preprocessor">#·@param·params·as·in·Geo::OGR::FieldDefn::new·or</span></div><div·class="line"><a·name="l06657"></a><span·class="lineno">·6657</span> <span·class="preprocessor">#·Geo::OGR::GeomFieldDefn::new,·plus·ApproxOK·(whose·default·is·true).</span></div><div·class="line"><a·name="l06658"></a><span·class="lineno">·6658</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06659"></a><span·class="lineno">·6659</span> sub·CreateField·{</div><div·class="line"><a·name="l06660"></a><span·class="lineno">·6660</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06661"></a><span·class="lineno">·6661</span> ····my·%defaults·=·(·ApproxOK·=>·1,</div><div·class="line"><a·name="l06662"></a><span·class="lineno">·6662</span> ·····················Type·=>·<span·class="stringliteral">''</span>·);</div><div·class="line"><a·name="l06663"></a><span·class="lineno">·6663</span> ····my·%params;</div><div·class="line"><a·name="l06664"></a><span·class="lineno">·6664</span> ····<span·class="keywordflow">if</span>·(@_·==·0)·{</div><div·class="line"><a·name="l06665"></a><span·class="lineno">·6665</span> ····}·elsif·(ref($_[0])·eq·<span·class="stringliteral">'HASH'</span>)·{</div><div·class="line"><a·name="l06666"></a><span·class="lineno">·6666</span> ········%params·=·%{$_[0]};</div><div·class="line"><a·name="l06667"></a><span·class="lineno">·6667</span> ····}·elsif·(@_·%·2·==·0)·{</div><div·class="line"><a·name="l06668"></a><span·class="lineno">·6668</span> ········%params·=·@_;</div><div·class="line"><a·name="l06669"></a><span·class="lineno">·6669</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06670"></a><span·class="lineno">·6670</span> ········($params{Defn})·=·@_;</div><div·class="line"><a·name="l06671"></a><span·class="lineno">·6671</span> ····}</div><div·class="line"><a·name="l06672"></a><span·class="lineno">·6672</span> ····<span·class="keywordflow">for</span>·my·$k·(keys·%defaults)·{</div><div·class="line"><a·name="l06673"></a><span·class="lineno">·6673</span> ········$params{$k}·<span·class="comment">//=·$defaults{$k};</span></div><div·class="line"><a·name="l06674"></a><span·class="lineno">·6674</span> ····}</div><div·class="line"><a·name="l06675"></a><span·class="lineno">·6675</span> ····<span·class="keywordflow">if</span>·(blessed($params{Defn})·and·$params{Defn}->isa(<span·class="stringliteral">'Geo::OGR::FieldDefn'</span>))·{</div><div·class="line"><a·name="l06676"></a><span·class="lineno">·6676</span> ········$self->_CreateField($params{Defn},·$params{ApproxOK});</div><div·class="line"><a·name="l06677"></a><span·class="lineno">·6677</span> ····}·elsif·(blessed($_[0])·and·$params{Defn}->isa(<span·class="stringliteral">'Geo::OGR::GeomFieldDefn'</span>))·{</div><div·class="line"><a·name="l06678"></a><span·class="lineno">·6678</span> ········$self->CreateGeomField($params{Defn},·$params{ApproxOK});</div><div·class="line"><a·name="l06679"></a><span·class="lineno">·6679</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06680"></a><span·class="lineno">·6680</span> <span·class="preprocessor">········#·if·Name·and·Type·are·missing,·assume·Name·=>·Type</span></div><div·class="line"><a·name="l06681"></a><span·class="lineno">·6681</span> ········<span·class="keywordflow">if</span>·(!(exists·$params{Name}·&&·exists·$params{Type}))·{</div><div·class="line"><a·name="l06682"></a><span·class="lineno">·6682</span> ············<span·class="keywordflow">for</span>·my·$key·(sort·keys·%params)·{</div><div·class="line"><a·name="l06683"></a><span·class="lineno">·6683</span> ················<span·class="keywordflow">if</span>·(s_exists(field_type·=>·$params{$key})·||</div><div·class="line"><a·name="l06684"></a><span·class="lineno">·6684</span> ····················s_exists(geometry_type·=>·$params{$key}))</div><div·class="line"><a·name="l06685"></a><span·class="lineno">·6685</span> ················{</div><div·class="line"><a·name="l06686"></a><span·class="lineno">·6686</span> ····················$params{Name}·=·$key;</div><div·class="line"><a·name="l06687"></a><span·class="lineno">·6687</span> ····················$params{Type}·=·$params{$key};</div><div·class="line"><a·name="l06688"></a><span·class="lineno">·6688</span> ····················<span·class="keyword">delete</span>·$params{$key};</div><div·class="line"><a·name="l06689"></a><span·class="lineno">·6689</span> ····················last;</div><div·class="line"><a·name="l06690"></a><span·class="lineno">·6690</span> ················}</div><div·class="line"><a·name="l06691"></a><span·class="lineno">·6691</span> ············}</div><div·class="line"><a·name="l06692"></a><span·class="lineno">·6692</span> ········}</div><div·class="line"><a·name="l06693"></a><span·class="lineno">·6693</span> ········my·$a·=·$params{ApproxOK};</div><div·class="line"><a·name="l06694"></a><span·class="lineno">·6694</span> ········<span·class="keyword">delete</span>·$params{ApproxOK};</div><div·class="line"><a·name="l06695"></a><span·class="lineno">·6695</span> ········<span·class="keywordflow">if</span>·(exists·$params{GeometryType})·{</div><div·class="line"><a·name="l06696"></a><span·class="lineno">·6696</span> ············$params{Type}·=·$params{GeometryType};</div><div·class="line"><a·name="l06697"></a><span·class="lineno">·6697</span> ············<span·class="keyword">delete</span>·$params{GeometryType};</div><div·class="line"><a·name="l06698"></a><span·class="lineno">·6698</span> ········}</div><div·class="line"><a·name="l06699"></a><span·class="lineno">·6699</span> ········<span·class="keywordflow">if</span>·(s_exists(field_type·=>·$params{Type}))·{</div><div·class="line"><a·name="l06700"></a><span·class="lineno">·6700</span> ············my·$fd·=·<a·class="code"·href="classGeo_1_1OGR_1_1FieldDefn.html">Geo::OGR::FieldDefn</a>-><a·class="code"·href="classGeo_1_1OGR_1_1FieldDefn.html#a02f94b3023e631aad8574caf0eff8491">new</a>(%params);</div><div·class="line"><a·name="l06701"></a><span·class="lineno">·6701</span> ············_CreateField($self,·$fd,·$a);</div><div·class="line"><a·name="l06702"></a><span·class="lineno">·6702</span> ········}·elsif·(s_exists(geometry_type·=>·$params{Type}))·{</div><div·class="line"><a·name="l06703"></a><span·class="lineno">·6703</span> ············my·$fd·=·<a·class="code"·href="classGeo_1_1OGR_1_1GeomFieldDefn.html">Geo::OGR::GeomFieldDefn</a>-><a·class="code"·href="classGeo_1_1OGR_1_1GeomFieldDefn.html#a390438ea74069f3ed6cc79935c986830">new</a>(%params);</div><div·class="line"><a·name="l06704"></a><span·class="lineno">·6704</span> ············CreateGeomField($self,·$fd,·$a);</div><div·class="line"><a·name="l06705"></a><span·class="lineno">·6705</span> ········}·elsif·($params{Type}·)·{</div><div·class="line"><a·name="l06706"></a><span·class="lineno">·6706</span> ············error(<span·class="stringliteral">"Invalid·field·type:·$params{Type}."</span>)</div><div·class="line"><a·name="l06707"></a><span·class="lineno">·6707</span> ········}·elsif·($params{Name}·)·{</div><div·class="line"><a·name="l06708"></a><span·class="lineno">·6708</span> ············error(<span·class="stringliteral">"Missing·type·for·field:·$params{Name}."</span>)</div><div·class="line"><a·name="l06709"></a><span·class="lineno">·6709</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06710"></a><span·class="lineno">·6710</span> ············error(<span·class="stringliteral">"Missing·name·and·type·for·a·field."</span>)</div><div·class="line"><a·name="l06711"></a><span·class="lineno">·6711</span> ········}</div><div·class="line"><a·name="l06712"></a><span·class="lineno">·6712</span> ····}</div><div·class="line"><a·name="l06713"></a><span·class="lineno">·6713</span> }</div><div·class="line"><a·name="l06714"></a><span·class="lineno">·6714</span> </div><div·class="line"><a·name="l06715"></a><span·class="lineno">·6715</span> <span·class="preprocessor">#**·@method·DataSource()</span></div><div·class="line"><a·name="l06716"></a><span·class="lineno">·6716</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06717"></a><span·class="lineno">·6717</span> sub·DataSource·{</div><div·class="line"><a·name="l06718"></a><span·class="lineno">·6718</span> }</div><div·class="line"><a·name="l06719"></a><span·class="lineno">·6719</span> </div><div·class="line"><a·name="l06720"></a><span·class="lineno">·6720</span> <span·class="preprocessor">#**·@method·Dataset()</span></div><div·class="line"><a·name="l06721"></a><span·class="lineno">·6721</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06722"></a><span·class="lineno">·6722</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1Dataset.html">Dataset</a>·{</div><div·class="line"><a·name="l06723"></a><span·class="lineno">·6723</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06724"></a><span·class="lineno">·6724</span> ····parent($self);</div><div·class="line"><a·name="l06725"></a><span·class="lineno">·6725</span> }</div><div·class="line"><a·name="l06726"></a><span·class="lineno">·6726</span> </div><div·class="line"><a·name="l06727"></a><span·class="lineno">·6727</span> <span·class="preprocessor">#**·@method·DeleteFeature($fid)</span></div><div·class="line"><a·name="l06728"></a><span·class="lineno">·6728</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06729"></a><span·class="lineno">·6729</span> <span·class="preprocessor">#·@param·fid·feature·id</span></div><div·class="line"><a·name="l06730"></a><span·class="lineno">·6730</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06731"></a><span·class="lineno">·6731</span> sub·DeleteFeature·{</div><div·class="line"><a·name="l06732"></a><span·class="lineno">·6732</span> }</div><div·class="line"><a·name="l06733"></a><span·class="lineno">·6733</span> </div><div·class="line"><a·name="l06734"></a><span·class="lineno">·6734</span> <span·class="preprocessor">#**·@method·DeleteField($field)</span></div><div·class="line"><a·name="l06735"></a><span·class="lineno">·6735</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06736"></a><span·class="lineno">·6736</span> <span·class="preprocessor">#·Delete·an·existing·field·from·a·layer.</span></div><div·class="line"><a·name="l06737"></a><span·class="lineno">·6737</span> <span·class="preprocessor">#·@param·field·name·(or·index)·of·the·field·which·is·deleted</span></div><div·class="line"><a·name="l06738"></a><span·class="lineno">·6738</span> <span·class="preprocessor">#·@note·Only·non-spatial·fields·can·be·deleted.</span></div><div·class="line"><a·name="l06739"></a><span·class="lineno">·6739</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06740"></a><span·class="lineno">·6740</span> sub·DeleteField·{</div><div·class="line"><a·name="l06741"></a><span·class="lineno">·6741</span> ····my·($self,·$field)·=·@_;</div><div·class="line"><a·name="l06742"></a><span·class="lineno">·6742</span> ····my·$index·=·$self->GetLayerDefn->GetFieldIndex($field·<span·class="comment">//·0);</span></div><div·class="line"><a·name="l06743"></a><span·class="lineno">·6743</span> ····_DeleteField($self,·$index);</div><div·class="line"><a·name="l06744"></a><span·class="lineno">·6744</span> }</div><div·class="line"><a·name="l06745"></a><span·class="lineno">·6745</span> </div><div·class="line"><a·name="l06746"></a><span·class="lineno">·6746</span> <span·class="preprocessor">#**·@method·Erase(Geo::OGR::Layer·method,·Geo::OGR::Layer·result,·hashref·options,·coderef·callback,·$callback_data)</span></div><div·class="line"><a·name="l06747"></a><span·class="lineno">·6747</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06748"></a><span·class="lineno">·6748</span> <span·class="preprocessor">#·The·result·layer·contains·features·whose·geometries·represent·areas</span></div><div·class="line"><a·name="l06749"></a><span·class="lineno">·6749</span> <span·class="preprocessor">#·that·are·in·the·input·layer·but·not·in·the·method·layer.·The</span></div><div·class="line"><a·name="l06750"></a><span·class="lineno">·6750</span> <span·class="preprocessor">#·features·in·the·result·layer·have·attributes·from·the·input</span></div><div·class="line"><a·name="l06751"></a><span·class="lineno">·6751</span> <span·class="preprocessor">#·layer.·The·schema·of·the·result·layer·can·be·set·by·the·user·or,·if</span></div><div·class="line"><a·name="l06752"></a><span·class="lineno">·6752</span> <span·class="preprocessor">#·it·is·empty,·is·initialized·to·contain·all·fields·in·the·input</span></div><div·class="line"><a·name="l06753"></a><span·class="lineno">·6753</span> <span·class="preprocessor">#·layer.</span></div><div·class="line"><a·name="l06754"></a><span·class="lineno">·6754</span> <span·class="preprocessor">#·@param·method·method·layer.</span></div><div·class="line"><a·name="l06755"></a><span·class="lineno">·6755</span> <span·class="preprocessor">#·@param·result·result·layer.</span></div><div·class="line"><a·name="l06756"></a><span·class="lineno">·6756</span> <span·class="preprocessor">#·@param·options·a·reference·to·an·options·hash.</span></div><div·class="line"><a·name="l06757"></a><span·class="lineno">·6757</span> <span·class="preprocessor">#·@param·callback·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l06758"></a><span·class="lineno">·6758</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·callback_data)</span></div><div·class="line"><a·name="l06759"></a><span·class="lineno">·6759</span> <span·class="preprocessor">#·@param·callback_data·[optional]</span></div><div·class="line"><a·name="l06760"></a><span·class="lineno">·6760</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06761"></a><span·class="lineno">·6761</span> sub·Erase·{</div><div·class="line"><a·name="l06762"></a><span·class="lineno">·6762</span> }</div><div·class="line"><a·name="l06763"></a><span·class="lineno">·6763</span> </div><div·class="line"><a·name="l06764"></a><span·class="lineno">·6764</span> <span·class="preprocessor">#**·@method·Geo::OGR::Feature·Feature($f)</span></div><div·class="line"><a·name="l06765"></a><span·class="lineno">·6765</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06766"></a><span·class="lineno">·6766</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06767"></a><span·class="lineno">·6767</span> <span·class="preprocessor">#·@param·f·[optional]·feature·id,·a·feature,·a·row,·or·a·tuple·</span></div><div·class="line"><a·name="l06768"></a><span·class="lineno">·6768</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06769"></a><span·class="lineno">·6769</span> <span·class="preprocessor">#·@note·If·the·argument·feature·has·a·null·FID·(FID·not·set)·the</span></div><div·class="line"><a·name="l06770"></a><span·class="lineno">·6770</span> <span·class="preprocessor">#·feature·is·inserted·into·the·layer·as·a·new·feature.·If·the·FID·is</span></div><div·class="line"><a·name="l06771"></a><span·class="lineno">·6771</span> <span·class="preprocessor">#·non·null,·then·the·feature·replaces·the·feature·in·the·layer·with</span></div><div·class="line"><a·name="l06772"></a><span·class="lineno">·6772</span> <span·class="preprocessor">#·that·FID.</span></div><div·class="line"><a·name="l06773"></a><span·class="lineno">·6773</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06774"></a><span·class="lineno">·6774</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Feature·object·that·represents·the·feature</span></div><div·class="line"><a·name="l06775"></a><span·class="lineno">·6775</span> <span·class="preprocessor">#·in·the·layer.</span></div><div·class="line"><a·name="l06776"></a><span·class="lineno">·6776</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06777"></a><span·class="lineno">·6777</span> sub·Feature·{</div><div·class="line"><a·name="l06778"></a><span·class="lineno">·6778</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06779"></a><span·class="lineno">·6779</span> ····my·$x·=·shift;</div><div·class="line"><a·name="l06780"></a><span·class="lineno">·6780</span> ····<span·class="keywordflow">return</span>·$self->GetFeature($x)·unless·$x·&&·ref·$x;</div><div·class="line"><a·name="l06781"></a><span·class="lineno">·6781</span> <span·class="preprocessor">····#·Insert·or·Set·depending·on·the·FID</span></div><div·class="line"><a·name="l06782"></a><span·class="lineno">·6782</span> ····my·$fid;</div><div·class="line"><a·name="l06783"></a><span·class="lineno">·6783</span> ····<span·class="keywordflow">if</span>·(ref·$x·eq·<span·class="stringliteral">'ARRAY'</span>)·{</div><div·class="line"><a·name="l06784"></a><span·class="lineno">·6784</span> <span·class="preprocessor">········#·FID·is·the·first·item·in·the·array</span></div><div·class="line"><a·name="l06785"></a><span·class="lineno">·6785</span> ········$fid·=·$x->[0];</div><div·class="line"><a·name="l06786"></a><span·class="lineno">·6786</span> ····}·elsif·(ref·$x·eq·<span·class="stringliteral">'HASH'</span>)·{</div><div·class="line"><a·name="l06787"></a><span·class="lineno">·6787</span> <span·class="preprocessor">········#·FID·is·FID</span></div><div·class="line"><a·name="l06788"></a><span·class="lineno">·6788</span> ········$fid·=·$x->{FID};</div><div·class="line"><a·name="l06789"></a><span·class="lineno">·6789</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06790"></a><span·class="lineno">·6790</span> ········$fid·=·$x->FID;</div><div·class="line"><a·name="l06791"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Transformer.html">·6791</a></span> ····}</div><div·class="line"><a·name="l06792"></a><span·class="lineno">·6792</span> <span·class="preprocessor">····#·OGRNullFID·is·-1</span></div><div·class="line"><a·name="l06793"></a><span·class="lineno">·6793</span> ····<span·class="keywordflow">if</span>·(!defined·$fid·||·$fid·<·0)·{</div><div·class="line"><a·name="l06794"></a><span·class="lineno">·6794</span> ········$self->InsertFeature($x);</div><div·class="line"><a·name="l06795"></a><span·class="lineno">·6795</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06796"></a><span·class="lineno">·6796</span> ········$self->SetFeature($x);</div><div·class="line"><a·name="l06797"></a><span·class="lineno">·6797</span> ····}</div><div·class="line"><a·name="l06798"></a><span·class="lineno">·6798</span> }</div><div·class="line"><a·name="l06799"></a><span·class="lineno">·6799</span> </div><div·class="line"><a·name="l06800"></a><span·class="lineno">·6800</span> <span·class="preprocessor">#**·@method·scalar·FeatureCount($force·=·1)</span></div><div·class="line"><a·name="l06801"></a><span·class="lineno">·6801</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06802"></a><span·class="lineno">·6802</span> <span·class="preprocessor">#·A.k.a·GetFeatureCount</span></div><div·class="line"><a·name="l06803"></a><span·class="lineno">·6803</span> <span·class="preprocessor">#·@param·force</span></div><div·class="line"><a·name="l06804"></a><span·class="lineno">·6804</span> <span·class="preprocessor">#·@return·integer</span></div><div·class="line"><a·name="l06805"></a><span·class="lineno">·6805</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06806"></a><span·class="lineno">·6806</span> sub·FeatureCount·{</div><div·class="line"><a·name="l06807"></a><span·class="lineno">·6807</span> }</div><div·class="line"><a·name="l06808"></a><span·class="lineno">·6808</span> </div><div·class="line"><a·name="l06809"></a><span·class="lineno">·6809</span> <span·class="preprocessor">#**·@method·Features()</span></div><div·class="line"><a·name="l06810"></a><span·class="lineno">·6810</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06811"></a><span·class="lineno">·6811</span> sub·Features·{</div><div·class="line"><a·name="l06812"></a><span·class="lineno">·6812</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06813"></a><span·class="lineno">·6813</span> ····$self->ResetReading;</div><div·class="line"><a·name="l06814"></a><span·class="lineno">·6814</span> ····<span·class="keywordflow">return</span>·sub·{</div><div·class="line"><a·name="l06815"></a><span·class="lineno">·6815</span> ········<span·class="keywordflow">return</span>·$self->GetNextFeature;</div><div·class="line"><a·name="l06816"></a><span·class="lineno">·6816</span> ····}</div><div·class="line"><a·name="l06817"></a><span·class="lineno">·6817</span> }</div><div·class="line"><a·name="l06818"></a><span·class="lineno">·6818</span> </div><div·class="line"><a·name="l06819"></a><span·class="lineno">·6819</span> <span·class="preprocessor">#**·@method·ForFeatures($code,·$in_place)</span></div><div·class="line"><a·name="l06820"></a><span·class="lineno">·6820</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06821"></a><span·class="lineno">·6821</span> <span·class="preprocessor">#·@note·experimental,·the·syntax·may·change</span></div><div·class="line"><a·name="l06822"></a><span·class="lineno">·6822</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06823"></a><span·class="lineno">·6823</span> <span·class="preprocessor">#·Call·code·for·all·features.·This·is·a·simple·wrapper·for</span></div><div·class="line"><a·name="l06824"></a><span·class="lineno">·6824</span> <span·class="preprocessor">#·ResetReading·and·while(GetNextFeature).</span></div><div·class="line"><a·name="l06825"></a><span·class="lineno">·6825</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06826"></a><span·class="lineno">·6826</span> <span·class="preprocessor">#·Example·usage:</span></div><div·class="line"><a·name="l06827"></a><span·class="lineno">·6827</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l06828"></a><span·class="lineno">·6828</span> <span·class="preprocessor">#·$layer->ForFeatures(sub·{my·$f·=·shift;·$self->DeleteFeature($f->FID)});·#·empties·the·layer</span></div><div·class="line"><a·name="l06829"></a><span·class="lineno">·6829</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l06830"></a><span·class="lineno">·6830</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06831"></a><span·class="lineno">·6831</span> <span·class="preprocessor">#·@param·code·a·reference·to·a·subroutine,·which·is·called·with·each</span></div><div·class="line"><a·name="l06832"></a><span·class="lineno">·6832</span> <span·class="preprocessor">#·feature·as·an·argument</span></div><div·class="line"><a·name="l06833"></a><span·class="lineno">·6833</span> <span·class="preprocessor">#·@param·in_place·if·set·to·true,·the·feature·is·stored·back·to·the</span></div><div·class="line"><a·name="l06834"></a><span·class="lineno">·6834</span> <span·class="preprocessor">#·layer</span></div><div·class="line"><a·name="l06835"></a><span·class="lineno">·6835</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06836"></a><span·class="lineno">·6836</span> sub·ForFeatures·{</div><div·class="line"><a·name="l06837"></a><span·class="lineno">·6837</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06838"></a><span·class="lineno">·6838</span> ····my·$code·=·shift;</div><div·class="line"><a·name="l06839"></a><span·class="lineno">·6839</span> ····my·$in_place·=·shift;</div><div·class="line"><a·name="l06840"></a><span·class="lineno">·6840</span> ····$self->ResetReading;</div><div·class="line"><a·name="l06841"></a><span·class="lineno">·6841</span> ····<span·class="keywordflow">while</span>·(my·$f·=·$self->GetNextFeature)·{</div><div·class="line"><a·name="l06842"></a><span·class="lineno">·6842</span> ········keep($f,·$self);</div><div·class="line"><a·name="l06843"></a><span·class="lineno">·6843</span> ········$code->($f);</div><div·class="line"><a·name="l06844"></a><span·class="lineno">·6844</span> ········$self->SetFeature($f)·<span·class="keywordflow">if</span>·$in_place;</div><div·class="line"><a·name="l06845"></a><span·class="lineno">·6845</span> ····};</div><div·class="line"><a·name="l06846"></a><span·class="lineno">·6846</span> }</div><div·class="line"><a·name="l06847"></a><span·class="lineno">·6847</span> </div><div·class="line"><a·name="l06848"></a><span·class="lineno">·6848</span> <span·class="preprocessor">#**·@method·ForGeometries($code,·$in_place)</span></div><div·class="line"><a·name="l06849"></a><span·class="lineno">·6849</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06850"></a><span·class="lineno">·6850</span> <span·class="preprocessor">#·@note·experimental,·the·syntax·may·change</span></div><div·class="line"><a·name="l06851"></a><span·class="lineno">·6851</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06852"></a><span·class="lineno">·6852</span> <span·class="preprocessor">#·Call·code·for·all·geometries.·This·is·a·simple·wrapper·for</span></div><div·class="line"><a·name="l06853"></a><span·class="lineno">·6853</span> <span·class="preprocessor">#·ResetReading·and·while(GetNextFeature).</span></div><div·class="line"><a·name="l06854"></a><span·class="lineno">·6854</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06855"></a><span·class="lineno">·6855</span> <span·class="preprocessor">#·Example·usage:</span></div><div·class="line"><a·name="l06856"></a><span·class="lineno">·6856</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l06857"></a><span·class="lineno">·6857</span> <span·class="preprocessor">#·my·$area·=·0;</span></div><div·class="line"><a·name="l06858"></a><span·class="lineno">·6858</span> <span·class="preprocessor">#·$layer->ForGeometries(sub·{my·$g·=·shift;·$area·+=·$g->Area});·#·computes·the·total·area</span></div><div·class="line"><a·name="l06859"></a><span·class="lineno">·6859</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l06860"></a><span·class="lineno">·6860</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06861"></a><span·class="lineno">·6861</span> <span·class="preprocessor">#·@param·code·a·reference·to·a·subroutine,·which·is·called·with·each</span></div><div·class="line"><a·name="l06862"></a><span·class="lineno">·6862</span> <span·class="preprocessor">#·geometry·as·an·argument</span></div><div·class="line"><a·name="l06863"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1VSIF.html">·6863</a></span> <span·class="preprocessor">#·@param·in_place·if·set·to·true,·the·geometry·is·stored·back·to·the</span></div><div·class="line"><a·name="l06864"></a><span·class="lineno">·6864</span> <span·class="preprocessor">#·layer</span></div><div·class="line"><a·name="l06865"></a><span·class="lineno">·6865</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06866"></a><span·class="lineno">·6866</span> sub·ForGeometries·{</div><div·class="line"><a·name="l06867"></a><span·class="lineno">·6867</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06868"></a><span·class="lineno">·6868</span> ····my·$code·=·shift;</div><div·class="line"><a·name="l06869"></a><span·class="lineno">·6869</span> ····my·$in_place·=·shift;</div><div·class="line"><a·name="l06870"></a><span·class="lineno">·6870</span> ····$self->ResetReading;</div><div·class="line"><a·name="l06871"></a><span·class="lineno">·6871</span> ····<span·class="keywordflow">while</span>·(my·$f·=·$self->GetNextFeature)·{</div><div·class="line"><a·name="l06872"></a><span·class="lineno">·6872</span> ········my·$g·=·$f->Geometry();</div><div·class="line"><a·name="l06873"></a><span·class="lineno">·6873</span> ········$code->($g);</div><div·class="line"><a·name="l06874"></a><span·class="lineno">·6874</span> ········<span·class="keywordflow">if</span>·($in_place)·{</div><div·class="line"><a·name="l06875"></a><span·class="lineno">·6875</span> ············$f->Geometry($g);</div><div·class="line"><a·name="l06876"></a><span·class="lineno">·6876</span> ············$self->SetFeature($f);</div><div·class="line"><a·name="l06877"></a><span·class="lineno">·6877</span> ········}</div><div·class="line"><a·name="l06878"></a><span·class="lineno">·6878</span> ····}</div><div·class="line"><a·name="l06879"></a><span·class="lineno">·6879</span> }</div><div·class="line"><a·name="l06880"></a><span·class="lineno">·6880</span> </div><div·class="line"><a·name="l06881"></a><span·class="lineno">·6881</span> <span·class="preprocessor">#**·@method·Geometries()</span></div><div·class="line"><a·name="l06882"></a><span·class="lineno">·6882</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06883"></a><span·class="lineno">·6883</span> sub·Geometries·{</div><div·class="line"><a·name="l06884"></a><span·class="lineno">·6884</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06885"></a><span·class="lineno">·6885</span> ····$self->ResetReading;</div><div·class="line"><a·name="l06886"></a><span·class="lineno">·6886</span> ····<span·class="keywordflow">return</span>·sub·{</div><div·class="line"><a·name="l06887"></a><span·class="lineno">·6887</span> ········my·$f·=·$self->GetNextFeature;</div><div·class="line"><a·name="l06888"></a><span·class="lineno">·6888</span> ········<span·class="keywordflow">return</span>·0·unless·$f;</div><div·class="line"><a·name="l06889"></a><span·class="lineno">·6889</span> ········<span·class="keywordflow">return</span>·$f->Geometry;</div><div·class="line"><a·name="l06890"></a><span·class="lineno">·6890</span> ····}</div><div·class="line"><a·name="l06891"></a><span·class="lineno">·6891</span> }</div><div·class="line"><a·name="l06892"></a><span·class="lineno">·6892</span> </div><div·class="line"><a·name="l06893"></a><span·class="lineno">·6893</span> <span·class="preprocessor">#**·@method·scalar·GeometryType($field)</span></div><div·class="line"><a·name="l06894"></a><span·class="lineno">·6894</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06895"></a><span·class="lineno">·6895</span> <span·class="preprocessor">#·@param·field·the·name·or·index·of·the·spatial·field.</span></div><div·class="line"><a·name="l06896"></a><span·class="lineno">·6896</span> <span·class="preprocessor">#·@return·the·geometry·type·of·the·spatial·field.</span></div><div·class="line"><a·name="l06897"></a><span·class="lineno">·6897</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06898"></a><span·class="lineno">·6898</span> sub·GeometryType·{</div><div·class="line"><a·name="l06899"></a><span·class="lineno">·6899</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06900"></a><span·class="lineno">·6900</span> ····my·$d·=·$self->GetDefn;</div><div·class="line"><a·name="l06901"></a><span·class="lineno">·6901</span> ····my·$field·=·$d->GetGeomFieldIndex(shift·<span·class="comment">//·0);</span></div><div·class="line"><a·name="l06902"></a><span·class="lineno">·6902</span> ····my·$fd·=·$d->_GetGeomFieldDefn($field);</div><div·class="line"><a·name="l06903"></a><span·class="lineno">·6903</span> ····<span·class="keywordflow">return</span>·$fd->Type·<span·class="keywordflow">if</span>·$fd;</div><div·class="line"><a·name="l06904"></a><span·class="lineno">·6904</span> }</div><div·class="line"><a·name="l06905"></a><span·class="lineno">·6905</span> </div><div·class="line"><a·name="l06906"></a><span·class="lineno">·6906</span> <span·class="preprocessor">#**·@method·Geo::OGR::DataSource·GetDataSource()</span></div><div·class="line"><a·name="l06907"></a><span·class="lineno">·6907</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06908"></a><span·class="lineno">·6908</span> <span·class="preprocessor">#·@return·the·data·source·object·to·which·this·layer·object·belongs·to.</span></div><div·class="line"><a·name="l06909"></a><span·class="lineno">·6909</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06910"></a><span·class="lineno">·6910</span> sub·GetDataSource·{</div><div·class="line"><a·name="l06911"></a><span·class="lineno">·6911</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06912"></a><span·class="lineno">·6912</span> ····parent($self);</div><div·class="line"><a·name="l06913"></a><span·class="lineno">·6913</span> }</div><div·class="line"><a·name="l06914"></a><span·class="lineno">·6914</span> </div><div·class="line"><a·name="l06915"></a><span·class="lineno">·6915</span> <span·class="preprocessor">#**·@method·Geo::OGR::FeatureDefn·GetDefn()</span></div><div·class="line"><a·name="l06916"></a><span·class="lineno">·6916</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06917"></a><span·class="lineno">·6917</span> <span·class="preprocessor">#·A.k.a·GetLayerDefn.</span></div><div·class="line"><a·name="l06918"></a><span·class="lineno">·6918</span> <span·class="preprocessor">#·@return·a·Geo::OGR::FeatureDefn·object.</span></div><div·class="line"><a·name="l06919"></a><span·class="lineno">·6919</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06920"></a><span·class="lineno">·6920</span> sub·GetDefn·{</div><div·class="line"><a·name="l06921"></a><span·class="lineno">·6921</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06922"></a><span·class="lineno">·6922</span> ····my·$defn·=·$self->GetLayerDefn;</div><div·class="line"><a·name="l06923"></a><span·class="lineno">·6923</span> ····keep($defn,·$self);</div><div·class="line"><a·name="l06924"></a><span·class="lineno">·6924</span> }</div><div·class="line"><a·name="l06925"></a><span·class="lineno">·6925</span> </div><div·class="line"><a·name="l06926"></a><span·class="lineno">·6926</span> <span·class="preprocessor">#**·@method·list·GetExtent($force·=·1)</span></div><div·class="line"><a·name="l06927"></a><span·class="lineno">·6927</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06928"></a><span·class="lineno">·6928</span> <span·class="preprocessor">#·@param·force·compute·the·extent·even·if·it·is·expensive</span></div><div·class="line"><a·name="l06929"></a><span·class="lineno">·6929</span> <span·class="preprocessor">#·@note·In·scalar·context·returns·a·reference·to·an·anonymous·array</span></div><div·class="line"><a·name="l06930"></a><span·class="lineno">·6930</span> <span·class="preprocessor">#·containing·the·extent.</span></div><div·class="line"><a·name="l06931"></a><span·class="lineno">·6931</span> <span·class="preprocessor">#·@return·the·extent·($minx,·$maxx,·$miny,·$maxy)</span></div><div·class="line"><a·name="l06932"></a><span·class="lineno">·6932</span> <span·class="preprocessor">#·@param·force</span></div><div·class="line"><a·name="l06933"></a><span·class="lineno">·6933</span> <span·class="preprocessor">#·@return·the·extent·=·($minx,·$maxx,·$miny,·$maxy)·as·a·listref</span></div><div·class="line"><a·name="l06934"></a><span·class="lineno">·6934</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06935"></a><span·class="lineno">·6935</span> sub·GetExtent·{</div><div·class="line"><a·name="l06936"></a><span·class="lineno">·6936</span> }</div><div·class="line"><a·name="l06937"></a><span·class="lineno">·6937</span> </div><div·class="line"><a·name="l06938"></a><span·class="lineno">·6938</span> <span·class="preprocessor">#**·@method·scalar·GetFIDColumn()</span></div><div·class="line"><a·name="l06939"></a><span·class="lineno">·6939</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06940"></a><span·class="lineno">·6940</span> <span·class="preprocessor">#·@return·the·name·of·the·underlying·database·column·being·used·as·the</span></div><div·class="line"><a·name="l06941"></a><span·class="lineno">·6941</span> <span·class="preprocessor">#·FID·column,·or·""·if·not·supported.</span></div><div·class="line"><a·name="l06942"></a><span·class="lineno">·6942</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06943"></a><span·class="lineno">·6943</span> sub·GetFIDColumn·{</div><div·class="line"><a·name="l06944"></a><span·class="lineno">·6944</span> }</div><div·class="line"><a·name="l06945"></a><span·class="lineno">·6945</span> </div><div·class="line"><a·name="l06946"></a><span·class="lineno">·6946</span> <span·class="preprocessor">#**·@method·Geo::OGR::Feature·GetFeature($fid)</span></div><div·class="line"><a·name="l06947"></a><span·class="lineno">·6947</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06948"></a><span·class="lineno">·6948</span> <span·class="preprocessor">#·@param·fid·feature·id</span></div><div·class="line"><a·name="l06949"></a><span·class="lineno">·6949</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Feature·object·that·represents·the·feature·in·the·layer.</span></div><div·class="line"><a·name="l06950"></a><span·class="lineno">·6950</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06951"></a><span·class="lineno">·6951</span> sub·GetFeature·{</div><div·class="line"><a·name="l06952"></a><span·class="lineno">·6952</span> ····my·($self,·$fid)·=·@_;</div><div·class="line"><a·name="l06953"></a><span·class="lineno">·6953</span> ····$fid·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l06954"></a><span·class="lineno">·6954</span> ····my·$f·=·$self->_GetFeature($fid);</div><div·class="line"><a·name="l06955"></a><span·class="lineno">·6955</span> ····error(2,·<span·class="stringliteral">"FID=$fid"</span>,·<span·class="stringliteral">'"Feature'</span>)·unless·ref·$f·eq·<span·class="stringliteral">'Geo::OGR::Feature'</span>;</div><div·class="line"><a·name="l06956"></a><span·class="lineno">·6956</span> ····keep($f,·$self);</div><div·class="line"><a·name="l06957"></a><span·class="lineno">·6957</span> }</div><div·class="line"><a·name="l06958"></a><span·class="lineno">·6958</span> </div><div·class="line"><a·name="l06959"></a><span·class="lineno">·6959</span> <span·class="preprocessor">#**·@method·GetFeatureCount()</span></div><div·class="line"><a·name="l06960"></a><span·class="lineno">·6960</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06961"></a><span·class="lineno">·6961</span> sub·GetFeatureCount·{</div><div·class="line"><a·name="l06962"></a><span·class="lineno">·6962</span> }</div><div·class="line"><a·name="l06963"></a><span·class="lineno">·6963</span> </div><div·class="line"><a·name="l06964"></a><span·class="lineno">·6964</span> <span·class="preprocessor">#**·@method·scalar·GetFeaturesRead()</span></div><div·class="line"><a·name="l06965"></a><span·class="lineno">·6965</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06966"></a><span·class="lineno">·6966</span> <span·class="preprocessor">#·@return·integer</span></div><div·class="line"><a·name="l06967"></a><span·class="lineno">·6967</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06968"></a><span·class="lineno">·6968</span> sub·GetFeaturesRead·{</div><div·class="line"><a·name="l06969"></a><span·class="lineno">·6969</span> }</div><div·class="line"><a·name="l06970"></a><span·class="lineno">·6970</span> </div><div·class="line"><a·name="l06971"></a><span·class="lineno">·6971</span> <span·class="preprocessor">#**·@method·scalar·GetFieldDefn($name)</span></div><div·class="line"><a·name="l06972"></a><span·class="lineno">·6972</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06973"></a><span·class="lineno">·6973</span> <span·class="preprocessor">#·Get·the·definition·of·a·field.</span></div><div·class="line"><a·name="l06974"></a><span·class="lineno">·6974</span> <span·class="preprocessor">#·@param·name·the·name·of·the·field.</span></div><div·class="line"><a·name="l06975"></a><span·class="lineno">·6975</span> <span·class="preprocessor">#·@return·a·Geo::OGR::FieldDefn·object.</span></div><div·class="line"><a·name="l06976"></a><span·class="lineno">·6976</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06977"></a><span·class="lineno">·6977</span> sub·GetFieldDefn·{</div><div·class="line"><a·name="l06978"></a><span·class="lineno">·6978</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06979"></a><span·class="lineno">·6979</span> ····my·$d·=·$self->GetDefn;</div><div·class="line"><a·name="l06980"></a><span·class="lineno">·6980</span> ····my·$field·=·$d->GetFieldIndex(shift·<span·class="comment">//·0);</span></div><div·class="line"><a·name="l06981"></a><span·class="lineno">·6981</span> ····<span·class="keywordflow">return</span>·$d->_GetFieldDefn($field);</div><div·class="line"><a·name="l06982"></a><span·class="lineno">·6982</span> }</div><div·class="line"><a·name="l06983"></a><span·class="lineno">·6983</span> </div><div·class="line"><a·name="l06984"></a><span·class="lineno">·6984</span> <span·class="preprocessor">#**·@method·list·GetFieldNames()</span></div><div·class="line"><a·name="l06985"></a><span·class="lineno">·6985</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06986"></a><span·class="lineno">·6986</span> <span·class="preprocessor">#·@return·a·list·of·the·names·of·the·fields·in·this·layer.·The</span></div><div·class="line"><a·name="l06987"></a><span·class="lineno">·6987</span> <span·class="preprocessor">#·non-geometry·field·names·are·first·in·the·list·and·then·the·geometry</span></div><div·class="line"><a·name="l06988"></a><span·class="lineno">·6988</span> <span·class="preprocessor">#·fields.</span></div><div·class="line"><a·name="l06989"></a><span·class="lineno">·6989</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06990"></a><span·class="lineno">·6990</span> sub·GetFieldNames·{</div><div·class="line"><a·name="l06991"></a><span·class="lineno">·6991</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06992"></a><span·class="lineno">·6992</span> ····my·$d·=·$self->GetDefn;</div><div·class="line"><a·name="l06993"></a><span·class="lineno">·6993</span> ····my·@ret;</div><div·class="line"><a·name="l06994"></a><span·class="lineno">·6994</span> ····<span·class="keywordflow">for</span>·(my·$i·=·0;·$i·<·$d->GetFieldCount;·$i++)·{</div><div·class="line"><a·name="l06995"></a><span·class="lineno">·6995</span> ········push·@ret,·$d->GetFieldDefn($i)->Name();</div><div·class="line"><a·name="l06996"></a><span·class="lineno">·6996</span> ····}</div><div·class="line"><a·name="l06997"></a><span·class="lineno">·6997</span> ····<span·class="keywordflow">for</span>·(my·$i·=·0;·$i·<·$d->GetGeomFieldCount;·$i++)·{</div><div·class="line"><a·name="l06998"></a><span·class="lineno">·6998</span> ········push·@ret,·$d->GetGeomFieldDefn($i)->Name();</div><div·class="line"><a·name="l06999"></a><span·class="lineno">·6999</span> ····}</div><div·class="line"><a·name="l07000"></a><span·class="lineno">·7000</span> ····<span·class="keywordflow">return</span>·@ret;</div><div·class="line"><a·name="l07001"></a><span·class="lineno">·7001</span> }</div><div·class="line"><a·name="l07002"></a><span·class="lineno">·7002</span> </div><div·class="line"><a·name="l07003"></a><span·class="lineno">·7003</span> <span·class="preprocessor">#**·@method·scalar·GetGeomFieldDefn($name)</span></div><div·class="line"><a·name="l07004"></a><span·class="lineno">·7004</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07005"></a><span·class="lineno">·7005</span> <span·class="preprocessor">#·Get·the·definition·of·a·spatial·field.</span></div><div·class="line"><a·name="l07006"></a><span·class="lineno">·7006</span> <span·class="preprocessor">#·@param·name·the·name·of·the·spatial·field.</span></div><div·class="line"><a·name="l07007"></a><span·class="lineno">·7007</span> <span·class="preprocessor">#·@return·a·Geo::OGR::GeomFieldDefn·object.</span></div><div·class="line"><a·name="l07008"></a><span·class="lineno">·7008</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07009"></a><span·class="lineno">·7009</span> sub·GetGeomFieldDefn·{</div><div·class="line"><a·name="l07010"></a><span·class="lineno">·7010</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l07011"></a><span·class="lineno">·7011</span> ····my·$d·=·$self->GetDefn;</div><div·class="line"><a·name="l07012"></a><span·class="lineno">·7012</span> ····my·$field·=·$d->GetGeomFieldIndex(shift·<span·class="comment">//·0);</span></div><div·class="line"><a·name="l07013"></a><span·class="lineno">·7013</span> ····<span·class="keywordflow">return</span>·$d->_GetGeomFieldDefn($field);</div><div·class="line"><a·name="l07014"></a><span·class="lineno">·7014</span> }</div><div·class="line"><a·name="l07015"></a><span·class="lineno">·7015</span> </div><div·class="line"><a·name="l07016"></a><span·class="lineno">·7016</span> <span·class="preprocessor">#**·@method·scalar·GetName()</span></div><div·class="line"><a·name="l07017"></a><span·class="lineno">·7017</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07018"></a><span·class="lineno">·7018</span> <span·class="preprocessor">#·@return·the·name·of·the·layer.</span></div><div·class="line"><a·name="l07019"></a><span·class="lineno">·7019</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07020"></a><span·class="lineno">·7020</span> sub·GetName·{</div><div·class="line"><a·name="l07021"></a><span·class="lineno">·7021</span> }</div><div·class="line"><a·name="l07022"></a><span·class="lineno">·7022</span> </div><div·class="line"><a·name="l07023"></a><span·class="lineno">·7023</span> <span·class="preprocessor">#**·@method·Geo::OGR::Feature·GetNextFeature()</span></div><div·class="line"><a·name="l07024"></a><span·class="lineno">·7024</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07025"></a><span·class="lineno">·7025</span> <span·class="preprocessor">#·@return·iteratively·Geo::OGR::Feature·objects·from·the·layer.·The</span></div><div·class="line"><a·name="l07026"></a><span·class="lineno">·7026</span> <span·class="preprocessor">#·iteration·obeys·the·spatial·and·the·attribute·filter.</span></div><div·class="line"><a·name="l07027"></a><span·class="lineno">·7027</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07028"></a><span·class="lineno">·7028</span> sub·GetNextFeature·{</div><div·class="line"><a·name="l07029"></a><span·class="lineno">·7029</span> }</div><div·class="line"><a·name="l07030"></a><span·class="lineno">·7030</span> </div><div·class="line"><a·name="l07031"></a><span·class="lineno">·7031</span> <span·class="preprocessor">#**·@method·hash·reference·GetSchema()</span></div><div·class="line"><a·name="l07032"></a><span·class="lineno">·7032</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07033"></a><span·class="lineno">·7033</span> <span·class="preprocessor">#·@brief·Get·the·schema·of·this·layer.</span></div><div·class="line"><a·name="l07034"></a><span·class="lineno">·7034</span> <span·class="preprocessor">#·@note·The·schema·of·a·layer·cannot·be·set·with·this·method.··If·you</span></div><div·class="line"><a·name="l07035"></a><span·class="lineno">·7035</span> <span·class="preprocessor">#·have·a·Geo::OGR::FeatureDefn·object·before·creating·the·layer,·use</span></div><div·class="line"><a·name="l07036"></a><span·class="lineno">·7036</span> <span·class="preprocessor">#·its·schema·in·the·Geo::OGR::CreateLayer·method.</span></div><div·class="line"><a·name="l07037"></a><span·class="lineno">·7037</span> <span·class="preprocessor">#·@return·the·schema·of·this·layer,·as·in·Geo::OGR::FeatureDefn::Schema.</span></div><div·class="line"><a·name="l07038"></a><span·class="lineno">·7038</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07039"></a><span·class="lineno">·7039</span> sub·GetSchema·{</div><div·class="line"><a·name="l07040"></a><span·class="lineno">·7040</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l07041"></a><span·class="lineno">·7041</span> ····carp·<span·class="stringliteral">"Schema·of·a·layer·should·not·be·set·directly."</span>·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l07042"></a><span·class="lineno">·7042</span> ····<span·class="keywordflow">if</span>·(@_·and·@_·%·2·==·0)·{</div><div·class="line"><a·name="l07043"></a><span·class="lineno">·7043</span> ········my·%schema·=·@_;</div><div·class="line"><a·name="l07044"></a><span·class="lineno">·7044</span> ········<span·class="keywordflow">if</span>·($schema{Fields})·{</div><div·class="line"><a·name="l07045"></a><span·class="lineno">·7045</span> ············<span·class="keywordflow">for</span>·my·$field·(@{$schema{Fields}})·{</div><div·class="line"><a·name="l07046"></a><span·class="lineno">·7046</span> ················$self->CreateField($field);</div><div·class="line"><a·name="l07047"></a><span·class="lineno">·7047</span> ············}</div><div·class="line"><a·name="l07048"></a><span·class="lineno">·7048</span> ········}</div><div·class="line"><a·name="l07049"></a><span·class="lineno">·7049</span> ····}</div><div·class="line"><a·name="l07050"></a><span·class="lineno">·7050</span> ····<span·class="keywordflow">return</span>·$self->GetDefn->Schema;</div><div·class="line"><a·name="l07051"></a><span·class="lineno">·7051</span> }</div><div·class="line"><a·name="l07052"></a><span·class="lineno">·7052</span> </div><div·class="line"><a·name="l07053"></a><span·class="lineno">·7053</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·GetSpatialFilter()</span></div><div·class="line"><a·name="l07054"></a><span·class="lineno">·7054</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07055"></a><span·class="lineno">·7055</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l07056"></a><span·class="lineno">·7056</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07057"></a><span·class="lineno">·7057</span> sub·GetSpatialFilter·{</div><div·class="line"><a·name="l07058"></a><span·class="lineno">·7058</span> }</div><div·class="line"><a·name="l07059"></a><span·class="lineno">·7059</span> </div><div·class="line"><a·name="l07060"></a><span·class="lineno">·7060</span> <span·class="preprocessor">#**·@method·GetStyleTable()</span></div><div·class="line"><a·name="l07061"></a><span·class="lineno">·7061</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07062"></a><span·class="lineno">·7062</span> sub·GetStyleTable·{</div><div·class="line"><a·name="l07063"></a><span·class="lineno">·7063</span> }</div><div·class="line"><a·name="l07064"></a><span·class="lineno">·7064</span> </div><div·class="line"><a·name="l07065"></a><span·class="lineno">·7065</span> <span·class="preprocessor">#**·@method·Identity(Geo::OGR::Layer·method,·Geo::OGR::Layer·result,·hashref·options,·coderef·callback,·$callback_data)</span></div><div·class="line"><a·name="l07066"></a><span·class="lineno">·7066</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07067"></a><span·class="lineno">·7067</span> <span·class="preprocessor">#·The·result·layer·contains·features·whose·geometries·represent·areas</span></div><div·class="line"><a·name="l07068"></a><span·class="lineno">·7068</span> <span·class="preprocessor">#·that·are·in·the·input·layer.·The·features·in·the·result·layer·have</span></div><div·class="line"><a·name="l07069"></a><span·class="lineno">·7069</span> <span·class="preprocessor">#·attributes·from·both·input·and·method·layers.·The·schema·of·the</span></div><div·class="line"><a·name="l07070"></a><span·class="lineno">·7070</span> <span·class="preprocessor">#·result·layer·can·be·set·by·the·user·or,·if·it·is·empty,·is</span></div><div·class="line"><a·name="l07071"></a><span·class="lineno">·7071</span> <span·class="preprocessor">#·initialized·to·contain·all·fields·in·input·and·method·layers.</span></div><div·class="line"><a·name="l07072"></a><span·class="lineno">·7072</span> <span·class="preprocessor">#·@param·method·method·layer.</span></div><div·class="line"><a·name="l07073"></a><span·class="lineno">·7073</span> <span·class="preprocessor">#·@param·result·result·layer.</span></div><div·class="line"><a·name="l07074"></a><span·class="lineno">·7074</span> <span·class="preprocessor">#·@param·options·a·reference·to·an·options·hash.</span></div><div·class="line"><a·name="l07075"></a><span·class="lineno">·7075</span> <span·class="preprocessor">#·@param·callback·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l07076"></a><span·class="lineno">·7076</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·callback_data)</span></div><div·class="line"><a·name="l07077"></a><span·class="lineno">·7077</span> <span·class="preprocessor">#·@param·callback_data·[optional]</span></div><div·class="line"><a·name="l07078"></a><span·class="lineno">·7078</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07079"></a><span·class="lineno">·7079</span> sub·Identity·{</div><div·class="line"><a·name="l07080"></a><span·class="lineno">·7080</span> }</div><div·class="line"><a·name="l07081"></a><span·class="lineno">·7081</span> </div><div·class="line"><a·name="l07082"></a><span·class="lineno">·7082</span> <span·class="preprocessor">#**·@method·InsertFeature($feature)</span></div><div·class="line"><a·name="l07083"></a><span·class="lineno">·7083</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07084"></a><span·class="lineno">·7084</span> <span·class="preprocessor">#·Creates·a·new·feature·which·has·the·schema·of·the·layer·and</span></div><div·class="line"><a·name="l07085"></a><span·class="lineno">·7085</span> <span·class="preprocessor">#·initializes·it·with·data·from·the·argument.·Then·inserts·the·feature</span></div><div·class="line"><a·name="l07086"></a><span·class="lineno">·7086</span> <span·class="preprocessor">#·into·the·layer·(using·CreateFeature).·Uses·Geo::OGR::Feature::Row·or</span></div><div·class="line"><a·name="l07087"></a><span·class="lineno">·7087</span> <span·class="preprocessor">#·Geo::OGR::Feature::Tuple.</span></div><div·class="line"><a·name="l07088"></a><span·class="lineno">·7088</span> <span·class="preprocessor">#·@param·feature·a·Geo::OGR::Feature·object·or·reference·to·feature</span></div><div·class="line"><a·name="l07089"></a><span·class="lineno">·7089</span> <span·class="preprocessor">#·data·in·a·hash·(as·in·Geo::OGR::Feature::Row)·or·in·an·array·(as·in</span></div><div·class="line"><a·name="l07090"></a><span·class="lineno">·7090</span> <span·class="preprocessor">#·Geo::OGR::Feature::Tuple)</span></div><div·class="line"><a·name="l07091"></a><span·class="lineno">·7091</span> <span·class="preprocessor">#·@return·the·new·feature.</span></div><div·class="line"><a·name="l07092"></a><span·class="lineno">·7092</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07093"></a><span·class="lineno">·7093</span> sub·InsertFeature·{</div><div·class="line"><a·name="l07094"></a><span·class="lineno">·7094</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l07095"></a><span·class="lineno">·7095</span> ····my·$feature·=·shift;</div><div·class="line"><a·name="l07096"></a><span·class="lineno">·7096</span> ····error(<span·class="stringliteral">"Usage:·\$feature->InsertFeature(reference·to·a·hash·or·array)."</span>)·unless·ref($feature);</div><div·class="line"><a·name="l07097"></a><span·class="lineno">·7097</span> ····my·$new·=·<a·class="code"·href="classGeo_1_1OGR_1_1Feature.html">Geo::OGR::Feature</a>-><a·class="code"·href="classGeo_1_1OGR_1_1Feature.html#ae0fffd439f43bdcf0b9273c0b0466dc3">new</a>(Schema·=>·$self,·Values·=>·$feature);</div><div·class="line"><a·name="l07098"></a><span·class="lineno">·7098</span> ····$self->CreateFeature($new);</div><div·class="line"><a·name="l07099"></a><span·class="lineno">·7099</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l07100"></a><span·class="lineno">·7100</span> ····keep($new,·$self);</div><div·class="line"><a·name="l07101"></a><span·class="lineno">·7101</span> }</div><div·class="line"><a·name="l07102"></a><span·class="lineno">·7102</span> </div><div·class="line"><a·name="l07103"></a><span·class="lineno">·7103</span> <span·class="preprocessor">#**·@method·Intersection(Geo::OGR::Layer·method,·Geo::OGR::Layer·result,·hashref·options,·coderef·callback,·$callback_data)</span></div><div·class="line"><a·name="l07104"></a><span·class="lineno">·7104</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07105"></a><span·class="lineno">·7105</span> <span·class="preprocessor">#·The·result·layer·contains·features·whose·geometries·represent·areas</span></div><div·class="line"><a·name="l07106"></a><span·class="lineno">·7106</span> <span·class="preprocessor">#·that·are·common·between·features·in·the·input·layer·and·in·the</span></div><div·class="line"><a·name="l07107"></a><span·class="lineno">·7107</span> <span·class="preprocessor">#·method·layer.·The·schema·of·the·result·layer·can·be·set·before</span></div><div·class="line"><a·name="l07108"></a><span·class="lineno">·7108</span> <span·class="preprocessor">#·calling·this·method,·or·is·initialized·to·contain·all·fields·from</span></div><div·class="line"><a·name="l07109"></a><span·class="lineno">·7109</span> <span·class="preprocessor">#·this·and·method·layer.</span></div><div·class="line"><a·name="l07110"></a><span·class="lineno">·7110</span> <span·class="preprocessor">#·@param·method·method·layer.</span></div><div·class="line"><a·name="l07111"></a><span·class="lineno">·7111</span> <span·class="preprocessor">#·@param·result·result·layer.</span></div><div·class="line"><a·name="l07112"></a><span·class="lineno">·7112</span> <span·class="preprocessor">#·@param·options·a·reference·to·an·options·hash.</span></div><div·class="line"><a·name="l07113"></a><span·class="lineno">·7113</span> <span·class="preprocessor">#·@param·callback·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l07114"></a><span·class="lineno">·7114</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·callback_data)</span></div><div·class="line"><a·name="l07115"></a><span·class="lineno">·7115</span> <span·class="preprocessor">#·@param·callback_data·[optional]</span></div><div·class="line"><a·name="l07116"></a><span·class="lineno">·7116</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07117"></a><span·class="lineno">·7117</span> sub·Intersection·{</div><div·class="line"><a·name="l07118"></a><span·class="lineno">·7118</span> }</div><div·class="line"><a·name="l07119"></a><span·class="lineno">·7119</span> </div><div·class="line"><a·name="l07120"></a><span·class="lineno">·7120</span> <span·class="preprocessor">#**·@method·ReorderField()</span></div><div·class="line"><a·name="l07121"></a><span·class="lineno">·7121</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07122"></a><span·class="lineno">·7122</span> sub·ReorderField·{</div><div·class="line"><a·name="l07123"></a><span·class="lineno">·7123</span> }</div><div·class="line"><a·name="l07124"></a><span·class="lineno">·7124</span> </div><div·class="line"><a·name="l07125"></a><span·class="lineno">·7125</span> <span·class="preprocessor">#**·@method·ReorderFields()</span></div><div·class="line"><a·name="l07126"></a><span·class="lineno">·7126</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07127"></a><span·class="lineno">·7127</span> sub·ReorderFields·{</div><div·class="line"><a·name="l07128"></a><span·class="lineno">·7128</span> }</div><div·class="line"><a·name="l07129"></a><span·class="lineno">·7129</span> </div><div·class="line"><a·name="l07130"></a><span·class="lineno">·7130</span> <span·class="preprocessor">#**·@method·ResetReading()</span></div><div·class="line"><a·name="l07131"></a><span·class="lineno">·7131</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07132"></a><span·class="lineno">·7132</span> <span·class="preprocessor">#·Initialize·the·layer·object·for·iterative·reading.</span></div><div·class="line"><a·name="l07133"></a><span·class="lineno">·7133</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07134"></a><span·class="lineno">·7134</span> sub·ResetReading·{</div><div·class="line"><a·name="l07135"></a><span·class="lineno">·7135</span> }</div><div·class="line"><a·name="l07136"></a><span·class="lineno">·7136</span> </div><div·class="line"><a·name="l07137"></a><span·class="lineno">·7137</span> <span·class="preprocessor">#**·@method·RollbackTransaction()</span></div><div·class="line"><a·name="l07138"></a><span·class="lineno">·7138</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07139"></a><span·class="lineno">·7139</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07140"></a><span·class="lineno">·7140</span> sub·RollbackTransaction·{</div><div·class="line"><a·name="l07141"></a><span·class="lineno">·7141</span> }</div><div·class="line"><a·name="l07142"></a><span·class="lineno">·7142</span> </div><div·class="line"><a·name="l07143"></a><span·class="lineno">·7143</span> <span·class="preprocessor">#**·@method·hash·reference·Row(%row)</span></div><div·class="line"><a·name="l07144"></a><span·class="lineno">·7144</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07145"></a><span·class="lineno">·7145</span> <span·class="preprocessor">#·Get·and/or·set·the·data·of·a·feature·that·has·the·supplied·feature</span></div><div·class="line"><a·name="l07146"></a><span·class="lineno">·7146</span> <span·class="preprocessor">#·id·(the·next·feature·obtained·with·GetNextFeature·is·used·if·feature</span></div><div·class="line"><a·name="l07147"></a><span·class="lineno">·7147</span> <span·class="preprocessor">#·id·is·not·given).·Calls·Geo::OGR::Feature::Row.</span></div><div·class="line"><a·name="l07148"></a><span·class="lineno">·7148</span> <span·class="preprocessor">#·@param·row·[optional]·feature·data</span></div><div·class="line"><a·name="l07149"></a><span·class="lineno">·7149</span> <span·class="preprocessor">#·@return·a·reference·to·feature·data·in·a·hash</span></div><div·class="line"><a·name="l07150"></a><span·class="lineno">·7150</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07151"></a><span·class="lineno">·7151</span> sub·Row·{</div><div·class="line"><a·name="l07152"></a><span·class="lineno">·7152</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l07153"></a><span·class="lineno">·7153</span> ····my·$update·=·@_·>·0;</div><div·class="line"><a·name="l07154"></a><span·class="lineno">·7154</span> ····my·%row·=·@_;</div><div·class="line"><a·name="l07155"></a><span·class="lineno">·7155</span> ····my·$feature·=·defined·$row{FID}·?·$self->GetFeature($row{FID})·:·$self->GetNextFeature;</div><div·class="line"><a·name="l07156"></a><span·class="lineno">·7156</span> ····<span·class="keywordflow">return</span>·unless·$feature;</div><div·class="line"><a·name="l07157"></a><span·class="lineno">·7157</span> ····my·$ret;</div><div·class="line"><a·name="l07158"></a><span·class="lineno">·7158</span> ····if·(defined·wantarray)·{</div><div·class="line"><a·name="l07159"></a><span·class="lineno">·7159</span> ········$ret·=·$feature->Row(@_);</div><div·class="line"><a·name="l07160"></a><span·class="lineno">·7160</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l07161"></a><span·class="lineno">·7161</span> ········$feature->Row(@_);</div><div·class="line"><a·name="l07162"></a><span·class="lineno">·7162</span> ····}</div><div·class="line"><a·name="l07163"></a><span·class="lineno">·7163</span> ····$self->SetFeature($feature)·<span·class="keywordflow">if</span>·$update;</div><div·class="line"><a·name="l07164"></a><span·class="lineno">·7164</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l07165"></a><span·class="lineno">·7165</span> ····<span·class="keywordflow">return</span>·$ret;</div><div·class="line"><a·name="l07166"></a><span·class="lineno">·7166</span> }</div><div·class="line"><a·name="l07167"></a><span·class="lineno">·7167</span> </div><div·class="line"><a·name="l07168"></a><span·class="lineno">·7168</span> <span·class="preprocessor">#**·@method·SetAttributeFilter($filter_string)</span></div><div·class="line"><a·name="l07169"></a><span·class="lineno">·7169</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07170"></a><span·class="lineno">·7170</span> <span·class="preprocessor">#·Set·or·clear·the·attribute·filter.</span></div><div·class="line"><a·name="l07171"></a><span·class="lineno">·7171</span> <span·class="preprocessor">#·@param·filter_string·a·SQL·WHERE·clause·or·undef·to·clear·the</span></div><div·class="line"><a·name="l07172"></a><span·class="lineno">·7172</span> <span·class="preprocessor">#·filter.</span></div><div·class="line"><a·name="l07173"></a><span·class="lineno">·7173</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07174"></a><span·class="lineno">·7174</span> sub·SetAttributeFilter·{</div><div·class="line"><a·name="l07175"></a><span·class="lineno">·7175</span> }</div><div·class="line"><a·name="l07176"></a><span·class="lineno">·7176</span> </div><div·class="line"><a·name="l07177"></a><span·class="lineno">·7177</span> <span·class="preprocessor">#**·@method·SetFeature($feature)</span></div><div·class="line"><a·name="l07178"></a><span·class="lineno">·7178</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07179"></a><span·class="lineno">·7179</span> <span·class="preprocessor">#·@note·The·feature·should·have·the·same·schema·as·the·layer.</span></div><div·class="line"><a·name="l07180"></a><span·class="lineno">·7180</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l07181"></a><span·class="lineno">·7181</span> <span·class="preprocessor">#·Replaces·a·feature·in·the·layer·based·on·the·given·feature's</span></div><div·class="line"><a·name="l07182"></a><span·class="lineno">·7182</span> <span·class="preprocessor">#·id.·Requires·RandomWrite·capability.</span></div><div·class="line"><a·name="l07183"></a><span·class="lineno">·7183</span> <span·class="preprocessor">#·@param·feature·a·Geo::OGR::Feature·object</span></div><div·class="line"><a·name="l07184"></a><span·class="lineno">·7184</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07185"></a><span·class="lineno">·7185</span> sub·SetFeature·{</div><div·class="line"><a·name="l07186"></a><span·class="lineno">·7186</span> }</div><div·class="line"><a·name="l07187"></a><span·class="lineno">·7187</span> </div><div·class="line"><a·name="l07188"></a><span·class="lineno">·7188</span> <span·class="preprocessor">#**·@method·SetIgnoredFields(@fields)</span></div><div·class="line"><a·name="l07189"></a><span·class="lineno">·7189</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07190"></a><span·class="lineno">·7190</span> <span·class="preprocessor">#·@param·fields·a·list·of·field·names</span></div><div·class="line"><a·name="l07191"></a><span·class="lineno">·7191</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07192"></a><span·class="lineno">·7192</span> sub·SetIgnoredFields·{</div><div·class="line"><a·name="l07193"></a><span·class="lineno">·7193</span> }</div><div·class="line"><a·name="l07194"></a><span·class="lineno">·7194</span> </div><div·class="line"><a·name="l07195"></a><span·class="lineno">·7195</span> <span·class="preprocessor">#**·@method·SetNextByIndex($new_index)</span></div><div·class="line"><a·name="l07196"></a><span·class="lineno">·7196</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07197"></a><span·class="lineno">·7197</span> <span·class="preprocessor">#·@param·new_index·the·index·to·which·set·the·read·cursor·in·the</span></div><div·class="line"><a·name="l07198"></a><span·class="lineno">·7198</span> <span·class="preprocessor">#·current·iteration</span></div><div·class="line"><a·name="l07199"></a><span·class="lineno">·7199</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07200"></a><span·class="lineno">·7200</span> sub·SetNextByIndex·{</div><div·class="line"><a·name="l07201"></a><span·class="lineno">·7201</span> }</div><div·class="line"><a·name="l07202"></a><span·class="lineno">·7202</span> </div><div·class="line"><a·name="l07203"></a><span·class="lineno">·7203</span> <span·class="preprocessor">#**·@method·SetSpatialFilter($filter)</span></div><div·class="line"><a·name="l07204"></a><span·class="lineno">·7204</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07205"></a><span·class="lineno">·7205</span> <span·class="preprocessor">#·@param·filter·[optional]·a·Geo::OGR::Geometry·object.·If·not·given,</span></div><div·class="line"><a·name="l07206"></a><span·class="lineno">·7206</span> <span·class="preprocessor">#·removes·the·filter·if·there·is·one.</span></div><div·class="line"><a·name="l07207"></a><span·class="lineno">·7207</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07208"></a><span·class="lineno">·7208</span> sub·SetSpatialFilter·{</div><div·class="line"><a·name="l07209"></a><span·class="lineno">·7209</span> }</div><div·class="line"><a·name="l07210"></a><span·class="lineno">·7210</span> </div><div·class="line"><a·name="l07211"></a><span·class="lineno">·7211</span> <span·class="preprocessor">#**·@method·SetSpatialFilterRect($minx,·$miny,·$maxx,·$maxy)</span></div><div·class="line"><a·name="l07212"></a><span·class="lineno">·7212</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07213"></a><span·class="lineno">·7213</span> <span·class="preprocessor">#·@param·minx</span></div><div·class="line"><a·name="l07214"></a><span·class="lineno">·7214</span> <span·class="preprocessor">#·@param·miny</span></div><div·class="line"><a·name="l07215"></a><span·class="lineno">·7215</span> <span·class="preprocessor">#·@param·maxx</span></div><div·class="line"><a·name="l07216"></a><span·class="lineno">·7216</span> <span·class="preprocessor">#·@param·maxy</span></div><div·class="line"><a·name="l07217"></a><span·class="lineno">·7217</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07218"></a><span·class="lineno">·7218</span> sub·SetSpatialFilterRect·{</div><div·class="line"><a·name="l07219"></a><span·class="lineno">·7219</span> }</div><div·class="line"><a·name="l07220"></a><span·class="lineno">·7220</span> </div><div·class="line"><a·name="l07221"></a><span·class="lineno">·7221</span> <span·class="preprocessor">#**·@method·SetStyleTable()</span></div><div·class="line"><a·name="l07222"></a><span·class="lineno">·7222</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07223"></a><span·class="lineno">·7223</span> sub·SetStyleTable·{</div><div·class="line"><a·name="l07224"></a><span·class="lineno">·7224</span> }</div><div·class="line"><a·name="l07225"></a><span·class="lineno">·7225</span> </div><div·class="line"><a·name="l07226"></a><span·class="lineno">·7226</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·SpatialFilter(@filter)</span></div><div·class="line"><a·name="l07227"></a><span·class="lineno">·7227</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07228"></a><span·class="lineno">·7228</span> <span·class="preprocessor">#·@param·filter·[optional]·a·Geo::OGR::Geometry·object·or·a·string.·An</span></div><div·class="line"><a·name="l07229"></a><span·class="lineno">·7229</span> <span·class="preprocessor">#·undefined·value·removes·the·filter·if·there·is·one.</span></div><div·class="line"><a·name="l07230"></a><span·class="lineno">·7230</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l07231"></a><span·class="lineno">·7231</span> <span·class="preprocessor">#·@param·filter·[optional]·a·rectangle·($minx,·$miny,·$maxx,·$maxy).</span></div><div·class="line"><a·name="l07232"></a><span·class="lineno">·7232</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l07233"></a><span·class="lineno">·7233</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07234"></a><span·class="lineno">·7234</span> sub·SpatialFilter·{</div><div·class="line"><a·name="l07235"></a><span·class="lineno">·7235</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l07236"></a><span·class="lineno">·7236</span> ····$self->SetSpatialFilter($_[0])·<span·class="keywordflow">if</span>·@_·==·1;</div><div·class="line"><a·name="l07237"></a><span·class="lineno">·7237</span> ····$self->SetSpatialFilterRect(@_)·<span·class="keywordflow">if</span>·@_·==·4;</div><div·class="line"><a·name="l07238"></a><span·class="lineno">·7238</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l07239"></a><span·class="lineno">·7239</span> ····$self->GetSpatialFilter;</div><div·class="line"><a·name="l07240"></a><span·class="lineno">·7240</span> }</div><div·class="line"><a·name="l07241"></a><span·class="lineno">·7241</span> </div><div·class="line"><a·name="l07242"></a><span·class="lineno">·7242</span> <span·class="preprocessor">#**·@method·Geo::OSR::SpatialReference·SpatialReference($name,·Geo::OSR::SpatialReference·sr)</span></div><div·class="line"><a·name="l07243"></a><span·class="lineno">·7243</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07244"></a><span·class="lineno">·7244</span> <span·class="preprocessor">#·@note·A.k.a·GetSpatialRef.</span></div><div·class="line"><a·name="l07245"></a><span·class="lineno">·7245</span> <span·class="preprocessor">#·Get·or·set·the·projection·of·a·spatial·field·of·this·layer.·Gets·or</span></div><div·class="line"><a·name="l07246"></a><span·class="lineno">·7246</span> <span·class="preprocessor">#·sets·the·projection·of·the·first·field·if·no·field·name·is·given.</span></div><div·class="line"><a·name="l07247"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1VSILFILE.html">·7247</a></span> <span·class="preprocessor">#·@param·name·[optional]·a·name·of·a·spatial·field·in·this·layer.</span></div><div·class="line"><a·name="l07248"></a><span·class="lineno">·7248</span> <span·class="preprocessor">#·@param·sr·[optional]·a·Geo::OSR::SpatialReference·object,</span></div><div·class="line"><a·name="l07249"></a><span·class="lineno">·7249</span> <span·class="preprocessor">#·which·replaces·the·existing·projection.</span></div><div·class="line"><a·name="l07250"></a><span·class="lineno">·7250</span> <span·class="preprocessor">#·@return·a·Geo::OSR::SpatialReference·object,·which·represents·the</span></div><div·class="line"><a·name="l07251"></a><span·class="lineno">·7251</span> <span·class="preprocessor">#·projection·in·the·given·spatial·field.</span></div><div·class="line"><a·name="l07252"></a><span·class="lineno">·7252</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07253"></a><span·class="lineno">·7253</span> sub·SpatialReference·{</div><div·class="line"><a·name="l07254"></a><span·class="lineno">·7254</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l07255"></a><span·class="lineno">·7255</span> ····my·$d·=·$self->GetDefn;</div><div·class="line"><a·name="l07256"></a><span·class="lineno">·7256</span> ····my·$field·=·@_·==·2·?·$d->GetGeomFieldIndex(shift·<span·class="comment">//·0)·:·0;</span></div><div·class="line"><a·name="l07257"></a><span·class="lineno">·7257</span> ····my·$sr·=·shift;</div><div·class="line"><a·name="l07258"></a><span·class="lineno">·7258</span> ····my·$d2·=·$d->_GetGeomFieldDefn($field);</div><div·class="line"><a·name="l07259"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1XML.html">·7259</a></span> ····$d2->SpatialReference($sr)·<span·class="keywordflow">if</span>·defined·$sr;</div><div·class="line"><a·name="l07260"></a><span·class="lineno">·7260</span> ····<span·class="keywordflow">return</span>·$d2->SpatialReference()·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l07261"></a><span·class="lineno">·7261</span> }</div><div·class="line"><a·name="l07262"></a><span·class="lineno">·7262</span> </div><div·class="line"><a·name="l07263"></a><span·class="lineno">·7263</span> <span·class="preprocessor">#**·@method·StartTransaction()</span></div><div·class="line"><a·name="l07264"></a><span·class="lineno">·7264</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07265"></a><span·class="lineno">·7265</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07266"></a><span·class="lineno">·7266</span> sub·StartTransaction·{</div><div·class="line"><a·name="l07267"></a><span·class="lineno">·7267</span> }</div><div·class="line"><a·name="l07268"></a><span·class="lineno">·7268</span> </div><div·class="line"><a·name="l07269"></a><span·class="lineno">·7269</span> <span·class="preprocessor">#**·@method·SymDifference(Geo::OGR::Layer·method,·Geo::OGR::Layer·result,·hashref·options,·coderef·callback,·$callback_data)</span></div><div·class="line"><a·name="l07270"></a><span·class="lineno">·7270</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07271"></a><span·class="lineno">·7271</span> <span·class="preprocessor">#·The·result·layer·contains·features·whose·geometries·represent·areas</span></div><div·class="line"><a·name="l07272"></a><span·class="lineno">·7272</span> <span·class="preprocessor">#·that·are·in·either·in·the·input·layer·or·in·the·method·layer·but·not</span></div><div·class="line"><a·name="l07273"></a><span·class="lineno">·7273</span> <span·class="preprocessor">#·in·both.·The·features·in·the·result·layer·have·attributes·from·both</span></div><div·class="line"><a·name="l07274"></a><span·class="lineno">·7274</span> <span·class="preprocessor">#·input·and·method·layers.·For·features·which·represent·areas·that·are</span></div><div·class="line"><a·name="l07275"></a><span·class="lineno">·7275</span> <span·class="preprocessor">#·only·in·the·input·or·in·the·method·layer·the·respective·attributes</span></div><div·class="line"><a·name="l07276"></a><span·class="lineno">·7276</span> <span·class="preprocessor">#·have·undefined·values.·The·schema·of·the·result·layer·can·be·set·by</span></div><div·class="line"><a·name="l07277"></a><span·class="lineno">·7277</span> <span·class="preprocessor">#·the·user·or,·if·it·is·empty,·is·initialized·to·contain·all·fields·in</span></div><div·class="line"><a·name="l07278"></a><span·class="lineno">·7278</span> <span·class="preprocessor">#·the·input·and·method·layers.</span></div><div·class="line"><a·name="l07279"></a><span·class="lineno">·7279</span> <span·class="preprocessor">#·@param·method·method·layer.</span></div><div·class="line"><a·name="l07280"></a><span·class="lineno">·7280</span> <span·class="preprocessor">#·@param·result·result·layer.</span></div><div·class="line"><a·name="l07281"></a><span·class="lineno">·7281</span> <span·class="preprocessor">#·@param·options·a·reference·to·an·options·hash.</span></div><div·class="line"><a·name="l07282"></a><span·class="lineno">·7282</span> <span·class="preprocessor">#·@param·callback·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l07283"></a><span·class="lineno">·7283</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·callback_data)</span></div><div·class="line"><a·name="l07284"></a><span·class="lineno">·7284</span> <span·class="preprocessor">#·@param·callback_data·[optional]</span></div><div·class="line"><a·name="l07285"></a><span·class="lineno">·7285</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07286"></a><span·class="lineno">·7286</span> sub·SymDifference·{</div><div·class="line"><a·name="l07287"></a><span·class="lineno">·7287</span> }</div><div·class="line"><a·name="l07288"></a><span·class="lineno">·7288</span> </div><div·class="line"><a·name="l07289"></a><span·class="lineno">·7289</span> <span·class="preprocessor">#**·@method·SyncToDisk()</span></div><div·class="line"><a·name="l07290"></a><span·class="lineno">·7290</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07291"></a><span·class="lineno">·7291</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07292"></a><span·class="lineno">·7292</span> sub·SyncToDisk·{</div><div·class="line"><a·name="l07293"></a><span·class="lineno">·7293</span> }</div><div·class="line"><a·name="l07294"></a><span·class="lineno">·7294</span> </div><div·class="line"><a·name="l07295"></a><span·class="lineno">·7295</span> <span·class="preprocessor">#**·@method·scalar·TestCapability($cap)</span></div><div·class="line"><a·name="l07296"></a><span·class="lineno">·7296</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07297"></a><span·class="lineno">·7297</span> <span·class="preprocessor">#·@param·cap·A·capability·string.</span></div><div·class="line"><a·name="l07298"></a><span·class="lineno">·7298</span> <span·class="preprocessor">#·@return·a·boolean·value·indicating·whether·the·layer·has·the</span></div><div·class="line"><a·name="l07299"></a><span·class="lineno">·7299</span> <span·class="preprocessor">#·specified·capability.</span></div><div·class="line"><a·name="l07300"></a><span·class="lineno">·7300</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07301"></a><span·class="lineno">·7301</span> sub·TestCapability·{</div><div·class="line"><a·name="l07302"></a><span·class="lineno">·7302</span> ····my($self,·$cap)·=·@_;</div><div·class="line"><a·name="l07303"></a><span·class="lineno">·7303</span> ····<span·class="keywordflow">return</span>·_TestCapability($self,·$CAPABILITIES{$cap});</div><div·class="line"><a·name="l07304"></a><span·class="lineno">·7304</span> }</div><div·class="line"><a·name="l07305"></a><span·class="lineno">·7305</span> </div><div·class="line"><a·name="l07306"></a><span·class="lineno">·7306</span> <span·class="preprocessor">#**·@method·list·Tuple(@tuple)</span></div><div·class="line"><a·name="l07307"></a><span·class="lineno">·7307</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07308"></a><span·class="lineno">·7308</span> <span·class="preprocessor">#·Get·and/set·the·data·of·a·feature·that·has·the·supplied·feature·id</span></div><div·class="line"><a·name="l07309"></a><span·class="lineno">·7309</span> <span·class="preprocessor">#·(the·next·feature·obtained·with·GetNextFeature·is·used·if·feature·id</span></div><div·class="line"><a·name="l07310"></a><span·class="lineno">·7310</span> <span·class="preprocessor">#·is·not·given).·The·expected·data·in·the·tuple·is:·([feature·id,]</span></div><div·class="line"><a·name="l07311"></a><span·class="lineno">·7311</span> <span·class="preprocessor">#·non-spatial·fields,·spatial·fields).·Calls·Geo::OGR::Feature::Tuple.</span></div><div·class="line"><a·name="l07312"></a><span·class="lineno">·7312</span> <span·class="preprocessor">#·@param·tuple·[optional]·feature·data</span></div><div·class="line"><a·name="l07313"></a><span·class="lineno">·7313</span> <span·class="preprocessor">#·@note·The·schema·of·the·tuple·needs·to·be·the·same·as·that·of·the</span></div><div·class="line"><a·name="l07314"></a><span·class="lineno">·7314</span> <span·class="preprocessor">#·layer.</span></div><div·class="line"><a·name="l07315"></a><span·class="lineno">·7315</span> <span·class="preprocessor">#·@return·a·reference·to·feature·data·in·an·array</span></div><div·class="line"><a·name="l07316"></a><span·class="lineno">·7316</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07317"></a><span·class="lineno">·7317</span> sub·Tuple·{</div><div·class="line"><a·name="l07318"></a><span·class="lineno">·7318</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l07319"></a><span·class="lineno">·7319</span> ····my·$FID·=·shift;</div><div·class="line"><a·name="l07320"></a><span·class="lineno">·7320</span> ····my·$feature·=·defined·$FID·?·$self->GetFeature($FID)·:·$self->GetNextFeature;</div><div·class="line"><a·name="l07321"></a><span·class="lineno">·7321</span> ····<span·class="keywordflow">return</span>·unless·$feature;</div><div·class="line"><a·name="l07322"></a><span·class="lineno">·7322</span> ····my·$set·=·@_·>·0;</div><div·class="line"><a·name="l07323"></a><span·class="lineno">·7323</span> ····unshift·@_,·$feature->GetFID·<span·class="keywordflow">if</span>·$set;</div><div·class="line"><a·name="l07324"></a><span·class="lineno">·7324</span> ····my·@ret;</div><div·class="line"><a·name="l07325"></a><span·class="lineno">·7325</span> ····<span·class="keywordflow">if</span>·(defined·wantarray)·{</div><div·class="line"><a·name="l07326"></a><span·class="lineno">·7326</span> ········@ret·=·$feature->Tuple(@_);</div><div·class="line"><a·name="l07327"></a><span·class="lineno">·7327</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l07328"></a><span·class="lineno">·7328</span> ········$feature->Tuple(@_);</div><div·class="line"><a·name="l07329"></a><span·class="lineno">·7329</span> ····}</div><div·class="line"><a·name="l07330"></a><span·class="lineno">·7330</span> ····$self->SetFeature($feature)·<span·class="keywordflow">if</span>·$set;</div><div·class="line"><a·name="l07331"></a><span·class="lineno">·7331</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l07332"></a><span·class="lineno">·7332</span> ····<span·class="keywordflow">return</span>·@ret;</div><div·class="line"><a·name="l07333"></a><span·class="lineno">·7333</span> }</div><div·class="line"><a·name="l07334"></a><span·class="lineno">·7334</span> </div><div·class="line"><a·name="l07335"></a><span·class="lineno">·7335</span> <span·class="preprocessor">#**·@method·Union(Geo::OGR::Layer·method,·Geo::OGR::Layer·result,·hashref·options,·coderef·callback,·$callback_data)</span></div><div·class="line"><a·name="l07336"></a><span·class="lineno">·7336</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07337"></a><span·class="lineno">·7337</span> <span·class="preprocessor">#·The·result·layer·contains·features·whose·geometries·represent·areas</span></div><div·class="line"><a·name="l07338"></a><span·class="lineno">·7338</span> <span·class="preprocessor">#·that·are·in·either·in·the·input·layer·or·in·the·method·layer.·The</span></div><div·class="line"><a·name="l07339"></a><span·class="lineno">·7339</span> <span·class="preprocessor">#·schema·of·the·result·layer·can·be·set·before·calling·this·method,·or</span></div><div·class="line"><a·name="l07340"></a><span·class="lineno">·7340</span> <span·class="preprocessor">#·is·initialized·to·contain·all·fields·from·this·and·method·layer.</span></div><div·class="line"><a·name="l07341"></a><span·class="lineno">·7341</span> <span·class="preprocessor">#·@param·method·method·layer.</span></div><div·class="line"><a·name="l07342"></a><span·class="lineno">·7342</span> <span·class="preprocessor">#·@param·result·result·layer.</span></div><div·class="line"><a·name="l07343"></a><span·class="lineno">·7343</span> <span·class="preprocessor">#·@param·options·a·reference·to·an·options·hash.</span></div><div·class="line"><a·name="l07344"></a><span·class="lineno">·7344</span> <span·class="preprocessor">#·@param·callback·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l07345"></a><span·class="lineno">·7345</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·callback_data)</span></div><div·class="line"><a·name="l07346"></a><span·class="lineno">·7346</span> <span·class="preprocessor">#·@param·callback_data·[optional]</span></div><div·class="line"><a·name="l07347"></a><span·class="lineno">·7347</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07348"></a><span·class="lineno">·7348</span> sub·Union·{</div><div·class="line"><a·name="l07349"></a><span·class="lineno">·7349</span> }</div><div·class="line"><a·name="l07350"></a><span·class="lineno">·7350</span> </div><div·class="line"><a·name="l07351"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GNM.html">·7351</a></span> <span·class="preprocessor">#**·@method·Update(Geo::OGR::Layer·method,·Geo::OGR::Layer·result,·hashref·options,·coderef·callback,·$callback_data)</span></div><div·class="line"><a·name="l07352"></a><span·class="lineno">·7352</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07353"></a><span·class="lineno">·7353</span> <span·class="preprocessor">#·The·result·layer·contains·features·whose·geometries·represent·areas</span></div><div·class="line"><a·name="l07354"></a><span·class="lineno">·7354</span> <span·class="preprocessor">#·that·are·either·in·the·input·layer·or·in·the·method·layer.·The</span></div><div·class="line"><a·name="l07355"></a><span·class="lineno">·7355</span> <span·class="preprocessor">#·features·in·the·result·layer·have·areas·of·the·features·of·the</span></div><div·class="line"><a·name="l07356"></a><span·class="lineno">·7356</span> <span·class="preprocessor">#·method·layer·or·those·ares·of·the·features·of·the·input·layer·that</span></div><div·class="line"><a·name="l07357"></a><span·class="lineno">·7357</span> <span·class="preprocessor">#·are·not·covered·by·the·method·layer.·The·features·of·the·result</span></div><div·class="line"><a·name="l07358"></a><span·class="lineno">·7358</span> <span·class="preprocessor">#·layer·get·their·attributes·from·the·input·layer.·The·schema·of·the</span></div><div·class="line"><a·name="l07359"></a><span·class="lineno">·7359</span> <span·class="preprocessor">#·result·layer·can·be·set·by·the·user·or,·if·it·is·empty,·is</span></div><div·class="line"><a·name="l07360"></a><span·class="lineno">·7360</span> <span·class="preprocessor">#·initialized·to·contain·all·fields·in·the·input·layer.</span></div><div·class="line"><a·name="l07361"></a><span·class="lineno">·7361</span> <span·class="preprocessor">#·@param·method·method·layer.</span></div><div·class="line"><a·name="l07362"></a><span·class="lineno">·7362</span> <span·class="preprocessor">#·@param·result·result·layer.</span></div><div·class="line"><a·name="l07363"></a><span·class="lineno">·7363</span> <span·class="preprocessor">#·@param·options·a·reference·to·an·options·hash.</span></div><div·class="line"><a·name="l07364"></a><span·class="lineno">·7364</span> <span·class="preprocessor">#·@param·callback·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l07365"></a><span·class="lineno">·7365</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·callback_data)</span></div><div·class="line"><a·name="l07366"></a><span·class="lineno">·7366</span> <span·class="preprocessor">#·@param·callback_data·[optional]</span></div><div·class="line"><a·name="l07367"></a><span·class="lineno">·7367</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07368"></a><span·class="lineno">·7368</span> sub·Update·{</div><div·class="line"><a·name="l07369"></a><span·class="lineno">·7369</span> }</div><div·class="line"><a·name="l07370"></a><span·class="lineno">·7370</span> </div><div·class="line"><a·name="l07371"></a><span·class="lineno">·7371</span> <span·class="preprocessor">#**·@class·Geo::OGR::StyleTable</span></div><div·class="line"><a·name="l07372"></a><span·class="lineno">·7372</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07373"></a><span·class="lineno">·7373</span> <span·class="keyword">package·</span>Geo::OGR::StyleTable;</div><div·class="line"><a·name="l07374"></a><span·class="lineno">·7374</span> </div><div·class="line"><a·name="l07375"></a><span·class="lineno">·7375</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1OGR.html">Geo::OGR</a>)</div><div·class="line"><a·name="l07376"></a><span·class="lineno">·7376</span> </div><div·class="line"><a·name="l07377"></a><span·class="lineno">·7377</span> <span·class="preprocessor">#**·@method·AddStyle()</span></div><div·class="line"><a·name="l07378"></a><span·class="lineno">·7378</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07379"></a><span·class="lineno">·7379</span> sub·AddStyle·{</div><div·class="line"><a·name="l07380"></a><span·class="lineno">·7380</span> }</div><div·class="line"><a·name="l07381"></a><span·class="lineno">·7381</span> </div><div·class="line"><a·name="l07382"></a><span·class="lineno">·7382</span> <span·class="preprocessor">#**·@method·Find()</span></div><div·class="line"><a·name="l07383"></a><span·class="lineno">·7383</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07384"></a><span·class="lineno">·7384</span> sub·Find·{</div><div·class="line"><a·name="l07385"></a><span·class="lineno">·7385</span> }</div><div·class="line"><a·name="l07386"></a><span·class="lineno">·7386</span> </div><div·class="line"><a·name="l07387"></a><span·class="lineno">·7387</span> <span·class="preprocessor">#**·@method·GetLastStyleName()</span></div><div·class="line"><a·name="l07388"></a><span·class="lineno">·7388</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07389"></a><span·class="lineno">·7389</span> sub·GetLastStyleName·{</div><div·class="line"><a·name="l07390"></a><span·class="lineno">·7390</span> }</div><div·class="line"><a·name="l07391"></a><span·class="lineno">·7391</span> </div><div·class="line"><a·name="l07392"></a><span·class="lineno">·7392</span> <span·class="preprocessor">#**·@method·GetNextStyle()</span></div><div·class="line"><a·name="l07393"></a><span·class="lineno">·7393</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07394"></a><span·class="lineno">·7394</span> sub·GetNextStyle·{</div><div·class="line"><a·name="l07395"></a><span·class="lineno">·7395</span> }</div><div·class="line"><a·name="l07396"></a><span·class="lineno">·7396</span> </div><div·class="line"><a·name="l07397"></a><span·class="lineno">·7397</span> <span·class="preprocessor">#**·@method·LoadStyleTable()</span></div><div·class="line"><a·name="l07398"></a><span·class="lineno">·7398</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07399"></a><span·class="lineno">·7399</span> sub·LoadStyleTable·{</div><div·class="line"><a·name="l07400"></a><span·class="lineno">·7400</span> }</div><div·class="line"><a·name="l07401"></a><span·class="lineno">·7401</span> </div><div·class="line"><a·name="l07402"></a><span·class="lineno">·7402</span> <span·class="preprocessor">#**·@method·ResetStyleStringReading()</span></div><div·class="line"><a·name="l07403"></a><span·class="lineno">·7403</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07404"></a><span·class="lineno">·7404</span> sub·ResetStyleStringReading·{</div><div·class="line"><a·name="l07405"></a><span·class="lineno">·7405</span> }</div><div·class="line"><a·name="l07406"></a><span·class="lineno">·7406</span> </div><div·class="line"><a·name="l07407"></a><span·class="lineno">·7407</span> <span·class="preprocessor">#**·@method·SaveStyleTable()</span></div><div·class="line"><a·name="l07408"></a><span·class="lineno">·7408</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07409"></a><span·class="lineno">·7409</span> sub·SaveStyleTable·{</div><div·class="line"><a·name="l07410"></a><span·class="lineno">·7410</span> }</div><div·class="line"><a·name="l07411"></a><span·class="lineno">·7411</span> </div><div·class="line"><a·name="l07412"></a><span·class="lineno">·7412</span> <span·class="preprocessor">#**·@method·new()</span></div><div·class="line"><a·name="l07413"></a><span·class="lineno">·7413</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07414"></a><span·class="lineno">·7414</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l07415"></a><span·class="lineno">·7415</span> ····my·$pkg·=·shift;</div><div·class="line"><a·name="l07416"></a><span·class="lineno">·7416</span> ····my·$self·=·Geo::OGRc::new_StyleTable(@_);</div><div·class="line"><a·name="l07417"></a><span·class="lineno">·7417</span> ····bless·$self,·$pkg·<span·class="keywordflow">if</span>·defined($self);</div><div·class="line"><a·name="l07418"></a><span·class="lineno">·7418</span> }</div><div·class="line"><a·name="l07419"></a><span·class="lineno">·7419</span> </div><div·class="line"><a·name="l07420"></a><span·class="lineno">·7420</span> <span·class="preprocessor">#**·@class·Geo::OSR</span></div><div·class="line"><a·name="l07421"></a><span·class="lineno">·7421</span> <span·class="preprocessor">#·@brief·Base·class·for·projection·related·classes.</span></div><div·class="line"><a·name="l07422"></a><span·class="lineno">·7422</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l07423"></a><span·class="lineno">·7423</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07424"></a><span·class="lineno">·7424</span> <span·class="keyword">package·</span>Geo::OSR;</div><div·class="line"><a·name="l07425"></a><span·class="lineno">·7425</span> </div><div·class="line"><a·name="l07426"></a><span·class="lineno">·7426</span> <span·class="preprocessor">#**·@method·list·AngularUnits()</span></div><div·class="line"><a·name="l07427"></a><span·class="lineno">·7427</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l07428"></a><span·class="lineno">·7428</span> <span·class="preprocessor">#·@return·list·of·known·angular·units.</span></div><div·class="line"><a·name="l07429"></a><span·class="lineno">·7429</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07430"></a><span·class="lineno">·7430</span> sub·AngularUnits·{</div><div·class="line"><a·name="l07431"></a><span·class="lineno">·7431</span> ····<span·class="keywordflow">return</span>·keys·%ANGULAR_UNITS;</div><div·class="line"><a·name="l07432"></a><span·class="lineno">·7432</span> }</div><div·class="line"><a·name="l07433"></a><span·class="lineno">·7433</span> </div><div·class="line"><a·name="l07434"></a><span·class="lineno">·7434</span> <span·class="preprocessor">#**·@method·CreateCoordinateTransformation()</span></div><div·class="line"><a·name="l07435"></a><span·class="lineno">·7435</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07436"></a><span·class="lineno">·7436</span> sub·CreateCoordinateTransformation·{</div><div·class="line"><a·name="l07437"></a><span·class="lineno">·7437</span> }</div><div·class="line"><a·name="l07438"></a><span·class="lineno">·7438</span> </div><div·class="line"><a·name="l07439"></a><span·class="lineno">·7439</span> <span·class="preprocessor">#**·@method·list·Datums()</span></div><div·class="line"><a·name="l07440"></a><span·class="lineno">·7440</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l07441"></a><span·class="lineno">·7441</span> <span·class="preprocessor">#·@return·list·of·known·datums.</span></div><div·class="line"><a·name="l07442"></a><span·class="lineno">·7442</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07443"></a><span·class="lineno">·7443</span> sub·Datums·{</div><div·class="line"><a·name="l07444"></a><span·class="lineno">·7444</span> ····<span·class="keywordflow">return</span>·keys·%DATUMS;</div><div·class="line"><a·name="l07445"></a><span·class="lineno">·7445</span> }</div><div·class="line"><a·name="l07446"></a><span·class="lineno">·7446</span> </div><div·class="line"><a·name="l07447"></a><span·class="lineno">·7447</span> <span·class="preprocessor">#**·@method·list·GetProjectionMethodParamInfo($projection,·$parameter)</span></div><div·class="line"><a·name="l07448"></a><span·class="lineno">·7448</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l07449"></a><span·class="lineno">·7449</span> <span·class="preprocessor">#·@param·projection·one·of·Geo::OSR::Projections</span></div><div·class="line"><a·name="l07450"></a><span·class="lineno">·7450</span> <span·class="preprocessor">#·@param·parameter·one·of·Geo::OSR::Parameters</span></div><div·class="line"><a·name="l07451"></a><span·class="lineno">·7451</span> <span·class="preprocessor">#·@return·a·list·($user_friendly_name,·$type,·$default_value).</span></div><div·class="line"><a·name="l07452"></a><span·class="lineno">·7452</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07453"></a><span·class="lineno">·7453</span> sub·GetProjectionMethodParamInfo·{</div><div·class="line"><a·name="l07454"></a><span·class="lineno">·7454</span> }</div><div·class="line"><a·name="l07455"></a><span·class="lineno">·7455</span> </div><div·class="line"><a·name="l07456"></a><span·class="lineno">·7456</span> <span·class="preprocessor">#**·@method·list·GetProjectionMethodParameterList($projection)</span></div><div·class="line"><a·name="l07457"></a><span·class="lineno">·7457</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l07458"></a><span·class="lineno">·7458</span> <span·class="preprocessor">#·@param·projection·one·of·Geo::OSR::Projections</span></div><div·class="line"><a·name="l07459"></a><span·class="lineno">·7459</span> <span·class="preprocessor">#·@return·a·list·(arrayref·parameters,·$projection_name).</span></div><div·class="line"><a·name="l07460"></a><span·class="lineno">·7460</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07461"></a><span·class="lineno">·7461</span> sub·GetProjectionMethodParameterList·{</div><div·class="line"><a·name="l07462"></a><span·class="lineno">·7462</span> }</div><div·class="line"><a·name="l07463"></a><span·class="lineno">·7463</span> </div><div·class="line"><a·name="l07464"></a><span·class="lineno">·7464</span> <span·class="preprocessor">#**·@method·array·reference·GetProjectionMethods()</span></div><div·class="line"><a·name="l07465"></a><span·class="lineno">·7465</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l07466"></a><span·class="lineno">·7466</span> <span·class="preprocessor">#·@deprecated·Use·Geo::OSR::Projections.</span></div><div·class="line"><a·name="l07467"></a><span·class="lineno">·7467</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l07468"></a><span·class="lineno">·7468</span> <span·class="preprocessor">#·@return·reference·to·an·array·of·possible·projection·methods.</span></div><div·class="line"><a·name="l07469"></a><span·class="lineno">·7469</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07470"></a><span·class="lineno">·7470</span> sub·GetProjectionMethods·{</div><div·class="line"><a·name="l07471"></a><span·class="lineno">·7471</span> }</div><div·class="line"><a·name="l07472"></a><span·class="lineno">·7472</span> </div><div·class="line"><a·name="l07473"></a><span·class="lineno">·7473</span> <span·class="preprocessor">#**·@method·scalar·GetUserInputAsWKT($name)</span></div><div·class="line"><a·name="l07474"></a><span·class="lineno">·7474</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l07475"></a><span·class="lineno">·7475</span> <span·class="preprocessor">#·@param·name·the·user·input</span></div><div·class="line"><a·name="l07476"></a><span·class="lineno">·7476</span> <span·class="preprocessor">#·@return·a·WKT·string.</span></div><div·class="line"><a·name="l07477"></a><span·class="lineno">·7477</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07478"></a><span·class="lineno">·7478</span> sub·GetUserInputAsWKT·{</div><div·class="line"><a·name="l07479"></a><span·class="lineno">·7479</span> }</div><div·class="line"><a·name="l07480"></a><span·class="lineno">·7480</span> </div><div·class="line"><a·name="l07481"></a><span·class="lineno">·7481</span> <span·class="preprocessor">#**·@method·scalar·GetWellKnownGeogCSAsWKT($name)</span></div><div·class="line"><a·name="l07482"></a><span·class="lineno">·7482</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l07483"></a><span·class="lineno">·7483</span> <span·class="preprocessor">#·@brief·Get·well·known·geographic·coordinate·system·as·WKT</span></div><div·class="line"><a·name="l07484"></a><span·class="lineno">·7484</span> <span·class="preprocessor">#·@param·name·a·well·known·name</span></div><div·class="line"><a·name="l07485"></a><span·class="lineno">·7485</span> <span·class="preprocessor">#·@return·a·WKT·string.</span></div><div·class="line"><a·name="l07486"></a><span·class="lineno">·7486</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07487"></a><span·class="lineno">·7487</span> sub·GetWellKnownGeogCSAsWKT·{</div><div·class="line"><a·name="l07488"></a><span·class="lineno">·7488</span> }</div><div·class="line"><a·name="l07489"></a><span·class="lineno">·7489</span> </div><div·class="line"><a·name="l07490"></a><span·class="lineno">·7490</span> <span·class="preprocessor">#**·@method·list·LinearUnits()</span></div><div·class="line"><a·name="l07491"></a><span·class="lineno">·7491</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l07492"></a><span·class="lineno">·7492</span> <span·class="preprocessor">#·@return·list·of·known·linear·units.</span></div><div·class="line"><a·name="l07493"></a><span·class="lineno">·7493</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07494"></a><span·class="lineno">·7494</span> sub·LinearUnits·{</div><div·class="line"><a·name="l07495"></a><span·class="lineno">·7495</span> ····<span·class="keywordflow">return</span>·keys·%LINEAR_UNITS;</div><div·class="line"><a·name="l07496"></a><span·class="lineno">·7496</span> }</div><div·class="line"><a·name="l07497"></a><span·class="lineno">·7497</span> </div><div·class="line"><a·name="l07498"></a><span·class="lineno">·7498</span> <span·class="preprocessor">#**·@method·OAO_Down()</span></div><div·class="line"><a·name="l07499"></a><span·class="lineno">·7499</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07500"></a><span·class="lineno">·7500</span> sub·OAO_Down·{</div><div·class="line"><a·name="l07501"></a><span·class="lineno">·7501</span> }</div><div·class="line"><a·name="l07502"></a><span·class="lineno">·7502</span> </div><div·class="line"><a·name="l07503"></a><span·class="lineno">·7503</span> <span·class="preprocessor">#**·@method·OAO_East()</span></div><div·class="line"><a·name="l07504"></a><span·class="lineno">·7504</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07505"></a><span·class="lineno">·7505</span> sub·OAO_East·{</div><div·class="line"><a·name="l07506"></a><span·class="lineno">·7506</span> }</div><div·class="line"><a·name="l07507"></a><span·class="lineno">·7507</span> </div><div·class="line"><a·name="l07508"></a><span·class="lineno">·7508</span> <span·class="preprocessor">#**·@method·OAO_North()</span></div><div·class="line"><a·name="l07509"></a><span·class="lineno">·7509</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07510"></a><span·class="lineno">·7510</span> sub·OAO_North·{</div><div·class="line"><a·name="l07511"></a><span·class="lineno">·7511</span> }</div><div·class="line"><a·name="l07512"></a><span·class="lineno">·7512</span> </div><div·class="line"><a·name="l07513"></a><span·class="lineno">·7513</span> <span·class="preprocessor">#**·@method·OAO_Other()</span></div><div·class="line"><a·name="l07514"></a><span·class="lineno">·7514</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07515"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GNM_1_1GenericNetwork.html">·7515</a></span> sub·OAO_Other·{</div><div·class="line"><a·name="l07516"></a><span·class="lineno">·7516</span> }</div><div·class="line"><a·name="l07517"></a><span·class="lineno">·7517</span> </div><div·class="line"><a·name="l07518"></a><span·class="lineno">·7518</span> <span·class="preprocessor">#**·@method·OAO_South()</span></div><div·class="line"><a·name="l07519"></a><span·class="lineno">·7519</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07520"></a><span·class="lineno">·7520</span> sub·OAO_South·{</div><div·class="line"><a·name="l07521"></a><span·class="lineno">·7521</span> }</div><div·class="line"><a·name="l07522"></a><span·class="lineno">·7522</span> </div><div·class="line"><a·name="l07523"></a><span·class="lineno">·7523</span> <span·class="preprocessor">#**·@method·OAO_Up()</span></div><div·class="line"><a·name="l07524"></a><span·class="lineno">·7524</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07525"></a><span·class="lineno">·7525</span> sub·OAO_Up·{</div><div·class="line"><a·name="l07526"></a><span·class="lineno">·7526</span> }</div><div·class="line"><a·name="l07527"></a><span·class="lineno">·7527</span> </div><div·class="line"><a·name="l07528"></a><span·class="lineno">·7528</span> <span·class="preprocessor">#**·@method·OAO_West()</span></div><div·class="line"><a·name="l07529"></a><span·class="lineno">·7529</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07530"></a><span·class="lineno">·7530</span> sub·OAO_West·{</div><div·class="line"><a·name="l07531"></a><span·class="lineno">·7531</span> }</div><div·class="line"><a·name="l07532"></a><span·class="lineno">·7532</span> </div><div·class="line"><a·name="l07533"></a><span·class="lineno">·7533</span> <span·class="preprocessor">#**·@method·list·Parameters()</span></div><div·class="line"><a·name="l07534"></a><span·class="lineno">·7534</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l07535"></a><span·class="lineno">·7535</span> <span·class="preprocessor">#·@return·list·of·known·projection·parameters.</span></div><div·class="line"><a·name="l07536"></a><span·class="lineno">·7536</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07537"></a><span·class="lineno">·7537</span> sub·Parameters·{</div><div·class="line"><a·name="l07538"></a><span·class="lineno">·7538</span> ····<span·class="keywordflow">return</span>·keys·%PARAMETERS;</div><div·class="line"><a·name="l07539"></a><span·class="lineno">·7539</span> }</div><div·class="line"><a·name="l07540"></a><span·class="lineno">·7540</span> </div><div·class="line"><a·name="l07541"></a><span·class="lineno">·7541</span> <span·class="preprocessor">#**·@method·list·Projections()</span></div><div·class="line"><a·name="l07542"></a><span·class="lineno">·7542</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l07543"></a><span·class="lineno">·7543</span> <span·class="preprocessor">#·@return·list·of·known·projections.</span></div><div·class="line"><a·name="l07544"></a><span·class="lineno">·7544</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07545"></a><span·class="lineno">·7545</span> sub·Projections·{</div><div·class="line"><a·name="l07546"></a><span·class="lineno">·7546</span> ····<span·class="keywordflow">return</span>·keys·%PROJECTIONS;</div><div·class="line"><a·name="l07547"></a><span·class="lineno">·7547</span> }</div><div·class="line"><a·name="l07548"></a><span·class="lineno">·7548</span> </div><div·class="line"><a·name="l07549"></a><span·class="lineno">·7549</span> <span·class="preprocessor">#**·@method·SRS_PM_GREENWICH()</span></div><div·class="line"><a·name="l07550"></a><span·class="lineno">·7550</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07551"></a><span·class="lineno">·7551</span> sub·SRS_PM_GREENWICH·{</div><div·class="line"><a·name="l07552"></a><span·class="lineno">·7552</span> }</div><div·class="line"><a·name="l07553"></a><span·class="lineno">·7553</span> </div><div·class="line"><a·name="l07554"></a><span·class="lineno">·7554</span> <span·class="preprocessor">#**·@method·SRS_WGS84_INVFLATTENING()</span></div><div·class="line"><a·name="l07555"></a><span·class="lineno">·7555</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07556"></a><span·class="lineno">·7556</span> sub·SRS_WGS84_INVFLATTENING·{</div><div·class="line"><a·name="l07557"></a><span·class="lineno">·7557</span> }</div><div·class="line"><a·name="l07558"></a><span·class="lineno">·7558</span> </div><div·class="line"><a·name="l07559"></a><span·class="lineno">·7559</span> <span·class="preprocessor">#**·@method·SRS_WGS84_SEMIMAJOR()</span></div><div·class="line"><a·name="l07560"></a><span·class="lineno">·7560</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07561"></a><span·class="lineno">·7561</span> sub·SRS_WGS84_SEMIMAJOR·{</div><div·class="line"><a·name="l07562"></a><span·class="lineno">·7562</span> }</div><div·class="line"><a·name="l07563"></a><span·class="lineno">·7563</span> </div><div·class="line"><a·name="l07564"></a><span·class="lineno">·7564</span> <span·class="preprocessor">#**·@method·SRS_WKT_WGS84()</span></div><div·class="line"><a·name="l07565"></a><span·class="lineno">·7565</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07566"></a><span·class="lineno">·7566</span> sub·SRS_WKT_WGS84·{</div><div·class="line"><a·name="l07567"></a><span·class="lineno">·7567</span> }</div><div·class="line"><a·name="l07568"></a><span·class="lineno">·7568</span> </div><div·class="line"><a·name="l07569"></a><span·class="lineno">·7569</span> <span·class="preprocessor">#**·@class·Geo::OSR::CoordinateTransformation</span></div><div·class="line"><a·name="l07570"></a><span·class="lineno">·7570</span> <span·class="preprocessor">#·@brief·An·object·for·transforming·from·one·projection·to·another.</span></div><div·class="line"><a·name="l07571"></a><span·class="lineno">·7571</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l07572"></a><span·class="lineno">·7572</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07573"></a><span·class="lineno">·7573</span> <span·class="keyword">package·</span>Geo::OSR::CoordinateTransformation;</div><div·class="line"><a·name="l07574"></a><span·class="lineno">·7574</span> </div><div·class="line"><a·name="l07575"></a><span·class="lineno">·7575</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1OSR.html">Geo::OSR</a>)</div><div·class="line"><a·name="l07576"></a><span·class="lineno">·7576</span> </div><div·class="line"><a·name="l07577"></a><span·class="lineno">·7577</span> <span·class="preprocessor">#**·@method·array·reference·TransformPoint($x,·$y,·$z)</span></div><div·class="line"><a·name="l07578"></a><span·class="lineno">·7578</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07579"></a><span·class="lineno">·7579</span> <span·class="preprocessor">#·@param·x</span></div><div·class="line"><a·name="l07580"></a><span·class="lineno">·7580</span> <span·class="preprocessor">#·@param·y</span></div><div·class="line"><a·name="l07581"></a><span·class="lineno">·7581</span> <span·class="preprocessor">#·@param·z·[optional]</span></div><div·class="line"><a·name="l07582"></a><span·class="lineno">·7582</span> <span·class="preprocessor">#·@return·arrayref·=·[$x,·$y,·$z]</span></div><div·class="line"><a·name="l07583"></a><span·class="lineno">·7583</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07584"></a><span·class="lineno">·7584</span> sub·TransformPoint·{</div><div·class="line"><a·name="l07585"></a><span·class="lineno">·7585</span> }</div><div·class="line"><a·name="l07586"></a><span·class="lineno">·7586</span> </div><div·class="line"><a·name="l07587"></a><span·class="lineno">·7587</span> <span·class="preprocessor">#**·@method·TransformPoints(arrayref·points)</span></div><div·class="line"><a·name="l07588"></a><span·class="lineno">·7588</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07589"></a><span·class="lineno">·7589</span> <span·class="preprocessor">#·@param·points·[in/out]·a·reference·to·a·list·of·points·(line·string</span></div><div·class="line"><a·name="l07590"></a><span·class="lineno">·7590</span> <span·class="preprocessor">#·or·ring)·that·is·modified·in-place.·A·list·of·points·is:·([x,·y,·z],</span></div><div·class="line"><a·name="l07591"></a><span·class="lineno">·7591</span> <span·class="preprocessor">#·[x,·y,·z],·...),·where·z·is·optional.·Supports·also·lists·of·line</span></div><div·class="line"><a·name="l07592"></a><span·class="lineno">·7592</span> <span·class="preprocessor">#·strings·and·polygons.</span></div><div·class="line"><a·name="l07593"></a><span·class="lineno">·7593</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07594"></a><span·class="lineno">·7594</span> sub·TransformPoints·{</div><div·class="line"><a·name="l07595"></a><span·class="lineno">·7595</span> ····my($self,·$points)·=·@_;</div><div·class="line"><a·name="l07596"></a><span·class="lineno">·7596</span> ····_TransformPoints($self,·$points),·<span·class="keywordflow">return</span>·unless·ref($points->[0]->[0]);</div><div·class="line"><a·name="l07597"></a><span·class="lineno">·7597</span> ····<span·class="keywordflow">for</span>·my·$p·(@$points)·{</div><div·class="line"><a·name="l07598"></a><span·class="lineno">·7598</span> ········TransformPoints($self,·$p);</div><div·class="line"><a·name="l07599"></a><span·class="lineno">·7599</span> ····}</div><div·class="line"><a·name="l07600"></a><span·class="lineno">·7600</span> }</div><div·class="line"><a·name="l07601"></a><span·class="lineno">·7601</span> 1;</div><div·class="line"><a·name="l07602"></a><span·class="lineno">·7602</span> <span·class="preprocessor">#·This·file·was·automatically·generated·by·SWIG·(http://www.swig.org).</span></div><div·class="line"><a·name="l07603"></a><span·class="lineno">·7603</span> <span·class="preprocessor">#·Version·2.0.12</span></div><div·class="line"><a·name="l07604"></a><span·class="lineno">·7604</span> <span·class="preprocessor">#</span></div><div·class="line"><a·name="l07605"></a><span·class="lineno">·7605</span> <span·class="preprocessor">#·Do·not·make·changes·to·this·file·unless·you·know·what·you·are·doing--modify</span></div><div·class="line"><a·name="l07606"></a><span·class="lineno">·7606</span> <span·class="preprocessor">#·the·SWIG·interface·file·instead.</span></div><div·class="line"><a·name="l07607"></a><span·class="lineno">·7607</span> }</div><div·class="line"><a·name="l07608"></a><span·class="lineno">·7608</span> </div><div·class="line"><a·name="l07609"></a><span·class="lineno">·7609</span> <span·class="preprocessor">#**·@method·Geo::OSR::CoordinateTransformation·new($src,·$dst)</span></div><div·class="line"><a·name="l07610"></a><span·class="lineno">·7610</span> <span·class="preprocessor">#·Class·method.</span></div><div·class="line"><a·name="l07611"></a><span·class="lineno">·7611</span> <span·class="preprocessor">#·@param·src·a·Geo::OSR::SpatialReference·object</span></div><div·class="line"><a·name="l07612"></a><span·class="lineno">·7612</span> <span·class="preprocessor">#·@param·dst·a·Geo::OSR::SpatialReference·object</span></div><div·class="line"><a·name="l07613"></a><span·class="lineno">·7613</span> <span·class="preprocessor">#·@return·a·new·Geo::OSR::CoordinateTransformation·object</span></div><div·class="line"><a·name="l07614"></a><span·class="lineno">·7614</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07615"></a><span·class="lineno">·7615</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l07616"></a><span·class="lineno">·7616</span> ····my·$pkg·=·shift;</div><div·class="line"><a·name="l07617"></a><span·class="lineno">·7617</span> ····my·$self·=·Geo::OSRc::new_CoordinateTransformation(@_);</div><div·class="line"><a·name="l07618"></a><span·class="lineno">·7618</span> ····bless·$self,·$pkg·<span·class="keywordflow">if</span>·defined($self);</div><div·class="line"><a·name="l07619"></a><span·class="lineno">·7619</span> }</div><div·class="line"><a·name="l07620"></a><span·class="lineno">·7620</span> </div><div·class="line"><a·name="l07621"></a><span·class="lineno">·7621</span> <span·class="preprocessor">#**·@class·Geo::OSR::SpatialReference</span></div><div·class="line"><a·name="l07622"></a><span·class="lineno">·7622</span> <span·class="preprocessor">#·@brief·A·spatial·reference·system.</span></div><div·class="line"><a·name="l07623"></a><span·class="lineno">·7623</span> <span·class="preprocessor">#·@details·<a·href="http://www.gdal.org/classOGRSpatialReference.html">Documentation</span></div><div·class="line"><a·name="l07624"></a><span·class="lineno">·7624</span> <span·class="preprocessor">#·of·the·underlying·C++·class·at·www.gdal.org</a></span></div><div·class="line"><a·name="l07625"></a><span·class="lineno">·7625</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07626"></a><span·class="lineno">·7626</span> <span·class="keyword">package·</span>Geo::OSR::SpatialReference;</div><div·class="line"><a·name="l07627"></a><span·class="lineno">·7627</span> </div><div·class="line"><a·name="l07628"></a><span·class="lineno">·7628</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1OSR.html">Geo::OSR</a>)</div><div·class="line"><a·name="l07629"></a><span·class="lineno">·7629</span> </div><div·class="line"><a·name="l07630"></a><span·class="lineno">·7630</span> <span·class="preprocessor">#**·@method·As()</span></div><div·class="line"><a·name="l07631"></a><span·class="lineno">·7631</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07632"></a><span·class="lineno">·7632</span> sub·As·{</div><div·class="line"><a·name="l07633"></a><span·class="lineno">·7633</span> }</div><div·class="line"><a·name="l07634"></a><span·class="lineno">·7634</span> </div><div·class="line"><a·name="l07635"></a><span·class="lineno">·7635</span> <span·class="preprocessor">#**·@method·AutoIdentifyEPSG()</span></div><div·class="line"><a·name="l07636"></a><span·class="lineno">·7636</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07637"></a><span·class="lineno">·7637</span> <span·class="preprocessor">#·Set·EPSG·authority·info·if·possible.</span></div><div·class="line"><a·name="l07638"></a><span·class="lineno">·7638</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07639"></a><span·class="lineno">·7639</span> sub·AutoIdentifyEPSG·{</div><div·class="line"><a·name="l07640"></a><span·class="lineno">·7640</span> }</div><div·class="line"><a·name="l07641"></a><span·class="lineno">·7641</span> </div><div·class="line"><a·name="l07642"></a><span·class="lineno">·7642</span> <span·class="preprocessor">#**·@method·Geo::OSR::SpatialReference·Clone()</span></div><div·class="line"><a·name="l07643"></a><span·class="lineno">·7643</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07644"></a><span·class="lineno">·7644</span> <span·class="preprocessor">#·Make·a·duplicate·of·this·SpatialReference·object.</span></div><div·class="line"><a·name="l07645"></a><span·class="lineno">·7645</span> <span·class="preprocessor">#·@return·a·new·Geo::OSR::SpatialReference·object</span></div><div·class="line"><a·name="l07646"></a><span·class="lineno">·7646</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07647"></a><span·class="lineno">·7647</span> sub·Clone·{</div><div·class="line"><a·name="l07648"></a><span·class="lineno">·7648</span> }</div><div·class="line"><a·name="l07649"></a><span·class="lineno">·7649</span> </div><div·class="line"><a·name="l07650"></a><span·class="lineno">·7650</span> <span·class="preprocessor">#**·@method·Geo::OSR::SpatialReference·CloneGeogCS()</span></div><div·class="line"><a·name="l07651"></a><span·class="lineno">·7651</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07652"></a><span·class="lineno">·7652</span> <span·class="preprocessor">#·Make·a·duplicate·of·the·GEOGCS·node·of·this·SpatialReference·object.</span></div><div·class="line"><a·name="l07653"></a><span·class="lineno">·7653</span> <span·class="preprocessor">#·@return·a·new·Geo::OSR::SpatialReference·object</span></div><div·class="line"><a·name="l07654"></a><span·class="lineno">·7654</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07655"></a><span·class="lineno">·7655</span> sub·CloneGeogCS·{</div><div·class="line"><a·name="l07656"></a><span·class="lineno">·7656</span> }</div><div·class="line"><a·name="l07657"></a><span·class="lineno">·7657</span> </div><div·class="line"><a·name="l07658"></a><span·class="lineno">·7658</span> <span·class="preprocessor">#**·@method·ConvertToOtherProjection()</span></div><div·class="line"><a·name="l07659"></a><span·class="lineno">·7659</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07660"></a><span·class="lineno">·7660</span> sub·ConvertToOtherProjection·{</div><div·class="line"><a·name="l07661"></a><span·class="lineno">·7661</span> }</div><div·class="line"><a·name="l07662"></a><span·class="lineno">·7662</span> </div><div·class="line"><a·name="l07663"></a><span·class="lineno">·7663</span> <span·class="preprocessor">#**·@method·CopyGeogCSFrom($rhs)</span></div><div·class="line"><a·name="l07664"></a><span·class="lineno">·7664</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07665"></a><span·class="lineno">·7665</span> <span·class="preprocessor">#·@param·rhs·Geo::OSR::SpatialReference</span></div><div·class="line"><a·name="l07666"></a><span·class="lineno">·7666</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07667"></a><span·class="lineno">·7667</span> sub·CopyGeogCSFrom·{</div><div·class="line"><a·name="l07668"></a><span·class="lineno">·7668</span> }</div><div·class="line"><a·name="l07669"></a><span·class="lineno">·7669</span> </div><div·class="line"><a·name="l07670"></a><span·class="lineno">·7670</span> <span·class="preprocessor">#**·@method·EPSGTreatsAsLatLong()</span></div><div·class="line"><a·name="l07671"></a><span·class="lineno">·7671</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07672"></a><span·class="lineno">·7672</span> <span·class="preprocessor">#·Returns·TRUE·if·EPSG·feels·this·geographic·coordinate·system·should·be·treated·as·having·lat/long·coordinate·ordering.</span></div><div·class="line"><a·name="l07673"></a><span·class="lineno">·7673</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07674"></a><span·class="lineno">·7674</span> sub·EPSGTreatsAsLatLong·{</div><div·class="line"><a·name="l07675"></a><span·class="lineno">·7675</span> }</div><div·class="line"><a·name="l07676"></a><span·class="lineno">·7676</span> </div><div·class="line"><a·name="l07677"></a><span·class="lineno">·7677</span> <span·class="preprocessor">#**·@method·EPSGTreatsAsNorthingEasting()</span></div><div·class="line"><a·name="l07678"></a><span·class="lineno">·7678</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07679"></a><span·class="lineno">·7679</span> sub·EPSGTreatsAsNorthingEasting·{</div><div·class="line"><a·name="l07680"></a><span·class="lineno">·7680</span> }</div><div·class="line"><a·name="l07681"></a><span·class="lineno">·7681</span> </div><div·class="line"><a·name="l07682"></a><span·class="lineno">·7682</span> <span·class="preprocessor">#**·@method·Export($format)</span></div><div·class="line"><a·name="l07683"></a><span·class="lineno">·7683</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07684"></a><span·class="lineno">·7684</span> <span·class="preprocessor">#·Export·the·spatial·reference·to·a·selected·format.</span></div><div·class="line"><a·name="l07685"></a><span·class="lineno">·7685</span> <span·class="preprocessor">#·@note·a.k.a.·As</span></div><div·class="line"><a·name="l07686"></a><span·class="lineno">·7686</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l07687"></a><span·class="lineno">·7687</span> <span·class="preprocessor">#·@param·format·One·of·the·following.·The·return·value·is·explained</span></div><div·class="line"><a·name="l07688"></a><span·class="lineno">·7688</span> <span·class="preprocessor">#·after·the·format.·Other·arguments·are·explained·in·parenthesis.</span></div><div·class="line"><a·name="l07689"></a><span·class="lineno">·7689</span> <span·class="preprocessor">#·-·WKT·(Text):·Well·Known·Text·string</span></div><div·class="line"><a·name="l07690"></a><span·class="lineno">·7690</span> <span·class="preprocessor">#·-·PrettyWKT:·Well·Known·Text·string·nicely·formatted·(simplify)</span></div><div·class="line"><a·name="l07691"></a><span·class="lineno">·7691</span> <span·class="preprocessor">#·-·Proj4:·PROJ.4·string</span></div><div·class="line"><a·name="l07692"></a><span·class="lineno">·7692</span> <span·class="preprocessor">#·-·PCI:·a·list:·($proj_string,·$units,·[$parms1,·...])</span></div><div·class="line"><a·name="l07693"></a><span·class="lineno">·7693</span> <span·class="preprocessor">#·-·USGS:·a·list:·($code,·$zone,·[$parms1,·...],·$datum)</span></div><div·class="line"><a·name="l07694"></a><span·class="lineno">·7694</span> <span·class="preprocessor">#·-·GML·(XML):·GML·based·string·(dialect)</span></div><div·class="line"><a·name="l07695"></a><span·class="lineno">·7695</span> <span·class="preprocessor">#·-·MapInfoCS·(MICoordSys):·MapInfo·style·co-ordinate·system·definition</span></div><div·class="line"><a·name="l07696"></a><span·class="lineno">·7696</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l07697"></a><span·class="lineno">·7697</span> <span·class="preprocessor">#·@note·The·named·parameter·syntax·also·works·and·is·needed·is·those</span></div><div·class="line"><a·name="l07698"></a><span·class="lineno">·7698</span> <span·class="preprocessor">#·cases·when·other·arguments·need·or·may·be·given.·The·format·should</span></div><div·class="line"><a·name="l07699"></a><span·class="lineno">·7699</span> <span·class="preprocessor">#·be·given·using·key·as,·'to'·or·'format'.</span></div><div·class="line"><a·name="l07700"></a><span·class="lineno">·7700</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l07701"></a><span·class="lineno">·7701</span> <span·class="preprocessor">#·@note·ExportTo*·and·AsText·methods·also·exist·but·are·not·documented·here.</span></div><div·class="line"><a·name="l07702"></a><span·class="lineno">·7702</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l07703"></a><span·class="lineno">·7703</span> <span·class="preprocessor">#·@return·a·scalar·or·a·list·depending·on·the·export·format</span></div><div·class="line"><a·name="l07704"></a><span·class="lineno">·7704</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07705"></a><span·class="lineno">·7705</span> sub·Export·{</div><div·class="line"><a·name="l07706"></a><span·class="lineno">·7706</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l07707"></a><span·class="lineno">·7707</span> ····my·$format;</div><div·class="line"><a·name="l07708"></a><span·class="lineno">·7708</span> ····$format·=·pop·<span·class="keywordflow">if</span>·@_·==·1;</div><div·class="line"><a·name="l07709"></a><span·class="lineno">·7709</span> ····my·%params·=·@_;</div><div·class="line"><a·name="l07710"></a><span·class="lineno">·7710</span> ····$format·<span·class="comment">//=·$params{to}·//=·$params{format}·//=·$params{as}·//=·'';</span></div><div·class="line"><a·name="l07711"></a><span·class="lineno">·7711</span> ····my·$simplify·=·$params{simplify}·<span·class="comment">//·0;</span></div><div·class="line"><a·name="l07712"></a><span·class="lineno">·7712</span> ····my·$dialect·=·$params{dialect}·<span·class="comment">//·'';</span></div><div·class="line"><a·name="l07713"></a><span·class="lineno">·7713</span> ····my·%converters·=·(</div><div·class="line"><a·name="l07714"></a><span·class="lineno">·7714</span> ········WKT·=>·sub·{·<span·class="keywordflow">return</span>·ExportToWkt($self)·},</div><div·class="line"><a·name="l07715"></a><span·class="lineno">·7715</span> ········Text·=>·sub·{·<span·class="keywordflow">return</span>·ExportToWkt($self)·},</div><div·class="line"><a·name="l07716"></a><span·class="lineno">·7716</span> ········PrettyWKT·=>·sub·{·<span·class="keywordflow">return</span>·ExportToPrettyWkt($self,·$simplify)·},</div><div·class="line"><a·name="l07717"></a><span·class="lineno">·7717</span> ········Proj4·=>·sub·{·<span·class="keywordflow">return</span>·ExportToProj4($self)·},</div><div·class="line"><a·name="l07718"></a><span·class="lineno">·7718</span> ········PCI·=>·sub·{·<span·class="keywordflow">return</span>·ExportToPCI($self)·},</div><div·class="line"><a·name="l07719"></a><span·class="lineno">·7719</span> ········USGS·=>·sub·{·<span·class="keywordflow">return</span>·ExportToUSGS($self)·},</div><div·class="line"><a·name="l07720"></a><span·class="lineno">·7720</span> ········GML·=>·sub·{·<span·class="keywordflow">return</span>·ExportToXML($self,·$dialect)·},</div><div·class="line"><a·name="l07721"></a><span·class="lineno">·7721</span> ········<a·class="code"·href="classGeo_1_1GDAL_1_1XML.html">XML</a>·=>·sub·{·<span·class="keywordflow">return</span>·ExportToXML($self,·$dialect)·},</div><div·class="line"><a·name="l07722"></a><span·class="lineno">·7722</span> ········MICoordSys·=>·sub·{·<span·class="keywordflow">return</span>·ExportToMICoordSys()·},</div><div·class="line"><a·name="l07723"></a><span·class="lineno">·7723</span> ········MapInfoCS·=>·sub·{·<span·class="keywordflow">return</span>·ExportToMICoordSys()·},</div><div·class="line"><a·name="l07724"></a><span·class="lineno">·7724</span> ········);</div><div·class="line"><a·name="l07725"></a><span·class="lineno">·7725</span> ····error(1,·$format,·\%converters)·unless·$converters{$format};</div><div·class="line"><a·name="l07726"></a><span·class="lineno">·7726</span> ····<span·class="keywordflow">return</span>·$converters{$format}->();</div><div·class="line"><a·name="l07727"></a><span·class="lineno">·7727</span> }</div><div·class="line"><a·name="l07728"></a><span·class="lineno">·7728</span> </div><div·class="line"><a·name="l07729"></a><span·class="lineno">·7729</span> <span·class="preprocessor">#**·@method·Fixup()</span></div><div·class="line"><a·name="l07730"></a><span·class="lineno">·7730</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07731"></a><span·class="lineno">·7731</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07732"></a><span·class="lineno">·7732</span> sub·Fixup·{</div><div·class="line"><a·name="l07733"></a><span·class="lineno">·7733</span> }</div><div·class="line"><a·name="l07734"></a><span·class="lineno">·7734</span> </div><div·class="line"><a·name="l07735"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GNM_1_1MajorObject.html">·7735</a></span> <span·class="preprocessor">#**·@method·FixupOrdering()</span></div><div·class="line"><a·name="l07736"></a><span·class="lineno">·7736</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07737"></a><span·class="lineno">·7737</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07738"></a><span·class="lineno">·7738</span> sub·FixupOrdering·{</div><div·class="line"><a·name="l07739"></a><span·class="lineno">·7739</span> }</div><div·class="line"><a·name="l07740"></a><span·class="lineno">·7740</span> </div><div·class="line"><a·name="l07741"></a><span·class="lineno">·7741</span> <span·class="preprocessor">#**·@method·scalar·GetAngularUnits()</span></div><div·class="line"><a·name="l07742"></a><span·class="lineno">·7742</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07743"></a><span·class="lineno">·7743</span> <span·class="preprocessor">#·@return·a·number</span></div><div·class="line"><a·name="l07744"></a><span·class="lineno">·7744</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07745"></a><span·class="lineno">·7745</span> sub·GetAngularUnits·{</div><div·class="line"><a·name="l07746"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GNM_1_1Network.html">·7746</a></span> }</div><div·class="line"><a·name="l07747"></a><span·class="lineno">·7747</span> </div><div·class="line"><a·name="l07748"></a><span·class="lineno">·7748</span> <span·class="preprocessor">#**·@method·GetAngularUnitsName()</span></div><div·class="line"><a·name="l07749"></a><span·class="lineno">·7749</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07750"></a><span·class="lineno">·7750</span> sub·GetAngularUnitsName·{</div><div·class="line"><a·name="l07751"></a><span·class="lineno">·7751</span> }</div><div·class="line"><a·name="l07752"></a><span·class="lineno">·7752</span> </div><div·class="line"><a·name="l07753"></a><span·class="lineno">·7753</span> <span·class="preprocessor">#**·@method·scalar·GetAttrValue($name,·$child·=·0)</span></div><div·class="line"><a·name="l07754"></a><span·class="lineno">·7754</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07755"></a><span·class="lineno">·7755</span> <span·class="preprocessor">#·@param·name</span></div><div·class="line"><a·name="l07756"></a><span·class="lineno">·7756</span> <span·class="preprocessor">#·@param·child</span></div><div·class="line"><a·name="l07757"></a><span·class="lineno">·7757</span> <span·class="preprocessor">#·@return·string</span></div><div·class="line"><a·name="l07758"></a><span·class="lineno">·7758</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07759"></a><span·class="lineno">·7759</span> sub·GetAttrValue·{</div><div·class="line"><a·name="l07760"></a><span·class="lineno">·7760</span> }</div><div·class="line"><a·name="l07761"></a><span·class="lineno">·7761</span> </div><div·class="line"><a·name="l07762"></a><span·class="lineno">·7762</span> <span·class="preprocessor">#**·@method·scalar·GetAuthorityCode($target_key)</span></div><div·class="line"><a·name="l07763"></a><span·class="lineno">·7763</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07764"></a><span·class="lineno">·7764</span> <span·class="preprocessor">#·@param·target_key</span></div><div·class="line"><a·name="l07765"></a><span·class="lineno">·7765</span> <span·class="preprocessor">#·@return·string</span></div><div·class="line"><a·name="l07766"></a><span·class="lineno">·7766</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07767"></a><span·class="lineno">·7767</span> sub·GetAuthorityCode·{</div><div·class="line"><a·name="l07768"></a><span·class="lineno">·7768</span> }</div><div·class="line"><a·name="l07769"></a><span·class="lineno">·7769</span> </div><div·class="line"><a·name="l07770"></a><span·class="lineno">·7770</span> <span·class="preprocessor">#**·@method·scalar·GetAuthorityName($target_key)</span></div><div·class="line"><a·name="l07771"></a><span·class="lineno">·7771</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07772"></a><span·class="lineno">·7772</span> <span·class="preprocessor">#·@param·target_key</span></div><div·class="line"><a·name="l07773"></a><span·class="lineno">·7773</span> <span·class="preprocessor">#·@return·string</span></div><div·class="line"><a·name="l07774"></a><span·class="lineno">·7774</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07775"></a><span·class="lineno">·7775</span> sub·GetAuthorityName·{</div><div·class="line"><a·name="l07776"></a><span·class="lineno">·7776</span> }</div><div·class="line"><a·name="l07777"></a><span·class="lineno">·7777</span> </div><div·class="line"><a·name="l07778"></a><span·class="lineno">·7778</span> <span·class="preprocessor">#**·@method·GetAxisName()</span></div><div·class="line"><a·name="l07779"></a><span·class="lineno">·7779</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07780"></a><span·class="lineno">·7780</span> sub·GetAxisName·{</div><div·class="line"><a·name="l07781"></a><span·class="lineno">·7781</span> }</div><div·class="line"><a·name="l07782"></a><span·class="lineno">·7782</span> </div><div·class="line"><a·name="l07783"></a><span·class="lineno">·7783</span> <span·class="preprocessor">#**·@method·GetAxisOrientation()</span></div><div·class="line"><a·name="l07784"></a><span·class="lineno">·7784</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07785"></a><span·class="lineno">·7785</span> sub·GetAxisOrientation·{</div><div·class="line"><a·name="l07786"></a><span·class="lineno">·7786</span> }</div><div·class="line"><a·name="l07787"></a><span·class="lineno">·7787</span> </div><div·class="line"><a·name="l07788"></a><span·class="lineno">·7788</span> <span·class="preprocessor">#**·@method·GetInvFlattening()</span></div><div·class="line"><a·name="l07789"></a><span·class="lineno">·7789</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07790"></a><span·class="lineno">·7790</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07791"></a><span·class="lineno">·7791</span> sub·GetInvFlattening·{</div><div·class="line"><a·name="l07792"></a><span·class="lineno">·7792</span> }</div><div·class="line"><a·name="l07793"></a><span·class="lineno">·7793</span> </div><div·class="line"><a·name="l07794"></a><span·class="lineno">·7794</span> <span·class="preprocessor">#**·@method·scalar·GetLinearUnits()</span></div><div·class="line"><a·name="l07795"></a><span·class="lineno">·7795</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07796"></a><span·class="lineno">·7796</span> <span·class="preprocessor">#·@return·a·number</span></div><div·class="line"><a·name="l07797"></a><span·class="lineno">·7797</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07798"></a><span·class="lineno">·7798</span> sub·GetLinearUnits·{</div><div·class="line"><a·name="l07799"></a><span·class="lineno">·7799</span> }</div><div·class="line"><a·name="l07800"></a><span·class="lineno">·7800</span> </div><div·class="line"><a·name="l07801"></a><span·class="lineno">·7801</span> <span·class="preprocessor">#**·@method·scalar·GetLinearUnitsName()</span></div><div·class="line"><a·name="l07802"></a><span·class="lineno">·7802</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07803"></a><span·class="lineno">·7803</span> <span·class="preprocessor">#·@return·string</span></div><div·class="line"><a·name="l07804"></a><span·class="lineno">·7804</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07805"></a><span·class="lineno">·7805</span> sub·GetLinearUnitsName·{</div><div·class="line"><a·name="l07806"></a><span·class="lineno">·7806</span> }</div><div·class="line"><a·name="l07807"></a><span·class="lineno">·7807</span> </div><div·class="line"><a·name="l07808"></a><span·class="lineno">·7808</span> <span·class="preprocessor">#**·@method·scalar·GetNormProjParm($name,·$default_val·=·0.0)</span></div><div·class="line"><a·name="l07809"></a><span·class="lineno">·7809</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07810"></a><span·class="lineno">·7810</span> <span·class="preprocessor">#·@param·name</span></div><div·class="line"><a·name="l07811"></a><span·class="lineno">·7811</span> <span·class="preprocessor">#·@param·default_val</span></div><div·class="line"><a·name="l07812"></a><span·class="lineno">·7812</span> <span·class="preprocessor">#·@return·a·number</span></div><div·class="line"><a·name="l07813"></a><span·class="lineno">·7813</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07814"></a><span·class="lineno">·7814</span> sub·GetNormProjParm·{</div><div·class="line"><a·name="l07815"></a><span·class="lineno">·7815</span> }</div><div·class="line"><a·name="l07816"></a><span·class="lineno">·7816</span> </div><div·class="line"><a·name="l07817"></a><span·class="lineno">·7817</span> <span·class="preprocessor">#**·@method·scalar·GetProjParm($name,·$default_val·=·0.0)</span></div><div·class="line"><a·name="l07818"></a><span·class="lineno">·7818</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07819"></a><span·class="lineno">·7819</span> <span·class="preprocessor">#·@param·name</span></div><div·class="line"><a·name="l07820"></a><span·class="lineno">·7820</span> <span·class="preprocessor">#·@param·default_val</span></div><div·class="line"><a·name="l07821"></a><span·class="lineno">·7821</span> <span·class="preprocessor">#·@return·a·number</span></div><div·class="line"><a·name="l07822"></a><span·class="lineno">·7822</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07823"></a><span·class="lineno">·7823</span> sub·GetProjParm·{</div><div·class="line"><a·name="l07824"></a><span·class="lineno">·7824</span> }</div><div·class="line"><a·name="l07825"></a><span·class="lineno">·7825</span> </div><div·class="line"><a·name="l07826"></a><span·class="lineno">·7826</span> <span·class="preprocessor">#**·@method·GetSemiMajor()</span></div><div·class="line"><a·name="l07827"></a><span·class="lineno">·7827</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07828"></a><span·class="lineno">·7828</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07829"></a><span·class="lineno">·7829</span> sub·GetSemiMajor·{</div><div·class="line"><a·name="l07830"></a><span·class="lineno">·7830</span> }</div><div·class="line"><a·name="l07831"></a><span·class="lineno">·7831</span> </div><div·class="line"><a·name="l07832"></a><span·class="lineno">·7832</span> <span·class="preprocessor">#**·@method·GetSemiMinor()</span></div><div·class="line"><a·name="l07833"></a><span·class="lineno">·7833</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07834"></a><span·class="lineno">·7834</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07835"></a><span·class="lineno">·7835</span> sub·GetSemiMinor·{</div><div·class="line"><a·name="l07836"></a><span·class="lineno">·7836</span> }</div><div·class="line"><a·name="l07837"></a><span·class="lineno">·7837</span> </div><div·class="line"><a·name="l07838"></a><span·class="lineno">·7838</span> <span·class="preprocessor">#**·@method·GetTOWGS84()</span></div><div·class="line"><a·name="l07839"></a><span·class="lineno">·7839</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07840"></a><span·class="lineno">·7840</span> <span·class="preprocessor">#·@return·array·=·($p1,·$p2,·$p3,·$p4,·$p5,·$p6,·$p7)</span></div><div·class="line"><a·name="l07841"></a><span·class="lineno">·7841</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07842"></a><span·class="lineno">·7842</span> sub·GetTOWGS84·{</div><div·class="line"><a·name="l07843"></a><span·class="lineno">·7843</span> }</div><div·class="line"><a·name="l07844"></a><span·class="lineno">·7844</span> </div><div·class="line"><a·name="l07845"></a><span·class="lineno">·7845</span> <span·class="preprocessor">#**·@method·GetTargetLinearUnits()</span></div><div·class="line"><a·name="l07846"></a><span·class="lineno">·7846</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07847"></a><span·class="lineno">·7847</span> sub·GetTargetLinearUnits·{</div><div·class="line"><a·name="l07848"></a><span·class="lineno">·7848</span> }</div><div·class="line"><a·name="l07849"></a><span·class="lineno">·7849</span> </div><div·class="line"><a·name="l07850"></a><span·class="lineno">·7850</span> <span·class="preprocessor">#**·@method·GetUTMZone()</span></div><div·class="line"><a·name="l07851"></a><span·class="lineno">·7851</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07852"></a><span·class="lineno">·7852</span> <span·class="preprocessor">#·Get·UTM·zone·information.</span></div><div·class="line"><a·name="l07853"></a><span·class="lineno">·7853</span> <span·class="preprocessor">#·@return·The·UTM·zone·(integer).·In·scalar·context·the·returned·value</span></div><div·class="line"><a·name="l07854"></a><span·class="lineno">·7854</span> <span·class="preprocessor">#·is·negative·for·southern·hemisphere·zones.·In·list·context·returns</span></div><div·class="line"><a·name="l07855"></a><span·class="lineno">·7855</span> <span·class="preprocessor">#·two·values·($zone,·$north),·where·$zone·is·always·non-negative·and</span></div><div·class="line"><a·name="l07856"></a><span·class="lineno">·7856</span> <span·class="preprocessor">#·$north·is·true·or·false.</span></div><div·class="line"><a·name="l07857"></a><span·class="lineno">·7857</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07858"></a><span·class="lineno">·7858</span> sub·GetUTMZone·{</div><div·class="line"><a·name="l07859"></a><span·class="lineno">·7859</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l07860"></a><span·class="lineno">·7860</span> ····my·$zone·=·_GetUTMZone($self);</div><div·class="line"><a·name="l07861"></a><span·class="lineno">·7861</span> ····<span·class="keywordflow">if</span>·(wantarray)·{</div><div·class="line"><a·name="l07862"></a><span·class="lineno">·7862</span> ········my·$north·=·1;</div><div·class="line"><a·name="l07863"></a><span·class="lineno">·7863</span> ········<span·class="keywordflow">if</span>·($zone·<·0)·{</div><div·class="line"><a·name="l07864"></a><span·class="lineno">·7864</span> ············$zone·*=·-1;</div><div·class="line"><a·name="l07865"></a><span·class="lineno">·7865</span> ············$north·=·0;</div><div·class="line"><a·name="l07866"></a><span·class="lineno">·7866</span> ········}</div><div·class="line"><a·name="l07867"></a><span·class="lineno">·7867</span> ········<span·class="keywordflow">return</span>·($zone,·$north);</div><div·class="line"><a·name="l07868"></a><span·class="lineno">·7868</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l07869"></a><span·class="lineno">·7869</span> ········<span·class="keywordflow">return</span>·$zone;</div><div·class="line"><a·name="l07870"></a><span·class="lineno">·7870</span> ····}</div><div·class="line"><a·name="l07871"></a><span·class="lineno">·7871</span> }</div><div·class="line"><a·name="l07872"></a><span·class="lineno">·7872</span> </div><div·class="line"><a·name="l07873"></a><span·class="lineno">·7873</span> <span·class="preprocessor">#**·@method·ImportFromOzi()</span></div><div·class="line"><a·name="l07874"></a><span·class="lineno">·7874</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07875"></a><span·class="lineno">·7875</span> sub·ImportFromOzi·{</div><div·class="line"><a·name="l07876"></a><span·class="lineno">·7876</span> }</div><div·class="line"><a·name="l07877"></a><span·class="lineno">·7877</span> </div><div·class="line"><a·name="l07878"></a><span·class="lineno">·7878</span> <span·class="preprocessor">#**·@method·scalar·IsCompound()</span></div><div·class="line"><a·name="l07879"></a><span·class="lineno">·7879</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07880"></a><span·class="lineno">·7880</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l07881"></a><span·class="lineno">·7881</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07882"></a><span·class="lineno">·7882</span> sub·IsCompound·{</div><div·class="line"><a·name="l07883"></a><span·class="lineno">·7883</span> }</div><div·class="line"><a·name="l07884"></a><span·class="lineno">·7884</span> </div><div·class="line"><a·name="l07885"></a><span·class="lineno">·7885</span> <span·class="preprocessor">#**·@method·scalar·IsGeocentric()</span></div><div·class="line"><a·name="l07886"></a><span·class="lineno">·7886</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07887"></a><span·class="lineno">·7887</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l07888"></a><span·class="lineno">·7888</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07889"></a><span·class="lineno">·7889</span> sub·IsGeocentric·{</div><div·class="line"><a·name="l07890"></a><span·class="lineno">·7890</span> }</div><div·class="line"><a·name="l07891"></a><span·class="lineno">·7891</span> </div><div·class="line"><a·name="l07892"></a><span·class="lineno">·7892</span> <span·class="preprocessor">#**·@method·scalar·IsGeographic()</span></div><div·class="line"><a·name="l07893"></a><span·class="lineno">·7893</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07894"></a><span·class="lineno">·7894</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l07895"></a><span·class="lineno">·7895</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07896"></a><span·class="lineno">·7896</span> sub·IsGeographic·{</div><div·class="line"><a·name="l07897"></a><span·class="lineno">·7897</span> }</div><div·class="line"><a·name="l07898"></a><span·class="lineno">·7898</span> </div><div·class="line"><a·name="l07899"></a><span·class="lineno">·7899</span> <span·class="preprocessor">#**·@method·scalar·IsLocal()</span></div><div·class="line"><a·name="l07900"></a><span·class="lineno">·7900</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07901"></a><span·class="lineno">·7901</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l07902"></a><span·class="lineno">·7902</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07903"></a><span·class="lineno">·7903</span> sub·IsLocal·{</div><div·class="line"><a·name="l07904"></a><span·class="lineno">·7904</span> }</div><div·class="line"><a·name="l07905"></a><span·class="lineno">·7905</span> </div><div·class="line"><a·name="l07906"></a><span·class="lineno">·7906</span> <span·class="preprocessor">#**·@method·scalar·IsProjected()</span></div><div·class="line"><a·name="l07907"></a><span·class="lineno">·7907</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07908"></a><span·class="lineno">·7908</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l07909"></a><span·class="lineno">·7909</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07910"></a><span·class="lineno">·7910</span> sub·IsProjected·{</div><div·class="line"><a·name="l07911"></a><span·class="lineno">·7911</span> }</div><div·class="line"><a·name="l07912"></a><span·class="lineno">·7912</span> </div><div·class="line"><a·name="l07913"></a><span·class="lineno">·7913</span> <span·class="preprocessor">#**·@method·scalar·IsSame($rs)</span></div><div·class="line"><a·name="l07914"></a><span·class="lineno">·7914</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07915"></a><span·class="lineno">·7915</span> <span·class="preprocessor">#·@param·rs·a·Geo::OSR::SpatialReference·object</span></div><div·class="line"><a·name="l07916"></a><span·class="lineno">·7916</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l07917"></a><span·class="lineno">·7917</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07918"></a><span·class="lineno">·7918</span> sub·IsSame·{</div><div·class="line"><a·name="l07919"></a><span·class="lineno">·7919</span> }</div><div·class="line"><a·name="l07920"></a><span·class="lineno">·7920</span> </div><div·class="line"><a·name="l07921"></a><span·class="lineno">·7921</span> <span·class="preprocessor">#**·@method·scalar·IsSameGeogCS($rs)</span></div><div·class="line"><a·name="l07922"></a><span·class="lineno">·7922</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07923"></a><span·class="lineno">·7923</span> <span·class="preprocessor">#·@param·rs·a·Geo::OSR::SpatialReference·object</span></div><div·class="line"><a·name="l07924"></a><span·class="lineno">·7924</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l07925"></a><span·class="lineno">·7925</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07926"></a><span·class="lineno">·7926</span> sub·IsSameGeogCS·{</div><div·class="line"><a·name="l07927"></a><span·class="lineno">·7927</span> }</div><div·class="line"><a·name="l07928"></a><span·class="lineno">·7928</span> </div><div·class="line"><a·name="l07929"></a><span·class="lineno">·7929</span> <span·class="preprocessor">#**·@method·scalar·IsSameVertCS($rs)</span></div><div·class="line"><a·name="l07930"></a><span·class="lineno">·7930</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07931"></a><span·class="lineno">·7931</span> <span·class="preprocessor">#·@param·rs·a·Geo::OSR::SpatialReference·object</span></div><div·class="line"><a·name="l07932"></a><span·class="lineno">·7932</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l07933"></a><span·class="lineno">·7933</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07934"></a><span·class="lineno">·7934</span> sub·IsSameVertCS·{</div><div·class="line"><a·name="l07935"></a><span·class="lineno">·7935</span> }</div><div·class="line"><a·name="l07936"></a><span·class="lineno">·7936</span> </div><div·class="line"><a·name="l07937"></a><span·class="lineno">·7937</span> <span·class="preprocessor">#**·@method·scalar·IsVertical()</span></div><div·class="line"><a·name="l07938"></a><span·class="lineno">·7938</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07939"></a><span·class="lineno">·7939</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l07940"></a><span·class="lineno">·7940</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07941"></a><span·class="lineno">·7941</span> sub·IsVertical·{</div><div·class="line"><a·name="l07942"></a><span·class="lineno">·7942</span> }</div><div·class="line"><a·name="l07943"></a><span·class="lineno">·7943</span> </div><div·class="line"><a·name="l07944"></a><span·class="lineno">·7944</span> <span·class="preprocessor">#**·@method·MorphFromESRI()</span></div><div·class="line"><a·name="l07945"></a><span·class="lineno">·7945</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07946"></a><span·class="lineno">·7946</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07947"></a><span·class="lineno">·7947</span> sub·MorphFromESRI·{</div><div·class="line"><a·name="l07948"></a><span·class="lineno">·7948</span> }</div><div·class="line"><a·name="l07949"></a><span·class="lineno">·7949</span> </div><div·class="line"><a·name="l07950"></a><span·class="lineno">·7950</span> <span·class="preprocessor">#**·@method·MorphToESRI()</span></div><div·class="line"><a·name="l07951"></a><span·class="lineno">·7951</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07952"></a><span·class="lineno">·7952</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07953"></a><span·class="lineno">·7953</span> sub·MorphToESRI·{</div><div·class="line"><a·name="l07954"></a><span·class="lineno">·7954</span> }</div><div·class="line"><a·name="l07955"></a><span·class="lineno">·7955</span> </div><div·class="line"><a·name="l07956"></a><span·class="lineno">·7956</span> <span·class="preprocessor">#**·@method·Set(%params)</span></div><div·class="line"><a·name="l07957"></a><span·class="lineno">·7957</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07958"></a><span·class="lineno">·7958</span> <span·class="preprocessor">#·Set·a·parameter·or·parameters·in·the·spatial·reference·object.</span></div><div·class="line"><a·name="l07959"></a><span·class="lineno">·7959</span> <span·class="preprocessor">#·@param·params·Named·parameters.·Recognized·keys·and·respective</span></div><div·class="line"><a·name="l07960"></a><span·class="lineno">·7960</span> <span·class="preprocessor">#·values·are·the·following.</span></div><div·class="line"><a·name="l07961"></a><span·class="lineno">·7961</span> <span·class="preprocessor">#·-·Authority:·authority·name·(give·also·TargetKey,·Node·and·Code)</span></div><div·class="line"><a·name="l07962"></a><span·class="lineno">·7962</span> <span·class="preprocessor">#·-·TargetKey:</span></div><div·class="line"><a·name="l07963"></a><span·class="lineno">·7963</span> <span·class="preprocessor">#·-·Node:·partial·or·complete·path·to·the·target·node·(Node·and·Value·together·sets·an·attribute·value)</span></div><div·class="line"><a·name="l07964"></a><span·class="lineno">·7964</span> <span·class="preprocessor">#·-·Code:·code·for·value·with·an·authority</span></div><div·class="line"><a·name="l07965"></a><span·class="lineno">·7965</span> <span·class="preprocessor">#·-·Value:·value·to·be·assigned·to·a·node,·a·projection·parameter·or·an·object</span></div><div·class="line"><a·name="l07966"></a><span·class="lineno">·7966</span> <span·class="preprocessor">#·-·AngularUnits:·angular·units·for·the·geographic·coordinate·system·(give·also·Value)·(one·of·Geo::OSR::LinearUnits)</span></div><div·class="line"><a·name="l07967"></a><span·class="lineno">·7967</span> <span·class="preprocessor">#·-·LinearUnits:·linear·units·for·the·target·node·or·the·object·(give·also·Value·and·optionally·Node)·(one·of·Geo::OSR::LinearUnits)</span></div><div·class="line"><a·name="l07968"></a><span·class="lineno">·7968</span> <span·class="preprocessor">#·-·Parameter:·projection·parameter·to·set·(give·also·Value·and·Normalized)·(one·of·Geo::OSR::Parameters)</span></div><div·class="line"><a·name="l07969"></a><span·class="lineno">·7969</span> <span·class="preprocessor">#·-·Normalized:·set·to·true·to·indicate·that·the·Value·argument·is·in·"normalized"·form</span></div><div·class="line"><a·name="l07970"></a><span·class="lineno">·7970</span> <span·class="preprocessor">#·-·Name:·a·well·known·name·of·a·geographic·coordinate·system·(e.g.·WGS84)</span></div><div·class="line"><a·name="l07971"></a><span·class="lineno">·7971</span> <span·class="preprocessor">#·-·GuessFrom:·arbitrary·text·that·specifies·a·projection·("user·input")</span></div><div·class="line"><a·name="l07972"></a><span·class="lineno">·7972</span> <span·class="preprocessor">#·-·LOCAL_CS:·name·of·a·local·coordinate·system</span></div><div·class="line"><a·name="l07973"></a><span·class="lineno">·7973</span> <span·class="preprocessor">#·-·GeocentricCS:·name·of·a·geocentric·coordinate·system</span></div><div·class="line"><a·name="l07974"></a><span·class="lineno">·7974</span> <span·class="preprocessor">#·-·VerticalCS:·name·of·a·vertical·coordinate·system·(give·also·Datum·and·optionally·VertDatumType·[default·is·2005])</span></div><div·class="line"><a·name="l07975"></a><span·class="lineno">·7975</span> <span·class="preprocessor">#·-·Datum:·a·known·(OGC·or·EPSG)·name·(or(?)·one·of·Geo::OSR::Datums)</span></div><div·class="line"><a·name="l07976"></a><span·class="lineno">·7976</span> <span·class="preprocessor">#·-·CoordinateSystem:·'WGS',·'UTM',·'State·Plane',·or·a·user·visible·name·(give·optionally·also·Parameters,·Zone,·North,·NAD83,·UnitName,·UnitConversionFactor,·Datum,·Spheroid,·HorizontalCS,·and/or·VerticalCS</span></div><div·class="line"><a·name="l07977"></a><span·class="lineno">·7977</span> <span·class="preprocessor">#·-·Parameters:·a·reference·to·a·list·containing·the·coordinate·system·or·projection·parameters</span></div><div·class="line"><a·name="l07978"></a><span·class="lineno">·7978</span> <span·class="preprocessor">#·-·Zone:·zone·for·setting·up·UTM·or·State·Plane·coordinate·systems·(State·Plane·zone·in·USGS·numbering·scheme)</span></div><div·class="line"><a·name="l07979"></a><span·class="lineno">·7979</span> <span·class="preprocessor">#·-·North:·set·false·for·southern·hemisphere</span></div><div·class="line"><a·name="l07980"></a><span·class="lineno">·7980</span> <span·class="preprocessor">#·-·NAD83:·set·false·if·the·NAD27·zone·definition·should·be·used·instead·of·NAD83</span></div><div·class="line"><a·name="l07981"></a><span·class="lineno">·7981</span> <span·class="preprocessor">#·-·UnitName:·to·override·the·legal·definition·for·a·zone</span></div><div·class="line"><a·name="l07982"></a><span·class="lineno">·7982</span> <span·class="preprocessor">#·-·UnitConversionFactor:·to·override·the·legal·definition·for·a·zone</span></div><div·class="line"><a·name="l07983"></a><span·class="lineno">·7983</span> <span·class="preprocessor">#·-·Spheroid:·user·visible·name</span></div><div·class="line"><a·name="l07984"></a><span·class="lineno">·7984</span> <span·class="preprocessor">#·-·HorizontalCS:·Horizontal·coordinate·system·name</span></div><div·class="line"><a·name="l07985"></a><span·class="lineno">·7985</span> <span·class="preprocessor">#·-·Projection:·name·of·a·projection,·one·of·Geo::OSR::Projections·(give·also·optionally·Parameters·and·Variant)</span></div><div·class="line"><a·name="l07986"></a><span·class="lineno">·7986</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l07987"></a><span·class="lineno">·7987</span> <span·class="preprocessor">#·@note·Numerous·Set*·methods·also·exist·but·are·not·documented·here.</span></div><div·class="line"><a·name="l07988"></a><span·class="lineno">·7988</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07989"></a><span·class="lineno">·7989</span> sub·Set·{</div><div·class="line"><a·name="l07990"></a><span·class="lineno">·7990</span> ····my($self,·%params)·=·@_;</div><div·class="line"><a·name="l07991"></a><span·class="lineno">·7991</span> ····<span·class="keywordflow">if</span>·(exists·$params{Authority}·and·exists·$params{TargetKey}·and·exists·$params{Node}·and·exists·$params{Code})·{</div><div·class="line"><a·name="l07992"></a><span·class="lineno">·7992</span> ········SetAuthority($self,·$params{TargetKey},·$params{Authority},·$params{Code});</div><div·class="line"><a·name="l07993"></a><span·class="lineno">·7993</span> ····}·elsif·(exists·$params{Node}·and·exists·$params{Value})·{</div><div·class="line"><a·name="l07994"></a><span·class="lineno">·7994</span> ········SetAttrValue($self,·$params{Node},·$params{Value});</div><div·class="line"><a·name="l07995"></a><span·class="lineno">·7995</span> ····}·elsif·(exists·$params{AngularUnits}·and·exists·$params{Value})·{</div><div·class="line"><a·name="l07996"></a><span·class="lineno">·7996</span> ········SetAngularUnits($self,·$params{AngularUnits},·$params{Value});</div><div·class="line"><a·name="l07997"></a><span·class="lineno">·7997</span> ····}·elsif·(exists·$params{LinearUnits}·and·exists·$params{Node}·and·exists·$params{Value})·{</div><div·class="line"><a·name="l07998"></a><span·class="lineno">·7998</span> ········SetTargetLinearUnits($self,·$params{Node},·$params{LinearUnits},·$params{Value});</div><div·class="line"><a·name="l07999"></a><span·class="lineno">·7999</span> ····}·elsif·(exists·$params{LinearUnits}·and·exists·$params{Value})·{</div><div·class="line"><a·name="l08000"></a><span·class="lineno">·8000</span> ········SetLinearUnitsAndUpdateParameters($self,·$params{LinearUnits},·$params{Value});</div><div·class="line"><a·name="l08001"></a><span·class="lineno">·8001</span> ····}·elsif·($params{Parameter}·and·exists·$params{Value})·{</div><div·class="line"><a·name="l08002"></a><span·class="lineno">·8002</span> ········error(1,·$params{Parameter},·\%Geo::OSR::PARAMETERS)·unless·exists·$Geo::OSR::PARAMETERS{$params{Parameter}};</div><div·class="line"><a·name="l08003"></a><span·class="lineno">·8003</span> ········$params{Normalized}·?</div><div·class="line"><a·name="l08004"></a><span·class="lineno">·8004</span> ············SetNormProjParm($self,·$params{Parameter},·$params{Value})·:</div><div·class="line"><a·name="l08005"></a><span·class="lineno">·8005</span> ············SetProjParm($self,·$params{Parameter},·$params{Value});</div><div·class="line"><a·name="l08006"></a><span·class="lineno">·8006</span> ····}·elsif·(exists·$params{Name})·{</div><div·class="line"><a·name="l08007"></a><span·class="lineno">·8007</span> ········SetWellKnownGeogCS($self,·$params{Name});</div><div·class="line"><a·name="l08008"></a><span·class="lineno">·8008</span> ····}·elsif·(exists·$params{GuessFrom})·{</div><div·class="line"><a·name="l08009"></a><span·class="lineno">·8009</span> ········SetFromUserInput($self,·$params{GuessFrom});</div><div·class="line"><a·name="l08010"></a><span·class="lineno">·8010</span> ····}·elsif·(exists·$params{LOCAL_CS})·{</div><div·class="line"><a·name="l08011"></a><span·class="lineno">·8011</span> ········SetLocalCS($self,·$params{LOCAL_CS});</div><div·class="line"><a·name="l08012"></a><span·class="lineno">·8012</span> ····}·elsif·(exists·$params{GeocentricCS})·{</div><div·class="line"><a·name="l08013"></a><span·class="lineno">·8013</span> ········SetGeocCS($self,·$params{GeocentricCS});</div><div·class="line"><a·name="l08014"></a><span·class="lineno">·8014</span> ····}·elsif·(exists·$params{VerticalCS}·and·$params{Datum})·{</div><div·class="line"><a·name="l08015"></a><span·class="lineno">·8015</span> ········my·$type·=·$params{VertDatumType}·||·2005;</div><div·class="line"><a·name="l08016"></a><span·class="lineno">·8016</span> ········SetVertCS($self,·$params{VerticalCS},·$params{Datum},·$type);</div><div·class="line"><a·name="l08017"></a><span·class="lineno">·8017</span> ····}·elsif·(exists·$params{CoordinateSystem})·{</div><div·class="line"><a·name="l08018"></a><span·class="lineno">·8018</span> ········my·@parameters·=·();</div><div·class="line"><a·name="l08019"></a><span·class="lineno">·8019</span> ········@parameters·=·@{$params{Parameters}}·<span·class="keywordflow">if</span>·ref($params{Parameters});</div><div·class="line"><a·name="l08020"></a><span·class="lineno">·8020</span> ········<span·class="keywordflow">if</span>·($params{CoordinateSystem}·eq·<span·class="stringliteral">'State·Plane'</span>·and·exists·$params{Zone})·{</div><div·class="line"><a·name="l08021"></a><span·class="lineno">·8021</span> ············my·$NAD83·=·exists·$params{NAD83}·?·$params{NAD83}·:·1;</div><div·class="line"><a·name="l08022"></a><span·class="lineno">·8022</span> ············my·$name·=·exists·$params{UnitName}·?·$params{UnitName}·:·undef;</div><div·class="line"><a·name="l08023"></a><span·class="lineno">·8023</span> ············my·$c·=·exists·$params{UnitConversionFactor}·?·$params{UnitConversionFactor}·:·0.0;</div><div·class="line"><a·name="l08024"></a><span·class="lineno">·8024</span> ············SetStatePlane($self,·$params{Zone},·$NAD83,·$name,·$c);</div><div·class="line"><a·name="l08025"></a><span·class="lineno">·8025</span> ········}·elsif·($params{CoordinateSystem}·eq·<span·class="stringliteral">'UTM'</span>·and·exists·$params{Zone}·and·exists·$params{North})·{</div><div·class="line"><a·name="l08026"></a><span·class="lineno">·8026</span> ············my·$north·=·exists·$params{North}·?·$params{North}·:·1;</div><div·class="line"><a·name="l08027"></a><span·class="lineno">·8027</span> ············SetUTM($self,·$params{Zone},·$north);</div><div·class="line"><a·name="l08028"></a><span·class="lineno">·8028</span> ········}·elsif·($params{CoordinateSystem}·eq·<span·class="stringliteral">'WGS'</span>)·{</div><div·class="line"><a·name="l08029"></a><span·class="lineno">·8029</span> ············SetTOWGS84($self,·@parameters);</div><div·class="line"><a·name="l08030"></a><span·class="lineno">·8030</span> ········}·elsif·($params{CoordinateSystem}·and·$params{Datum}·and·$params{Spheroid})·{</div><div·class="line"><a·name="l08031"></a><span·class="lineno">·8031</span> ············SetGeogCS($self,·$params{CoordinateSystem},·$params{Datum},·$params{Spheroid},·@parameters);</div><div·class="line"><a·name="l08032"></a><span·class="lineno">·8032</span> ········}·elsif·($params{CoordinateSystem}·and·$params{HorizontalCS}·and·$params{VerticalCS})·{</div><div·class="line"><a·name="l08033"></a><span·class="lineno">·8033</span> ············SetCompoundCS($self,·$params{CoordinateSystem},·$params{HorizontalCS},·$params{VerticalCS});</div><div·class="line"><a·name="l08034"></a><span·class="lineno">·8034</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l08035"></a><span·class="lineno">·8035</span> ············SetProjCS($self,·$params{CoordinateSystem});</div><div·class="line"><a·name="l08036"></a><span·class="lineno">·8036</span> ········}</div><div·class="line"><a·name="l08037"></a><span·class="lineno">·8037</span> ····}·elsif·(exists·$params{Projection})·{</div><div·class="line"><a·name="l08038"></a><span·class="lineno">·8038</span> ········error(1,·$params{Projection},·\%Geo::OSR::PROJECTIONS)·unless·exists·$Geo::OSR::PROJECTIONS{$params{Projection}};</div><div·class="line"><a·name="l08039"></a><span·class="lineno">·8039</span> ········my·@parameters·=·();</div><div·class="line"><a·name="l08040"></a><span·class="lineno">·8040</span> ········@parameters·=·@{$params{Parameters}}·<span·class="keywordflow">if</span>·ref($params{Parameters});</div><div·class="line"><a·name="l08041"></a><span·class="lineno">·8041</span> ········<span·class="keywordflow">if</span>·($params{Projection}·eq·<span·class="stringliteral">'Albers_Conic_Equal_Area'</span>)·{</div><div·class="line"><a·name="l08042"></a><span·class="lineno">·8042</span> ············SetACEA($self,·@parameters);</div><div·class="line"><a·name="l08043"></a><span·class="lineno">·8043</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Azimuthal_Equidistant'</span>)·{</div><div·class="line"><a·name="l08044"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1OGR.html">·8044</a></span> ············SetAE($self,·@parameters);</div><div·class="line"><a·name="l08045"></a><span·class="lineno">·8045</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Bonne'</span>)·{</div><div·class="line"><a·name="l08046"></a><span·class="lineno">·8046</span> ············SetBonne($self,·@parameters);</div><div·class="line"><a·name="l08047"></a><span·class="lineno">·8047</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Cylindrical_Equal_Area'</span>)·{</div><div·class="line"><a·name="l08048"></a><span·class="lineno">·8048</span> ············SetCEA($self,·@parameters);</div><div·class="line"><a·name="l08049"></a><span·class="lineno">·8049</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Cassini_Soldner'</span>)·{</div><div·class="line"><a·name="l08050"></a><span·class="lineno">·8050</span> ············SetCS($self,·@parameters);</div><div·class="line"><a·name="l08051"></a><span·class="lineno">·8051</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Equidistant_Conic'</span>)·{</div><div·class="line"><a·name="l08052"></a><span·class="lineno">·8052</span> ············SetEC($self,·@parameters);</div><div·class="line"><a·name="l08053"></a><span·class="lineno">·8053</span> <span·class="preprocessor">············#·Eckert_I,·Eckert_II,·Eckert_III,·Eckert_V·?</span></div><div·class="line"><a·name="l08054"></a><span·class="lineno">·8054</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Eckert_IV'</span>)·{</div><div·class="line"><a·name="l08055"></a><span·class="lineno">·8055</span> ············SetEckertIV($self,·@parameters);</div><div·class="line"><a·name="l08056"></a><span·class="lineno">·8056</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Eckert_VI'</span>)·{</div><div·class="line"><a·name="l08057"></a><span·class="lineno">·8057</span> ············SetEckertVI($self,·@parameters);</div><div·class="line"><a·name="l08058"></a><span·class="lineno">·8058</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Equirectangular'</span>)·{</div><div·class="line"><a·name="l08059"></a><span·class="lineno">·8059</span> ············@parameters·==·4·?</div><div·class="line"><a·name="l08060"></a><span·class="lineno">·8060</span> ················SetEquirectangular($self,·@parameters)·:</div><div·class="line"><a·name="l08061"></a><span·class="lineno">·8061</span> ················SetEquirectangular2($self,·@parameters);</div><div·class="line"><a·name="l08062"></a><span·class="lineno">·8062</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Gauss_Schreiber_Transverse_Mercator'</span>)·{</div><div·class="line"><a·name="l08063"></a><span·class="lineno">·8063</span> ············SetGaussSchreiberTMercator($self,·@parameters);</div><div·class="line"><a·name="l08064"></a><span·class="lineno">·8064</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Gall_Stereographic'</span>)·{</div><div·class="line"><a·name="l08065"></a><span·class="lineno">·8065</span> ············SetGS($self,·@parameters);</div><div·class="line"><a·name="l08066"></a><span·class="lineno">·8066</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Goode_Homolosine'</span>)·{</div><div·class="line"><a·name="l08067"></a><span·class="lineno">·8067</span> ············SetGH($self,·@parameters);</div><div·class="line"><a·name="l08068"></a><span·class="lineno">·8068</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Interrupted_Goode_Homolosine'</span>)·{</div><div·class="line"><a·name="l08069"></a><span·class="lineno">·8069</span> ············SetIGH($self);</div><div·class="line"><a·name="l08070"></a><span·class="lineno">·8070</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Geostationary_Satellite'</span>)·{</div><div·class="line"><a·name="l08071"></a><span·class="lineno">·8071</span> ············SetGEOS($self,·@parameters);</div><div·class="line"><a·name="l08072"></a><span·class="lineno">·8072</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Gnomonic'</span>)·{</div><div·class="line"><a·name="l08073"></a><span·class="lineno">·8073</span> ············SetGnomonic($self,·@parameters);</div><div·class="line"><a·name="l08074"></a><span·class="lineno">·8074</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Hotine_Oblique_Mercator'</span>)·{</div><div·class="line"><a·name="l08075"></a><span·class="lineno">·8075</span> <span·class="preprocessor">············#·Hotine_Oblique_Mercator_Azimuth_Center·?</span></div><div·class="line"><a·name="l08076"></a><span·class="lineno">·8076</span> ············SetHOM($self,·@parameters);</div><div·class="line"><a·name="l08077"></a><span·class="lineno">·8077</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Hotine_Oblique_Mercator_Two_Point_Natural_Origin'</span>)·{</div><div·class="line"><a·name="l08078"></a><span·class="lineno">·8078</span> ············SetHOM2PNO($self,·@parameters);</div><div·class="line"><a·name="l08079"></a><span·class="lineno">·8079</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Krovak'</span>)·{</div><div·class="line"><a·name="l08080"></a><span·class="lineno">·8080</span> ············SetKrovak($self,·@parameters);</div><div·class="line"><a·name="l08081"></a><span·class="lineno">·8081</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Lambert_Azimuthal_Equal_Area'</span>)·{</div><div·class="line"><a·name="l08082"></a><span·class="lineno">·8082</span> ············SetLAEA($self,·@parameters);</div><div·class="line"><a·name="l08083"></a><span·class="lineno">·8083</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Lambert_Conformal_Conic_2SP'</span>)·{</div><div·class="line"><a·name="l08084"></a><span·class="lineno">·8084</span> ············SetLCC($self,·@parameters);</div><div·class="line"><a·name="l08085"></a><span·class="lineno">·8085</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Lambert_Conformal_Conic_1SP'</span>)·{</div><div·class="line"><a·name="l08086"></a><span·class="lineno">·8086</span> ············SetLCC1SP($self,·@parameters);</div><div·class="line"><a·name="l08087"></a><span·class="lineno">·8087</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Lambert_Conformal_Conic_2SP_Belgium'</span>)·{</div><div·class="line"><a·name="l08088"></a><span·class="lineno">·8088</span> ············SetLCCB($self,·@parameters);</div><div·class="line"><a·name="l08089"></a><span·class="lineno">·8089</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'miller_cylindrical'</span>)·{</div><div·class="line"><a·name="l08090"></a><span·class="lineno">·8090</span> ············SetMC($self,·@parameters);</div><div·class="line"><a·name="l08091"></a><span·class="lineno">·8091</span> ········}·elsif·($params{Projection}·=~·/^Mercator/)·{</div><div·class="line"><a·name="l08092"></a><span·class="lineno">·8092</span> <span·class="preprocessor">············#·Mercator_1SP,·Mercator_2SP,·Mercator_Auxiliary_Sphere·?</span></div><div·class="line"><a·name="l08093"></a><span·class="lineno">·8093</span> <span·class="preprocessor">············#·variant·is·in·Variant·(or·Name)</span></div><div·class="line"><a·name="l08094"></a><span·class="lineno">·8094</span> ············SetMercator($self,·@parameters);</div><div·class="line"><a·name="l08095"></a><span·class="lineno">·8095</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Mollweide'</span>)·{</div><div·class="line"><a·name="l08096"></a><span·class="lineno">·8096</span> ············SetMollweide($self,·@parameters);</div><div·class="line"><a·name="l08097"></a><span·class="lineno">·8097</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'New_Zealand_Map_Grid'</span>)·{</div><div·class="line"><a·name="l08098"></a><span·class="lineno">·8098</span> ············SetNZMG($self,·@parameters);</div><div·class="line"><a·name="l08099"></a><span·class="lineno">·8099</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Oblique_Stereographic'</span>)·{</div><div·class="line"><a·name="l08100"></a><span·class="lineno">·8100</span> ············SetOS($self,·@parameters);</div><div·class="line"><a·name="l08101"></a><span·class="lineno">·8101</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Orthographic'</span>)·{</div><div·class="line"><a·name="l08102"></a><span·class="lineno">·8102</span> ············SetOrthographic($self,·@parameters);</div><div·class="line"><a·name="l08103"></a><span·class="lineno">·8103</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Polyconic'</span>)·{</div><div·class="line"><a·name="l08104"></a><span·class="lineno">·8104</span> ············SetPolyconic($self,·@parameters);</div><div·class="line"><a·name="l08105"></a><span·class="lineno">·8105</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Polar_Stereographic'</span>)·{</div><div·class="line"><a·name="l08106"></a><span·class="lineno">·8106</span> ············SetPS($self,·@parameters);</div><div·class="line"><a·name="l08107"></a><span·class="lineno">·8107</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Robinson'</span>)·{</div><div·class="line"><a·name="l08108"></a><span·class="lineno">·8108</span> ············SetRobinson($self,·@parameters);</div><div·class="line"><a·name="l08109"></a><span·class="lineno">·8109</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Sinusoidal'</span>)·{</div><div·class="line"><a·name="l08110"></a><span·class="lineno">·8110</span> ············SetSinusoidal($self,·@parameters);</div><div·class="line"><a·name="l08111"></a><span·class="lineno">·8111</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Stereographic'</span>)·{</div><div·class="line"><a·name="l08112"></a><span·class="lineno">·8112</span> ············SetStereographic($self,·@parameters);</div><div·class="line"><a·name="l08113"></a><span·class="lineno">·8113</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Swiss_Oblique_Cylindrical'</span>)·{</div><div·class="line"><a·name="l08114"></a><span·class="lineno">·8114</span> ············SetSOC($self,·@parameters);</div><div·class="line"><a·name="l08115"></a><span·class="lineno">·8115</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Transverse_Mercator_South_Orientated'</span>)·{</div><div·class="line"><a·name="l08116"></a><span·class="lineno">·8116</span> ············SetTMSO($self,·@parameters);</div><div·class="line"><a·name="l08117"></a><span·class="lineno">·8117</span> ········}·elsif·($params{Projection}·=~·/^Transverse_Mercator/)·{</div><div·class="line"><a·name="l08118"></a><span·class="lineno">·8118</span> ············my($variant)·=·$params{Projection}·=~·/^Transverse_Mercator_(\w+)/;</div><div·class="line"><a·name="l08119"></a><span·class="lineno">·8119</span> ············$variant·<span·class="comment">//=·$params{Variant}·//=·$params{Name};</span></div><div·class="line"><a·name="l08120"></a><span·class="lineno">·8120</span> ············$variant·?</div><div·class="line"><a·name="l08121"></a><span·class="lineno">·8121</span> ················SetTMVariant($self,·$variant,·@parameters)·:</div><div·class="line"><a·name="l08122"></a><span·class="lineno">·8122</span> ················SetTM($self,·@parameters);</div><div·class="line"><a·name="l08123"></a><span·class="lineno">·8123</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Tunisia_Mining_Grid'</span>)·{</div><div·class="line"><a·name="l08124"></a><span·class="lineno">·8124</span> ············SetTMG($self,·@parameters);</div><div·class="line"><a·name="l08125"></a><span·class="lineno">·8125</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'VanDerGrinten'</span>)·{</div><div·class="line"><a·name="l08126"></a><span·class="lineno">·8126</span> ············SetVDG($self,·@parameters);</div><div·class="line"><a·name="l08127"></a><span·class="lineno">·8127</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l08128"></a><span·class="lineno">·8128</span> <span·class="preprocessor">············#·Aitoff,·Craster_Parabolic,·International_Map_of_the_World_Polyconic,·Laborde_Oblique_Mercator</span></div><div·class="line"><a·name="l08129"></a><span·class="lineno">·8129</span> <span·class="preprocessor">············#·Loximuthal,·Miller_Cylindrical,·Quadrilateralized_Spherical_Cube,·Quartic_Authalic,·Two_Point_Equidistant</span></div><div·class="line"><a·name="l08130"></a><span·class="lineno">·8130</span> <span·class="preprocessor">············#·Wagner_I,·Wagner_II,·Wagner_III,·Wagner_IV,·Wagner_V,·Wagner_VI,·Wagner_VII</span></div><div·class="line"><a·name="l08131"></a><span·class="lineno">·8131</span> <span·class="preprocessor">············#·Winkel_I,·Winkel_II,·Winkel_Tripel</span></div><div·class="line"><a·name="l08132"></a><span·class="lineno">·8132</span> <span·class="preprocessor">············#·?</span></div><div·class="line"><a·name="l08133"></a><span·class="lineno">·8133</span> ············SetProjection($self,·$params{Projection});</div><div·class="line"><a·name="l08134"></a><span·class="lineno">·8134</span> ········}</div><div·class="line"><a·name="l08135"></a><span·class="lineno">·8135</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l08136"></a><span·class="lineno">·8136</span> ········error(<span·class="stringliteral">"Not·enough·information·to·create·a·spatial·reference·object."</span>);</div><div·class="line"><a·name="l08137"></a><span·class="lineno">·8137</span> ····}</div><div·class="line"><a·name="l08138"></a><span·class="lineno">·8138</span> }</div><div·class="line"><a·name="l08139"></a><span·class="lineno">·8139</span> </div><div·class="line"><a·name="l08140"></a><span·class="lineno">·8140</span> <span·class="preprocessor">#**·@method·SetMercator2SP()</span></div><div·class="line"><a·name="l08141"></a><span·class="lineno">·8141</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l08142"></a><span·class="lineno">·8142</span> sub·SetMercator2SP·{</div><div·class="line"><a·name="l08143"></a><span·class="lineno">·8143</span> }</div><div·class="line"><a·name="l08144"></a><span·class="lineno">·8144</span> </div><div·class="line"><a·name="l08145"></a><span·class="lineno">·8145</span> <span·class="preprocessor">#**·@method·StripCTParms()</span></div><div·class="line"><a·name="l08146"></a><span·class="lineno">·8146</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l08147"></a><span·class="lineno">·8147</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l08148"></a><span·class="lineno">·8148</span> sub·StripCTParms·{</div><div·class="line"><a·name="l08149"></a><span·class="lineno">·8149</span> }</div><div·class="line"><a·name="l08150"></a><span·class="lineno">·8150</span> </div><div·class="line"><a·name="l08151"></a><span·class="lineno">·8151</span> <span·class="preprocessor">#**·@method·Validate()</span></div><div·class="line"><a·name="l08152"></a><span·class="lineno">·8152</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l08153"></a><span·class="lineno">·8153</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l08154"></a><span·class="lineno">·8154</span> sub·Validate·{</div><div·class="line"><a·name="l08155"></a><span·class="lineno">·8155</span> }</div><div·class="line"><a·name="l08156"></a><span·class="lineno">·8156</span> </div><div·class="line"><a·name="l08157"></a><span·class="lineno">·8157</span> <span·class="preprocessor">#**·@method·Geo::OSR::SpatialReference·new(%params)</span></div><div·class="line"><a·name="l08158"></a><span·class="lineno">·8158</span> <span·class="preprocessor">#·Class·method.</span></div><div·class="line"><a·name="l08159"></a><span·class="lineno">·8159</span> <span·class="preprocessor">#·Create·a·new·spatial·reference·object·using·a·named·parameter.·This</span></div><div·class="line"><a·name="l08160"></a><span·class="lineno">·8160</span> <span·class="preprocessor">#·constructor·recognizes·the·following·key·words·(alternative·in</span></div><div·class="line"><a·name="l08161"></a><span·class="lineno">·8161</span> <span·class="preprocessor">#·parenthesis):·WKT·(Text),·Proj4,·ESRI,·EPSG,·EPSGA,·PCI,·USGS,·GML</span></div><div·class="line"><a·name="l08162"></a><span·class="lineno">·8162</span> <span·class="preprocessor">#·(XML),·URL,·ERMapper·(ERM),·MapInfoCS·(MICoordSys).·The·value</span></div><div·class="line"><a·name="l08163"></a><span·class="lineno">·8163</span> <span·class="preprocessor">#·depends·on·the·key.</span></div><div·class="line"><a·name="l08164"></a><span·class="lineno">·8164</span> <span·class="preprocessor">#·-·WKT:·Well·Known·Text·string</span></div><div·class="line"><a·name="l08165"></a><span·class="lineno">·8165</span> <span·class="preprocessor">#·-·Proj4:·PROJ.4·string</span></div><div·class="line"><a·name="l08166"></a><span·class="lineno">·8166</span> <span·class="preprocessor">#·-·ESRI:·reference·to·a·list·of·strings·(contents·of·ESRI·.prj·file)</span></div><div·class="line"><a·name="l08167"></a><span·class="lineno">·8167</span> <span·class="preprocessor">#·-·EPSG:·EPSG·code·number</span></div><div·class="line"><a·name="l08168"></a><span·class="lineno">·8168</span> <span·class="preprocessor">#·-·EPSGA:·EPSG·code·number·(the·resulting·CS·will·have·EPSG·preferred·axis·ordering)</span></div><div·class="line"><a·name="l08169"></a><span·class="lineno">·8169</span> <span·class="preprocessor">#·-·PCI:·listref:·[PCI_projection_string,·Grid_units_code,·[17·cs·parameters]]</span></div><div·class="line"><a·name="l08170"></a><span·class="lineno">·8170</span> <span·class="preprocessor">#·-·USGS:·listref:·[Projection_system_code,·Zone,·[15·cs·parameters],·Datum_code,·Format_flag]</span></div><div·class="line"><a·name="l08171"></a><span·class="lineno">·8171</span> <span·class="preprocessor">#·-·GML:·GML·string</span></div><div·class="line"><a·name="l08172"></a><span·class="lineno">·8172</span> <span·class="preprocessor">#·-·URL:·URL·for·downloading·the·spatial·reference·from</span></div><div·class="line"><a·name="l08173"></a><span·class="lineno">·8173</span> <span·class="preprocessor">#·-·ERMapper:·listref:·[Projection,·Datum,·Units]</span></div><div·class="line"><a·name="l08174"></a><span·class="lineno">·8174</span> <span·class="preprocessor">#·-·MapInfoCS:·MapInfo·style·co-ordinate·system·definition</span></div><div·class="line"><a·name="l08175"></a><span·class="lineno">·8175</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l08176"></a><span·class="lineno">·8176</span> <span·class="preprocessor">#·For·more·information,·consult·the·import·methods·in·<a·href="http://www.gdal.org/classOGRSpatialReference.html">OGR·documentation</a>.</span></div><div·class="line"><a·name="l08177"></a><span·class="lineno">·8177</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l08178"></a><span·class="lineno">·8178</span> <span·class="preprocessor">#·@note·ImportFrom*·methods·also·exist·but·are·not·documented·here.</span></div><div·class="line"><a·name="l08179"></a><span·class="lineno">·8179</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l08180"></a><span·class="lineno">·8180</span> <span·class="preprocessor">#·Usage:</span></div><div·class="line"><a·name="l08181"></a><span·class="lineno">·8181</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l08182"></a><span·class="lineno">·8182</span> <span·class="preprocessor">#·$sr·=·Geo::OSR::SpatialReference->new(·key·=>·value·);</span></div><div·class="line"><a·name="l08183"></a><span·class="lineno">·8183</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l08184"></a><span·class="lineno">·8184</span> <span·class="preprocessor">#·@return·a·new·Geo::OSR::SpatialReference·object</span></div><div·class="line"><a·name="l08185"></a><span·class="lineno">·8185</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l08186"></a><span·class="lineno">·8186</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l08187"></a><span·class="lineno">·8187</span> ····my·$pkg·=·shift;</div><div·class="line"><a·name="l08188"></a><span·class="lineno">·8188</span> ····my·%param·=·@_;</div><div·class="line"><a·name="l08189"></a><span·class="lineno">·8189</span> ····my·$self·=·Geo::OSRc::new_SpatialReference();</div><div·class="line"><a·name="l08190"></a><span·class="lineno">·8190</span> ····<span·class="keywordflow">if</span>·(exists·$param{WKT})·{</div><div·class="line"><a·name="l08191"></a><span·class="lineno">·8191</span> ········ImportFromWkt($self,·$param{WKT});</div><div·class="line"><a·name="l08192"></a><span·class="lineno">·8192</span> ····}·elsif·(exists·$param{Text})·{</div><div·class="line"><a·name="l08193"></a><span·class="lineno">·8193</span> ········ImportFromWkt($self,·$param{Text});</div><div·class="line"><a·name="l08194"></a><span·class="lineno">·8194</span> ····}·elsif·(exists·$param{Proj4})·{</div><div·class="line"><a·name="l08195"></a><span·class="lineno">·8195</span> ········ImportFromProj4($self,·$param{Proj4});</div><div·class="line"><a·name="l08196"></a><span·class="lineno">·8196</span> ····}·elsif·(exists·$param{ESRI})·{</div><div·class="line"><a·name="l08197"></a><span·class="lineno">·8197</span> ········ImportFromESRI($self,·@{$param{ESRI}});</div><div·class="line"><a·name="l08198"></a><span·class="lineno">·8198</span> ····}·elsif·(exists·$param{EPSG})·{</div><div·class="line"><a·name="l08199"></a><span·class="lineno">·8199</span> ········ImportFromEPSG($self,·$param{EPSG});</div><div·class="line"><a·name="l08200"></a><span·class="lineno">·8200</span> ····}·elsif·(exists·$param{EPSGA})·{</div><div·class="line"><a·name="l08201"></a><span·class="lineno">·8201</span> ········ImportFromEPSGA($self,·$param{EPSGA});</div><div·class="line"><a·name="l08202"></a><span·class="lineno">·8202</span> ····}·elsif·(exists·$param{PCI})·{</div><div·class="line"><a·name="l08203"></a><span·class="lineno">·8203</span> ········ImportFromPCI($self,·@{$param{PCI}});</div><div·class="line"><a·name="l08204"></a><span·class="lineno">·8204</span> ····}·elsif·(exists·$param{USGS})·{</div><div·class="line"><a·name="l08205"></a><span·class="lineno">·8205</span> ········ImportFromUSGS($self,·@{$param{USGS}});</div><div·class="line"><a·name="l08206"></a><span·class="lineno">·8206</span> ····}·elsif·(exists·$param{XML})·{</div><div·class="line"><a·name="l08207"></a><span·class="lineno">·8207</span> ········ImportFromXML($self,·$param{XML});</div><div·class="line"><a·name="l08208"></a><span·class="lineno">·8208</span> ····}·elsif·(exists·$param{GML})·{</div><div·class="line"><a·name="l08209"></a><span·class="lineno">·8209</span> ········ImportFromGML($self,·$param{GML});</div><div·class="line"><a·name="l08210"></a><span·class="lineno">·8210</span> ····}·elsif·(exists·$param{URL})·{</div><div·class="line"><a·name="l08211"></a><span·class="lineno">·8211</span> ········ImportFromUrl($self,·$param{URL});</div><div·class="line"><a·name="l08212"></a><span·class="lineno">·8212</span> ····}·elsif·(exists·$param{ERMapper})·{</div><div·class="line"><a·name="l08213"></a><span·class="lineno">·8213</span> ········ImportFromERM($self,·@{$param{ERMapper}});</div><div·class="line"><a·name="l08214"></a><span·class="lineno">·8214</span> ····}·elsif·(exists·$param{ERM})·{</div><div·class="line"><a·name="l08215"></a><span·class="lineno">·8215</span> ········ImportFromERM($self,·@{$param{ERM}});</div><div·class="line"><a·name="l08216"></a><span·class="lineno">·8216</span> ····}·elsif·(exists·$param{MICoordSys})·{</div><div·class="line"><a·name="l08217"></a><span·class="lineno">·8217</span> ········ImportFromMICoordSys($self,·$param{MICoordSys});</div><div·class="line"><a·name="l08218"></a><span·class="lineno">·8218</span> ····}·elsif·(exists·$param{MapInfoCS})·{</div><div·class="line"><a·name="l08219"></a><span·class="lineno">·8219</span> ········ImportFromMICoordSys($self,·$param{MapInfoCS});</div><div·class="line"><a·name="l08220"></a><span·class="lineno">·8220</span> ····}·elsif·(exists·$param{WGS})·{</div><div·class="line"><a·name="l08221"></a><span·class="lineno">·8221</span> ········eval·{</div><div·class="line"><a·name="l08222"></a><span·class="lineno">·8222</span> ············SetWellKnownGeogCS($self,·<span·class="stringliteral">'WGS'</span>.$param{WGS});</div><div·class="line"><a·name="l08223"></a><span·class="lineno">·8223</span> ········};</div><div·class="line"><a·name="l08224"></a><span·class="lineno">·8224</span> ········confess·last_error()·if·$@;</div><div·class="line"><a·name="l08225"></a><span·class="lineno">·8225</span> ····}·else·{</div><div·class="line"><a·name="l08226"></a><span·class="lineno">·8226</span> ········error(<span·class="stringliteral">"Unrecognized/missing·parameters:·@_."</span>);</div><div·class="line"><a·name="l08227"></a><span·class="lineno">·8227</span> ····}</div><div·class="line"><a·name="l08228"></a><span·class="lineno">·8228</span> ····bless·$self,·$pkg·<span·class="keywordflow">if</span>·defined·$self;</div><div·class="line"><a·name="l08229"></a><span·class="lineno">·8229</span> }</div><div·class="line"><a·name="l08230"></a><span·class="lineno">·8230</span> </div><div·class="ttc"·id="classGeo_1_1GDAL_1_1Extent_html_aaa908458e9aaa398762601ae2b466e9a"><div·class="ttname"><a·href="classGeo_1_1GDAL_1_1Extent.html#aaa908458e9aaa398762601ae2b466e9a">Geo::GDAL::Extent::new</a></div><div·class="ttdeci">public·Geo::GDAL::Extent·new(array·params)</div></div> | 66 | <a·href="all_8pm.html">Go·to·the·documentation·of·this·file.</a><div·class="fragment"><div·class="line"><a·name="l00001"></a><span·class="lineno">····1</span> <span·class="preprocessor">#**·@class·Geo::GDAL</span></div><div·class="line"><a·name="l00002"></a><span·class="lineno">····2</span> <span·class="preprocessor">#·@brief·GDAL·utility·functions·and·a·root·class·for·raster·classes.</span></div><div·class="line"><a·name="l00003"></a><span·class="lineno">····3</span> <span·class="preprocessor">#·@details·Geo::GDAL·wraps·many·GDAL·utility·functions·and·is·as·a·root·class</span></div><div·class="line"><a·name="l00004"></a><span·class="lineno">····4</span> <span·class="preprocessor">#·for·all·GDAL·raster·classes.·A·"raster"·is·an·object,·whose·core·is</span></div><div·class="line"><a·name="l00005"></a><span·class="lineno">····5</span> <span·class="preprocessor">#·a·rectagular·grid·of·cells,·called·a·"band"·in·GDAL.·Each·cell</span></div><div·class="line"><a·name="l00006"></a><span·class="lineno">····6</span> <span·class="preprocessor">#·contains·a·numeric·value·of·a·specific·data·type.</span></div><div·class="line"><a·name="l00007"></a><span·class="lineno">····7</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00008"></a><span·class="lineno">····8</span> <span·class="keyword">package·</span>Geo::GDAL;</div><div·class="line"><a·name="l00009"></a><span·class="lineno">····9</span> </div><div·class="line"><a·name="l00010"></a><span·class="lineno">···10</span> <span·class="preprocessor">#**·@method·ApplyVerticalShiftGrid()</span></div><div·class="line"><a·name="l00011"></a><span·class="lineno">···11</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00012"></a><span·class="lineno">···12</span> sub·ApplyVerticalShiftGrid·{</div><div·class="line"><a·name="l00013"></a><span·class="lineno">···13</span> }</div><div·class="line"><a·name="l00014"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL.html">···14</a></span> </div><div·class="line"><a·name="l00015"></a><span·class="lineno">···15</span> <span·class="preprocessor">#**·@method·BuildVRT()</span></div><div·class="line"><a·name="l00016"></a><span·class="lineno">···16</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00017"></a><span·class="lineno">···17</span> sub·BuildVRT·{</div><div·class="line"><a·name="l00018"></a><span·class="lineno">···18</span> ·····<span·class="keywordflow">for</span>·(keys·%<a·class="code"·href="classGeo_1_1GDAL_1_1Const.html">Geo::GDAL::Const</a>::)·{</div><div·class="line"><a·name="l00019"></a><span·class="lineno">···19</span> ·········next·<span·class="keywordflow">if</span>·/TypeCount/;</div><div·class="line"><a·name="l00020"></a><span·class="lineno">···20</span> ·········push(@DATA_TYPES,·$1),·next·<span·class="keywordflow">if</span>·/^GDT_(\w+)/;</div><div·class="line"><a·name="l00021"></a><span·class="lineno">···21</span> ·········push(@OPEN_FLAGS,·$1),·next·<span·class="keywordflow">if</span>·/^OF_(\w+)/;</div><div·class="line"><a·name="l00022"></a><span·class="lineno">···22</span> ·········push(@RESAMPLING_TYPES,·$1),·next·<span·class="keywordflow">if</span>·/^GRA_(\w+)/;</div><div·class="line"><a·name="l00023"></a><span·class="lineno">···23</span> ·········push(@RIO_RESAMPLING_TYPES,·$1),·next·<span·class="keywordflow">if</span>·/^GRIORA_(\w+)/;</div><div·class="line"><a·name="l00024"></a><span·class="lineno">···24</span> ·········push(@NODE_TYPES,·$1),·next·<span·class="keywordflow">if</span>·/^CXT_(\w+)/;</div><div·class="line"><a·name="l00025"></a><span·class="lineno">···25</span> ·····}</div><div·class="line"><a·name="l00026"></a><span·class="lineno">···26</span> ·····<span·class="keywordflow">for</span>·my·$string·(@DATA_TYPES)·{</div><div·class="line"><a·name="l00027"></a><span·class="lineno">···27</span> ·········my·$int·=·eval·<span·class="stringliteral">"\$Geo::GDAL::Const::GDT_$string"</span>;</div><div·class="line"><a·name="l00028"></a><span·class="lineno">···28</span> ·········$S2I{data_type}{$string}·=·$int;</div><div·class="line"><a·name="l00029"></a><span·class="lineno">···29</span> ·········$I2S{data_type}{$int}·=·$string;</div><div·class="line"><a·name="l00030"></a><span·class="lineno">···30</span> ·····}</div><div·class="line"><a·name="l00031"></a><span·class="lineno">···31</span> ·····<span·class="keywordflow">for</span>·my·$string·(@OPEN_FLAGS)·{</div><div·class="line"><a·name="l00032"></a><span·class="lineno">···32</span> ·········my·$int·=·eval·<span·class="stringliteral">"\$Geo::GDAL::Const::OF_$string"</span>;</div><div·class="line"><a·name="l00033"></a><span·class="lineno">···33</span> ·········$S2I{open_flag}{$string}·=·$int;</div><div·class="line"><a·name="l00034"></a><span·class="lineno">···34</span> ·····}</div><div·class="line"><a·name="l00035"></a><span·class="lineno">···35</span> ·····<span·class="keywordflow">for</span>·my·$string·(@RESAMPLING_TYPES)·{</div><div·class="line"><a·name="l00036"></a><span·class="lineno">···36</span> ·········my·$int·=·eval·<span·class="stringliteral">"\$Geo::GDAL::Const::GRA_$string"</span>;</div><div·class="line"><a·name="l00037"></a><span·class="lineno">···37</span> ·········$S2I{resampling}{$string}·=·$int;</div><div·class="line"><a·name="l00038"></a><span·class="lineno">···38</span> ·········$I2S{resampling}{$int}·=·$string;</div><div·class="line"><a·name="l00039"></a><span·class="lineno">···39</span> ·····}</div><div·class="line"><a·name="l00040"></a><span·class="lineno">···40</span> ·····<span·class="keywordflow">for</span>·my·$string·(@RIO_RESAMPLING_TYPES)·{</div><div·class="line"><a·name="l00041"></a><span·class="lineno">···41</span> ·········my·$int·=·eval·<span·class="stringliteral">"\$Geo::GDAL::Const::GRIORA_$string"</span>;</div><div·class="line"><a·name="l00042"></a><span·class="lineno">···42</span> ·········$S2I{rio_resampling}{$string}·=·$int;</div><div·class="line"><a·name="l00043"></a><span·class="lineno">···43</span> ·········$I2S{rio_resampling}{$int}·=·$string;</div><div·class="line"><a·name="l00044"></a><span·class="lineno">···44</span> ·····}</div><div·class="line"><a·name="l00045"></a><span·class="lineno">···45</span> ·····<span·class="keywordflow">for</span>·my·$string·(@NODE_TYPES)·{</div><div·class="line"><a·name="l00046"></a><span·class="lineno">···46</span> ·········my·$int·=·eval·<span·class="stringliteral">"\$Geo::GDAL::Const::CXT_$string"</span>;</div><div·class="line"><a·name="l00047"></a><span·class="lineno">···47</span> ·········$S2I{node_type}{$string}·=·$int;</div><div·class="line"><a·name="l00048"></a><span·class="lineno">···48</span> ·········$I2S{node_type}{$int}·=·$string;</div><div·class="line"><a·name="l00049"></a><span·class="lineno">···49</span> ·····}</div><div·class="line"><a·name="l00050"></a><span·class="lineno">···50</span> ·····our·$HAVE_PDL;</div><div·class="line"><a·name="l00051"></a><span·class="lineno">···51</span> ·····eval·<span·class="stringliteral">'require·PDL'</span>;</div><div·class="line"><a·name="l00052"></a><span·class="lineno">···52</span> ·····$HAVE_PDL·=·1·unless·$@;</div><div·class="line"><a·name="l00053"></a><span·class="lineno">···53</span> }</div><div·class="line"><a·name="l00054"></a><span·class="lineno">···54</span> </div><div·class="line"><a·name="l00055"></a><span·class="lineno">···55</span> <span·class="preprocessor">#**·@method·CPLBinaryToHex()</span></div><div·class="line"><a·name="l00056"></a><span·class="lineno">···56</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00057"></a><span·class="lineno">···57</span> sub·CPLBinaryToHex·{</div><div·class="line"><a·name="l00058"></a><span·class="lineno">···58</span> }</div><div·class="line"><a·name="l00059"></a><span·class="lineno">···59</span> </div><div·class="line"><a·name="l00060"></a><span·class="lineno">···60</span> <span·class="preprocessor">#**·@method·CPLHexToBinary()</span></div><div·class="line"><a·name="l00061"></a><span·class="lineno">···61</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00062"></a><span·class="lineno">···62</span> sub·CPLHexToBinary·{</div><div·class="line"><a·name="l00063"></a><span·class="lineno">···63</span> }</div><div·class="line"><a·name="l00064"></a><span·class="lineno">···64</span> </div><div·class="line"><a·name="l00065"></a><span·class="lineno">···65</span> <span·class="preprocessor">#**·@method·ContourGenerateEx()</span></div><div·class="line"><a·name="l00066"></a><span·class="lineno">···66</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00067"></a><span·class="lineno">···67</span> sub·ContourGenerateEx·{</div><div·class="line"><a·name="l00068"></a><span·class="lineno">···68</span> }</div><div·class="line"><a·name="l00069"></a><span·class="lineno">···69</span> </div><div·class="line"><a·name="l00070"></a><span·class="lineno">···70</span> <span·class="preprocessor">#**·@method·CreatePansharpenedVRT()</span></div><div·class="line"><a·name="l00071"></a><span·class="lineno">···71</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00072"></a><span·class="lineno">···72</span> sub·CreatePansharpenedVRT·{</div><div·class="line"><a·name="l00073"></a><span·class="lineno">···73</span> }</div><div·class="line"><a·name="l00074"></a><span·class="lineno">···74</span> </div><div·class="line"><a·name="l00075"></a><span·class="lineno">···75</span> <span·class="preprocessor">#**·@method·scalar·DataTypeIsComplex($DataType)</span></div><div·class="line"><a·name="l00076"></a><span·class="lineno">···76</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00077"></a><span·class="lineno">···77</span> <span·class="preprocessor">#·@param·DataType·A·GDAL·raster·cell·data·type·(one·of·those·listed·by·Geo::GDAL::DataTypes).</span></div><div·class="line"><a·name="l00078"></a><span·class="lineno">···78</span> <span·class="preprocessor">#·@return·true·if·the·data·type·is·a·complex·number.</span></div><div·class="line"><a·name="l00079"></a><span·class="lineno">···79</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00080"></a><span·class="lineno">···80</span> sub·DataTypeIsComplex·{</div><div·class="line"><a·name="l00081"></a><span·class="lineno">···81</span> ····<span·class="keywordflow">return</span>·_DataTypeIsComplex(s2i(data_type·=>·shift));</div><div·class="line"><a·name="l00082"></a><span·class="lineno">···82</span> }</div><div·class="line"><a·name="l00083"></a><span·class="lineno">···83</span> </div><div·class="line"><a·name="l00084"></a><span·class="lineno">···84</span> <span·class="preprocessor">#**·@method·list·DataTypeValueRange($DataType)</span></div><div·class="line"><a·name="l00085"></a><span·class="lineno">···85</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00086"></a><span·class="lineno">···86</span> <span·class="preprocessor">#·@param·DataType·Data·type·(one·of·those·listed·by·Geo::GDAL::DataTypes).</span></div><div·class="line"><a·name="l00087"></a><span·class="lineno">···87</span> <span·class="preprocessor">#·@note·Some·returned·values·are·inaccurate.</span></div><div·class="line"><a·name="l00088"></a><span·class="lineno">···88</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00089"></a><span·class="lineno">···89</span> <span·class="preprocessor">#·@return·the·minimum,·maximum·range·of·the·data·type.</span></div><div·class="line"><a·name="l00090"></a><span·class="lineno">···90</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00091"></a><span·class="lineno">···91</span> sub·DataTypeValueRange·{</div><div·class="line"><a·name="l00092"></a><span·class="lineno">···92</span> ····my·$t·=·shift;</div><div·class="line"><a·name="l00093"></a><span·class="lineno">···93</span> ····s2i(data_type·=>·$t);</div><div·class="line"><a·name="l00094"></a><span·class="lineno">···94</span> <span·class="preprocessor">····#·these·values·are·from·gdalrasterband.cpp</span></div><div·class="line"><a·name="l00095"></a><span·class="lineno">···95</span> ····<span·class="keywordflow">return</span>·(0,255)·<span·class="keywordflow">if</span>·$t·=~·/Byte/;</div><div·class="line"><a·name="l00096"></a><span·class="lineno">···96</span> ····<span·class="keywordflow">return</span>·(0,65535)·<span·class="keywordflow">if</span>·$t·=~/UInt16/;</div><div·class="line"><a·name="l00097"></a><span·class="lineno">···97</span> ····<span·class="keywordflow">return</span>·(-32768,32767)·<span·class="keywordflow">if</span>·$t·=~/Int16/;</div><div·class="line"><a·name="l00098"></a><span·class="lineno">···98</span> ····<span·class="keywordflow">return</span>·(0,4294967295)·<span·class="keywordflow">if</span>·$t·=~/UInt32/;</div><div·class="line"><a·name="l00099"></a><span·class="lineno">···99</span> ····<span·class="keywordflow">return</span>·(-2147483648,2147483647)·<span·class="keywordflow">if</span>·$t·=~/Int32/;</div><div·class="line"><a·name="l00100"></a><span·class="lineno">··100</span> ····<span·class="keywordflow">return</span>·(-4294967295.0,4294967295.0)·<span·class="keywordflow">if</span>·$t·=~/Float32/;</div><div·class="line"><a·name="l00101"></a><span·class="lineno">··101</span> ····<span·class="keywordflow">return</span>·(-4294967295.0,4294967295.0)·<span·class="keywordflow">if</span>·$t·=~/Float64/;</div><div·class="line"><a·name="l00102"></a><span·class="lineno">··102</span> }</div><div·class="line"><a·name="l00103"></a><span·class="lineno">··103</span> </div><div·class="line"><a·name="l00104"></a><span·class="lineno">··104</span> <span·class="preprocessor">#**·@method·list·DataTypes()</span></div><div·class="line"><a·name="l00105"></a><span·class="lineno">··105</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00106"></a><span·class="lineno">··106</span> <span·class="preprocessor">#·@return·a·list·of·GDAL·raster·cell·data·types.·These·are·currently:</span></div><div·class="line"><a·name="l00107"></a><span·class="lineno">··107</span> <span·class="preprocessor">#·Byte,·CFloat32,·CFloat64,·CInt16,·CInt32,·Float32,·Float64,·Int16,·Int32,·UInt16,·UInt32,·and·Unknown.</span></div><div·class="line"><a·name="l00108"></a><span·class="lineno">··108</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00109"></a><span·class="lineno">··109</span> sub·DataTypes·{</div><div·class="line"><a·name="l00110"></a><span·class="lineno">··110</span> ····<span·class="keywordflow">return</span>·@DATA_TYPES;</div><div·class="line"><a·name="l00111"></a><span·class="lineno">··111</span> }</div><div·class="line"><a·name="l00112"></a><span·class="lineno">··112</span> </div><div·class="line"><a·name="l00113"></a><span·class="lineno">··113</span> <span·class="preprocessor">#**·@method·scalar·DecToDMS($angle,·$axis,·$precision=2)</span></div><div·class="line"><a·name="l00114"></a><span·class="lineno">··114</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00115"></a><span·class="lineno">··115</span> <span·class="preprocessor">#·Convert·decimal·degrees·to·degrees,·minutes,·and·seconds·string</span></div><div·class="line"><a·name="l00116"></a><span·class="lineno">··116</span> <span·class="preprocessor">#·@param·angle·A·number</span></div><div·class="line"><a·name="l00117"></a><span·class="lineno">··117</span> <span·class="preprocessor">#·@param·axis·A·string·specifying·latitude·or·longitude·('Long').</span></div><div·class="line"><a·name="l00118"></a><span·class="lineno">··118</span> <span·class="preprocessor">#·@param·precision</span></div><div·class="line"><a·name="l00119"></a><span·class="lineno">··119</span> <span·class="preprocessor">#·@return·a·string·nndnn'nn.nn'"L·where·n·is·a·number·and·L·is·either</span></div><div·class="line"><a·name="l00120"></a><span·class="lineno">··120</span> <span·class="preprocessor">#·N·or·E</span></div><div·class="line"><a·name="l00121"></a><span·class="lineno">··121</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00122"></a><span·class="lineno">··122</span> sub·DecToDMS·{</div><div·class="line"><a·name="l00123"></a><span·class="lineno">··123</span> }</div><div·class="line"><a·name="l00124"></a><span·class="lineno">··124</span> </div><div·class="line"><a·name="l00125"></a><span·class="lineno">··125</span> <span·class="preprocessor">#**·@method·scalar·DecToPackedDMS($dec)</span></div><div·class="line"><a·name="l00126"></a><span·class="lineno">··126</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00127"></a><span·class="lineno">··127</span> <span·class="preprocessor">#·@param·dec·Decimal·degrees</span></div><div·class="line"><a·name="l00128"></a><span·class="lineno">··128</span> <span·class="preprocessor">#·@return·packed·DMS,·i.e.,·a·number·DDDMMMSSS.SS</span></div><div·class="line"><a·name="l00129"></a><span·class="lineno">··129</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00130"></a><span·class="lineno">··130</span> sub·DecToPackedDMS·{</div><div·class="line"><a·name="l00131"></a><span·class="lineno">··131</span> }</div><div·class="line"><a·name="l00132"></a><span·class="lineno">··132</span> </div><div·class="line"><a·name="l00133"></a><span·class="lineno">··133</span> <span·class="preprocessor">#**·@method·DontUseExceptions()</span></div><div·class="line"><a·name="l00134"></a><span·class="lineno">··134</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00135"></a><span·class="lineno">··135</span> <span·class="preprocessor">#·Do·not·use·the·Perl·exception·mechanism·for·GDAL·messages.·Instead</span></div><div·class="line"><a·name="l00136"></a><span·class="lineno">··136</span> <span·class="preprocessor">#·the·messages·are·printed·to·standard·error.</span></div><div·class="line"><a·name="l00137"></a><span·class="lineno">··137</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00138"></a><span·class="lineno">··138</span> sub·DontUseExceptions·{</div><div·class="line"><a·name="l00139"></a><span·class="lineno">··139</span> }</div><div·class="line"><a·name="l00140"></a><span·class="lineno">··140</span> </div><div·class="line"><a·name="l00141"></a><span·class="lineno">··141</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Driver·Driver($Name)</span></div><div·class="line"><a·name="l00142"></a><span·class="lineno">··142</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00143"></a><span·class="lineno">··143</span> <span·class="preprocessor">#·Access·a·format·driver.</span></div><div·class="line"><a·name="l00144"></a><span·class="lineno">··144</span> <span·class="preprocessor">#·@param·Name·The·short·name·of·the·driver.·One·of</span></div><div·class="line"><a·name="l00145"></a><span·class="lineno">··145</span> <span·class="preprocessor">#·Geo::GDAL::DriverNames·or·Geo::OGR::DriverNames.</span></div><div·class="line"><a·name="l00146"></a><span·class="lineno">··146</span> <span·class="preprocessor">#·@note·This·subroutine·is·imported·into·the·main·namespace·if·Geo::GDAL</span></div><div·class="line"><a·name="l00147"></a><span·class="lineno">··147</span> <span·class="preprocessor">#·is·used·with·qw/:all/.</span></div><div·class="line"><a·name="l00148"></a><span·class="lineno">··148</span> <span·class="preprocessor">#·@return·a·Geo::GDAL::Driver·object.</span></div><div·class="line"><a·name="l00149"></a><span·class="lineno">··149</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00150"></a><span·class="lineno">··150</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1Driver.html">Driver</a>·{</div><div·class="line"><a·name="l00151"></a><span·class="lineno">··151</span> ····<span·class="keywordflow">return</span>·<span·class="stringliteral">'Geo::GDAL::Driver'</span>·unless·@_;</div><div·class="line"><a·name="l00152"></a><span·class="lineno">··152</span> ····my·$name·=·shift;</div><div·class="line"><a·name="l00153"></a><span·class="lineno">··153</span> ····my·$driver·=·GetDriver($name);</div><div·class="line"><a·name="l00154"></a><span·class="lineno">··154</span> ····error(<span·class="stringliteral">"Driver·\"$name\"·not·found.·Is·it·built·in?·Check·with·Geo::GDAL::Drivers·or·Geo::OGR::Drivers."</span>)</div><div·class="line"><a·name="l00155"></a><span·class="lineno">··155</span> ········unless·$driver;</div><div·class="line"><a·name="l00156"></a><span·class="lineno">··156</span> ····<span·class="keywordflow">return</span>·$driver;</div><div·class="line"><a·name="l00157"></a><span·class="lineno">··157</span> }</div><div·class="line"><a·name="l00158"></a><span·class="lineno">··158</span> </div><div·class="line"><a·name="l00159"></a><span·class="lineno">··159</span> <span·class="preprocessor">#**·@method·list·DriverNames()</span></div><div·class="line"><a·name="l00160"></a><span·class="lineno">··160</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00161"></a><span·class="lineno">··161</span> <span·class="preprocessor">#·Available·raster·format·drivers.</span></div><div·class="line"><a·name="l00162"></a><span·class="lineno">··162</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l00163"></a><span·class="lineno">··163</span> <span·class="preprocessor">#·perl·-MGeo::GDAL·-e·'@d=Geo::GDAL::DriverNames;print·"@d\n"'</span></div><div·class="line"><a·name="l00164"></a><span·class="lineno">··164</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l00165"></a><span·class="lineno">··165</span> <span·class="preprocessor">#·@note·Use·Geo::OGR::DriverNames·for·vector·drivers.</span></div><div·class="line"><a·name="l00166"></a><span·class="lineno">··166</span> <span·class="preprocessor">#·@return·a·list·of·the·short·names·of·all·available·GDAL·raster·drivers.</span></div><div·class="line"><a·name="l00167"></a><span·class="lineno">··167</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00168"></a><span·class="lineno">··168</span> sub·DriverNames·{</div><div·class="line"><a·name="l00169"></a><span·class="lineno">··169</span> }</div><div·class="line"><a·name="l00170"></a><span·class="lineno">··170</span> </div><div·class="line"><a·name="l00171"></a><span·class="lineno">··171</span> <span·class="preprocessor">#**·@method·list·Drivers()</span></div><div·class="line"><a·name="l00172"></a><span·class="lineno">··172</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00173"></a><span·class="lineno">··173</span> <span·class="preprocessor">#·@note·Use·Geo::OGR::Drivers·for·vector·drivers.</span></div><div·class="line"><a·name="l00174"></a><span·class="lineno">··174</span> <span·class="preprocessor">#·@return·a·list·of·all·available·GDAL·raster·drivers.</span></div><div·class="line"><a·name="l00175"></a><span·class="lineno">··175</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00176"></a><span·class="lineno">··176</span> sub·Drivers·{</div><div·class="line"><a·name="l00177"></a><span·class="lineno">··177</span> ····my·@drivers;</div><div·class="line"><a·name="l00178"></a><span·class="lineno">··178</span> ····<span·class="keywordflow">for</span>·my·$i·(0..GetDriverCount()-1)·{</div><div·class="line"><a·name="l00179"></a><span·class="lineno">··179</span> ········my·$driver·=·GetDriver($i);</div><div·class="line"><a·name="l00180"></a><span·class="lineno">··180</span> ········push·@drivers,·$driver·<span·class="keywordflow">if</span>·$driver->TestCapability(<span·class="stringliteral">'RASTER'</span>);</div><div·class="line"><a·name="l00181"></a><span·class="lineno">··181</span> ····}</div><div·class="line"><a·name="l00182"></a><span·class="lineno">··182</span> ····<span·class="keywordflow">return</span>·@drivers;</div><div·class="line"><a·name="l00183"></a><span·class="lineno">··183</span> }</div><div·class="line"><a·name="l00184"></a><span·class="lineno">··184</span> </div><div·class="line"><a·name="l00185"></a><span·class="lineno">··185</span> <span·class="preprocessor">#**·@method·EscapeString()</span></div><div·class="line"><a·name="l00186"></a><span·class="lineno">··186</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00187"></a><span·class="lineno">··187</span> sub·EscapeString·{</div><div·class="line"><a·name="l00188"></a><span·class="lineno">··188</span> }</div><div·class="line"><a·name="l00189"></a><span·class="lineno">··189</span> </div><div·class="line"><a·name="l00190"></a><span·class="lineno">··190</span> <span·class="preprocessor">#**·@method·scalar·FindFile($basename)</span></div><div·class="line"><a·name="l00191"></a><span·class="lineno">··191</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00192"></a><span·class="lineno">··192</span> <span·class="preprocessor">#·Search·for·GDAL·support·files.</span></div><div·class="line"><a·name="l00193"></a><span·class="lineno">··193</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00194"></a><span·class="lineno">··194</span> <span·class="preprocessor">#·An·example:</span></div><div·class="line"><a·name="l00195"></a><span·class="lineno">··195</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l00196"></a><span·class="lineno">··196</span> <span·class="preprocessor">#·use·Geo::GDAL;</span></div><div·class="line"><a·name="l00197"></a><span·class="lineno">··197</span> <span·class="preprocessor">#·$a·=·Geo::GDAL::FindFile('pcs.csv');</span></div><div·class="line"><a·name="l00198"></a><span·class="lineno">··198</span> <span·class="preprocessor">#·print·STDERR·"$a\n";</span></div><div·class="line"><a·name="l00199"></a><span·class="lineno">··199</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l00200"></a><span·class="lineno">··200</span> <span·class="preprocessor">#·Prints·(for·example):</span></div><div·class="line"><a·name="l00201"></a><span·class="lineno">··201</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l00202"></a><span·class="lineno">··202</span> <span·class="preprocessor">#·c:\msys\1.0\local\share\gdal\pcs.csv</span></div><div·class="line"><a·name="l00203"></a><span·class="lineno">··203</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l00204"></a><span·class="lineno">··204</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00205"></a><span·class="lineno">··205</span> <span·class="preprocessor">#·@param·basename·The·name·of·the·file·to·search·for.·For·example</span></div><div·class="line"><a·name="l00206"></a><span·class="lineno">··206</span> <span·class="preprocessor">#·'pcs.csv'.</span></div><div·class="line"><a·name="l00207"></a><span·class="lineno">··207</span> <span·class="preprocessor">#·@return·the·path·to·the·searched·file·or·undef.</span></div><div·class="line"><a·name="l00208"></a><span·class="lineno">··208</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00209"></a><span·class="lineno">··209</span> sub·FindFile·{</div><div·class="line"><a·name="l00210"></a><span·class="lineno">··210</span> ····<span·class="keywordflow">if</span>·(@_·==·1)·{</div><div·class="line"><a·name="l00211"></a><span·class="lineno">··211</span> ········_FindFile(<span·class="stringliteral">''</span>,·@_);</div><div·class="line"><a·name="l00212"></a><span·class="lineno">··212</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l00213"></a><span·class="lineno">··213</span> ········_FindFile(@_);</div><div·class="line"><a·name="l00214"></a><span·class="lineno">··214</span> ····}</div><div·class="line"><a·name="l00215"></a><span·class="lineno">··215</span> }</div><div·class="line"><a·name="l00216"></a><span·class="lineno">··216</span> </div><div·class="line"><a·name="l00217"></a><span·class="lineno">··217</span> <span·class="preprocessor">#**·@method·FinderClean()</span></div><div·class="line"><a·name="l00218"></a><span·class="lineno">··218</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00219"></a><span·class="lineno">··219</span> <span·class="preprocessor">#·Clear·the·set·of·support·file·search·paths.</span></div><div·class="line"><a·name="l00220"></a><span·class="lineno">··220</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00221"></a><span·class="lineno">··221</span> sub·FinderClean·{</div><div·class="line"><a·name="l00222"></a><span·class="lineno">··222</span> }</div><div·class="line"><a·name="l00223"></a><span·class="lineno">··223</span> </div><div·class="line"><a·name="l00224"></a><span·class="lineno">··224</span> <span·class="preprocessor">#**·@method·GOA2GetAccessToken()</span></div><div·class="line"><a·name="l00225"></a><span·class="lineno">··225</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00226"></a><span·class="lineno">··226</span> sub·GOA2GetAccessToken·{</div><div·class="line"><a·name="l00227"></a><span·class="lineno">··227</span> }</div><div·class="line"><a·name="l00228"></a><span·class="lineno">··228</span> </div><div·class="line"><a·name="l00229"></a><span·class="lineno">··229</span> <span·class="preprocessor">#**·@method·GOA2GetAuthorizationURL()</span></div><div·class="line"><a·name="l00230"></a><span·class="lineno">··230</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00231"></a><span·class="lineno">··231</span> sub·GOA2GetAuthorizationURL·{</div><div·class="line"><a·name="l00232"></a><span·class="lineno">··232</span> }</div><div·class="line"><a·name="l00233"></a><span·class="lineno">··233</span> </div><div·class="line"><a·name="l00234"></a><span·class="lineno">··234</span> <span·class="preprocessor">#**·@method·GOA2GetRefreshToken()</span></div><div·class="line"><a·name="l00235"></a><span·class="lineno">··235</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00236"></a><span·class="lineno">··236</span> sub·GOA2GetRefreshToken·{</div><div·class="line"><a·name="l00237"></a><span·class="lineno">··237</span> }</div><div·class="line"><a·name="l00238"></a><span·class="lineno">··238</span> </div><div·class="line"><a·name="l00239"></a><span·class="lineno">··239</span> <span·class="preprocessor">#**·@method·GetActualURL()</span></div><div·class="line"><a·name="l00240"></a><span·class="lineno">··240</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00241"></a><span·class="lineno">··241</span> sub·GetActualURL·{</div><div·class="line"><a·name="l00242"></a><span·class="lineno">··242</span> }</div><div·class="line"><a·name="l00243"></a><span·class="lineno">··243</span> </div><div·class="line"><a·name="l00244"></a><span·class="lineno">··244</span> <span·class="preprocessor">#**·@method·scalar·GetCacheMax()</span></div><div·class="line"><a·name="l00245"></a><span·class="lineno">··245</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00246"></a><span·class="lineno">··246</span> <span·class="preprocessor">#·@return·maximum·amount·of·memory·(as·bytes)·for·caching·within·GDAL.</span></div><div·class="line"><a·name="l00247"></a><span·class="lineno">··247</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00248"></a><span·class="lineno">··248</span> sub·GetCacheMax·{</div><div·class="line"><a·name="l00249"></a><span·class="lineno">··249</span> }</div><div·class="line"><a·name="l00250"></a><span·class="lineno">··250</span> </div><div·class="line"><a·name="l00251"></a><span·class="lineno">··251</span> <span·class="preprocessor">#**·@method·scalar·GetCacheUsed()</span></div><div·class="line"><a·name="l00252"></a><span·class="lineno">··252</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00253"></a><span·class="lineno">··253</span> <span·class="preprocessor">#·@return·the·amount·of·memory·currently·used·for·caching·within·GDAL.</span></div><div·class="line"><a·name="l00254"></a><span·class="lineno">··254</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00255"></a><span·class="lineno">··255</span> sub·GetCacheUsed·{</div><div·class="line"><a·name="l00256"></a><span·class="lineno">··256</span> }</div><div·class="line"><a·name="l00257"></a><span·class="lineno">··257</span> </div><div·class="line"><a·name="l00258"></a><span·class="lineno">··258</span> <span·class="preprocessor">#**·@method·scalar·GetConfigOption($key)</span></div><div·class="line"><a·name="l00259"></a><span·class="lineno">··259</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00260"></a><span·class="lineno">··260</span> <span·class="preprocessor">#·@param·key·A·GDAL·config·option.··Consult·<a</span></div><div·class="line"><a·name="l00261"></a><span·class="lineno">··261</span> <span·class="preprocessor">#·href="https://trac.osgeo.org/gdal/wiki/ConfigOptions">the·GDAL</span></div><div·class="line"><a·name="l00262"></a><span·class="lineno">··262</span> <span·class="preprocessor">#·documentation</a>·for·available·options·and·their·use.</span></div><div·class="line"><a·name="l00263"></a><span·class="lineno">··263</span> <span·class="preprocessor">#·@return·the·value·of·the·GDAL·config·option.</span></div><div·class="line"><a·name="l00264"></a><span·class="lineno">··264</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00265"></a><span·class="lineno">··265</span> sub·GetConfigOption·{</div><div·class="line"><a·name="l00266"></a><span·class="lineno">··266</span> }</div><div·class="line"><a·name="l00267"></a><span·class="lineno">··267</span> </div><div·class="line"><a·name="l00268"></a><span·class="lineno">··268</span> <span·class="preprocessor">#**·@method·scalar·GetDataTypeSize($DataType)</span></div><div·class="line"><a·name="l00269"></a><span·class="lineno">··269</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00270"></a><span·class="lineno">··270</span> <span·class="preprocessor">#·@param·DataType·A·GDAL·raster·cell·data·type·(one·of·those·listed·by·Geo::GDAL::DataTypes).</span></div><div·class="line"><a·name="l00271"></a><span·class="lineno">··271</span> <span·class="preprocessor">#·@return·the·size·as·the·number·of·bits.</span></div><div·class="line"><a·name="l00272"></a><span·class="lineno">··272</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00273"></a><span·class="lineno">··273</span> sub·GetDataTypeSize·{</div><div·class="line"><a·name="l00274"></a><span·class="lineno">··274</span> ····<span·class="keywordflow">return</span>·_GetDataTypeSize(s2i(data_type·=>·shift,·1));</div><div·class="line"><a·name="l00275"></a><span·class="lineno">··275</span> }</div><div·class="line"><a·name="l00276"></a><span·class="lineno">··276</span> </div><div·class="line"><a·name="l00277"></a><span·class="lineno">··277</span> <span·class="preprocessor">#**·@method·GetErrorCounter()</span></div><div·class="line"><a·name="l00278"></a><span·class="lineno">··278</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00279"></a><span·class="lineno">··279</span> sub·GetErrorCounter·{</div><div·class="line"><a·name="l00280"></a><span·class="lineno">··280</span> }</div><div·class="line"><a·name="l00281"></a><span·class="lineno">··281</span> </div><div·class="line"><a·name="l00282"></a><span·class="lineno">··282</span> <span·class="preprocessor">#**·@method·GetFileSystemOptions()</span></div><div·class="line"><a·name="l00283"></a><span·class="lineno">··283</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00284"></a><span·class="lineno">··284</span> sub·GetFileSystemOptions·{</div><div·class="line"><a·name="l00285"></a><span·class="lineno">··285</span> }</div><div·class="line"><a·name="l00286"></a><span·class="lineno">··286</span> </div><div·class="line"><a·name="l00287"></a><span·class="lineno">··287</span> <span·class="preprocessor">#**·@method·GetFileSystemsPrefixes()</span></div><div·class="line"><a·name="l00288"></a><span·class="lineno">··288</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00289"></a><span·class="lineno">··289</span> sub·GetFileSystemsPrefixes·{</div><div·class="line"><a·name="l00290"></a><span·class="lineno">··290</span> }</div><div·class="line"><a·name="l00291"></a><span·class="lineno">··291</span> </div><div·class="line"><a·name="l00292"></a><span·class="lineno">··292</span> <span·class="preprocessor">#**·@method·GetJPEG2000StructureAsString()</span></div><div·class="line"><a·name="l00293"></a><span·class="lineno">··293</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00294"></a><span·class="lineno">··294</span> sub·GetJPEG2000StructureAsString·{</div><div·class="line"><a·name="l00295"></a><span·class="lineno">··295</span> }</div><div·class="line"><a·name="l00296"></a><span·class="lineno">··296</span> </div><div·class="line"><a·name="l00297"></a><span·class="lineno">··297</span> <span·class="preprocessor">#**·@method·GetSignedURL()</span></div><div·class="line"><a·name="l00298"></a><span·class="lineno">··298</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00299"></a><span·class="lineno">··299</span> sub·GetSignedURL·{</div><div·class="line"><a·name="l00300"></a><span·class="lineno">··300</span> }</div><div·class="line"><a·name="l00301"></a><span·class="lineno">··301</span> </div><div·class="line"><a·name="l00302"></a><span·class="lineno">··302</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Driver·IdentifyDriver($path,·$siblings)</span></div><div·class="line"><a·name="l00303"></a><span·class="lineno">··303</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00304"></a><span·class="lineno">··304</span> <span·class="preprocessor">#·@param·path·a·dataset·path.</span></div><div·class="line"><a·name="l00305"></a><span·class="lineno">··305</span> <span·class="preprocessor">#·@param·siblings·[optional]·A·list·of·names·of·files·that·belong·to·the·data·format.</span></div><div·class="line"><a·name="l00306"></a><span·class="lineno">··306</span> <span·class="preprocessor">#·@return·a·Geo::GDAL::Driver.</span></div><div·class="line"><a·name="l00307"></a><span·class="lineno">··307</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00308"></a><span·class="lineno">··308</span> sub·IdentifyDriver·{</div><div·class="line"><a·name="l00309"></a><span·class="lineno">··309</span> }</div><div·class="line"><a·name="l00310"></a><span·class="lineno">··310</span> </div><div·class="line"><a·name="l00311"></a><span·class="lineno">··311</span> <span·class="preprocessor">#**·@method·IdentifyDriverEx()</span></div><div·class="line"><a·name="l00312"></a><span·class="lineno">··312</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00313"></a><span·class="lineno">··313</span> sub·IdentifyDriverEx·{</div><div·class="line"><a·name="l00314"></a><span·class="lineno">··314</span> }</div><div·class="line"><a·name="l00315"></a><span·class="lineno">··315</span> </div><div·class="line"><a·name="l00316"></a><span·class="lineno">··316</span> <span·class="preprocessor">#**·@method·MkdirRecursive()</span></div><div·class="line"><a·name="l00317"></a><span·class="lineno">··317</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00318"></a><span·class="lineno">··318</span> sub·MkdirRecursive·{</div><div·class="line"><a·name="l00319"></a><span·class="lineno">··319</span> }</div><div·class="line"><a·name="l00320"></a><span·class="lineno">··320</span> </div><div·class="line"><a·name="l00321"></a><span·class="lineno">··321</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Open(%params)</span></div><div·class="line"><a·name="l00322"></a><span·class="lineno">··322</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00323"></a><span·class="lineno">··323</span> <span·class="preprocessor">#·Open·a·dataset.</span></div><div·class="line"><a·name="l00324"></a><span·class="lineno">··324</span> <span·class="preprocessor">#·An·example,·which·opens·an·existing·raster·dataset·for·editing:</span></div><div·class="line"><a·name="l00325"></a><span·class="lineno">··325</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l00326"></a><span·class="lineno">··326</span> <span·class="preprocessor">#·use·Geo::GDAL·qw/:all/;</span></div><div·class="line"><a·name="l00327"></a><span·class="lineno">··327</span> <span·class="preprocessor">#·$ds·=·Open(Name·=>·'existing.tiff',·Access·=>·'Update');</span></div><div·class="line"><a·name="l00328"></a><span·class="lineno">··328</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l00329"></a><span·class="lineno">··329</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l00330"></a><span·class="lineno">··330</span> <span·class="preprocessor">#·-·\a·Name·Dataset·string·(typically·a·filename).·Default·is·'.'.</span></div><div·class="line"><a·name="l00331"></a><span·class="lineno">··331</span> <span·class="preprocessor">#·-·\a·Access·Access·type,·either·'ReadOnly'·or·'Update'.·Default·is·'ReadOnly'.</span></div><div·class="line"><a·name="l00332"></a><span·class="lineno">··332</span> <span·class="preprocessor">#·-·\a·Type·Dataset·type,·either·'Raster',·'Vector',·or·'Any'.·Default·is·'Any'.</span></div><div·class="line"><a·name="l00333"></a><span·class="lineno">··333</span> <span·class="preprocessor">#·-·\a·Options·A·hash·of·GDAL·open·options·passed·to·candidate·drivers.·Default·is·{}.</span></div><div·class="line"><a·name="l00334"></a><span·class="lineno">··334</span> <span·class="preprocessor">#·-·\a·Files·A·list·of·names·of·files·that·are·auxiliary·to·the·main·file.·Default·is·[].</span></div><div·class="line"><a·name="l00335"></a><span·class="lineno">··335</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00336"></a><span·class="lineno">··336</span> <span·class="preprocessor">#·@note·This·subroutine·is·imported·into·the·main·namespace·if·Geo::GDAL</span></div><div·class="line"><a·name="l00337"></a><span·class="lineno">··337</span> <span·class="preprocessor">#·is·use'd·with·qw/:all/.</span></div><div·class="line"><a·name="l00338"></a><span·class="lineno">··338</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00339"></a><span·class="lineno">··339</span> <span·class="preprocessor">#·@note·Some·datasets·/·dataset·strings·do·not·explicitly·imply·the</span></div><div·class="line"><a·name="l00340"></a><span·class="lineno">··340</span> <span·class="preprocessor">#·dataset·type·(for·example·a·PostGIS·database).·If·the·type·is·not</span></div><div·class="line"><a·name="l00341"></a><span·class="lineno">··341</span> <span·class="preprocessor">#·specified·in·such·a·case·the·returned·dataset·may·be·of·either·type.</span></div><div·class="line"><a·name="l00342"></a><span·class="lineno">··342</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00343"></a><span·class="lineno">··343</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::Dataset·object·if·success.</span></div><div·class="line"><a·name="l00344"></a><span·class="lineno">··344</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00345"></a><span·class="lineno">··345</span> sub·Open·{</div><div·class="line"><a·name="l00346"></a><span·class="lineno">··346</span> ····my·$p·=·named_parameters(\@_,·Name·=>·<span·class="charliteral">'.'</span>,·Access·=>·<span·class="stringliteral">'ReadOnly'</span>,·Type·=>·<span·class="stringliteral">'Any'</span>,·Options·=>·{},·Files·=>·[]);</div><div·class="line"><a·name="l00347"></a><span·class="lineno">··347</span> ····my·@flags;</div><div·class="line"><a·name="l00348"></a><span·class="lineno">··348</span> ····my·%o·=·(READONLY·=>·1,·UPDATE·=>·1);</div><div·class="line"><a·name="l00349"></a><span·class="lineno">··349</span> ····error(1,·$p->{access},·\%o)·unless·$o{uc($p->{access})};</div><div·class="line"><a·name="l00350"></a><span·class="lineno">··350</span> ····push·@flags,·uc($p->{access});</div><div·class="line"><a·name="l00351"></a><span·class="lineno">··351</span> ····%o·=·(RASTER·=>·1,·VECTOR·=>·1,·ANY·=>·1);</div><div·class="line"><a·name="l00352"></a><span·class="lineno">··352</span> ····error(1,·$p->{type},·\%o)·unless·$o{uc($p->{type})};</div><div·class="line"><a·name="l00353"></a><span·class="lineno">··353</span> ····push·@flags,·uc($p->{type})·unless·uc($p->{type})·eq·<span·class="stringliteral">'ANY'</span>;</div><div·class="line"><a·name="l00354"></a><span·class="lineno">··354</span> ····my·$dataset·=·OpenEx(Name·=>·$p->{name},·Flags·=>·\@flags,·Options·=>·$p->{options},·Files·=>·$p->{files});</div><div·class="line"><a·name="l00355"></a><span·class="lineno">··355</span> ····unless·($dataset)·{</div><div·class="line"><a·name="l00356"></a><span·class="lineno">··356</span> ········my·$t·=·<span·class="stringliteral">"Failed·to·open·$p->{name}."</span>;</div><div·class="line"><a·name="l00357"></a><span·class="lineno">··357</span> ········$t·.=·<span·class="stringliteral">"·Is·it·a·"</span>.lc($p->{type}).<span·class="stringliteral">"·dataset?"</span>·unless·uc($p->{type})·eq·<span·class="stringliteral">'ANY'</span>;</div><div·class="line"><a·name="l00358"></a><span·class="lineno">··358</span> ········error($t);</div><div·class="line"><a·name="l00359"></a><span·class="lineno">··359</span> ····}</div><div·class="line"><a·name="l00360"></a><span·class="lineno">··360</span> ····<span·class="keywordflow">return</span>·$dataset;</div><div·class="line"><a·name="l00361"></a><span·class="lineno">··361</span> }</div><div·class="line"><a·name="l00362"></a><span·class="lineno">··362</span> </div><div·class="line"><a·name="l00363"></a><span·class="lineno">··363</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·OpenEx(%params)</span></div><div·class="line"><a·name="l00364"></a><span·class="lineno">··364</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00365"></a><span·class="lineno">··365</span> <span·class="preprocessor">#·The·generic·dataset·open·method,·used·internally·by·all·Open·and·OpenShared·methods.</span></div><div·class="line"><a·name="l00366"></a><span·class="lineno">··366</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l00367"></a><span·class="lineno">··367</span> <span·class="preprocessor">#·-·\a·Name·The·name·of·the·data·set·or·source·to·open.·(Default·is·'.')</span></div><div·class="line"><a·name="l00368"></a><span·class="lineno">··368</span> <span·class="preprocessor">#·-·\a·Flags·A·list·of·access·mode·flags.·Available·flags·are·listed·by·Geo::GDAL::OpenFlags().·(Default·is·[])</span></div><div·class="line"><a·name="l00369"></a><span·class="lineno">··369</span> <span·class="preprocessor">#·-·\a·Drivers·A·list·of·short·names·of·drivers·that·may·be·used.·Empty·list·means·all.·(Default·is·[])</span></div><div·class="line"><a·name="l00370"></a><span·class="lineno">··370</span> <span·class="preprocessor">#·-·\a·Options·A·hash·of·GDAL·open·options·passed·to·candidate·drivers.·(Default·is·{})</span></div><div·class="line"><a·name="l00371"></a><span·class="lineno">··371</span> <span·class="preprocessor">#·-·\a·Files·A·list·of·names·of·files·that·are·auxiliary·to·the·main·file.·(Default·is·[])</span></div><div·class="line"><a·name="l00372"></a><span·class="lineno">··372</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00373"></a><span·class="lineno">··373</span> <span·class="preprocessor">#·An·example</span></div><div·class="line"><a·name="l00374"></a><span·class="lineno">··374</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l00375"></a><span·class="lineno">··375</span> <span·class="preprocessor">#·$ds·=·Geo::GDAL::OpenEx(Name·=>·'existing.tiff',·Flags·=>·[qw/RASTER·UPDATE/]);</span></div><div·class="line"><a·name="l00376"></a><span·class="lineno">··376</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l00377"></a><span·class="lineno">··377</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::Dataset·object.</span></div><div·class="line"><a·name="l00378"></a><span·class="lineno">··378</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00379"></a><span·class="lineno">··379</span> sub·OpenEx·{</div><div·class="line"><a·name="l00380"></a><span·class="lineno">··380</span> ····my·$p·=·named_parameters(\@_,·Name·=>·<span·class="charliteral">'.'</span>,·Flags·=>·[],·Drivers·=>·[],·Options·=>·{},·Files·=>·[]);</div><div·class="line"><a·name="l00381"></a><span·class="lineno">··381</span> ····unless·($p)·{</div><div·class="line"><a·name="l00382"></a><span·class="lineno">··382</span> ········my·$name·=·shift·<span·class="comment">//·'';</span></div><div·class="line"><a·name="l00383"></a><span·class="lineno">··383</span> ········my·@flags·=·@_;</div><div·class="line"><a·name="l00384"></a><span·class="lineno">··384</span> ········$p·=·{name·=>·$name,·flags·=>·\@flags,·drivers·=>·[],·options·=>·{},·files·=>·[]};</div><div·class="line"><a·name="l00385"></a><span·class="lineno">··385</span> ····}</div><div·class="line"><a·name="l00386"></a><span·class="lineno">··386</span> ····<span·class="keywordflow">if</span>·($p->{flags})·{</div><div·class="line"><a·name="l00387"></a><span·class="lineno">··387</span> ········my·$f·=·0;</div><div·class="line"><a·name="l00388"></a><span·class="lineno">··388</span> ········<span·class="keywordflow">for</span>·my·$flag·(@{$p->{flags}})·{</div><div·class="line"><a·name="l00389"></a><span·class="lineno">··389</span> ············$f·|=·s2i(open_flag·=>·$flag);</div><div·class="line"><a·name="l00390"></a><span·class="lineno">··390</span> ········}</div><div·class="line"><a·name="l00391"></a><span·class="lineno">··391</span> ········$p->{flags}·=·$f;</div><div·class="line"><a·name="l00392"></a><span·class="lineno">··392</span> ····}</div><div·class="line"><a·name="l00393"></a><span·class="lineno">··393</span> ····<span·class="keywordflow">return</span>·_OpenEx($p->{name},·$p->{flags},·$p->{drivers},·$p->{options},·$p->{files});</div><div·class="line"><a·name="l00394"></a><span·class="lineno">··394</span> }</div><div·class="line"><a·name="l00395"></a><span·class="lineno">··395</span> </div><div·class="line"><a·name="l00396"></a><span·class="lineno">··396</span> <span·class="preprocessor">#**·@method·list·OpenFlags()</span></div><div·class="line"><a·name="l00397"></a><span·class="lineno">··397</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00398"></a><span·class="lineno">··398</span> <span·class="preprocessor">#·@return·a·list·of·GDAL·data·set·open·modes.·These·are·currently:</span></div><div·class="line"><a·name="l00399"></a><span·class="lineno">··399</span> <span·class="preprocessor">#·ALL,·GNM,·RASTER,·READONLY,·SHARED,·UPDATE,·VECTOR,·and·VERBOSE_ERROR.</span></div><div·class="line"><a·name="l00400"></a><span·class="lineno">··400</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00401"></a><span·class="lineno">··401</span> sub·OpenFlags·{</div><div·class="line"><a·name="l00402"></a><span·class="lineno">··402</span> ····<span·class="keywordflow">return</span>·@DATA_TYPES;</div><div·class="line"><a·name="l00403"></a><span·class="lineno">··403</span> }</div><div·class="line"><a·name="l00404"></a><span·class="lineno">··404</span> </div><div·class="line"><a·name="l00405"></a><span·class="lineno">··405</span> <span·class="preprocessor">#**·@method·scalar·PackCharacter($DataType)</span></div><div·class="line"><a·name="l00406"></a><span·class="lineno">··406</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00407"></a><span·class="lineno">··407</span> <span·class="preprocessor">#·Get·the·character·that·is·needed·for·Perl's·pack·and·unpack·when</span></div><div·class="line"><a·name="l00408"></a><span·class="lineno">··408</span> <span·class="preprocessor">#·they·are·used·with·Geo::GDAL::Band::ReadRaster·and</span></div><div·class="line"><a·name="l00409"></a><span·class="lineno">··409</span> <span·class="preprocessor">#·Geo::GDAL::Band::WriteRaster.·Note·that·Geo::GDAL::Band::ReadTile</span></div><div·class="line"><a·name="l00410"></a><span·class="lineno">··410</span> <span·class="preprocessor">#·and·Geo::GDAL::Band::WriteTile·have·simpler·interfaces·that·do·not</span></div><div·class="line"><a·name="l00411"></a><span·class="lineno">··411</span> <span·class="preprocessor">#·require·pack·and·unpack.</span></div><div·class="line"><a·name="l00412"></a><span·class="lineno">··412</span> <span·class="preprocessor">#·@param·DataType·A·GDAL·raster·cell·data·type,·typically·from·$band->DataType.</span></div><div·class="line"><a·name="l00413"></a><span·class="lineno">··413</span> <span·class="preprocessor">#·@return·a·character·which·can·be·used·in·Perl's·pack·and·unpack.</span></div><div·class="line"><a·name="l00414"></a><span·class="lineno">··414</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00415"></a><span·class="lineno">··415</span> sub·PackCharacter·{</div><div·class="line"><a·name="l00416"></a><span·class="lineno">··416</span> ····my·$t·=·shift;</div><div·class="line"><a·name="l00417"></a><span·class="lineno">··417</span> ····$t·=·i2s(data_type·=>·$t);</div><div·class="line"><a·name="l00418"></a><span·class="lineno">··418</span> ····s2i(data_type·=>·$t);·#·test</div><div·class="line"><a·name="l00419"></a><span·class="lineno">··419</span> ····my·$is_big_endian·=·unpack(<span·class="stringliteral">"h*"</span>,·pack(<span·class="stringliteral">"s"</span>,·1))·=~·/01/;·#·from·Programming·Perl</div><div·class="line"><a·name="l00420"></a><span·class="lineno">··420</span> ····<span·class="keywordflow">return</span>·<span·class="charliteral">'C'</span>·<span·class="keywordflow">if</span>·$t·=~·/^Byte$/;</div><div·class="line"><a·name="l00421"></a><span·class="lineno">··421</span> ····<span·class="keywordflow">return</span>·($is_big_endian·?·<span·class="charliteral">'n'</span>:·<span·class="charliteral">'v'</span>)·<span·class="keywordflow">if</span>·$t·=~·/^UInt16$/;</div><div·class="line"><a·name="l00422"></a><span·class="lineno">··422</span> ····<span·class="keywordflow">return</span>·<span·class="charliteral">'s'</span>·<span·class="keywordflow">if</span>·$t·=~·/^Int16$/;</div><div·class="line"><a·name="l00423"></a><span·class="lineno">··423</span> ····<span·class="keywordflow">return</span>·($is_big_endian·?·<span·class="charliteral">'N'</span>·:·<span·class="charliteral">'V'</span>)·<span·class="keywordflow">if</span>·$t·=~·/^UInt32$/;</div><div·class="line"><a·name="l00424"></a><span·class="lineno">··424</span> ····<span·class="keywordflow">return</span>·<span·class="charliteral">'l'</span>·<span·class="keywordflow">if</span>·$t·=~·/^Int32$/;</div><div·class="line"><a·name="l00425"></a><span·class="lineno">··425</span> ····<span·class="keywordflow">return</span>·<span·class="charliteral">'f'</span>·<span·class="keywordflow">if</span>·$t·=~·/^Float32$/;</div><div·class="line"><a·name="l00426"></a><span·class="lineno">··426</span> ····<span·class="keywordflow">return</span>·<span·class="charliteral">'d'</span>·<span·class="keywordflow">if</span>·$t·=~·/^Float64$/;</div><div·class="line"><a·name="l00427"></a><span·class="lineno">··427</span> }</div><div·class="line"><a·name="l00428"></a><span·class="lineno">··428</span> </div><div·class="line"><a·name="l00429"></a><span·class="lineno">··429</span> <span·class="preprocessor">#**·@method·scalar·PackedDMSToDec($packed)</span></div><div·class="line"><a·name="l00430"></a><span·class="lineno">··430</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00431"></a><span·class="lineno">··431</span> <span·class="preprocessor">#·@param·packed·DMS·as·a·number·DDDMMMSSS.SS</span></div><div·class="line"><a·name="l00432"></a><span·class="lineno">··432</span> <span·class="preprocessor">#·@return·decimal·degrees</span></div><div·class="line"><a·name="l00433"></a><span·class="lineno">··433</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00434"></a><span·class="lineno">··434</span> sub·PackedDMSToDec·{</div><div·class="line"><a·name="l00435"></a><span·class="lineno">··435</span> }</div><div·class="line"><a·name="l00436"></a><span·class="lineno">··436</span> </div><div·class="line"><a·name="l00437"></a><span·class="lineno">··437</span> <span·class="preprocessor">#**·@method·PopFinderLocation()</span></div><div·class="line"><a·name="l00438"></a><span·class="lineno">··438</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00439"></a><span·class="lineno">··439</span> <span·class="preprocessor">#·Remove·the·latest·addition·from·the·set·of·support·file·search</span></div><div·class="line"><a·name="l00440"></a><span·class="lineno">··440</span> <span·class="preprocessor">#·paths.·Note·that·calling·this·subroutine·may·remove·paths·GDAL·put</span></div><div·class="line"><a·name="l00441"></a><span·class="lineno">··441</span> <span·class="preprocessor">#·into·the·finder.</span></div><div·class="line"><a·name="l00442"></a><span·class="lineno">··442</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00443"></a><span·class="lineno">··443</span> sub·PopFinderLocation·{</div><div·class="line"><a·name="l00444"></a><span·class="lineno">··444</span> }</div><div·class="line"><a·name="l00445"></a><span·class="lineno">··445</span> </div><div·class="line"><a·name="l00446"></a><span·class="lineno">··446</span> <span·class="preprocessor">#**·@method·PushFinderLocation($path)</span></div><div·class="line"><a·name="l00447"></a><span·class="lineno">··447</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00448"></a><span·class="lineno">··448</span> <span·class="preprocessor">#·Add·a·path·to·the·set·of·paths·from·where·GDAL·support·files·are</span></div><div·class="line"><a·name="l00449"></a><span·class="lineno">··449</span> <span·class="preprocessor">#·sought.·Note·that·GDAL·puts·initially·into·the·finder·the·current</span></div><div·class="line"><a·name="l00450"></a><span·class="lineno">··450</span> <span·class="preprocessor">#·directory·and·value·of·GDAL_DATA·environment·variable·(if·it</span></div><div·class="line"><a·name="l00451"></a><span·class="lineno">··451</span> <span·class="preprocessor">#·exists),·installation·directory·(prepended·with·'/share/gdal'·or</span></div><div·class="line"><a·name="l00452"></a><span·class="lineno">··452</span> <span·class="preprocessor">#·'/Resources/gdal'),·or·'/usr/local/share/gdal'.·It·is·usually·only</span></div><div·class="line"><a·name="l00453"></a><span·class="lineno">··453</span> <span·class="preprocessor">#·needed·to·add·paths·to·the·finder·if·using·an·alternate·set·of·data</span></div><div·class="line"><a·name="l00454"></a><span·class="lineno">··454</span> <span·class="preprocessor">#·files·or·a·non-installed·GDAL·is·used·(as·in·testing).</span></div><div·class="line"><a·name="l00455"></a><span·class="lineno">··455</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00456"></a><span·class="lineno">··456</span> sub·PushFinderLocation·{</div><div·class="line"><a·name="l00457"></a><span·class="lineno">··457</span> }</div><div·class="line"><a·name="l00458"></a><span·class="lineno">··458</span> </div><div·class="line"><a·name="l00459"></a><span·class="lineno">··459</span> <span·class="preprocessor">#**·@method·list·RIOResamplingTypes()</span></div><div·class="line"><a·name="l00460"></a><span·class="lineno">··460</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00461"></a><span·class="lineno">··461</span> <span·class="preprocessor">#·@return·a·list·of·GDAL·raster·IO·resampling·methods.·These·are·currently:</span></div><div·class="line"><a·name="l00462"></a><span·class="lineno">··462</span> <span·class="preprocessor">#·Average,·Bilinear,·Cubic,·CubicSpline,·Gauss,·Lanczos,·Mode,·and·NearestNeighbour.</span></div><div·class="line"><a·name="l00463"></a><span·class="lineno">··463</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00464"></a><span·class="lineno">··464</span> sub·RIOResamplingTypes·{</div><div·class="line"><a·name="l00465"></a><span·class="lineno">··465</span> ····<span·class="keywordflow">return</span>·@RIO_RESAMPLING_TYPES;</div><div·class="line"><a·name="l00466"></a><span·class="lineno">··466</span> }</div><div·class="line"><a·name="l00467"></a><span·class="lineno">··467</span> </div><div·class="line"><a·name="l00468"></a><span·class="lineno">··468</span> <span·class="preprocessor">#**·@method·list·ResamplingTypes()</span></div><div·class="line"><a·name="l00469"></a><span·class="lineno">··469</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00470"></a><span·class="lineno">··470</span> <span·class="preprocessor">#·@return·a·list·of·GDAL·resampling·methods.·These·are·currently:</span></div><div·class="line"><a·name="l00471"></a><span·class="lineno">··471</span> <span·class="preprocessor">#·Average,·Bilinear,·Cubic,·CubicSpline,·Lanczos,·Max,·Med,·Min,·Mode,·NearestNeighbour,·Q1,·and·Q3.</span></div><div·class="line"><a·name="l00472"></a><span·class="lineno">··472</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00473"></a><span·class="lineno">··473</span> sub·ResamplingTypes·{</div><div·class="line"><a·name="l00474"></a><span·class="lineno">··474</span> ····<span·class="keywordflow">return</span>·@RESAMPLING_TYPES;</div><div·class="line"><a·name="l00475"></a><span·class="lineno">··475</span> }</div><div·class="line"><a·name="l00476"></a><span·class="lineno">··476</span> </div><div·class="line"><a·name="l00477"></a><span·class="lineno">··477</span> <span·class="preprocessor">#**·@method·RmdirRecursive()</span></div><div·class="line"><a·name="l00478"></a><span·class="lineno">··478</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00479"></a><span·class="lineno">··479</span> sub·RmdirRecursive·{</div><div·class="line"><a·name="l00480"></a><span·class="lineno">··480</span> }</div><div·class="line"><a·name="l00481"></a><span·class="lineno">··481</span> </div><div·class="line"><a·name="l00482"></a><span·class="lineno">··482</span> <span·class="preprocessor">#**·@method·SetCacheMax($Bytes)</span></div><div·class="line"><a·name="l00483"></a><span·class="lineno">··483</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00484"></a><span·class="lineno">··484</span> <span·class="preprocessor">#·@param·Bytes·New·maximum·amount·of·memory·for·caching·within·GDAL.</span></div><div·class="line"><a·name="l00485"></a><span·class="lineno">··485</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00486"></a><span·class="lineno">··486</span> sub·SetCacheMax·{</div><div·class="line"><a·name="l00487"></a><span·class="lineno">··487</span> }</div><div·class="line"><a·name="l00488"></a><span·class="lineno">··488</span> </div><div·class="line"><a·name="l00489"></a><span·class="lineno">··489</span> <span·class="preprocessor">#**·@method·SetConfigOption($key,·$value)</span></div><div·class="line"><a·name="l00490"></a><span·class="lineno">··490</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00491"></a><span·class="lineno">··491</span> <span·class="preprocessor">#·@param·key·A·GDAL·config·option.··Consult·<a</span></div><div·class="line"><a·name="l00492"></a><span·class="lineno">··492</span> <span·class="preprocessor">#·href="https://trac.osgeo.org/gdal/wiki/ConfigOptions">the·GDAL</span></div><div·class="line"><a·name="l00493"></a><span·class="lineno">··493</span> <span·class="preprocessor">#·documentation</a>·for·available·options·and·their·use.</span></div><div·class="line"><a·name="l00494"></a><span·class="lineno">··494</span> <span·class="preprocessor">#·@param·value·A·value·for·the·option,·typically·'YES',·'NO',</span></div><div·class="line"><a·name="l00495"></a><span·class="lineno">··495</span> <span·class="preprocessor">#·undef,·path,·numeric·value,·or·a·filename.</span></div><div·class="line"><a·name="l00496"></a><span·class="lineno">··496</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00497"></a><span·class="lineno">··497</span> sub·SetConfigOption·{</div><div·class="line"><a·name="l00498"></a><span·class="lineno">··498</span> }</div><div·class="line"><a·name="l00499"></a><span·class="lineno">··499</span> </div><div·class="line"><a·name="l00500"></a><span·class="lineno">··500</span> <span·class="preprocessor">#**·@method·UseExceptions()</span></div><div·class="line"><a·name="l00501"></a><span·class="lineno">··501</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00502"></a><span·class="lineno">··502</span> <span·class="preprocessor">#·Use·the·Perl·exception·mechanism·for·GDAL·messages·(failures·are</span></div><div·class="line"><a·name="l00503"></a><span·class="lineno">··503</span> <span·class="preprocessor">#·confessed·and·warnings·are·warned)·and·collect·the·messages</span></div><div·class="line"><a·name="l00504"></a><span·class="lineno">··504</span> <span·class="preprocessor">#·into·\@Geo::GDAL::error.·This·is·the·default.</span></div><div·class="line"><a·name="l00505"></a><span·class="lineno">··505</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00506"></a><span·class="lineno">··506</span> sub·UseExceptions·{</div><div·class="line"><a·name="l00507"></a><span·class="lineno">··507</span> }</div><div·class="line"><a·name="l00508"></a><span·class="lineno">··508</span> </div><div·class="line"><a·name="l00509"></a><span·class="lineno">··509</span> <span·class="preprocessor">#**·@method·VSICurlClearCache()</span></div><div·class="line"><a·name="l00510"></a><span·class="lineno">··510</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00511"></a><span·class="lineno">··511</span> sub·VSICurlClearCache·{</div><div·class="line"><a·name="l00512"></a><span·class="lineno">··512</span> }</div><div·class="line"><a·name="l00513"></a><span·class="lineno">··513</span> </div><div·class="line"><a·name="l00514"></a><span·class="lineno">··514</span> <span·class="preprocessor">#**·@method·VSICurlPartialClearCache()</span></div><div·class="line"><a·name="l00515"></a><span·class="lineno">··515</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00516"></a><span·class="lineno">··516</span> sub·VSICurlPartialClearCache·{</div><div·class="line"><a·name="l00517"></a><span·class="lineno">··517</span> }</div><div·class="line"><a·name="l00518"></a><span·class="lineno">··518</span> </div><div·class="line"><a·name="l00519"></a><span·class="lineno">··519</span> <span·class="preprocessor">#**·@method·VSIErrorReset()</span></div><div·class="line"><a·name="l00520"></a><span·class="lineno">··520</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00521"></a><span·class="lineno">··521</span> sub·VSIErrorReset·{</div><div·class="line"><a·name="l00522"></a><span·class="lineno">··522</span> }</div><div·class="line"><a·name="l00523"></a><span·class="lineno">··523</span> </div><div·class="line"><a·name="l00524"></a><span·class="lineno">··524</span> <span·class="preprocessor">#**·@method·VSIFEofL()</span></div><div·class="line"><a·name="l00525"></a><span·class="lineno">··525</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00526"></a><span·class="lineno">··526</span> sub·VSIFEofL·{</div><div·class="line"><a·name="l00527"></a><span·class="lineno">··527</span> }</div><div·class="line"><a·name="l00528"></a><span·class="lineno">··528</span> </div><div·class="line"><a·name="l00529"></a><span·class="lineno">··529</span> <span·class="preprocessor">#**·@method·VSIFFlushL()</span></div><div·class="line"><a·name="l00530"></a><span·class="lineno">··530</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00531"></a><span·class="lineno">··531</span> sub·VSIFFlushL·{</div><div·class="line"><a·name="l00532"></a><span·class="lineno">··532</span> }</div><div·class="line"><a·name="l00533"></a><span·class="lineno">··533</span> </div><div·class="line"><a·name="l00534"></a><span·class="lineno">··534</span> <span·class="preprocessor">#**·@method·VSIFOpenExL()</span></div><div·class="line"><a·name="l00535"></a><span·class="lineno">··535</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00536"></a><span·class="lineno">··536</span> sub·VSIFOpenExL·{</div><div·class="line"><a·name="l00537"></a><span·class="lineno">··537</span> }</div><div·class="line"><a·name="l00538"></a><span·class="lineno">··538</span> </div><div·class="line"><a·name="l00539"></a><span·class="lineno">··539</span> <span·class="preprocessor">#**·@method·VSIGetLastErrorMsg()</span></div><div·class="line"><a·name="l00540"></a><span·class="lineno">··540</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00541"></a><span·class="lineno">··541</span> sub·VSIGetLastErrorMsg·{</div><div·class="line"><a·name="l00542"></a><span·class="lineno">··542</span> }</div><div·class="line"><a·name="l00543"></a><span·class="lineno">··543</span> </div><div·class="line"><a·name="l00544"></a><span·class="lineno">··544</span> <span·class="preprocessor">#**·@method·VSIGetLastErrorNo()</span></div><div·class="line"><a·name="l00545"></a><span·class="lineno">··545</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00546"></a><span·class="lineno">··546</span> sub·VSIGetLastErrorNo·{</div><div·class="line"><a·name="l00547"></a><span·class="lineno">··547</span> }</div><div·class="line"><a·name="l00548"></a><span·class="lineno">··548</span> </div><div·class="line"><a·name="l00549"></a><span·class="lineno">··549</span> <span·class="preprocessor">#**·@method·scalar·VersionInfo($request·=·'VERSION_NUM')</span></div><div·class="line"><a·name="l00550"></a><span·class="lineno">··550</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00551"></a><span·class="lineno">··551</span> <span·class="preprocessor">#·@param·request·A·string·specifying·the·request.·Currently·either</span></div><div·class="line"><a·name="l00552"></a><span·class="lineno">··552</span> <span·class="preprocessor">#·"VERSION_NUM",·"RELEASE_DATE",·"RELEASE_NAME",·or</span></div><div·class="line"><a·name="l00553"></a><span·class="lineno">··553</span> <span·class="preprocessor">#·"--version".·Default·is·"VERSION_NUM".</span></div><div·class="line"><a·name="l00554"></a><span·class="lineno">··554</span> <span·class="preprocessor">#·@return·Requested·information.</span></div><div·class="line"><a·name="l00555"></a><span·class="lineno">··555</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00556"></a><span·class="lineno">··556</span> sub·VersionInfo·{</div><div·class="line"><a·name="l00557"></a><span·class="lineno">··557</span> }</div><div·class="line"><a·name="l00558"></a><span·class="lineno">··558</span> </div><div·class="line"><a·name="l00559"></a><span·class="lineno">··559</span> <span·class="preprocessor">#**·@method·scalar·errstr()</span></div><div·class="line"><a·name="l00560"></a><span·class="lineno">··560</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00561"></a><span·class="lineno">··561</span> <span·class="preprocessor">#·Clear·the·error·stack·and·return·all·generated·GDAL·error·messages·in·one·(possibly·multiline)·string.</span></div><div·class="line"><a·name="l00562"></a><span·class="lineno">··562</span> <span·class="preprocessor">#·@return·the·chomped·error·stack·joined·with·newlines.</span></div><div·class="line"><a·name="l00563"></a><span·class="lineno">··563</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00564"></a><span·class="lineno">··564</span> sub·errstr·{</div><div·class="line"><a·name="l00565"></a><span·class="lineno">··565</span> ····my·@stack·=·@error;</div><div·class="line"><a·name="l00566"></a><span·class="lineno">··566</span> ····chomp(@stack);</div><div·class="line"><a·name="l00567"></a><span·class="lineno">··567</span> ····@error·=·();</div><div·class="line"><a·name="l00568"></a><span·class="lineno">··568</span> ····<span·class="keywordflow">return</span>·join(<span·class="stringliteral">"\n"</span>,·@stack);</div><div·class="line"><a·name="l00569"></a><span·class="lineno">··569</span> }</div><div·class="line"><a·name="l00570"></a><span·class="lineno">··570</span> <span·class="preprocessor">#·usage:·named_parameters(\@_,·key·value·list·of·default·parameters);</span></div><div·class="line"><a·name="l00571"></a><span·class="lineno">··571</span> <span·class="preprocessor">#·returns·parameters·in·a·hash·with·low-case-without-_·keys</span></div><div·class="line"><a·name="l00572"></a><span·class="lineno">··572</span> }</div><div·class="line"><a·name="l00573"></a><span·class="lineno">··573</span> </div><div·class="line"><a·name="l00574"></a><span·class="lineno">··574</span> <span·class="preprocessor">#**·@class·Geo::GDAL::AsyncReader</span></div><div·class="line"><a·name="l00575"></a><span·class="lineno">··575</span> <span·class="preprocessor">#·@brief·Enable·asynchronous·requests.</span></div><div·class="line"><a·name="l00576"></a><span·class="lineno">··576</span> <span·class="preprocessor">#·@details·This·class·is·not·yet·documented·nor·tested·in·the·GDAL·Perl·wrappers</span></div><div·class="line"><a·name="l00577"></a><span·class="lineno">··577</span> <span·class="preprocessor">#·@todo·Test·and·document.</span></div><div·class="line"><a·name="l00578"></a><span·class="lineno">··578</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00579"></a><span·class="lineno">··579</span> <span·class="keyword">package·</span>Geo::GDAL::AsyncReader;</div><div·class="line"><a·name="l00580"></a><span·class="lineno">··580</span> </div><div·class="line"><a·name="l00581"></a><span·class="lineno">··581</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1GDAL.html">Geo::GDAL</a>)</div><div·class="line"><a·name="l00582"></a><span·class="lineno">··582</span> </div><div·class="line"><a·name="l00583"></a><span·class="lineno">··583</span> <span·class="preprocessor">#**·@method·GetNextUpdatedRegion()</span></div><div·class="line"><a·name="l00584"></a><span·class="lineno">··584</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00585"></a><span·class="lineno">··585</span> sub·GetNextUpdatedRegion·{</div><div·class="line"><a·name="l00586"></a><span·class="lineno">··586</span> }</div><div·class="line"><a·name="l00587"></a><span·class="lineno">··587</span> </div><div·class="line"><a·name="l00588"></a><span·class="lineno">··588</span> <span·class="preprocessor">#**·@method·LockBuffer()</span></div><div·class="line"><a·name="l00589"></a><span·class="lineno">··589</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00590"></a><span·class="lineno">··590</span> sub·LockBuffer·{</div><div·class="line"><a·name="l00591"></a><span·class="lineno">··591</span> }</div><div·class="line"><a·name="l00592"></a><span·class="lineno">··592</span> </div><div·class="line"><a·name="l00593"></a><span·class="lineno">··593</span> <span·class="preprocessor">#**·@method·UnlockBuffer()</span></div><div·class="line"><a·name="l00594"></a><span·class="lineno">··594</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00595"></a><span·class="lineno">··595</span> sub·UnlockBuffer·{</div><div·class="line"><a·name="l00596"></a><span·class="lineno">··596</span> }</div><div·class="line"><a·name="l00597"></a><span·class="lineno">··597</span> </div><div·class="line"><a·name="l00598"></a><span·class="lineno">··598</span> <span·class="preprocessor">#**·@class·Geo::GDAL::Band</span></div><div·class="line"><a·name="l00599"></a><span·class="lineno">··599</span> <span·class="preprocessor">#·@brief·A·raster·band.</span></div><div·class="line"><a·name="l00600"></a><span·class="lineno">··600</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l00601"></a><span·class="lineno">··601</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00602"></a><span·class="lineno">··602</span> <span·class="keyword">package·</span>Geo::GDAL::Band;</div><div·class="line"><a·name="l00603"></a><span·class="lineno">··603</span> </div><div·class="line"><a·name="l00604"></a><span·class="lineno">··604</span> use·base·qw(<a·class="code"·href="classGeo_1_1GDAL_1_1MajorObject.html">Geo::GDAL::MajorObject</a>·<a·class="code"·href="namespaceGeo_1_1GDAL.html">Geo::GDAL</a>)</div><div·class="line"><a·name="l00605"></a><span·class="lineno">··605</span> </div><div·class="line"><a·name="l00606"></a><span·class="lineno">··606</span> <span·class="preprocessor">#**·@attr·$XSize·</span></div><div·class="line"><a·name="l00607"></a><span·class="lineno">··607</span> <span·class="preprocessor">#·Object·attribute.</span></div><div·class="line"><a·name="l00608"></a><span·class="lineno">··608</span> <span·class="preprocessor">#·scalar·(access·as·$band->{XSize})</span></div><div·class="line"><a·name="l00609"></a><span·class="lineno">··609</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00610"></a><span·class="lineno">··610</span> </div><div·class="line"><a·name="l00611"></a><span·class="lineno">··611</span> <span·class="preprocessor">#**·@attr·$YSize·</span></div><div·class="line"><a·name="l00612"></a><span·class="lineno">··612</span> <span·class="preprocessor">#·Object·attribute.</span></div><div·class="line"><a·name="l00613"></a><span·class="lineno">··613</span> <span·class="preprocessor">#·scalar·(access·as·$band->{YSize})</span></div><div·class="line"><a·name="l00614"></a><span·class="lineno">··614</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00615"></a><span·class="lineno">··615</span> </div><div·class="line"><a·name="l00616"></a><span·class="lineno">··616</span> <span·class="preprocessor">#**·@method·AdviseRead()</span></div><div·class="line"><a·name="l00617"></a><span·class="lineno">··617</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00618"></a><span·class="lineno">··618</span> sub·AdviseRead·{</div><div·class="line"><a·name="l00619"></a><span·class="lineno">··619</span> }</div><div·class="line"><a·name="l00620"></a><span·class="lineno">··620</span> </div><div·class="line"><a·name="l00621"></a><span·class="lineno">··621</span> <span·class="preprocessor">#**·@method·Geo::GDAL::RasterAttributeTable·AttributeTable($AttributeTable)</span></div><div·class="line"><a·name="l00622"></a><span·class="lineno">··622</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00623"></a><span·class="lineno">··623</span> <span·class="preprocessor">#·@param·AttributeTable·[optional]·A·Geo::GDAL::RasterAttributeTable·object.</span></div><div·class="line"><a·name="l00624"></a><span·class="lineno">··624</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::RasterAttributeTable·object,·whose·data·is</span></div><div·class="line"><a·name="l00625"></a><span·class="lineno">··625</span> <span·class="preprocessor">#·contained·within·the·band.</span></div><div·class="line"><a·name="l00626"></a><span·class="lineno">··626</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00627"></a><span·class="lineno">··627</span> sub·AttributeTable·{</div><div·class="line"><a·name="l00628"></a><span·class="lineno">··628</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l00629"></a><span·class="lineno">··629</span> ····SetDefaultRAT($self,·$_[0])·<span·class="keywordflow">if</span>·@_·and·defined·$_[0];</div><div·class="line"><a·name="l00630"></a><span·class="lineno">··630</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l00631"></a><span·class="lineno">··631</span> ····my·$r·=·GetDefaultRAT($self);</div><div·class="line"><a·name="l00632"></a><span·class="lineno">··632</span> ····keep($r,·$self)·<span·class="keywordflow">if</span>·$r;</div><div·class="line"><a·name="l00633"></a><span·class="lineno">··633</span> }</div><div·class="line"><a·name="l00634"></a><span·class="lineno">··634</span> </div><div·class="line"><a·name="l00635"></a><span·class="lineno">··635</span> <span·class="preprocessor">#**·@method·list·BlockSize()</span></div><div·class="line"><a·name="l00636"></a><span·class="lineno">··636</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00637"></a><span·class="lineno">··637</span> <span·class="preprocessor">#·A.k.a·GetBlockSize</span></div><div·class="line"><a·name="l00638"></a><span·class="lineno">··638</span> <span·class="preprocessor">#·@return·The·size·of·a·preferred·i/o·raster·block·size·as·a·list</span></div><div·class="line"><a·name="l00639"></a><span·class="lineno">··639</span> <span·class="preprocessor">#·(width,·height).</span></div><div·class="line"><a·name="l00640"></a><span·class="lineno">··640</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00641"></a><span·class="lineno">··641</span> sub·BlockSize·{</div><div·class="line"><a·name="l00642"></a><span·class="lineno">··642</span> }</div><div·class="line"><a·name="l00643"></a><span·class="lineno">··643</span> </div><div·class="line"><a·name="l00644"></a><span·class="lineno">··644</span> <span·class="preprocessor">#**·@method·list·CategoryNames(@names)</span></div><div·class="line"><a·name="l00645"></a><span·class="lineno">··645</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00646"></a><span·class="lineno">··646</span> <span·class="preprocessor">#·@param·names·[optional]</span></div><div·class="line"><a·name="l00647"></a><span·class="lineno">··647</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l00648"></a><span·class="lineno">··648</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00649"></a><span·class="lineno">··649</span> sub·CategoryNames·{</div><div·class="line"><a·name="l00650"></a><span·class="lineno">··650</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l00651"></a><span·class="lineno">··651</span> ····SetRasterCategoryNames($self,·\@_)·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l00652"></a><span·class="lineno">··652</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l00653"></a><span·class="lineno">··653</span> ····my·$n·=·GetRasterCategoryNames($self);</div><div·class="line"><a·name="l00654"></a><span·class="lineno">··654</span> ····<span·class="keywordflow">return</span>·@$n;</div><div·class="line"><a·name="l00655"></a><span·class="lineno">··655</span> }</div><div·class="line"><a·name="l00656"></a><span·class="lineno">··656</span> </div><div·class="line"><a·name="l00657"></a><span·class="lineno">··657</span> <span·class="preprocessor">#**·@method·scalar·Checksum($xoff·=·0,·$yoff·=·0,·$xsize·=·undef,·$ysize·=·undef)</span></div><div·class="line"><a·name="l00658"></a><span·class="lineno">··658</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00659"></a><span·class="lineno">··659</span> <span·class="preprocessor">#·Computes·a·checksum·from·the·raster·or·a·part·of·it.</span></div><div·class="line"><a·name="l00660"></a><span·class="lineno">··660</span> <span·class="preprocessor">#·@param·xoff</span></div><div·class="line"><a·name="l00661"></a><span·class="lineno">··661</span> <span·class="preprocessor">#·@param·yoff</span></div><div·class="line"><a·name="l00662"></a><span·class="lineno">··662</span> <span·class="preprocessor">#·@param·xsize</span></div><div·class="line"><a·name="l00663"></a><span·class="lineno">··663</span> <span·class="preprocessor">#·@param·ysize</span></div><div·class="line"><a·name="l00664"></a><span·class="lineno">··664</span> <span·class="preprocessor">#·@return·the·checksum.</span></div><div·class="line"><a·name="l00665"></a><span·class="lineno">··665</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00666"></a><span·class="lineno">··666</span> sub·Checksum·{</div><div·class="line"><a·name="l00667"></a><span·class="lineno">··667</span> }</div><div·class="line"><a·name="l00668"></a><span·class="lineno">··668</span> </div><div·class="line"><a·name="l00669"></a><span·class="lineno">··669</span> <span·class="preprocessor">#**·@method·hashref·ClassCounts($classifier,·$progress·=·undef,·$progress_data·=·undef)</span></div><div·class="line"><a·name="l00670"></a><span·class="lineno">··670</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00671"></a><span·class="lineno">··671</span> <span·class="preprocessor">#·Compute·the·counts·of·cell·values·or·number·of·cell·values·in·ranges.</span></div><div·class="line"><a·name="l00672"></a><span·class="lineno">··672</span> <span·class="preprocessor">#·@note·Classifier·is·required·only·for·float·bands.</span></div><div·class="line"><a·name="l00673"></a><span·class="lineno">··673</span> <span·class="preprocessor">#·@note·NoData·values·are·counted·similar·to·other·values·when</span></div><div·class="line"><a·name="l00674"></a><span·class="lineno">··674</span> <span·class="preprocessor">#·classifier·is·not·defined·for·integer·rasters.</span></div><div·class="line"><a·name="l00675"></a><span·class="lineno">··675</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00676"></a><span·class="lineno">··676</span> <span·class="preprocessor">#·@param·classifier·Anonymous·array·of·format·[·$comparison,</span></div><div·class="line"><a·name="l00677"></a><span·class="lineno">··677</span> <span·class="preprocessor">#·$classifier·],·where·$comparison·is·a·string·'<',·'<=',·'>',·or·'>='</span></div><div·class="line"><a·name="l00678"></a><span·class="lineno">··678</span> <span·class="preprocessor">#·and·$classifier·is·an·anonymous·array·of·format·[·$value,</span></div><div·class="line"><a·name="l00679"></a><span·class="lineno">··679</span> <span·class="preprocessor">#·$value|$classifier,·$value|$classifier·],·where·$value·is·a·numeric</span></div><div·class="line"><a·name="l00680"></a><span·class="lineno">··680</span> <span·class="preprocessor">#·value·against·which·the·reclassified·value·is·compared·to.·If·the</span></div><div·class="line"><a·name="l00681"></a><span·class="lineno">··681</span> <span·class="preprocessor">#·comparison·returns·true,·then·the·second·$value·or·$classifier·is</span></div><div·class="line"><a·name="l00682"></a><span·class="lineno">··682</span> <span·class="preprocessor">#·applied,·and·if·not·then·the·third·$value·or·$classifier.</span></div><div·class="line"><a·name="l00683"></a><span·class="lineno">··683</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00684"></a><span·class="lineno">··684</span> <span·class="preprocessor">#·In·the·example·below,·the·line·is·divided·into·ranges</span></div><div·class="line"><a·name="l00685"></a><span·class="lineno">··685</span> <span·class="preprocessor">#·[-inf..3),·[3..5),·and·[5..inf],·i.e.,·three·ranges·with·class</span></div><div·class="line"><a·name="l00686"></a><span·class="lineno">··686</span> <span·class="preprocessor">#·indexes·0,·1,·and·2.·Note·that·the·indexes·are·used·as·keys·for</span></div><div·class="line"><a·name="l00687"></a><span·class="lineno">··687</span> <span·class="preprocessor">#·class·counts·and·not·the·class·values·(here·1.0,·2.0,·and·3.0),</span></div><div·class="line"><a·name="l00688"></a><span·class="lineno">··688</span> <span·class="preprocessor">#·which·are·used·in·Geo::GDAL::Band::Reclassify.</span></div><div·class="line"><a·name="l00689"></a><span·class="lineno">··689</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l00690"></a><span·class="lineno">··690</span> <span·class="preprocessor">#·$classifier·=·[·'<',·[5.0,·[3.0,·1.0,·2.0],·3.0]·];</span></div><div·class="line"><a·name="l00691"></a><span·class="lineno">··691</span> <span·class="preprocessor">#·#·Howto·create·this·$classifier·from·@class_boundaries:</span></div><div·class="line"><a·name="l00692"></a><span·class="lineno">··692</span> <span·class="preprocessor">#·my·$classifier·=·['<='];</span></div><div·class="line"><a·name="l00693"></a><span·class="lineno">··693</span> <span·class="preprocessor">#·my·$tree·=·[$class_boundaries[0],·0,·1];</span></div><div·class="line"><a·name="l00694"></a><span·class="lineno">··694</span> <span·class="preprocessor">#·for·my·$i·(1·..·$#class_boundaries)·{</span></div><div·class="line"><a·name="l00695"></a><span·class="lineno">··695</span> <span·class="preprocessor">#·····$tree·=·[$class_boundaries[$i],·[@$tree],·$i+1];</span></div><div·class="line"><a·name="l00696"></a><span·class="lineno">··696</span> <span·class="preprocessor">#·}</span></div><div·class="line"><a·name="l00697"></a><span·class="lineno">··697</span> <span·class="preprocessor">#·push·@$classifier,·$tree;</span></div><div·class="line"><a·name="l00698"></a><span·class="lineno">··698</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l00699"></a><span·class="lineno">··699</span> <span·class="preprocessor">#·@return·a·reference·to·an·anonymous·hash,·which·contains·the·class</span></div><div·class="line"><a·name="l00700"></a><span·class="lineno">··700</span> <span·class="preprocessor">#·values·(indexes)·as·keys·and·the·number·of·cells·with·that·value·or</span></div><div·class="line"><a·name="l00701"></a><span·class="lineno">··701</span> <span·class="preprocessor">#·in·that·range·as·values.·If·the·subroutine·is·user·terminated·an</span></div><div·class="line"><a·name="l00702"></a><span·class="lineno">··702</span> <span·class="preprocessor">#·error·is·raised.</span></div><div·class="line"><a·name="l00703"></a><span·class="lineno">··703</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00704"></a><span·class="lineno">··704</span> sub·ClassCounts·{</div><div·class="line"><a·name="l00705"></a><span·class="lineno">··705</span> }</div><div·class="line"><a·name="l00706"></a><span·class="lineno">··706</span> </div><div·class="line"><a·name="l00707"></a><span·class="lineno">··707</span> <span·class="preprocessor">#**·@method·scalar·ColorInterpretation($color_interpretation)</span></div><div·class="line"><a·name="l00708"></a><span·class="lineno">··708</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00709"></a><span·class="lineno">··709</span> <span·class="preprocessor">#·@note·a.k.a.·GetRasterColorInterpretation·and·GetColorInterpretation</span></div><div·class="line"><a·name="l00710"></a><span·class="lineno">··710</span> <span·class="preprocessor">#·(get·only·and·returns·an·integer),·SetRasterColorInterpretation·and</span></div><div·class="line"><a·name="l00711"></a><span·class="lineno">··711</span> <span·class="preprocessor">#·SetColorInterpretation·(set·only·and·requires·an·integer)</span></div><div·class="line"><a·name="l00712"></a><span·class="lineno">··712</span> <span·class="preprocessor">#·@param·color_interpretation·[optional]·new·color·interpretation,·one</span></div><div·class="line"><a·name="l00713"></a><span·class="lineno">··713</span> <span·class="preprocessor">#·of·Geo::GDAL::Band::ColorInterpretations.</span></div><div·class="line"><a·name="l00714"></a><span·class="lineno">··714</span> <span·class="preprocessor">#·@return·The·color·interpretation·of·this·band.·One·of·Geo::GDAL::Band::ColorInterpretations.</span></div><div·class="line"><a·name="l00715"></a><span·class="lineno">··715</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00716"></a><span·class="lineno">··716</span> sub·ColorInterpretation·{</div><div·class="line"><a·name="l00717"></a><span·class="lineno">··717</span> ····my($self,·$ci)·=·@_;</div><div·class="line"><a·name="l00718"></a><span·class="lineno">··718</span> ····<span·class="keywordflow">if</span>·(defined·$ci)·{</div><div·class="line"><a·name="l00719"></a><span·class="lineno">··719</span> ········$ci·=·s2i(color_interpretation·=>·$ci);</div><div·class="line"><a·name="l00720"></a><span·class="lineno">··720</span> ········SetRasterColorInterpretation($self,·$ci);</div><div·class="line"><a·name="l00721"></a><span·class="lineno">··721</span> ····}</div><div·class="line"><a·name="l00722"></a><span·class="lineno">··722</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l00723"></a><span·class="lineno">··723</span> ····i2s(color_interpretation·=>·GetRasterColorInterpretation($self));</div><div·class="line"><a·name="l00724"></a><span·class="lineno">··724</span> }</div><div·class="line"><a·name="l00725"></a><span·class="lineno">··725</span> </div><div·class="line"><a·name="l00726"></a><span·class="lineno">··726</span> <span·class="preprocessor">#**·@method·ColorInterpretations()</span></div><div·class="line"><a·name="l00727"></a><span·class="lineno">··727</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l00728"></a><span·class="lineno">··728</span> <span·class="preprocessor">#·@return·a·list·of·types·of·color·interpretation·for·raster</span></div><div·class="line"><a·name="l00729"></a><span·class="lineno">··729</span> <span·class="preprocessor">#·bands.·These·are·currently:</span></div><div·class="line"><a·name="l00730"></a><span·class="lineno">··730</span> <span·class="preprocessor">#·AlphaBand,·BlackBand,·BlueBand,·CyanBand,·GrayIndex,·GreenBand,·HueBand,·LightnessBand,·MagentaBand,·PaletteIndex,·RedBand,·SaturationBand,·Undefined,·YCbCr_CbBand,·YCbCr_CrBand,·YCbCr_YBand,·and·YellowBand.</span></div><div·class="line"><a·name="l00731"></a><span·class="lineno">··731</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00732"></a><span·class="lineno">··732</span> sub·ColorInterpretations·{</div><div·class="line"><a·name="l00733"></a><span·class="lineno">··733</span> ····<span·class="keywordflow">return</span>·@COLOR_INTERPRETATIONS;</div><div·class="line"><a·name="l00734"></a><span·class="lineno">··734</span> }</div><div·class="line"><a·name="l00735"></a><span·class="lineno">··735</span> </div><div·class="line"><a·name="l00736"></a><span·class="lineno">··736</span> <span·class="preprocessor">#**·@method·Geo::GDAL::ColorTable·ColorTable($ColorTable)</span></div><div·class="line"><a·name="l00737"></a><span·class="lineno">··737</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00738"></a><span·class="lineno">··738</span> <span·class="preprocessor">#·Get·or·set·the·color·table·of·this·band.</span></div><div·class="line"><a·name="l00739"></a><span·class="lineno">··739</span> <span·class="preprocessor">#·@param·ColorTable·[optional]·a·Geo::GDAL::ColorTable·object</span></div><div·class="line"><a·name="l00740"></a><span·class="lineno">··740</span> <span·class="preprocessor">#·@return·A·new·Geo::GDAL::ColorTable·object·which·represents·the</span></div><div·class="line"><a·name="l00741"></a><span·class="lineno">··741</span> <span·class="preprocessor">#·internal·color·table·associated·with·this·band.·Returns·undef·this</span></div><div·class="line"><a·name="l00742"></a><span·class="lineno">··742</span> <span·class="preprocessor">#·band·does·not·have·an·associated·color·table.</span></div><div·class="line"><a·name="l00743"></a><span·class="lineno">··743</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00744"></a><span·class="lineno">··744</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1ColorTable.html">ColorTable</a>·{</div><div·class="line"><a·name="l00745"></a><span·class="lineno">··745</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l00746"></a><span·class="lineno">··746</span> ····SetRasterColorTable($self,·$_[0])·<span·class="keywordflow">if</span>·@_·and·defined·$_[0];</div><div·class="line"><a·name="l00747"></a><span·class="lineno">··747</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l00748"></a><span·class="lineno">··748</span> ····GetRasterColorTable($self);</div><div·class="line"><a·name="l00749"></a><span·class="lineno">··749</span> }</div><div·class="line"><a·name="l00750"></a><span·class="lineno">··750</span> </div><div·class="line"><a·name="l00751"></a><span·class="lineno">··751</span> <span·class="preprocessor">#**·@method·ComputeBandStats($samplestep·=·1)</span></div><div·class="line"><a·name="l00752"></a><span·class="lineno">··752</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00753"></a><span·class="lineno">··753</span> <span·class="preprocessor">#·@param·samplestep·the·row·increment·in·computing·the·statistics.</span></div><div·class="line"><a·name="l00754"></a><span·class="lineno">··754</span> <span·class="preprocessor">#·@note·Returns·uncorrected·sample·standard·deviation.</span></div><div·class="line"><a·name="l00755"></a><span·class="lineno">··755</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00756"></a><span·class="lineno">··756</span> <span·class="preprocessor">#·See·also·Geo::GDAL::Band::ComputeStatistics.</span></div><div·class="line"><a·name="l00757"></a><span·class="lineno">··757</span> <span·class="preprocessor">#·@return·a·list·(mean,·stddev).</span></div><div·class="line"><a·name="l00758"></a><span·class="lineno">··758</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00759"></a><span·class="lineno">··759</span> sub·ComputeBandStats·{</div><div·class="line"><a·name="l00760"></a><span·class="lineno">··760</span> }</div><div·class="line"><a·name="l00761"></a><span·class="lineno">··761</span> </div><div·class="line"><a·name="l00762"></a><span·class="lineno">··762</span> <span·class="preprocessor">#**·@method·ComputeRasterMinMax($approx_ok·=·0)</span></div><div·class="line"><a·name="l00763"></a><span·class="lineno">··763</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00764"></a><span·class="lineno">··764</span> <span·class="preprocessor">#·@return·arrayref·MinMax·=·[min,·max]</span></div><div·class="line"><a·name="l00765"></a><span·class="lineno">··765</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00766"></a><span·class="lineno">··766</span> sub·ComputeRasterMinMax·{</div><div·class="line"><a·name="l00767"></a><span·class="lineno">··767</span> }</div><div·class="line"><a·name="l00768"></a><span·class="lineno">··768</span> </div><div·class="line"><a·name="l00769"></a><span·class="lineno">··769</span> <span·class="preprocessor">#**·@method·list·ComputeStatistics($approx_ok,·$progress·=·undef,·$progress_data·=·undef)</span></div><div·class="line"><a·name="l00770"></a><span·class="lineno">··770</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00771"></a><span·class="lineno">··771</span> <span·class="preprocessor">#·@param·approx_ok·Whether·it·is·allowed·to·compute·the·statistics</span></div><div·class="line"><a·name="l00772"></a><span·class="lineno">··772</span> <span·class="preprocessor">#·based·on·overviews·or·similar.</span></div><div·class="line"><a·name="l00773"></a><span·class="lineno">··773</span> <span·class="preprocessor">#·@note·Returns·uncorrected·sample·standard·deviation.</span></div><div·class="line"><a·name="l00774"></a><span·class="lineno">··774</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00775"></a><span·class="lineno">··775</span> <span·class="preprocessor">#·See·also·Geo::GDAL::Band::ComputeBandStats.</span></div><div·class="line"><a·name="l00776"></a><span·class="lineno">··776</span> <span·class="preprocessor">#·@return·a·list·($min,·$max,·$mean,·$stddev).</span></div><div·class="line"><a·name="l00777"></a><span·class="lineno">··777</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00778"></a><span·class="lineno">··778</span> sub·ComputeStatistics·{</div><div·class="line"><a·name="l00779"></a><span·class="lineno">··779</span> }</div><div·class="line"><a·name="l00780"></a><span·class="lineno">··780</span> </div><div·class="line"><a·name="l00781"></a><span·class="lineno">··781</span> <span·class="preprocessor">#**·@method·Geo::OGR::Layer·Contours($DataSource,·hashref·LayerConstructor,·$ContourInterval,·$ContourBase,·arrayref·FixedLevels,·$NoDataValue,·$IDField,·$ElevField,·coderef·Progress,·$ProgressData)</span></div><div·class="line"><a·name="l00782"></a><span·class="lineno">··782</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00783"></a><span·class="lineno">··783</span> <span·class="preprocessor">#·Generate·contours·for·this·raster·band.·This·method·can·also·be·used·with·named·parameters.</span></div><div·class="line"><a·name="l00784"></a><span·class="lineno">··784</span> <span·class="preprocessor">#·@note·This·method·is·a·wrapper·for·ContourGenerate.</span></div><div·class="line"><a·name="l00785"></a><span·class="lineno">··785</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00786"></a><span·class="lineno">··786</span> <span·class="preprocessor">#·An·example:</span></div><div·class="line"><a·name="l00787"></a><span·class="lineno">··787</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l00788"></a><span·class="lineno">··788</span> <span·class="preprocessor">#·use·Geo::GDAL;</span></div><div·class="line"><a·name="l00789"></a><span·class="lineno">··789</span> <span·class="preprocessor">#·$dem·=·Geo::GDAL::Open('dem.gtiff');</span></div><div·class="line"><a·name="l00790"></a><span·class="lineno">··790</span> <span·class="preprocessor">#·$contours·=·$dem->Band->Contours(ContourInterval·=>·10,·ElevField·=>·'z');</span></div><div·class="line"><a·name="l00791"></a><span·class="lineno">··791</span> <span·class="preprocessor">#·$n·=·$contours->GetFeatureCount;</span></div><div·class="line"><a·name="l00792"></a><span·class="lineno">··792</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l00793"></a><span·class="lineno">··793</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00794"></a><span·class="lineno">··794</span> <span·class="preprocessor">#·@param·DataSource·a·Geo::OGR::DataSource·object,·default·is·a·Memory·data·source</span></div><div·class="line"><a·name="l00795"></a><span·class="lineno">··795</span> <span·class="preprocessor">#·@param·LayerConstructor·data·for·Geo::OGR::DataSource::CreateLayer,·default·is·{Name·=>·'contours'}</span></div><div·class="line"><a·name="l00796"></a><span·class="lineno">··796</span> <span·class="preprocessor">#·@param·ContourInterval·default·is·100</span></div><div·class="line"><a·name="l00797"></a><span·class="lineno">··797</span> <span·class="preprocessor">#·@param·ContourBase·default·is·0</span></div><div·class="line"><a·name="l00798"></a><span·class="lineno">··798</span> <span·class="preprocessor">#·@param·FixedLevels·a·reference·to·a·list·of·fixed·contour·levels,·default·is·[]</span></div><div·class="line"><a·name="l00799"></a><span·class="lineno">··799</span> <span·class="preprocessor">#·@param·NoDataValue·default·is·undef</span></div><div·class="line"><a·name="l00800"></a><span·class="lineno">··800</span> <span·class="preprocessor">#·@param·IDField·default·is·'',·i.e.,·no·field·(the·field·is·created·if·this·is·given)</span></div><div·class="line"><a·name="l00801"></a><span·class="lineno">··801</span> <span·class="preprocessor">#·@param·ElevField·default·is·'',·i.e.,·no·field·(the·field·is·created·if·this·is·given)</span></div><div·class="line"><a·name="l00802"></a><span·class="lineno">··802</span> <span·class="preprocessor">#·@param·progress·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l00803"></a><span·class="lineno">··803</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·progress_data)</span></div><div·class="line"><a·name="l00804"></a><span·class="lineno">··804</span> <span·class="preprocessor">#·@param·progress_data·[optional]</span></div><div·class="line"><a·name="l00805"></a><span·class="lineno">··805</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l00806"></a><span·class="lineno">··806</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00807"></a><span·class="lineno">··807</span> sub·Contours·{</div><div·class="line"><a·name="l00808"></a><span·class="lineno">··808</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l00809"></a><span·class="lineno">··809</span> ····my·$p·=·named_parameters(\@_,</div><div·class="line"><a·name="l00810"></a><span·class="lineno">··810</span> ·····························DataSource·=>·undef,</div><div·class="line"><a·name="l00811"></a><span·class="lineno">··811</span> ·····························LayerConstructor·=>·{Name·=>·<span·class="stringliteral">'contours'</span>},</div><div·class="line"><a·name="l00812"></a><span·class="lineno">··812</span> ·····························ContourInterval·=>·100,</div><div·class="line"><a·name="l00813"></a><span·class="lineno">··813</span> ·····························ContourBase·=>·0,</div><div·class="line"><a·name="l00814"></a><span·class="lineno">··814</span> ·····························FixedLevels·=>·[],</div><div·class="line"><a·name="l00815"></a><span·class="lineno">··815</span> ·····························NoDataValue·=>·undef,</div><div·class="line"><a·name="l00816"></a><span·class="lineno">··816</span> ·····························IDField·=>·-1,</div><div·class="line"><a·name="l00817"></a><span·class="lineno">··817</span> ·····························ElevField·=>·-1,</div><div·class="line"><a·name="l00818"></a><span·class="lineno">··818</span> ·····························Progress·=>·undef,</div><div·class="line"><a·name="l00819"></a><span·class="lineno">··819</span> ·····························ProgressData·=>·undef);</div><div·class="line"><a·name="l00820"></a><span·class="lineno">··820</span> ····$p->{datasource}·<span·class="comment">//=·Geo::OGR::GetDriver('Memory')->CreateDataSource('ds');</span></div><div·class="line"><a·name="l00821"></a><span·class="lineno">··821</span> ····$p->{layerconstructor}->{Schema}·<span·class="comment">//=·{};</span></div><div·class="line"><a·name="l00822"></a><span·class="lineno">··822</span> ····$p->{layerconstructor}->{Schema}{Fields}·<span·class="comment">//=·[];</span></div><div·class="line"><a·name="l00823"></a><span·class="lineno">··823</span> ····my·%fields;</div><div·class="line"><a·name="l00824"></a><span·class="lineno">··824</span> ····unless·($p->{idfield}·=~·/^[+-]?\d+$/·or·$fields{$p->{idfield}})·{</div><div·class="line"><a·name="l00825"></a><span·class="lineno">··825</span> ········push·@{$p->{layerconstructor}->{Schema}{Fields}},·{Name·=>·$p->{idfield},·Type·=>·<span·class="stringliteral">'Integer'</span>};</div><div·class="line"><a·name="l00826"></a><span·class="lineno">··826</span> ····}</div><div·class="line"><a·name="l00827"></a><span·class="lineno">··827</span> ····unless·($p->{elevfield}·=~·/^[+-]?\d+$/·or·$fields{$p->{elevfield}})·{</div><div·class="line"><a·name="l00828"></a><span·class="lineno">··828</span> ········my·$type·=·$self->DataType()·=~·/Float/·?·<span·class="stringliteral">'Real'</span>·:·<span·class="stringliteral">'Integer'</span>;</div><div·class="line"><a·name="l00829"></a><span·class="lineno">··829</span> ········push·@{$p->{layerconstructor}->{Schema}{Fields}},·{Name·=>·$p->{elevfield},·Type·=>·$type};</div><div·class="line"><a·name="l00830"></a><span·class="lineno">··830</span> ····}</div><div·class="line"><a·name="l00831"></a><span·class="lineno">··831</span> ····my·$layer·=·$p->{datasource}->CreateLayer($p->{layerconstructor});</div><div·class="line"><a·name="l00832"></a><span·class="lineno">··832</span> ····my·$schema·=·$layer->GetLayerDefn;</div><div·class="line"><a·name="l00833"></a><span·class="lineno">··833</span> ····<span·class="keywordflow">for</span>·(<span·class="stringliteral">'idfield'</span>,·<span·class="stringliteral">'elevfield'</span>)·{</div><div·class="line"><a·name="l00834"></a><span·class="lineno">··834</span> ········$p->{$_}·=·$schema->GetFieldIndex($p->{$_})·unless·$p->{$_}·=~·/^[+-]?\d+$/;</div><div·class="line"><a·name="l00835"></a><span·class="lineno">··835</span> ····}</div><div·class="line"><a·name="l00836"></a><span·class="lineno">··836</span> ····$p->{progressdata}·=·1·<span·class="keywordflow">if</span>·$p->{progress}·and·not·defined·$p->{progressdata};</div><div·class="line"><a·name="l00837"></a><span·class="lineno">··837</span> ····ContourGenerate($self,·$p->{contourinterval},·$p->{contourbase},·$p->{fixedlevels},</div><div·class="line"><a·name="l00838"></a><span·class="lineno">··838</span> ····················$p->{nodatavalue},·$layer,·$p->{idfield},·$p->{elevfield},</div><div·class="line"><a·name="l00839"></a><span·class="lineno">··839</span> ····················$p->{progress},·$p->{progressdata});</div><div·class="line"><a·name="l00840"></a><span·class="lineno">··840</span> ····<span·class="keywordflow">return</span>·$layer;</div><div·class="line"><a·name="l00841"></a><span·class="lineno">··841</span> }</div><div·class="line"><a·name="l00842"></a><span·class="lineno">··842</span> </div><div·class="line"><a·name="l00843"></a><span·class="lineno">··843</span> <span·class="preprocessor">#**·@method·CreateMaskBand(@flags)</span></div><div·class="line"><a·name="l00844"></a><span·class="lineno">··844</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00845"></a><span·class="lineno">··845</span> <span·class="preprocessor">#·@note·May·invalidate·any·previous·mask·band·obtained·with·Geo::GDAL::Band::GetMaskBand.</span></div><div·class="line"><a·name="l00846"></a><span·class="lineno">··846</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00847"></a><span·class="lineno">··847</span> <span·class="preprocessor">#·@param·flags·one·or·more·mask·flags.·The·flags·are·Geo::GDAL::Band::MaskFlags.</span></div><div·class="line"><a·name="l00848"></a><span·class="lineno">··848</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00849"></a><span·class="lineno">··849</span> sub·CreateMaskBand·{</div><div·class="line"><a·name="l00850"></a><span·class="lineno">··850</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l00851"></a><span·class="lineno">··851</span> ····my·$f·=·0;</div><div·class="line"><a·name="l00852"></a><span·class="lineno">··852</span> ····<span·class="keywordflow">if</span>·(@_·and·$_[0]·=~·/^\d$/)·{</div><div·class="line"><a·name="l00853"></a><span·class="lineno">··853</span> ········$f·=·shift;</div><div·class="line"><a·name="l00854"></a><span·class="lineno">··854</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l00855"></a><span·class="lineno">··855</span> ········<span·class="keywordflow">for</span>·my·$flag·(@_)·{</div><div·class="line"><a·name="l00856"></a><span·class="lineno">··856</span> ············carp·<span·class="stringliteral">"Unknown·mask·flag:·'$flag'."</span>·unless·$MASK_FLAGS{$flag};</div><div·class="line"><a·name="l00857"></a><span·class="lineno">··857</span> ············$f·|=·$MASK_FLAGS{$flag};</div><div·class="line"><a·name="l00858"></a><span·class="lineno">··858</span> ········}</div><div·class="line"><a·name="l00859"></a><span·class="lineno">··859</span> ····}</div><div·class="line"><a·name="l00860"></a><span·class="lineno">··860</span> ····$self->_CreateMaskBand($f);</div><div·class="line"><a·name="l00861"></a><span·class="lineno">··861</span> }</div><div·class="line"><a·name="l00862"></a><span·class="lineno">··862</span> </div><div·class="line"><a·name="l00863"></a><span·class="lineno">··863</span> <span·class="preprocessor">#**·@method·scalar·DataType()</span></div><div·class="line"><a·name="l00864"></a><span·class="lineno">··864</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00865"></a><span·class="lineno">··865</span> <span·class="preprocessor">#·@return·The·data·type·of·this·band.·One·of·Geo::GDAL::DataTypes.</span></div><div·class="line"><a·name="l00866"></a><span·class="lineno">··866</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00867"></a><span·class="lineno">··867</span> sub·DataType·{</div><div·class="line"><a·name="l00868"></a><span·class="lineno">··868</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l00869"></a><span·class="lineno">··869</span> ····<span·class="keywordflow">return</span>·i2s(data_type·=>·$self->{DataType});</div><div·class="line"><a·name="l00870"></a><span·class="lineno">··870</span> }</div><div·class="line"><a·name="l00871"></a><span·class="lineno">··871</span> </div><div·class="line"><a·name="l00872"></a><span·class="lineno">··872</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Dataset()</span></div><div·class="line"><a·name="l00873"></a><span·class="lineno">··873</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00874"></a><span·class="lineno">··874</span> <span·class="preprocessor">#·@return·The·dataset·which·this·band·belongs·to.</span></div><div·class="line"><a·name="l00875"></a><span·class="lineno">··875</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00876"></a><span·class="lineno">··876</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1Dataset.html">Dataset</a>·{</div><div·class="line"><a·name="l00877"></a><span·class="lineno">··877</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l00878"></a><span·class="lineno">··878</span> ····parent($self);</div><div·class="line"><a·name="l00879"></a><span·class="lineno">··879</span> }</div><div·class="line"><a·name="l00880"></a><span·class="lineno">··880</span> </div><div·class="line"><a·name="l00881"></a><span·class="lineno">··881</span> <span·class="preprocessor">#**·@method·scalar·DeleteNoDataValue()</span></div><div·class="line"><a·name="l00882"></a><span·class="lineno">··882</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00883"></a><span·class="lineno">··883</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00884"></a><span·class="lineno">··884</span> sub·DeleteNoDataValue·{</div><div·class="line"><a·name="l00885"></a><span·class="lineno">··885</span> }</div><div·class="line"><a·name="l00886"></a><span·class="lineno">··886</span> </div><div·class="line"><a·name="l00887"></a><span·class="lineno">··887</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Band·Distance(%params)</span></div><div·class="line"><a·name="l00888"></a><span·class="lineno">··888</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00889"></a><span·class="lineno">··889</span> <span·class="preprocessor">#·Compute·distances·to·specific·cells·of·this·raster.</span></div><div·class="line"><a·name="l00890"></a><span·class="lineno">··890</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l00891"></a><span·class="lineno">··891</span> <span·class="preprocessor">#·-·\a·Distance·A·raster·band,·into·which·the·distances·are·computed.·If·not·given,·a·not·given,·a·new·in-memory·raster·band·is·created·and·returned.·The·data·type·of·the·raster·can·be·given·in·the·options.</span></div><div·class="line"><a·name="l00892"></a><span·class="lineno">··892</span> <span·class="preprocessor">#·-·\a·Options·Hash·of·options.·Options·are:</span></div><div·class="line"><a·name="l00893"></a><span·class="lineno">··893</span> <span·class="preprocessor">#···-·\a·Values·A·list·of·cell·values·in·this·band·to·measure·the·distance·from.·If·this·option·is·not·provided,·the·distance·will·be·computed·to·non-zero·pixel·values.·Currently·pixel·values·are·internally·processed·as·integers.</span></div><div·class="line"><a·name="l00894"></a><span·class="lineno">··894</span> <span·class="preprocessor">#···-·\a·DistUnits=PIXEL|GEO·Indicates·whether·distances·will·be·computed·in·cells·or·in·georeferenced·units.·The·default·is·pixel·units.·This·also·determines·the·interpretation·of·MaxDist.</span></div><div·class="line"><a·name="l00895"></a><span·class="lineno">··895</span> <span·class="preprocessor">#···-·\a·MaxDist=n·The·maximum·distance·to·search.·Distances·greater·than·this·value·will·not·be·computed.·Instead·output·cells·will·be·set·to·a·NoData·value.</span></div><div·class="line"><a·name="l00896"></a><span·class="lineno">··896</span> <span·class="preprocessor">#···-·\a·NoData=n·The·NoData·value·to·use·on·the·distance·band·for·cells·that·are·beyond·MaxDist.·If·not·provided,·the·distance·band·will·be·queried·for·a·NoData·value.·If·one·is·not·found,·65535·will·be·used·(255·if·the·type·is·Byte).</span></div><div·class="line"><a·name="l00897"></a><span·class="lineno">··897</span> <span·class="preprocessor">#···-·\a·Use_Input_NoData=YES|NO·If·this·option·is·set,·the·NoData·value·of·this·band·will·be·respected.·Leaving·NoData·cells·in·the·input·as·NoData·pixels·in·the·distance·raster.</span></div><div·class="line"><a·name="l00898"></a><span·class="lineno">··898</span> <span·class="preprocessor">#···-·\a·Fixed_Buf_Val=n·If·this·option·is·set,·all·cells·within·the·MaxDist·threshold·are·set·to·this·value·instead·of·the·distance·value.</span></div><div·class="line"><a·name="l00899"></a><span·class="lineno">··899</span> <span·class="preprocessor">#···-·\a·DataType·The·data·type·for·the·result·if·it·is·not·given.</span></div><div·class="line"><a·name="l00900"></a><span·class="lineno">··900</span> <span·class="preprocessor">#·-·\a·Progress·Progress·function.</span></div><div·class="line"><a·name="l00901"></a><span·class="lineno">··901</span> <span·class="preprocessor">#·-·\a·ProgressData·Additional·parameter·for·the·progress·function.</span></div><div·class="line"><a·name="l00902"></a><span·class="lineno">··902</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00903"></a><span·class="lineno">··903</span> <span·class="preprocessor">#·@note·This·GDAL·function·behind·this·API·is·called·GDALComputeProximity.</span></div><div·class="line"><a·name="l00904"></a><span·class="lineno">··904</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00905"></a><span·class="lineno">··905</span> <span·class="preprocessor">#·@return·The·distance·raster.</span></div><div·class="line"><a·name="l00906"></a><span·class="lineno">··906</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00907"></a><span·class="lineno">··907</span> sub·Distance·{</div><div·class="line"><a·name="l00908"></a><span·class="lineno">··908</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l00909"></a><span·class="lineno">··909</span> ····my·$p·=·named_parameters(\@_,·Distance·=>·undef,·Options·=>·undef,·Progress·=>·undef,·ProgressData·=>·undef);</div><div·class="line"><a·name="l00910"></a><span·class="lineno">··910</span> ····<span·class="keywordflow">for</span>·my·$key·(keys·%{$p->{options}})·{</div><div·class="line"><a·name="l00911"></a><span·class="lineno">··911</span> ········$p->{options}{uc($key)}·=·$p->{options}{$key};</div><div·class="line"><a·name="l00912"></a><span·class="lineno">··912</span> ····}</div><div·class="line"><a·name="l00913"></a><span·class="lineno">··913</span> ····$p->{options}{TYPE}·<span·class="comment">//=·$p->{options}{DATATYPE}·//=·'Float32';</span></div><div·class="line"><a·name="l00914"></a><span·class="lineno">··914</span> ····unless·($p->{distance})·{</div><div·class="line"><a·name="l00915"></a><span·class="lineno">··915</span> ········my·($w,·$h)·=·$self->Size;</div><div·class="line"><a·name="l00916"></a><span·class="lineno">··916</span> ········$p->{distance}·=·<a·class="code"·href="classGeo_1_1GDAL.html#ac6041428faeb7a6b21c380a2011cd25c">Geo::GDAL::Driver</a>(<span·class="stringliteral">'MEM'</span>)-><a·class="code"·href="classGeo_1_1GDAL_1_1Driver.html#a2bdbed29da0cc19770b7295793c7d85f">Create</a>(Name·=>·<span·class="stringliteral">'distance'</span>,·Width·=>·$w,·Height·=>·$h,·Type·=>·$p->{options}{TYPE})-><a·class="code"·href="classGeo_1_1GDAL_1_1Band.html">Band</a>;</div><div·class="line"><a·name="l00917"></a><span·class="lineno">··917</span> ····}</div><div·class="line"><a·name="l00918"></a><span·class="lineno">··918</span> ····Geo::GDAL::ComputeProximity($self,·$p->{distance},·$p->{options},·$p->{progress},·$p->{progressdata});</div><div·class="line"><a·name="l00919"></a><span·class="lineno">··919</span> ····<span·class="keywordflow">return</span>·$p->{distance};</div><div·class="line"><a·name="l00920"></a><span·class="lineno">··920</span> }</div><div·class="line"><a·name="l00921"></a><span·class="lineno">··921</span> </div><div·class="line"><a·name="l00922"></a><span·class="lineno">··922</span> <span·class="preprocessor">#**·@method·Domains()</span></div><div·class="line"><a·name="l00923"></a><span·class="lineno">··923</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00924"></a><span·class="lineno">··924</span> sub·Domains·{</div><div·class="line"><a·name="l00925"></a><span·class="lineno">··925</span> ····<span·class="keywordflow">return</span>·@DOMAINS;</div><div·class="line"><a·name="l00926"></a><span·class="lineno">··926</span> }</div><div·class="line"><a·name="l00927"></a><span·class="lineno">··927</span> </div><div·class="line"><a·name="l00928"></a><span·class="lineno">··928</span> <span·class="preprocessor">#**·@method·Fill($real_part,·$imag_part·=·0.0)</span></div><div·class="line"><a·name="l00929"></a><span·class="lineno">··929</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00930"></a><span·class="lineno">··930</span> <span·class="preprocessor">#·Fill·the·band·with·a·constant·value.</span></div><div·class="line"><a·name="l00931"></a><span·class="lineno">··931</span> <span·class="preprocessor">#·@param·real_part·Real·component·of·fill·value.</span></div><div·class="line"><a·name="l00932"></a><span·class="lineno">··932</span> <span·class="preprocessor">#·@param·imag_part·Imaginary·component·of·fill·value.</span></div><div·class="line"><a·name="l00933"></a><span·class="lineno">··933</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00934"></a><span·class="lineno">··934</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00935"></a><span·class="lineno">··935</span> sub·Fill·{</div><div·class="line"><a·name="l00936"></a><span·class="lineno">··936</span> }</div><div·class="line"><a·name="l00937"></a><span·class="lineno">··937</span> </div><div·class="line"><a·name="l00938"></a><span·class="lineno">··938</span> <span·class="preprocessor">#**·@method·FillNoData($mask,·$max_search_dist,·$smoothing_iterations,·$options,·coderef·progress,·$progress_data)</span></div><div·class="line"><a·name="l00939"></a><span·class="lineno">··939</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00940"></a><span·class="lineno">··940</span> <span·class="preprocessor">#·Interpolate·values·for·cells·in·this·raster.·The·cells·to·fill</span></div><div·class="line"><a·name="l00941"></a><span·class="lineno">··941</span> <span·class="preprocessor">#·should·be·marked·in·the·mask·band·with·zero.</span></div><div·class="line"><a·name="l00942"></a><span·class="lineno">··942</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00943"></a><span·class="lineno">··943</span> <span·class="preprocessor">#·@param·mask·[optional]·a·mask·band·indicating·cells·to·be·interpolated·(zero·valued)·(default·is·to·get·it·with·Geo::GDAL::Band::GetMaskBand).</span></div><div·class="line"><a·name="l00944"></a><span·class="lineno">··944</span> <span·class="preprocessor">#·@param·max_search_dist·[optional]·the·maximum·number·of·cells·to</span></div><div·class="line"><a·name="l00945"></a><span·class="lineno">··945</span> <span·class="preprocessor">#·search·in·all·directions·to·find·values·to·interpolate·from·(default·is·10).</span></div><div·class="line"><a·name="l00946"></a><span·class="lineno">··946</span> <span·class="preprocessor">#·@param·smoothing_iterations·[optional]·the·number·of·3x3·smoothing·filter·passes·to·run·(0·or·more)·(default·is·0).</span></div><div·class="line"><a·name="l00947"></a><span·class="lineno">··947</span> <span·class="preprocessor">#·@param·options·[optional]·A·reference·to·a·hash.·No·options·have·been·defined·so·far·for·this·algorithm·(default·is·{}).</span></div><div·class="line"><a·name="l00948"></a><span·class="lineno">··948</span> <span·class="preprocessor">#·@param·progress·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l00949"></a><span·class="lineno">··949</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·progress_data)·(default·is·undef).</span></div><div·class="line"><a·name="l00950"></a><span·class="lineno">··950</span> <span·class="preprocessor">#·@param·progress_data·[optional]·(default·is·undef).</span></div><div·class="line"><a·name="l00951"></a><span·class="lineno">··951</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l00952"></a><span·class="lineno">··952</span> <span·class="preprocessor">#·<a·href="http://www.gdal.org/gdal__alg_8h.html">Documentation·for·GDAL·algorithms</a></span></div><div·class="line"><a·name="l00953"></a><span·class="lineno">··953</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00954"></a><span·class="lineno">··954</span> sub·FillNoData·{</div><div·class="line"><a·name="l00955"></a><span·class="lineno">··955</span> }</div><div·class="line"><a·name="l00956"></a><span·class="lineno">··956</span> </div><div·class="line"><a·name="l00957"></a><span·class="lineno">··957</span> <span·class="preprocessor">#**·@method·FlushCache()</span></div><div·class="line"><a·name="l00958"></a><span·class="lineno">··958</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00959"></a><span·class="lineno">··959</span> <span·class="preprocessor">#·Write·cached·data·to·disk.·There·is·usually·no·need·to·call·this</span></div><div·class="line"><a·name="l00960"></a><span·class="lineno">··960</span> <span·class="preprocessor">#·method.</span></div><div·class="line"><a·name="l00961"></a><span·class="lineno">··961</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00962"></a><span·class="lineno">··962</span> sub·FlushCache·{</div><div·class="line"><a·name="l00963"></a><span·class="lineno">··963</span> }</div><div·class="line"><a·name="l00964"></a><span·class="lineno">··964</span> </div><div·class="line"><a·name="l00965"></a><span·class="lineno">··965</span> <span·class="preprocessor">#**·@method·scalar·GetBandNumber()</span></div><div·class="line"><a·name="l00966"></a><span·class="lineno">··966</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00967"></a><span·class="lineno">··967</span> <span·class="preprocessor">#·@return·The·index·of·this·band·in·the·parent·dataset·list·of·bands.</span></div><div·class="line"><a·name="l00968"></a><span·class="lineno">··968</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00969"></a><span·class="lineno">··969</span> sub·GetBandNumber·{</div><div·class="line"><a·name="l00970"></a><span·class="lineno">··970</span> }</div><div·class="line"><a·name="l00971"></a><span·class="lineno">··971</span> </div><div·class="line"><a·name="l00972"></a><span·class="lineno">··972</span> <span·class="preprocessor">#**·@method·GetBlockSize()</span></div><div·class="line"><a·name="l00973"></a><span·class="lineno">··973</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00974"></a><span·class="lineno">··974</span> sub·GetBlockSize·{</div><div·class="line"><a·name="l00975"></a><span·class="lineno">··975</span> }</div><div·class="line"><a·name="l00976"></a><span·class="lineno">··976</span> </div><div·class="line"><a·name="l00977"></a><span·class="lineno">··977</span> <span·class="preprocessor">#**·@method·list·GetDefaultHistogram($force·=·1,·coderef·progress·=·undef,·$progress_data·=·undef)</span></div><div·class="line"><a·name="l00978"></a><span·class="lineno">··978</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00979"></a><span·class="lineno">··979</span> <span·class="preprocessor">#·@param·force·true·to·force·the·computation</span></div><div·class="line"><a·name="l00980"></a><span·class="lineno">··980</span> <span·class="preprocessor">#·@param·progress·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l00981"></a><span·class="lineno">··981</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·progress_data)</span></div><div·class="line"><a·name="l00982"></a><span·class="lineno">··982</span> <span·class="preprocessor">#·@param·progress_data·[optional]</span></div><div·class="line"><a·name="l00983"></a><span·class="lineno">··983</span> <span·class="preprocessor">#·@note·See·Note·in·Geo::GDAL::Band::GetHistogram.</span></div><div·class="line"><a·name="l00984"></a><span·class="lineno">··984</span> <span·class="preprocessor">#·@return·a·list:·($min,·$max,·arrayref·histogram).</span></div><div·class="line"><a·name="l00985"></a><span·class="lineno">··985</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l00986"></a><span·class="lineno">··986</span> sub·GetDefaultHistogram·{</div><div·class="line"><a·name="l00987"></a><span·class="lineno">··987</span> }</div><div·class="line"><a·name="l00988"></a><span·class="lineno">··988</span> </div><div·class="line"><a·name="l00989"></a><span·class="lineno">··989</span> <span·class="preprocessor">#**·@method·list·GetHistogram(%parameters)</span></div><div·class="line"><a·name="l00990"></a><span·class="lineno">··990</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l00991"></a><span·class="lineno">··991</span> <span·class="preprocessor">#·Compute·histogram·from·the·raster.</span></div><div·class="line"><a·name="l00992"></a><span·class="lineno">··992</span> <span·class="preprocessor">#·@param·parameters·Named·parameters:</span></div><div·class="line"><a·name="l00993"></a><span·class="lineno">··993</span> <span·class="preprocessor">#·-·\a·Min·the·lower·bound,·default·is·-0.5</span></div><div·class="line"><a·name="l00994"></a><span·class="lineno">··994</span> <span·class="preprocessor">#·-·\a·Max·the·upper·bound,·default·is·255.5</span></div><div·class="line"><a·name="l00995"></a><span·class="lineno">··995</span> <span·class="preprocessor">#·-·\a·Buckets·the·number·of·buckets·in·the·histogram,·default·is·256</span></div><div·class="line"><a·name="l00996"></a><span·class="lineno">··996</span> <span·class="preprocessor">#·-·\a·IncludeOutOfRange·whether·to·use·the·first·and·last·values·in·the·returned·list</span></div><div·class="line"><a·name="l00997"></a><span·class="lineno">··997</span> <span·class="preprocessor">#·for·out·of·range·values,·default·is·false;</span></div><div·class="line"><a·name="l00998"></a><span·class="lineno">··998</span> <span·class="preprocessor">#·the·bucket·size·is·(Max-Min)·/·Buckets·if·this·is·false·and</span></div><div·class="line"><a·name="l00999"></a><span·class="lineno">··999</span> <span·class="preprocessor">#·(Max-Min)·/·(Buckets-2)·if·this·is·true</span></div><div·class="line"><a·name="l01000"></a><span·class="lineno">·1000</span> <span·class="preprocessor">#·-·\a·ApproxOK·if·histogram·can·be·computed·from·overviews,·default·is·false</span></div><div·class="line"><a·name="l01001"></a><span·class="lineno">·1001</span> <span·class="preprocessor">#·-·\a·Progress·an·optional·progress·function,·the·default·is·undef</span></div><div·class="line"><a·name="l01002"></a><span·class="lineno">·1002</span> <span·class="preprocessor">#·-·\a·ProgressData·data·for·the·progress·function,·the·default·is·undef</span></div><div·class="line"><a·name="l01003"></a><span·class="lineno">·1003</span> <span·class="preprocessor">#·@note·Histogram·counts·are·treated·as·strings·in·the·bindings·to·be</span></div><div·class="line"><a·name="l01004"></a><span·class="lineno">·1004</span> <span·class="preprocessor">#·able·to·use·large·integers·(if·GUIntBig·is·larger·than·Perl·IV).·In</span></div><div·class="line"><a·name="l01005"></a><span·class="lineno">·1005</span> <span·class="preprocessor">#·practice·this·is·only·important·if·you·have·a·32·bit·machine·and</span></div><div·class="line"><a·name="l01006"></a><span·class="lineno">·1006</span> <span·class="preprocessor">#·very·large·bucket·counts.·In·those·cases·it·may·also·be·necessary·to</span></div><div·class="line"><a·name="l01007"></a><span·class="lineno">·1007</span> <span·class="preprocessor">#·use·Math::BigInt.</span></div><div·class="line"><a·name="l01008"></a><span·class="lineno">·1008</span> <span·class="preprocessor">#·@return·a·list·which·contains·the·count·of·values·in·each·bucket</span></div><div·class="line"><a·name="l01009"></a><span·class="lineno">·1009</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01010"></a><span·class="lineno">·1010</span> sub·GetHistogram·{</div><div·class="line"><a·name="l01011"></a><span·class="lineno">·1011</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01012"></a><span·class="lineno">·1012</span> ····my·$p·=·named_parameters(\@_,</div><div·class="line"><a·name="l01013"></a><span·class="lineno">·1013</span> ·····························Min·=>·-0.5,</div><div·class="line"><a·name="l01014"></a><span·class="lineno">·1014</span> ·····························Max·=>·255.5,</div><div·class="line"><a·name="l01015"></a><span·class="lineno">·1015</span> ·····························Buckets·=>·256,</div><div·class="line"><a·name="l01016"></a><span·class="lineno">·1016</span> ·····························IncludeOutOfRange·=>·0,</div><div·class="line"><a·name="l01017"></a><span·class="lineno">·1017</span> ·····························ApproxOK·=>·0,</div><div·class="line"><a·name="l01018"></a><span·class="lineno">·1018</span> ·····························Progress·=>·undef,</div><div·class="line"><a·name="l01019"></a><span·class="lineno">·1019</span> ·····························ProgressData·=>·undef);</div><div·class="line"><a·name="l01020"></a><span·class="lineno">·1020</span> ····$p->{progressdata}·=·1·<span·class="keywordflow">if</span>·$p->{progress}·and·not·defined·$p->{progressdata};</div><div·class="line"><a·name="l01021"></a><span·class="lineno">·1021</span> ····_GetHistogram($self,·$p->{min},·$p->{max},·$p->{buckets},</div><div·class="line"><a·name="l01022"></a><span·class="lineno">·1022</span> ··················$p->{includeoutofrange},·$p->{approxok},</div><div·class="line"><a·name="l01023"></a><span·class="lineno">·1023</span> ··················$p->{progress},·$p->{progressdata});</div><div·class="line"><a·name="l01024"></a><span·class="lineno">·1024</span> }</div><div·class="line"><a·name="l01025"></a><span·class="lineno">·1025</span> </div><div·class="line"><a·name="l01026"></a><span·class="lineno">·1026</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Band·GetMaskBand()</span></div><div·class="line"><a·name="l01027"></a><span·class="lineno">·1027</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01028"></a><span·class="lineno">·1028</span> <span·class="preprocessor">#·@return·the·mask·band·associated·with·this</span></div><div·class="line"><a·name="l01029"></a><span·class="lineno">·1029</span> <span·class="preprocessor">#·band.</span></div><div·class="line"><a·name="l01030"></a><span·class="lineno">·1030</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01031"></a><span·class="lineno">·1031</span> sub·GetMaskBand·{</div><div·class="line"><a·name="l01032"></a><span·class="lineno">·1032</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01033"></a><span·class="lineno">·1033</span> ····my·$band·=·_GetMaskBand($self);</div><div·class="line"><a·name="l01034"></a><span·class="lineno">·1034</span> ····keep($band,·$self);</div><div·class="line"><a·name="l01035"></a><span·class="lineno">·1035</span> }</div><div·class="line"><a·name="l01036"></a><span·class="lineno">·1036</span> </div><div·class="line"><a·name="l01037"></a><span·class="lineno">·1037</span> <span·class="preprocessor">#**·@method·list·GetMaskFlags()</span></div><div·class="line"><a·name="l01038"></a><span·class="lineno">·1038</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01039"></a><span·class="lineno">·1039</span> <span·class="preprocessor">#·@return·the·mask·flags·of·the·mask·band·associated·with·this</span></div><div·class="line"><a·name="l01040"></a><span·class="lineno">·1040</span> <span·class="preprocessor">#·band.·The·flags·are·one·or·more·of·Geo::GDAL::Band::MaskFlags.</span></div><div·class="line"><a·name="l01041"></a><span·class="lineno">·1041</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01042"></a><span·class="lineno">·1042</span> sub·GetMaskFlags·{</div><div·class="line"><a·name="l01043"></a><span·class="lineno">·1043</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01044"></a><span·class="lineno">·1044</span> ····my·$f·=·$self->_GetMaskFlags;</div><div·class="line"><a·name="l01045"></a><span·class="lineno">·1045</span> ····my·@f;</div><div·class="line"><a·name="l01046"></a><span·class="lineno">·1046</span> ····<span·class="keywordflow">for</span>·my·$flag·(keys·%MASK_FLAGS)·{</div><div·class="line"><a·name="l01047"></a><span·class="lineno">·1047</span> ········push·@f,·$flag·<span·class="keywordflow">if</span>·$f·&·$MASK_FLAGS{$flag};</div><div·class="line"><a·name="l01048"></a><span·class="lineno">·1048</span> ····}</div><div·class="line"><a·name="l01049"></a><span·class="lineno">·1049</span> ····<span·class="keywordflow">return</span>·wantarray·?·@f·:·$f;</div><div·class="line"><a·name="l01050"></a><span·class="lineno">·1050</span> }</div><div·class="line"><a·name="l01051"></a><span·class="lineno">·1051</span> </div><div·class="line"><a·name="l01052"></a><span·class="lineno">·1052</span> <span·class="preprocessor">#**·@method·scalar·GetMaximum()</span></div><div·class="line"><a·name="l01053"></a><span·class="lineno">·1053</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01054"></a><span·class="lineno">·1054</span> <span·class="preprocessor">#·@note·Call·Geo::GDAL::Band::ComputeStatistics·before·calling</span></div><div·class="line"><a·name="l01055"></a><span·class="lineno">·1055</span> <span·class="preprocessor">#·GetMaximum·to·make·sure·the·value·is·computed.</span></div><div·class="line"><a·name="l01056"></a><span·class="lineno">·1056</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01057"></a><span·class="lineno">·1057</span> <span·class="preprocessor">#·@return·statistical·minimum·of·the·band·or·undef·if·statistics·are</span></div><div·class="line"><a·name="l01058"></a><span·class="lineno">·1058</span> <span·class="preprocessor">#·not·kept·or·computed·in·scalar·context.·In·list·context·returns·the</span></div><div·class="line"><a·name="l01059"></a><span·class="lineno">·1059</span> <span·class="preprocessor">#·maximum·value·or·a·(kind·of)·maximum·value·supported·by·the·data</span></div><div·class="line"><a·name="l01060"></a><span·class="lineno">·1060</span> <span·class="preprocessor">#·type·and·a·boolean·value,·which·indicates·which·is·the·case·(true·is</span></div><div·class="line"><a·name="l01061"></a><span·class="lineno">·1061</span> <span·class="preprocessor">#·first,·false·is·second).</span></div><div·class="line"><a·name="l01062"></a><span·class="lineno">·1062</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01063"></a><span·class="lineno">·1063</span> sub·GetMaximum·{</div><div·class="line"><a·name="l01064"></a><span·class="lineno">·1064</span> }</div><div·class="line"><a·name="l01065"></a><span·class="lineno">·1065</span> </div><div·class="line"><a·name="l01066"></a><span·class="lineno">·1066</span> <span·class="preprocessor">#**·@method·scalar·GetMinimum()</span></div><div·class="line"><a·name="l01067"></a><span·class="lineno">·1067</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01068"></a><span·class="lineno">·1068</span> <span·class="preprocessor">#·@note·Call·Geo::GDAL::Band::ComputeStatistics·before·calling</span></div><div·class="line"><a·name="l01069"></a><span·class="lineno">·1069</span> <span·class="preprocessor">#·GetMinimum·to·make·sure·the·value·is·computed.</span></div><div·class="line"><a·name="l01070"></a><span·class="lineno">·1070</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01071"></a><span·class="lineno">·1071</span> <span·class="preprocessor">#·@return·statistical·minimum·of·the·band·or·undef·if·statistics·are</span></div><div·class="line"><a·name="l01072"></a><span·class="lineno">·1072</span> <span·class="preprocessor">#·not·kept·or·computed·in·scalar·context.·In·list·context·returns·the</span></div><div·class="line"><a·name="l01073"></a><span·class="lineno">·1073</span> <span·class="preprocessor">#·minimum·value·or·a·(kind·of)·minimum·value·supported·by·the·data</span></div><div·class="line"><a·name="l01074"></a><span·class="lineno">·1074</span> <span·class="preprocessor">#·type·and·a·boolean·value,·which·indicates·which·is·the·case·(true·is</span></div><div·class="line"><a·name="l01075"></a><span·class="lineno">·1075</span> <span·class="preprocessor">#·first,·false·is·second).</span></div><div·class="line"><a·name="l01076"></a><span·class="lineno">·1076</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01077"></a><span·class="lineno">·1077</span> sub·GetMinimum·{</div><div·class="line"><a·name="l01078"></a><span·class="lineno">·1078</span> }</div><div·class="line"><a·name="l01079"></a><span·class="lineno">·1079</span> </div><div·class="line"><a·name="l01080"></a><span·class="lineno">·1080</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Band·GetOverview($index)</span></div><div·class="line"><a·name="l01081"></a><span·class="lineno">·1081</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01082"></a><span·class="lineno">·1082</span> <span·class="preprocessor">#·@param·index·0..GetOverviewCount-1</span></div><div·class="line"><a·name="l01083"></a><span·class="lineno">·1083</span> <span·class="preprocessor">#·@return·a·Geo::GDAL::Band·object,·which·represents·the·internal</span></div><div·class="line"><a·name="l01084"></a><span·class="lineno">·1084</span> <span·class="preprocessor">#·overview·band,·or·undef.··if·the·index·is·out·of·bounds.</span></div><div·class="line"><a·name="l01085"></a><span·class="lineno">·1085</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01086"></a><span·class="lineno">·1086</span> sub·GetOverview·{</div><div·class="line"><a·name="l01087"></a><span·class="lineno">·1087</span> ····my·($self,·$index)·=·@_;</div><div·class="line"><a·name="l01088"></a><span·class="lineno">·1088</span> ····my·$band·=·_GetOverview($self,·$index);</div><div·class="line"><a·name="l01089"></a><span·class="lineno">·1089</span> ····keep($band,·$self);</div><div·class="line"><a·name="l01090"></a><span·class="lineno">·1090</span> }</div><div·class="line"><a·name="l01091"></a><span·class="lineno">·1091</span> </div><div·class="line"><a·name="l01092"></a><span·class="lineno">·1092</span> <span·class="preprocessor">#**·@method·scalar·GetOverviewCount()</span></div><div·class="line"><a·name="l01093"></a><span·class="lineno">·1093</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01094"></a><span·class="lineno">·1094</span> <span·class="preprocessor">#·@return·the·number·of·overviews·available·of·the·band.</span></div><div·class="line"><a·name="l01095"></a><span·class="lineno">·1095</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01096"></a><span·class="lineno">·1096</span> sub·GetOverviewCount·{</div><div·class="line"><a·name="l01097"></a><span·class="lineno">·1097</span> }</div><div·class="line"><a·name="l01098"></a><span·class="lineno">·1098</span> </div><div·class="line"><a·name="l01099"></a><span·class="lineno">·1099</span> <span·class="preprocessor">#**·@method·list·GetStatistics($approx_ok,·$force)</span></div><div·class="line"><a·name="l01100"></a><span·class="lineno">·1100</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01101"></a><span·class="lineno">·1101</span> <span·class="preprocessor">#·@param·approx_ok·Whether·it·is·allowed·to·compute·the·statistics</span></div><div·class="line"><a·name="l01102"></a><span·class="lineno">·1102</span> <span·class="preprocessor">#·based·on·overviews·or·similar.</span></div><div·class="line"><a·name="l01103"></a><span·class="lineno">·1103</span> <span·class="preprocessor">#·@param·force·Whether·to·force·scanning·of·the·whole·raster.</span></div><div·class="line"><a·name="l01104"></a><span·class="lineno">·1104</span> <span·class="preprocessor">#·@note·Uses·Geo::GDAL::Band::ComputeStatistics·internally.</span></div><div·class="line"><a·name="l01105"></a><span·class="lineno">·1105</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01106"></a><span·class="lineno">·1106</span> <span·class="preprocessor">#·@return·a·list·($min,·$max,·$mean,·$stddev).</span></div><div·class="line"><a·name="l01107"></a><span·class="lineno">·1107</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01108"></a><span·class="lineno">·1108</span> sub·GetStatistics·{</div><div·class="line"><a·name="l01109"></a><span·class="lineno">·1109</span> }</div><div·class="line"><a·name="l01110"></a><span·class="lineno">·1110</span> </div><div·class="line"><a·name="l01111"></a><span·class="lineno">·1111</span> <span·class="preprocessor">#**·@method·HasArbitraryOverviews()</span></div><div·class="line"><a·name="l01112"></a><span·class="lineno">·1112</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01113"></a><span·class="lineno">·1113</span> <span·class="preprocessor">#·@return·true·or·false.</span></div><div·class="line"><a·name="l01114"></a><span·class="lineno">·1114</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01115"></a><span·class="lineno">·1115</span> sub·HasArbitraryOverviews·{</div><div·class="line"><a·name="l01116"></a><span·class="lineno">·1116</span> }</div><div·class="line"><a·name="l01117"></a><span·class="lineno">·1117</span> </div><div·class="line"><a·name="l01118"></a><span·class="lineno">·1118</span> <span·class="preprocessor">#**·@method·list·MaskFlags()</span></div><div·class="line"><a·name="l01119"></a><span·class="lineno">·1119</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l01120"></a><span·class="lineno">·1120</span> <span·class="preprocessor">#·@return·the·list·of·mask·flags.·These·are</span></div><div·class="line"><a·name="l01121"></a><span·class="lineno">·1121</span> <span·class="preprocessor">#·-·\a·AllValid:·There·are·no·invalid·cell,·all·mask·values·will·be·255.</span></div><div·class="line"><a·name="l01122"></a><span·class="lineno">·1122</span> <span·class="preprocessor">#·When·used·this·will·normally·be·the·only·flag·set.</span></div><div·class="line"><a·name="l01123"></a><span·class="lineno">·1123</span> <span·class="preprocessor">#·-·\a·PerDataset:·The·mask·band·is·shared·between·all·bands·on·the·dataset.</span></div><div·class="line"><a·name="l01124"></a><span·class="lineno">·1124</span> <span·class="preprocessor">#·-·\a·Alpha:·The·mask·band·is·actually·an·alpha·band·and·may·have·values</span></div><div·class="line"><a·name="l01125"></a><span·class="lineno">·1125</span> <span·class="preprocessor">#·other·than·0·and·255.</span></div><div·class="line"><a·name="l01126"></a><span·class="lineno">·1126</span> <span·class="preprocessor">#·-·\a·NoData:·Indicates·the·mask·is·actually·being·generated·from·NoData·values.</span></div><div·class="line"><a·name="l01127"></a><span·class="lineno">·1127</span> <span·class="preprocessor">#·(mutually·exclusive·of·Alpha).</span></div><div·class="line"><a·name="l01128"></a><span·class="lineno">·1128</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01129"></a><span·class="lineno">·1129</span> sub·MaskFlags·{</div><div·class="line"><a·name="l01130"></a><span·class="lineno">·1130</span> ····my·@f·=·sort·{$MASK_FLAGS{$a}·<=>·$MASK_FLAGS{$b}}·keys·%MASK_FLAGS;</div><div·class="line"><a·name="l01131"></a><span·class="lineno">·1131</span> ····<span·class="keywordflow">return</span>·@f;</div><div·class="line"><a·name="l01132"></a><span·class="lineno">·1132</span> }</div><div·class="line"><a·name="l01133"></a><span·class="lineno">·1133</span> </div><div·class="line"><a·name="l01134"></a><span·class="lineno">·1134</span> <span·class="preprocessor">#**·@method·scalar·NoDataValue($NoDataValue)</span></div><div·class="line"><a·name="l01135"></a><span·class="lineno">·1135</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01136"></a><span·class="lineno">·1136</span> <span·class="preprocessor">#·Get·or·set·the·"no·data"·value.</span></div><div·class="line"><a·name="l01137"></a><span·class="lineno">·1137</span> <span·class="preprocessor">#·@param·NoDataValue·[optional]</span></div><div·class="line"><a·name="l01138"></a><span·class="lineno">·1138</span> <span·class="preprocessor">#·@note·$band->NoDataValue(undef)·sets·the·NoData·value·to·the</span></div><div·class="line"><a·name="l01139"></a><span·class="lineno">·1139</span> <span·class="preprocessor">#·Posix·floating·point·maximum.·Use·Geo::GDAL::Band::DeleteNoDataValue</span></div><div·class="line"><a·name="l01140"></a><span·class="lineno">·1140</span> <span·class="preprocessor">#·to·stop·this·band·using·a·NoData·value.</span></div><div·class="line"><a·name="l01141"></a><span·class="lineno">·1141</span> <span·class="preprocessor">#·@return·The·NoData·value·or·undef·in·scalar·context.·An·undef</span></div><div·class="line"><a·name="l01142"></a><span·class="lineno">·1142</span> <span·class="preprocessor">#·value·indicates·that·there·is·no·NoData·value·associated·with·this</span></div><div·class="line"><a·name="l01143"></a><span·class="lineno">·1143</span> <span·class="preprocessor">#·band.</span></div><div·class="line"><a·name="l01144"></a><span·class="lineno">·1144</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01145"></a><span·class="lineno">·1145</span> sub·NoDataValue·{</div><div·class="line"><a·name="l01146"></a><span·class="lineno">·1146</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01147"></a><span·class="lineno">·1147</span> ····<span·class="keywordflow">if</span>·(@_·>·0)·{</div><div·class="line"><a·name="l01148"></a><span·class="lineno">·1148</span> ········<span·class="keywordflow">if</span>·(defined·$_[0])·{</div><div·class="line"><a·name="l01149"></a><span·class="lineno">·1149</span> ············SetNoDataValue($self,·$_[0]);</div><div·class="line"><a·name="l01150"></a><span·class="lineno">·1150</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l01151"></a><span·class="lineno">·1151</span> ············SetNoDataValue($self,·POSIX::FLT_MAX);·#·hopefully·an·<span·class="stringliteral">"out·of·range"</span>·value</div><div·class="line"><a·name="l01152"></a><span·class="lineno">·1152</span> ········}</div><div·class="line"><a·name="l01153"></a><span·class="lineno">·1153</span> ····}</div><div·class="line"><a·name="l01154"></a><span·class="lineno">·1154</span> ····GetNoDataValue($self);</div><div·class="line"><a·name="l01155"></a><span·class="lineno">·1155</span> }</div><div·class="line"><a·name="l01156"></a><span·class="lineno">·1156</span> </div><div·class="line"><a·name="l01157"></a><span·class="lineno">·1157</span> <span·class="preprocessor">#**·@method·scalar·PackCharacter()</span></div><div·class="line"><a·name="l01158"></a><span·class="lineno">·1158</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01159"></a><span·class="lineno">·1159</span> <span·class="preprocessor">#·@return·The·character·to·use·in·Perl·pack·and·unpack·for·the·data·of·this·band.</span></div><div·class="line"><a·name="l01160"></a><span·class="lineno">·1160</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01161"></a><span·class="lineno">·1161</span> sub·PackCharacter·{</div><div·class="line"><a·name="l01162"></a><span·class="lineno">·1162</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01163"></a><span·class="lineno">·1163</span> ····<span·class="keywordflow">return</span>·<a·class="code"·href="classGeo_1_1GDAL.html#abbc0c1d362bc306a1916c51116b7a0ff">Geo::GDAL::PackCharacter</a>($self->DataType);</div><div·class="line"><a·name="l01164"></a><span·class="lineno">·1164</span> }</div><div·class="line"><a·name="l01165"></a><span·class="lineno">·1165</span> </div><div·class="line"><a·name="l01166"></a><span·class="lineno">·1166</span> <span·class="preprocessor">#**·@method·Piddle($piddle,·$xoff·=·0,·$yoff·=·0,·$xsize·=·<width>,·$ysize·=·<height>,·$xdim,·$ydim)</span></div><div·class="line"><a·name="l01167"></a><span·class="lineno">·1167</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01168"></a><span·class="lineno">·1168</span> <span·class="preprocessor">#·Read·or·write·band·data·from/into·a·piddle.</span></div><div·class="line"><a·name="l01169"></a><span·class="lineno">·1169</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01170"></a><span·class="lineno">·1170</span> <span·class="preprocessor">#·\note·The·PDL·module·must·be·available·for·this·method·to·work.·Also,·you</span></div><div·class="line"><a·name="l01171"></a><span·class="lineno">·1171</span> <span·class="preprocessor">#·should·'use·PDL'·in·the·code·that·you·use·this·method.</span></div><div·class="line"><a·name="l01172"></a><span·class="lineno">·1172</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01173"></a><span·class="lineno">·1173</span> <span·class="preprocessor">#·@param·piddle·[only·when·writing]·The·piddle·from·which·to·read·the·data·to·be·written·into·the·band.</span></div><div·class="line"><a·name="l01174"></a><span·class="lineno">·1174</span> <span·class="preprocessor">#·@param·xoff,·yoff·The·offset·for·data·in·the·band,·default·is·top·left·(0,·0).</span></div><div·class="line"><a·name="l01175"></a><span·class="lineno">·1175</span> <span·class="preprocessor">#·@param·xsize,·ysize·[optional]·The·size·of·the·window·in·the·band.</span></div><div·class="line"><a·name="l01176"></a><span·class="lineno">·1176</span> <span·class="preprocessor">#·@param·xdim,·ydim·[optional,·only·when·reading·from·a·band]·The·size·of·the·piddle·to·create.</span></div><div·class="line"><a·name="l01177"></a><span·class="lineno">·1177</span> <span·class="preprocessor">#·@return·A·new·piddle·when·reading·from·a·band·(no·not·use·when·writing·into·a·band).</span></div><div·class="line"><a·name="l01178"></a><span·class="lineno">·1178</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01179"></a><span·class="lineno">·1179</span> sub·Piddle·{</div><div·class="line"><a·name="l01180"></a><span·class="lineno">·1180</span> <span·class="preprocessor">····#·TODO:·add·Piddle·sub·to·dataset·too·to·make·Width·x·Height·x·Bands·piddles</span></div><div·class="line"><a·name="l01181"></a><span·class="lineno">·1181</span> ····error(<span·class="stringliteral">"PDL·is·not·available."</span>)·unless·$Geo::GDAL::HAVE_PDL;</div><div·class="line"><a·name="l01182"></a><span·class="lineno">·1182</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01183"></a><span·class="lineno">·1183</span> ····my·$t·=·$self->{DataType};</div><div·class="line"><a·name="l01184"></a><span·class="lineno">·1184</span> ····unless·(defined·wantarray)·{</div><div·class="line"><a·name="l01185"></a><span·class="lineno">·1185</span> ········my·$pdl·=·shift;</div><div·class="line"><a·name="l01186"></a><span·class="lineno">·1186</span> ········error(<span·class="stringliteral">"The·datatype·of·the·Piddle·and·the·band·do·not·match."</span>)</div><div·class="line"><a·name="l01187"></a><span·class="lineno">·1187</span> ··········unless·$PDL2DATATYPE{$pdl->get_datatype}·==·$t;</div><div·class="line"><a·name="l01188"></a><span·class="lineno">·1188</span> ········my·($xoff,·$yoff,·$xsize,·$ysize)·=·@_;</div><div·class="line"><a·name="l01189"></a><span·class="lineno">·1189</span> ········$xoff·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l01190"></a><span·class="lineno">·1190</span> ········$yoff·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l01191"></a><span·class="lineno">·1191</span> ········my·$data·=·$pdl->get_dataref();</div><div·class="line"><a·name="l01192"></a><span·class="lineno">·1192</span> ········my·($xdim,·$ydim)·=·$pdl->dims();</div><div·class="line"><a·name="l01193"></a><span·class="lineno">·1193</span> ········<span·class="keywordflow">if</span>·($xdim·>·$self->{XSize}·-·$xoff)·{</div><div·class="line"><a·name="l01194"></a><span·class="lineno">·1194</span> ············warn·<span·class="stringliteral">"Piddle·XSize·too·large·($xdim)·for·this·raster·band·(width·=·$self->{XSize},·offset·=·$xoff)."</span>;</div><div·class="line"><a·name="l01195"></a><span·class="lineno">·1195</span> ············$xdim·=·$self->{XSize}·-·$xoff;</div><div·class="line"><a·name="l01196"></a><span·class="lineno">·1196</span> ········}</div><div·class="line"><a·name="l01197"></a><span·class="lineno">·1197</span> ········<span·class="keywordflow">if</span>·($ydim·>·$self->{YSize}·-·$yoff)·{</div><div·class="line"><a·name="l01198"></a><span·class="lineno">·1198</span> ············$ydim·=·$self->{YSize}·-·$yoff;</div><div·class="line"><a·name="l01199"></a><span·class="lineno">·1199</span> ············warn·<span·class="stringliteral">"Piddle·YSize·too·large·($ydim)·for·this·raster·band·(height·=·$self->{YSize},·offset·=·$yoff)."</span>;</div><div·class="line"><a·name="l01200"></a><span·class="lineno">·1200</span> ········}</div><div·class="line"><a·name="l01201"></a><span·class="lineno">·1201</span> ········$xsize·<span·class="comment">//=·$xdim;</span></div><div·class="line"><a·name="l01202"></a><span·class="lineno">·1202</span> ········$ysize·<span·class="comment">//=·$ydim;</span></div><div·class="line"><a·name="l01203"></a><span·class="lineno">·1203</span> ········$self->_WriteRaster($xoff,·$yoff,·$xsize,·$ysize,·$data,·$xdim,·$ydim,·$t,·0,·0);</div><div·class="line"><a·name="l01204"></a><span·class="lineno">·1204</span> ········<span·class="keywordflow">return</span>;</div><div·class="line"><a·name="l01205"></a><span·class="lineno">·1205</span> ····}</div><div·class="line"><a·name="l01206"></a><span·class="lineno">·1206</span> ····my·($xoff,·$yoff,·$xsize,·$ysize,·$xdim,·$ydim,·$alg)·=·@_;</div><div·class="line"><a·name="l01207"></a><span·class="lineno">·1207</span> ····$xoff·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l01208"></a><span·class="lineno">·1208</span> ····$yoff·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l01209"></a><span·class="lineno">·1209</span> ····$xsize·<span·class="comment">//=·$self->{XSize}·-·$xoff;</span></div><div·class="line"><a·name="l01210"></a><span·class="lineno">·1210</span> ····$ysize·<span·class="comment">//=·$self->{YSize}·-·$yoff;</span></div><div·class="line"><a·name="l01211"></a><span·class="lineno">·1211</span> ····$xdim·<span·class="comment">//=·$xsize;</span></div><div·class="line"><a·name="l01212"></a><span·class="lineno">·1212</span> ····$ydim·<span·class="comment">//=·$ysize;</span></div><div·class="line"><a·name="l01213"></a><span·class="lineno">·1213</span> ····$alg·<span·class="comment">//=·'NearestNeighbour';</span></div><div·class="line"><a·name="l01214"></a><span·class="lineno">·1214</span> ····$alg·=·s2i(rio_resampling·=>·$alg);</div><div·class="line"><a·name="l01215"></a><span·class="lineno">·1215</span> ····my·$buf·=·$self->_ReadRaster($xoff,·$yoff,·$xsize,·$ysize,·$xdim,·$ydim,·$t,·0,·0,·$alg);</div><div·class="line"><a·name="l01216"></a><span·class="lineno">·1216</span> ····my·$pdl·=·PDL->new;</div><div·class="line"><a·name="l01217"></a><span·class="lineno">·1217</span> ····my·$datatype·=·$DATATYPE2PDL{$t};</div><div·class="line"><a·name="l01218"></a><span·class="lineno">·1218</span> ····error(<span·class="stringliteral">"The·band·datatype·is·not·supported·by·PDL."</span>)·<span·class="keywordflow">if</span>·$datatype·<·0;</div><div·class="line"><a·name="l01219"></a><span·class="lineno">·1219</span> ····$pdl->set_datatype($datatype);</div><div·class="line"><a·name="l01220"></a><span·class="lineno">·1220</span> ····$pdl->setdims([$xdim,·$ydim]);</div><div·class="line"><a·name="l01221"></a><span·class="lineno">·1221</span> ····my·$data·=·$pdl->get_dataref();</div><div·class="line"><a·name="l01222"></a><span·class="lineno">·1222</span> ····$$data·=·$buf;</div><div·class="line"><a·name="l01223"></a><span·class="lineno">·1223</span> ····$pdl->upd_data;</div><div·class="line"><a·name="l01224"></a><span·class="lineno">·1224</span> <span·class="preprocessor">····#·FIXME:·we·want·approximate·equality·since·no·data·value·can·be·very·large·floating·point·value</span></div><div·class="line"><a·name="l01225"></a><span·class="lineno">·1225</span> ····my·$bad·=·GetNoDataValue($self);</div><div·class="line"><a·name="l01226"></a><span·class="lineno">·1226</span> ····<span·class="keywordflow">return</span>·$pdl->setbadif($pdl·==·$bad)·<span·class="keywordflow">if</span>·defined·$bad;</div><div·class="line"><a·name="l01227"></a><span·class="lineno">·1227</span> ····<span·class="keywordflow">return</span>·$pdl;</div><div·class="line"><a·name="l01228"></a><span·class="lineno">·1228</span> }</div><div·class="line"><a·name="l01229"></a><span·class="lineno">·1229</span> </div><div·class="line"><a·name="l01230"></a><span·class="lineno">·1230</span> <span·class="preprocessor">#**·@method·Geo::OGR::Layer·Polygonize(%params)</span></div><div·class="line"><a·name="l01231"></a><span·class="lineno">·1231</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01232"></a><span·class="lineno">·1232</span> <span·class="preprocessor">#·Polygonize·this·raster·band.</span></div><div·class="line"><a·name="l01233"></a><span·class="lineno">·1233</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01234"></a><span·class="lineno">·1234</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l01235"></a><span·class="lineno">·1235</span> <span·class="preprocessor">#·-·\a·Mask·A·raster·band,·which·is·used·as·a·mask·to·select·polygonized·areas.·Default·is·undef.</span></div><div·class="line"><a·name="l01236"></a><span·class="lineno">·1236</span> <span·class="preprocessor">#·-·\a·OutLayer·A·vector·layer·into·which·the·polygons·are·written.·If·not·given,·an·in-memory·layer·'polygonized'·is·created·and·returned.</span></div><div·class="line"><a·name="l01237"></a><span·class="lineno">·1237</span> <span·class="preprocessor">#·-·\a·PixValField·The·name·of·the·field·in·the·output·layer·into·which·the·cell·value·of·the·polygon·area·is·stored.·Default·is·'val'.</span></div><div·class="line"><a·name="l01238"></a><span·class="lineno">·1238</span> <span·class="preprocessor">#·-·\a·Options·Hash·or·list·of·options.·Connectedness·can·be·set·to·8</span></div><div·class="line"><a·name="l01239"></a><span·class="lineno">·1239</span> <span·class="preprocessor">#·to·use·8-connectedness,·otherwise·4-connectedness·is</span></div><div·class="line"><a·name="l01240"></a><span·class="lineno">·1240</span> <span·class="preprocessor">#·used.·ForceIntPixel·can·be·set·to·1·to·force·using·a·32·bit·int·buffer</span></div><div·class="line"><a·name="l01241"></a><span·class="lineno">·1241</span> <span·class="preprocessor">#·for·cell·values·in·the·process.·If·this·is·not·set·and·the·data·type</span></div><div·class="line"><a·name="l01242"></a><span·class="lineno">·1242</span> <span·class="preprocessor">#·of·this·raster·does·not·fit·into·a·32·bit·int·buffer,·a·32·bit·float</span></div><div·class="line"><a·name="l01243"></a><span·class="lineno">·1243</span> <span·class="preprocessor">#·buffer·is·used.</span></div><div·class="line"><a·name="l01244"></a><span·class="lineno">·1244</span> <span·class="preprocessor">#·-·\a·Progress·Progress·function.</span></div><div·class="line"><a·name="l01245"></a><span·class="lineno">·1245</span> <span·class="preprocessor">#·-·\a·ProgressData·Additional·parameter·for·the·progress·function.</span></div><div·class="line"><a·name="l01246"></a><span·class="lineno">·1246</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01247"></a><span·class="lineno">·1247</span> <span·class="preprocessor">#·@return·Output·vector·layer.</span></div><div·class="line"><a·name="l01248"></a><span·class="lineno">·1248</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01249"></a><span·class="lineno">·1249</span> sub·Polygonize·{</div><div·class="line"><a·name="l01250"></a><span·class="lineno">·1250</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01251"></a><span·class="lineno">·1251</span> ····my·$p·=·named_parameters(\@_,·Mask·=>·undef,·OutLayer·=>·undef,·PixValField·=>·<span·class="stringliteral">'val'</span>,·Options·=>·undef,·Progress·=>·undef,·ProgressData·=>·undef);</div><div·class="line"><a·name="l01252"></a><span·class="lineno">·1252</span> ····my·%known_options·=·(Connectedness·=>·1,·ForceIntPixel·=>·1,·DATASET_FOR_GEOREF·=>·1,·<span·class="stringliteral">'8CONNECTED'</span>·=>·1);</div><div·class="line"><a·name="l01253"></a><span·class="lineno">·1253</span> ····<span·class="keywordflow">for</span>·my·$option·(keys·%{$p->{options}})·{</div><div·class="line"><a·name="l01254"></a><span·class="lineno">·1254</span> ········error(1,·$option,·\%known_options)·unless·exists·$known_options{$option};</div><div·class="line"><a·name="l01255"></a><span·class="lineno">·1255</span> ····}</div><div·class="line"><a·name="l01256"></a><span·class="lineno">·1256</span> ····my·$dt·=·$self->DataType;</div><div·class="line"><a·name="l01257"></a><span·class="lineno">·1257</span> ····my·%leInt32·=·(Byte·=>·1,·Int16·=>·1,·Int32·=>·1,·UInt16·=>·1);</div><div·class="line"><a·name="l01258"></a><span·class="lineno">·1258</span> ····my·$leInt32·=·$leInt32{$dt};</div><div·class="line"><a·name="l01259"></a><span·class="lineno">·1259</span> ····$dt·=·$dt·=~·/Float/·?·<span·class="stringliteral">'Real'</span>·:·<span·class="stringliteral">'Integer'</span>;</div><div·class="line"><a·name="l01260"></a><span·class="lineno">·1260</span> ····$p->{outlayer}·<span·class="comment">//=·Geo::OGR::Driver('Memory')->Create()-></span></div><div·class="line"><a·name="l01261"></a><span·class="lineno">·1261</span> ········CreateLayer(Name·=>·<span·class="stringliteral">'polygonized'</span>,</div><div·class="line"><a·name="l01262"></a><span·class="lineno">·1262</span> ····················Fields·=>·[{Name·=>·<span·class="stringliteral">'val'</span>,·Type·=>·$dt},</div><div·class="line"><a·name="l01263"></a><span·class="lineno">·1263</span> ·······························{Name·=>·<span·class="stringliteral">'geom'</span>,·Type·=>·<span·class="stringliteral">'Polygon'</span>}]);</div><div·class="line"><a·name="l01264"></a><span·class="lineno">·1264</span> ····$p->{pixvalfield}·=·$p->{outlayer}->GetLayerDefn->GetFieldIndex($p->{pixvalfield});</div><div·class="line"><a·name="l01265"></a><span·class="lineno">·1265</span> ····$p->{options}{<span·class="stringliteral">'8CONNECTED'</span>}·=·1·<span·class="keywordflow">if</span>·$p->{options}{Connectedness}·&&·$p->{options}{Connectedness}·==·8;</div><div·class="line"><a·name="l01266"></a><span·class="lineno">·1266</span> ····<span·class="keywordflow">if</span>·($leInt32·||·$p->{options}{ForceIntPixel})·{</div><div·class="line"><a·name="l01267"></a><span·class="lineno">·1267</span> ········Geo::GDAL::_Polygonize($self,·$p->{mask},·$p->{outlayer},·$p->{pixvalfield},·$p->{options},·$p->{progress},·$p->{progressdata});</div><div·class="line"><a·name="l01268"></a><span·class="lineno">·1268</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l01269"></a><span·class="lineno">·1269</span> ········Geo::GDAL::FPolygonize($self,·$p->{mask},·$p->{outlayer},·$p->{pixvalfield},·$p->{options},·$p->{progress},·$p->{progressdata});</div><div·class="line"><a·name="l01270"></a><span·class="lineno">·1270</span> ····}</div><div·class="line"><a·name="l01271"></a><span·class="lineno">·1271</span> ····<span·class="keyword">set</span>·the·srs·of·the·outlayer·<span·class="keywordflow">if</span>·it·was·created·here</div><div·class="line"><a·name="l01272"></a><span·class="lineno">·1272</span> ····<span·class="keywordflow">return</span>·$p->{outlayer};</div><div·class="line"><a·name="l01273"></a><span·class="lineno">·1273</span> }</div><div·class="line"><a·name="l01274"></a><span·class="lineno">·1274</span> </div><div·class="line"><a·name="l01275"></a><span·class="lineno">·1275</span> <span·class="preprocessor">#**·@method·RasterAttributeTable()</span></div><div·class="line"><a·name="l01276"></a><span·class="lineno">·1276</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01277"></a><span·class="lineno">·1277</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1RasterAttributeTable.html">RasterAttributeTable</a>·{</div><div·class="line"><a·name="l01278"></a><span·class="lineno">·1278</span> }</div><div·class="line"><a·name="l01279"></a><span·class="lineno">·1279</span> </div><div·class="line"><a·name="l01280"></a><span·class="lineno">·1280</span> <span·class="preprocessor">#**·@method·scalar·ReadRaster(%params)</span></div><div·class="line"><a·name="l01281"></a><span·class="lineno">·1281</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01282"></a><span·class="lineno">·1282</span> <span·class="preprocessor">#·Read·data·from·the·band.</span></div><div·class="line"><a·name="l01283"></a><span·class="lineno">·1283</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01284"></a><span·class="lineno">·1284</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l01285"></a><span·class="lineno">·1285</span> <span·class="preprocessor">#·-·\a·XOff·x·offset·(cell·coordinates)·(default·is·0)</span></div><div·class="line"><a·name="l01286"></a><span·class="lineno">·1286</span> <span·class="preprocessor">#·-·\a·YOff·y·offset·(cell·coordinates)·(default·is·0)</span></div><div·class="line"><a·name="l01287"></a><span·class="lineno">·1287</span> <span·class="preprocessor">#·-·\a·XSize·width·of·the·area·to·read·(default·is·the·width·of·the·band)</span></div><div·class="line"><a·name="l01288"></a><span·class="lineno">·1288</span> <span·class="preprocessor">#·-·\a·YSize·height·of·the·area·to·read·(default·is·the·height·of·the·band)</span></div><div·class="line"><a·name="l01289"></a><span·class="lineno">·1289</span> <span·class="preprocessor">#·-·\a·BufXSize·(default·is·undef,·i.e.,·the·same·as·XSize)</span></div><div·class="line"><a·name="l01290"></a><span·class="lineno">·1290</span> <span·class="preprocessor">#·-·\a·BufYSize·(default·is·undef,·i.e.,·the·same·as·YSize)</span></div><div·class="line"><a·name="l01291"></a><span·class="lineno">·1291</span> <span·class="preprocessor">#·-·\a·BufType·data·type·of·the·buffer·(default·is·the·data·type·of·the·band)</span></div><div·class="line"><a·name="l01292"></a><span·class="lineno">·1292</span> <span·class="preprocessor">#·-·\a·BufPixelSpace·(default·is·0)</span></div><div·class="line"><a·name="l01293"></a><span·class="lineno">·1293</span> <span·class="preprocessor">#·-·\a·BufLineSpace·(default·is·0)</span></div><div·class="line"><a·name="l01294"></a><span·class="lineno">·1294</span> <span·class="preprocessor">#·-·\a·ResampleAlg·one·of·Geo::GDAL::RIOResamplingTypes·(default·is·'NearestNeighbour'),</span></div><div·class="line"><a·name="l01295"></a><span·class="lineno">·1295</span> <span·class="preprocessor">#·-·\a·Progress·reference·to·a·progress·function·(default·is·undef)</span></div><div·class="line"><a·name="l01296"></a><span·class="lineno">·1296</span> <span·class="preprocessor">#·-·\a·ProgressData·(default·is·undef)</span></div><div·class="line"><a·name="l01297"></a><span·class="lineno">·1297</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01298"></a><span·class="lineno">·1298</span> <span·class="preprocessor">#·<a·href="http://www.gdal.org/classGDALDataset.html">Entry·in·GDAL·docs·(method·RasterIO)</a></span></div><div·class="line"><a·name="l01299"></a><span·class="lineno">·1299</span> <span·class="preprocessor">#·@return·a·buffer,·open·the·buffer·with·\a·unpack·function·of·Perl.·See·Geo::GDAL::Band::PackCharacter.</span></div><div·class="line"><a·name="l01300"></a><span·class="lineno">·1300</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01301"></a><span·class="lineno">·1301</span> sub·ReadRaster·{</div><div·class="line"><a·name="l01302"></a><span·class="lineno">·1302</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01303"></a><span·class="lineno">·1303</span> ····my·($width,·$height)·=·$self->Size;</div><div·class="line"><a·name="l01304"></a><span·class="lineno">·1304</span> ····my·($type)·=·$self->DataType;</div><div·class="line"><a·name="l01305"></a><span·class="lineno">·1305</span> ····my·$p·=·named_parameters(\@_,</div><div·class="line"><a·name="l01306"></a><span·class="lineno">·1306</span> ·····························XOff·=>·0,</div><div·class="line"><a·name="l01307"></a><span·class="lineno">·1307</span> ·····························YOff·=>·0,</div><div·class="line"><a·name="l01308"></a><span·class="lineno">·1308</span> ·····························XSize·=>·$width,</div><div·class="line"><a·name="l01309"></a><span·class="lineno">·1309</span> ·····························YSize·=>·$height,</div><div·class="line"><a·name="l01310"></a><span·class="lineno">·1310</span> ·····························BufXSize·=>·undef,</div><div·class="line"><a·name="l01311"></a><span·class="lineno">·1311</span> ·····························BufYSize·=>·undef,</div><div·class="line"><a·name="l01312"></a><span·class="lineno">·1312</span> ·····························BufType·=>·$type,</div><div·class="line"><a·name="l01313"></a><span·class="lineno">·1313</span> ·····························BufPixelSpace·=>·0,</div><div·class="line"><a·name="l01314"></a><span·class="lineno">·1314</span> ·····························BufLineSpace·=>·0,</div><div·class="line"><a·name="l01315"></a><span·class="lineno">·1315</span> ·····························ResampleAlg·=>·<span·class="stringliteral">'NearestNeighbour'</span>,</div><div·class="line"><a·name="l01316"></a><span·class="lineno">·1316</span> ·····························Progress·=>·undef,</div><div·class="line"><a·name="l01317"></a><span·class="lineno">·1317</span> ·····························ProgressData·=>·undef</div><div·class="line"><a·name="l01318"></a><span·class="lineno">·1318</span> ········);</div><div·class="line"><a·name="l01319"></a><span·class="lineno">·1319</span> ····$p->{resamplealg}·=·s2i(rio_resampling·=>·$p->{resamplealg});</div><div·class="line"><a·name="l01320"></a><span·class="lineno">·1320</span> ····$p->{buftype}·=·s2i(data_type·=>·$p->{buftype},·1);</div><div·class="line"><a·name="l01321"></a><span·class="lineno">·1321</span> ····$self->_ReadRaster($p->{xoff},$p->{yoff},$p->{xsize},$p->{ysize},$p->{bufxsize},$p->{bufysize},$p->{buftype},$p->{bufpixelspace},$p->{buflinespace},$p->{resamplealg},$p->{progress},$p->{progressdata});</div><div·class="line"><a·name="l01322"></a><span·class="lineno">·1322</span> }</div><div·class="line"><a·name="l01323"></a><span·class="lineno">·1323</span> </div><div·class="line"><a·name="l01324"></a><span·class="lineno">·1324</span> <span·class="preprocessor">#**·@method·array·reference·ReadTile($xoff·=·0,·$yoff·=·0,·$xsize·=·<width>,·$ysize·=·<height>)</span></div><div·class="line"><a·name="l01325"></a><span·class="lineno">·1325</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01326"></a><span·class="lineno">·1326</span> <span·class="preprocessor">#·Read·band·data·into·a·Perl·array.</span></div><div·class="line"><a·name="l01327"></a><span·class="lineno">·1327</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01328"></a><span·class="lineno">·1328</span> <span·class="preprocessor">#·\note·Accessing·band·data·in·this·way·is·slow.·Consider·using·PDL·and·Geo::GDAL::Band::Piddle.</span></div><div·class="line"><a·name="l01329"></a><span·class="lineno">·1329</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01330"></a><span·class="lineno">·1330</span> <span·class="preprocessor">#·Usage·example·(print·the·data·from·a·band):</span></div><div·class="line"><a·name="l01331"></a><span·class="lineno">·1331</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l01332"></a><span·class="lineno">·1332</span> <span·class="preprocessor">#·print·"@$_\n"·for·(·@{·$band->ReadTile()·}·);</span></div><div·class="line"><a·name="l01333"></a><span·class="lineno">·1333</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l01334"></a><span·class="lineno">·1334</span> <span·class="preprocessor">#·Another·usage·example·(process·the·data·of·a·large·dataset·that·has·one·band):</span></div><div·class="line"><a·name="l01335"></a><span·class="lineno">·1335</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l01336"></a><span·class="lineno">·1336</span> <span·class="preprocessor">#·my($W,$H)·=·$dataset->Band()->Size();</span></div><div·class="line"><a·name="l01337"></a><span·class="lineno">·1337</span> <span·class="preprocessor">#·my($xoff,$yoff,$w,$h)·=·(0,0,200,200);</span></div><div·class="line"><a·name="l01338"></a><span·class="lineno">·1338</span> <span·class="preprocessor">#·while·(1)·{</span></div><div·class="line"><a·name="l01339"></a><span·class="lineno">·1339</span> <span·class="preprocessor">#·····if·($xoff·>=·$W)·{</span></div><div·class="line"><a·name="l01340"></a><span·class="lineno">·1340</span> <span·class="preprocessor">#·········$xoff·=·0;</span></div><div·class="line"><a·name="l01341"></a><span·class="lineno">·1341</span> <span·class="preprocessor">#·········$yoff·+=·$h;</span></div><div·class="line"><a·name="l01342"></a><span·class="lineno">·1342</span> <span·class="preprocessor">#·········last·if·$yoff·>=·$H;</span></div><div·class="line"><a·name="l01343"></a><span·class="lineno">·1343</span> <span·class="preprocessor">#·····}</span></div><div·class="line"><a·name="l01344"></a><span·class="lineno">·1344</span> <span·class="preprocessor">#·····my·$data·=·$dataset->Band(1)->ReadTile($xoff,$yoff,min($W-$xoff,$w),min($H-$yoff,$h));</span></div><div·class="line"><a·name="l01345"></a><span·class="lineno">·1345</span> <span·class="preprocessor">#·····#·add·your·data·processing·code·here</span></div><div·class="line"><a·name="l01346"></a><span·class="lineno">·1346</span> <span·class="preprocessor">#·····$dataset->Band(1)->WriteTile($data,$xoff,$yoff);</span></div><div·class="line"><a·name="l01347"></a><span·class="lineno">·1347</span> <span·class="preprocessor">#·····$xoff·+=·$w;</span></div><div·class="line"><a·name="l01348"></a><span·class="lineno">·1348</span> <span·class="preprocessor">#·}</span></div><div·class="line"><a·name="l01349"></a><span·class="lineno">·1349</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01350"></a><span·class="lineno">·1350</span> <span·class="preprocessor">#·sub·min·{</span></div><div·class="line"><a·name="l01351"></a><span·class="lineno">·1351</span> <span·class="preprocessor">#·····return·$_[0]·<·$_[1]·?·$_[0]·:·$_[1];</span></div><div·class="line"><a·name="l01352"></a><span·class="lineno">·1352</span> <span·class="preprocessor">#·}</span></div><div·class="line"><a·name="l01353"></a><span·class="lineno">·1353</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l01354"></a><span·class="lineno">·1354</span> <span·class="preprocessor">#·@param·xoff·Number·of·cell·to·skip·before·starting·to·read·from·a·row.·Pixels·are·read·from·left·to·right.</span></div><div·class="line"><a·name="l01355"></a><span·class="lineno">·1355</span> <span·class="preprocessor">#·@param·yoff·Number·of·cells·to·skip·before·starting·to·read·from·a·column.·Pixels·are·read·from·top·to·bottom.</span></div><div·class="line"><a·name="l01356"></a><span·class="lineno">·1356</span> <span·class="preprocessor">#·@param·xsize·Number·of·cells·to·read·from·each·row.</span></div><div·class="line"><a·name="l01357"></a><span·class="lineno">·1357</span> <span·class="preprocessor">#·@param·ysize·Number·of·cells·to·read·from·each·column.</span></div><div·class="line"><a·name="l01358"></a><span·class="lineno">·1358</span> <span·class="preprocessor">#·@return·a·two-dimensional·Perl·array,·organizes·as·data->[y][x],·y·=</span></div><div·class="line"><a·name="l01359"></a><span·class="lineno">·1359</span> <span·class="preprocessor">#·0..height-1,·x·=·0..width-1.·I.e.,·y·is·row·and·x·is·column.</span></div><div·class="line"><a·name="l01360"></a><span·class="lineno">·1360</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01361"></a><span·class="lineno">·1361</span> sub·ReadTile·{</div><div·class="line"><a·name="l01362"></a><span·class="lineno">·1362</span> ····my($self,·$xoff,·$yoff,·$xsize,·$ysize,·$w_tile,·$h_tile,·$alg)·=·@_;</div><div·class="line"><a·name="l01363"></a><span·class="lineno">·1363</span> ····$xoff·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l01364"></a><span·class="lineno">·1364</span> ····$yoff·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l01365"></a><span·class="lineno">·1365</span> ····$xsize·<span·class="comment">//=·$self->{XSize}·-·$xoff;</span></div><div·class="line"><a·name="l01366"></a><span·class="lineno">·1366</span> ····$ysize·<span·class="comment">//=·$self->{YSize}·-·$yoff;</span></div><div·class="line"><a·name="l01367"></a><span·class="lineno">·1367</span> ····$w_tile·<span·class="comment">//=·$xsize;</span></div><div·class="line"><a·name="l01368"></a><span·class="lineno">·1368</span> ····$h_tile·<span·class="comment">//=·$ysize;</span></div><div·class="line"><a·name="l01369"></a><span·class="lineno">·1369</span> ····$alg·<span·class="comment">//=·'NearestNeighbour';</span></div><div·class="line"><a·name="l01370"></a><span·class="lineno">·1370</span> ····$alg·=·s2i(rio_resampling·=>·$alg);</div><div·class="line"><a·name="l01371"></a><span·class="lineno">·1371</span> ····my·$t·=·$self->{DataType};</div><div·class="line"><a·name="l01372"></a><span·class="lineno">·1372</span> ····my·$buf·=·$self->_ReadRaster($xoff,·$yoff,·$xsize,·$ysize,·$w_tile,·$h_tile,·$t,·0,·0,·$alg);</div><div·class="line"><a·name="l01373"></a><span·class="lineno">·1373</span> ····my·$pc·=·<a·class="code"·href="classGeo_1_1GDAL.html#abbc0c1d362bc306a1916c51116b7a0ff">Geo::GDAL::PackCharacter</a>($t);</div><div·class="line"><a·name="l01374"></a><span·class="lineno">·1374</span> ····my·$w·=·$w_tile·*·<a·class="code"·href="classGeo_1_1GDAL.html#a64c34de570dffa792ca09d64fc6fb77c">Geo::GDAL::GetDataTypeSize</a>($t)/8;</div><div·class="line"><a·name="l01375"></a><span·class="lineno">·1375</span> ····my·$offset·=·0;</div><div·class="line"><a·name="l01376"></a><span·class="lineno">·1376</span> ····my·@data;</div><div·class="line"><a·name="l01377"></a><span·class="lineno">·1377</span> ····<span·class="keywordflow">for</span>·my·$y·(0..$h_tile-1)·{</div><div·class="line"><a·name="l01378"></a><span·class="lineno">·1378</span> ········my·@d·=·unpack($pc.<span·class="stringliteral">"[$w_tile]"</span>,·substr($buf,·$offset,·$w));</div><div·class="line"><a·name="l01379"></a><span·class="lineno">·1379</span> ········push·@data,·\@d;</div><div·class="line"><a·name="l01380"></a><span·class="lineno">·1380</span> ········$offset·+=·$w;</div><div·class="line"><a·name="l01381"></a><span·class="lineno">·1381</span> ····}</div><div·class="line"><a·name="l01382"></a><span·class="lineno">·1382</span> ····<span·class="keywordflow">return</span>·\@data;</div><div·class="line"><a·name="l01383"></a><span·class="lineno">·1383</span> }</div><div·class="line"><a·name="l01384"></a><span·class="lineno">·1384</span> </div><div·class="line"><a·name="l01385"></a><span·class="lineno">·1385</span> <span·class="preprocessor">#**·@method·Reclassify($classifier,·$progress·=·undef,·$progress_data·=·undef)</span></div><div·class="line"><a·name="l01386"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1AsyncReader.html">·1386</a></span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01387"></a><span·class="lineno">·1387</span> <span·class="preprocessor">#·Reclassify·the·cells·in·the·band.</span></div><div·class="line"><a·name="l01388"></a><span·class="lineno">·1388</span> <span·class="preprocessor">#·@note·NoData·values·in·integer·rasters·are·reclassified·if</span></div><div·class="line"><a·name="l01389"></a><span·class="lineno">·1389</span> <span·class="preprocessor">#·explicitly·specified·in·the·hash·classifier.·However,·they·are·not</span></div><div·class="line"><a·name="l01390"></a><span·class="lineno">·1390</span> <span·class="preprocessor">#·reclassified·to·the·default·value,·if·one·is·specified.·In·real</span></div><div·class="line"><a·name="l01391"></a><span·class="lineno">·1391</span> <span·class="preprocessor">#·valued·rasters·nodata·cells·are·not·reclassified.</span></div><div·class="line"><a·name="l01392"></a><span·class="lineno">·1392</span> <span·class="preprocessor">#·@note·If·the·subroutine·is·user·terminated·or·the·classifier·is</span></div><div·class="line"><a·name="l01393"></a><span·class="lineno">·1393</span> <span·class="preprocessor">#·incorrect,·already·reclassified·cells·will·stay·reclassified·but·an</span></div><div·class="line"><a·name="l01394"></a><span·class="lineno">·1394</span> <span·class="preprocessor">#·error·is·raised.</span></div><div·class="line"><a·name="l01395"></a><span·class="lineno">·1395</span> <span·class="preprocessor">#·@param·classifier·For·integer·rasters·an·anonymous·hash,·which</span></div><div·class="line"><a·name="l01396"></a><span·class="lineno">·1396</span> <span·class="preprocessor">#·contains·old·class·values·as·keys·and·new·class·values·as·values,·or</span></div><div·class="line"><a·name="l01397"></a><span·class="lineno">·1397</span> <span·class="preprocessor">#·an·array·classifier·as·in·Geo::GDAL::Band::ClassCounts.·In·a·hash</span></div><div·class="line"><a·name="l01398"></a><span·class="lineno">·1398</span> <span·class="preprocessor">#·classifier·a·special·key·'*'·(star)·can·be·used·as·default,·to·act</span></div><div·class="line"><a·name="l01399"></a><span·class="lineno">·1399</span> <span·class="preprocessor">#·as·a·fallback·new·class·value.·For·real·valued·rasters·the</span></div><div·class="line"><a·name="l01400"></a><span·class="lineno">·1400</span> <span·class="preprocessor">#·classifier·is·as·in·Geo::GDAL::Band::ClassCounts.</span></div><div·class="line"><a·name="l01401"></a><span·class="lineno">·1401</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01402"></a><span·class="lineno">·1402</span> sub·Reclassify·{</div><div·class="line"><a·name="l01403"></a><span·class="lineno">·1403</span> }</div><div·class="line"><a·name="l01404"></a><span·class="lineno">·1404</span> </div><div·class="line"><a·name="l01405"></a><span·class="lineno">·1405</span> <span·class="preprocessor">#**·@method·RegenerateOverview(Geo::GDAL::Band·overview,·$resampling,·coderef·progress,·$progress_data)</span></div><div·class="line"><a·name="l01406"></a><span·class="lineno">·1406</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01407"></a><span·class="lineno">·1407</span> <span·class="preprocessor">#·@param·overview·a·Geo::GDAL::Band·object·for·the·overview.</span></div><div·class="line"><a·name="l01408"></a><span·class="lineno">·1408</span> <span·class="preprocessor">#·@param·resampling·[optional]·the·resampling·method·(one·of·Geo::GDAL::RIOResamplingTypes)·(default·is·Average).</span></div><div·class="line"><a·name="l01409"></a><span·class="lineno">·1409</span> <span·class="preprocessor">#·@param·progress·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l01410"></a><span·class="lineno">·1410</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·progress_data)</span></div><div·class="line"><a·name="l01411"></a><span·class="lineno">·1411</span> <span·class="preprocessor">#·@param·progress_data·[optional]</span></div><div·class="line"><a·name="l01412"></a><span·class="lineno">·1412</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01413"></a><span·class="lineno">·1413</span> sub·RegenerateOverview·{</div><div·class="line"><a·name="l01414"></a><span·class="lineno">·1414</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01415"></a><span·class="lineno">·1415</span> <span·class="preprocessor">····#Geo::GDAL::Band·overview,·scalar·resampling,·subref·callback,·scalar·callback_data</span></div><div·class="line"><a·name="l01416"></a><span·class="lineno">·1416</span> ····my·@p·=·@_;</div><div·class="line"><a·name="l01417"></a><span·class="lineno">·1417</span> ····Geo::GDAL::RegenerateOverview($self,·@p);</div><div·class="line"><a·name="l01418"></a><span·class="lineno">·1418</span> }</div><div·class="line"><a·name="l01419"></a><span·class="lineno">·1419</span> </div><div·class="line"><a·name="l01420"></a><span·class="lineno">·1420</span> <span·class="preprocessor">#**·@method·RegenerateOverviews(arrayref·overviews,·$resampling,·coderef·progress,·$progress_data)</span></div><div·class="line"><a·name="l01421"></a><span·class="lineno">·1421</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01422"></a><span·class="lineno">·1422</span> <span·class="preprocessor">#·@todo·This·is·not·yet·available</span></div><div·class="line"><a·name="l01423"></a><span·class="lineno">·1423</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01424"></a><span·class="lineno">·1424</span> <span·class="preprocessor">#·@param·overviews·a·list·of·Geo::GDAL::Band·objects·for·the·overviews.</span></div><div·class="line"><a·name="l01425"></a><span·class="lineno">·1425</span> <span·class="preprocessor">#·@param·resampling·[optional]·the·resampling·method·(one·of·Geo::GDAL::RIOResamplingTypes)·(default·is·Average).</span></div><div·class="line"><a·name="l01426"></a><span·class="lineno">·1426</span> <span·class="preprocessor">#·@param·progress·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l01427"></a><span·class="lineno">·1427</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·progress_data)</span></div><div·class="line"><a·name="l01428"></a><span·class="lineno">·1428</span> <span·class="preprocessor">#·@param·progress_data·[optional]</span></div><div·class="line"><a·name="l01429"></a><span·class="lineno">·1429</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01430"></a><span·class="lineno">·1430</span> sub·RegenerateOverviews·{</div><div·class="line"><a·name="l01431"></a><span·class="lineno">·1431</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01432"></a><span·class="lineno">·1432</span> <span·class="preprocessor">····#arrayref·overviews,·scalar·resampling,·subref·callback,·scalar·callback_data</span></div><div·class="line"><a·name="l01433"></a><span·class="lineno">·1433</span> ····my·@p·=·@_;</div><div·class="line"><a·name="l01434"></a><span·class="lineno">·1434</span> ····Geo::GDAL::RegenerateOverviews($self,·@p);</div><div·class="line"><a·name="l01435"></a><span·class="lineno">·1435</span> }</div><div·class="line"><a·name="l01436"></a><span·class="lineno">·1436</span> </div><div·class="line"><a·name="l01437"></a><span·class="lineno">·1437</span> <span·class="preprocessor">#**·@method·ScaleAndOffset($scale,·$offset)</span></div><div·class="line"><a·name="l01438"></a><span·class="lineno">·1438</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01439"></a><span·class="lineno">·1439</span> <span·class="preprocessor">#·Scale·and·offset·are·used·to·transform·raw·cell·values·into·the</span></div><div·class="line"><a·name="l01440"></a><span·class="lineno">·1440</span> <span·class="preprocessor">#·units·returned·by·GetUnits().·The·conversion·function·is:</span></div><div·class="line"><a·name="l01441"></a><span·class="lineno">·1441</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l01442"></a><span·class="lineno">·1442</span> <span·class="preprocessor">#·Units·value·=·(raw·value·*·scale)·+·offset</span></div><div·class="line"><a·name="l01443"></a><span·class="lineno">·1443</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l01444"></a><span·class="lineno">·1444</span> <span·class="preprocessor">#·@return·a·list·($scale,·$offset),·the·values·are·undefined·if·they</span></div><div·class="line"><a·name="l01445"></a><span·class="lineno">·1445</span> <span·class="preprocessor">#·are·not·set.</span></div><div·class="line"><a·name="l01446"></a><span·class="lineno">·1446</span> <span·class="preprocessor">#·@since·version·1.9·of·the·bindings.</span></div><div·class="line"><a·name="l01447"></a><span·class="lineno">·1447</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01448"></a><span·class="lineno">·1448</span> sub·ScaleAndOffset·{</div><div·class="line"><a·name="l01449"></a><span·class="lineno">·1449</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01450"></a><span·class="lineno">·1450</span> ····SetScale($self,·$_[0])·<span·class="keywordflow">if</span>·@_·>·0·and·defined·$_[0];</div><div·class="line"><a·name="l01451"></a><span·class="lineno">·1451</span> ····SetOffset($self,·$_[1])·<span·class="keywordflow">if</span>·@_·>·1·and·defined·$_[1];</div><div·class="line"><a·name="l01452"></a><span·class="lineno">·1452</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l01453"></a><span·class="lineno">·1453</span> ····my·$scale·=·GetScale($self);</div><div·class="line"><a·name="l01454"></a><span·class="lineno">·1454</span> ····my·$offset·=·GetOffset($self);</div><div·class="line"><a·name="l01455"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Band.html">·1455</a></span> ····<span·class="keywordflow">return</span>·($scale,·$offset);</div><div·class="line"><a·name="l01456"></a><span·class="lineno">·1456</span> }</div><div·class="line"><a·name="l01457"></a><span·class="lineno">·1457</span> </div><div·class="line"><a·name="l01458"></a><span·class="lineno">·1458</span> <span·class="preprocessor">#**·@method·list·SetDefaultHistogram($min,·$max,·$histogram)</span></div><div·class="line"><a·name="l01459"></a><span·class="lineno">·1459</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01460"></a><span·class="lineno">·1460</span> <span·class="preprocessor">#·@param·min</span></div><div·class="line"><a·name="l01461"></a><span·class="lineno">·1461</span> <span·class="preprocessor">#·@param·max</span></div><div·class="line"><a·name="l01462"></a><span·class="lineno">·1462</span> <span·class="preprocessor">#·@note·See·Note·in·Geo::GDAL::Band::GetHistogram.</span></div><div·class="line"><a·name="l01463"></a><span·class="lineno">·1463</span> <span·class="preprocessor">#·@param·histogram·reference·to·an·array·containing·the·histogram</span></div><div·class="line"><a·name="l01464"></a><span·class="lineno">·1464</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01465"></a><span·class="lineno">·1465</span> sub·SetDefaultHistogram·{</div><div·class="line"><a·name="l01466"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Band.html#a04331d99d8d216b1808f1029e7ef7bc0">·1466</a></span> }</div><div·class="line"><a·name="l01467"></a><span·class="lineno">·1467</span> </div><div·class="line"><a·name="l01468"></a><span·class="lineno">·1468</span> <span·class="preprocessor">#**·@method·SetStatistics($min,·$max,·$mean,·$stddev)</span></div><div·class="line"><a·name="l01469"></a><span·class="lineno">·1469</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01470"></a><span·class="lineno">·1470</span> <span·class="preprocessor">#·Save·the·statistics·of·the·band·if·possible·(the·format·can·save</span></div><div·class="line"><a·name="l01471"></a><span·class="lineno">·1471</span> <span·class="preprocessor">#·arbitrary·metadata).</span></div><div·class="line"><a·name="l01472"></a><span·class="lineno">·1472</span> <span·class="preprocessor">#·@param·min</span></div><div·class="line"><a·name="l01473"></a><span·class="lineno">·1473</span> <span·class="preprocessor">#·@param·max</span></div><div·class="line"><a·name="l01474"></a><span·class="lineno">·1474</span> <span·class="preprocessor">#·@param·mean</span></div><div·class="line"><a·name="l01475"></a><span·class="lineno">·1475</span> <span·class="preprocessor">#·@param·stddev</span></div><div·class="line"><a·name="l01476"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Band.html#af5df9bd30353293ee00a9fc0370ffcb1">·1476</a></span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01477"></a><span·class="lineno">·1477</span> sub·SetStatistics·{</div><div·class="line"><a·name="l01478"></a><span·class="lineno">·1478</span> }</div><div·class="line"><a·name="l01479"></a><span·class="lineno">·1479</span> </div><div·class="line"><a·name="l01480"></a><span·class="lineno">·1480</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Band·Sieve(%params)</span></div><div·class="line"><a·name="l01481"></a><span·class="lineno">·1481</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01482"></a><span·class="lineno">·1482</span> <span·class="preprocessor">#·Remove·small·areas·by·merging·them·into·the·largest·neighbour·area.</span></div><div·class="line"><a·name="l01483"></a><span·class="lineno">·1483</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l01484"></a><span·class="lineno">·1484</span> <span·class="preprocessor">#·-·\a·Mask·A·raster·band,·which·is·used·as·a·mask·to·select·sieved·areas.·Default·is·undef.</span></div><div·class="line"><a·name="l01485"></a><span·class="lineno">·1485</span> <span·class="preprocessor">#·-·\a·Dest·A·raster·band·into·which·the·result·is·written.·If·not·given,·an·new·in-memory·raster·band·is·created·and·returned.</span></div><div·class="line"><a·name="l01486"></a><span·class="lineno">·1486</span> <span·class="preprocessor">#·-·\a·Threshold·The·smallest·area·size·(in·number·of·cells)·which·are·not·sieved·away.</span></div><div·class="line"><a·name="l01487"></a><span·class="lineno">·1487</span> <span·class="preprocessor">#·-·\a·Options·Hash·or·list·of·options.·{Connectedness·=>·4}·can·be·specified·to·use·4-connectedness,·otherwise·8-connectedness·is·used.</span></div><div·class="line"><a·name="l01488"></a><span·class="lineno">·1488</span> <span·class="preprocessor">#·-·\a·Progress·Progress·function.</span></div><div·class="line"><a·name="l01489"></a><span·class="lineno">·1489</span> <span·class="preprocessor">#·-·\a·ProgressData·Additional·parameter·for·the·progress·function.</span></div><div·class="line"><a·name="l01490"></a><span·class="lineno">·1490</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01491"></a><span·class="lineno">·1491</span> <span·class="preprocessor">#·@return·The·filtered·raster·band.</span></div><div·class="line"><a·name="l01492"></a><span·class="lineno">·1492</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01493"></a><span·class="lineno">·1493</span> sub·Sieve·{</div><div·class="line"><a·name="l01494"></a><span·class="lineno">·1494</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01495"></a><span·class="lineno">·1495</span> ····my·$p·=·named_parameters(\@_,·Mask·=>·undef,·Dest·=>·undef,·Threshold·=>·10,·Options·=>·undef,·Progress·=>·undef,·ProgressData·=>·undef);</div><div·class="line"><a·name="l01496"></a><span·class="lineno">·1496</span> ····unless·($p->{dest})·{</div><div·class="line"><a·name="l01497"></a><span·class="lineno">·1497</span> ········my·($w,·$h)·=·$self->Size;</div><div·class="line"><a·name="l01498"></a><span·class="lineno">·1498</span> ········$p->{dest}·=·<a·class="code"·href="classGeo_1_1GDAL.html#ac6041428faeb7a6b21c380a2011cd25c">Geo::GDAL::Driver</a>(<span·class="stringliteral">'MEM'</span>)-><a·class="code"·href="classGeo_1_1GDAL_1_1Driver.html#a2bdbed29da0cc19770b7295793c7d85f">Create</a>(Name·=>·<span·class="stringliteral">'sieved'</span>,·Width·=>·$w,·Height·=>·$h,·Type·=>·$self->DataType)-><a·class="code"·href="classGeo_1_1GDAL_1_1Dataset.html#a04a00dec508168000c835cb0db7a23ae">Band</a>;</div><div·class="line"><a·name="l01499"></a><span·class="lineno">·1499</span> ····}</div><div·class="line"><a·name="l01500"></a><span·class="lineno">·1500</span> ····my·$c·=·8;</div><div·class="line"><a·name="l01501"></a><span·class="lineno">·1501</span> ····<span·class="keywordflow">if</span>·($p->{options}{Connectedness})·{</div><div·class="line"><a·name="l01502"></a><span·class="lineno">·1502</span> ········$c·=·$p->{options}{Connectedness};</div><div·class="line"><a·name="l01503"></a><span·class="lineno">·1503</span> ········<span·class="keyword">delete</span>·$p->{options}{Connectedness};</div><div·class="line"><a·name="l01504"></a><span·class="lineno">·1504</span> ····}</div><div·class="line"><a·name="l01505"></a><span·class="lineno">·1505</span> ····Geo::GDAL::SieveFilter($self,·$p->{mask},·$p->{dest},·$p->{threshold},·$c,·$p->{options},·$p->{progress},·$p->{progressdata});</div><div·class="line"><a·name="l01506"></a><span·class="lineno">·1506</span> ····<span·class="keywordflow">return</span>·$p->{dest};</div><div·class="line"><a·name="l01507"></a><span·class="lineno">·1507</span> }</div><div·class="line"><a·name="l01508"></a><span·class="lineno">·1508</span> </div><div·class="line"><a·name="l01509"></a><span·class="lineno">·1509</span> <span·class="preprocessor">#**·@method·list·Size()</span></div><div·class="line"><a·name="l01510"></a><span·class="lineno">·1510</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01511"></a><span·class="lineno">·1511</span> <span·class="preprocessor">#·@return·The·size·of·the·band·as·a·list·(width,·height).</span></div><div·class="line"><a·name="l01512"></a><span·class="lineno">·1512</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01513"></a><span·class="lineno">·1513</span> sub·Size·{</div><div·class="line"><a·name="l01514"></a><span·class="lineno">·1514</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01515"></a><span·class="lineno">·1515</span> ····<span·class="keywordflow">return</span>·($self->{XSize},·$self->{YSize});</div><div·class="line"><a·name="l01516"></a><span·class="lineno">·1516</span> }</div><div·class="line"><a·name="l01517"></a><span·class="lineno">·1517</span> </div><div·class="line"><a·name="l01518"></a><span·class="lineno">·1518</span> <span·class="preprocessor">#**·@method·Unit($type)</span></div><div·class="line"><a·name="l01519"></a><span·class="lineno">·1519</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01520"></a><span·class="lineno">·1520</span> <span·class="preprocessor">#·@param·type·[optional]·the·unit·(a·string).</span></div><div·class="line"><a·name="l01521"></a><span·class="lineno">·1521</span> <span·class="preprocessor">#·@note·$band->Unit(undef)·sets·the·unit·value·to·an·empty·string.</span></div><div·class="line"><a·name="l01522"></a><span·class="lineno">·1522</span> <span·class="preprocessor">#·@return·the·unit·(a·string).</span></div><div·class="line"><a·name="l01523"></a><span·class="lineno">·1523</span> <span·class="preprocessor">#·@since·version·1.9·of·the·bindings.</span></div><div·class="line"><a·name="l01524"></a><span·class="lineno">·1524</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01525"></a><span·class="lineno">·1525</span> sub·Unit·{</div><div·class="line"><a·name="l01526"></a><span·class="lineno">·1526</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01527"></a><span·class="lineno">·1527</span> ····<span·class="keywordflow">if</span>·(@_·>·0)·{</div><div·class="line"><a·name="l01528"></a><span·class="lineno">·1528</span> ········my·$unit·=·shift;</div><div·class="line"><a·name="l01529"></a><span·class="lineno">·1529</span> ········$unit·<span·class="comment">//=·'';</span></div><div·class="line"><a·name="l01530"></a><span·class="lineno">·1530</span> ········SetUnitType($self,·$unit);</div><div·class="line"><a·name="l01531"></a><span·class="lineno">·1531</span> ····}</div><div·class="line"><a·name="l01532"></a><span·class="lineno">·1532</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l01533"></a><span·class="lineno">·1533</span> ····GetUnitType($self);</div><div·class="line"><a·name="l01534"></a><span·class="lineno">·1534</span> }</div><div·class="line"><a·name="l01535"></a><span·class="lineno">·1535</span> </div><div·class="line"><a·name="l01536"></a><span·class="lineno">·1536</span> <span·class="preprocessor">#**·@method·WriteRaster(%params)</span></div><div·class="line"><a·name="l01537"></a><span·class="lineno">·1537</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01538"></a><span·class="lineno">·1538</span> <span·class="preprocessor">#·Write·data·into·the·band.</span></div><div·class="line"><a·name="l01539"></a><span·class="lineno">·1539</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01540"></a><span·class="lineno">·1540</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l01541"></a><span·class="lineno">·1541</span> <span·class="preprocessor">#·-·\a·XOff·x·offset·(cell·coordinates)·(default·is·0)</span></div><div·class="line"><a·name="l01542"></a><span·class="lineno">·1542</span> <span·class="preprocessor">#·-·\a·YOff·y·offset·(cell·coordinates)·(default·is·0)</span></div><div·class="line"><a·name="l01543"></a><span·class="lineno">·1543</span> <span·class="preprocessor">#·-·\a·XSize·width·of·the·area·to·write·(default·is·the·width·of·the·band)</span></div><div·class="line"><a·name="l01544"></a><span·class="lineno">·1544</span> <span·class="preprocessor">#·-·\a·YSize·height·of·the·area·to·write·(default·is·the·height·of·the·band)</span></div><div·class="line"><a·name="l01545"></a><span·class="lineno">·1545</span> <span·class="preprocessor">#·-·\a·Buf·a·buffer·(or·a·reference·to·a·buffer)·containing·the·data.·Create·the·buffer·with·\a·pack·function·of·Perl.·See·Geo::GDAL::Band::PackCharacter.</span></div><div·class="line"><a·name="l01546"></a><span·class="lineno">·1546</span> <span·class="preprocessor">#·-·\a·BufXSize·(default·is·undef,·i.e.,·the·same·as·XSize)</span></div><div·class="line"><a·name="l01547"></a><span·class="lineno">·1547</span> <span·class="preprocessor">#·-·\a·BufYSize·(default·is·undef,·i.e.,·the·same·as·YSize)</span></div><div·class="line"><a·name="l01548"></a><span·class="lineno">·1548</span> <span·class="preprocessor">#·-·\a·BufType·data·type·of·the·buffer·(default·is·the·data·type·of·the·band)</span></div><div·class="line"><a·name="l01549"></a><span·class="lineno">·1549</span> <span·class="preprocessor">#·-·\a·BufPixelSpace·(default·is·0)</span></div><div·class="line"><a·name="l01550"></a><span·class="lineno">·1550</span> <span·class="preprocessor">#·-·\a·BufLineSpace·(default·is·0)</span></div><div·class="line"><a·name="l01551"></a><span·class="lineno">·1551</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01552"></a><span·class="lineno">·1552</span> <span·class="preprocessor">#·<a·href="http://www.gdal.org/classGDALDataset.html">Entry·in·GDAL·docs·(method·RasterIO)</a></span></div><div·class="line"><a·name="l01553"></a><span·class="lineno">·1553</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01554"></a><span·class="lineno">·1554</span> sub·WriteRaster·{</div><div·class="line"><a·name="l01555"></a><span·class="lineno">·1555</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01556"></a><span·class="lineno">·1556</span> ····my·($width,·$height)·=·$self->Size;</div><div·class="line"><a·name="l01557"></a><span·class="lineno">·1557</span> ····my·($type)·=·$self->DataType;</div><div·class="line"><a·name="l01558"></a><span·class="lineno">·1558</span> ····my·$p·=·named_parameters(\@_,</div><div·class="line"><a·name="l01559"></a><span·class="lineno">·1559</span> ·····························XOff·=>·0,</div><div·class="line"><a·name="l01560"></a><span·class="lineno">·1560</span> ·····························YOff·=>·0,</div><div·class="line"><a·name="l01561"></a><span·class="lineno">·1561</span> ·····························XSize·=>·$width,</div><div·class="line"><a·name="l01562"></a><span·class="lineno">·1562</span> ·····························YSize·=>·$height,</div><div·class="line"><a·name="l01563"></a><span·class="lineno">·1563</span> ·····························Buf·=>·undef,</div><div·class="line"><a·name="l01564"></a><span·class="lineno">·1564</span> ·····························BufXSize·=>·undef,</div><div·class="line"><a·name="l01565"></a><span·class="lineno">·1565</span> ·····························BufYSize·=>·undef,</div><div·class="line"><a·name="l01566"></a><span·class="lineno">·1566</span> ·····························BufType·=>·$type,</div><div·class="line"><a·name="l01567"></a><span·class="lineno">·1567</span> ·····························BufPixelSpace·=>·0,</div><div·class="line"><a·name="l01568"></a><span·class="lineno">·1568</span> ·····························BufLineSpace·=>·0</div><div·class="line"><a·name="l01569"></a><span·class="lineno">·1569</span> ········);</div><div·class="line"><a·name="l01570"></a><span·class="lineno">·1570</span> ····confess·<span·class="stringliteral">"Usage:·\$band->WriteRaster(·Buf·=>·\$data,·...·)"</span>·unless·defined·$p->{buf};</div><div·class="line"><a·name="l01571"></a><span·class="lineno">·1571</span> ····$p->{buftype}·=·s2i(data_type·=>·$p->{buftype},·1);</div><div·class="line"><a·name="l01572"></a><span·class="lineno">·1572</span> ····$self->_WriteRaster($p->{xoff},$p->{yoff},$p->{xsize},$p->{ysize},$p->{buf},$p->{bufxsize},$p->{bufysize},$p->{buftype},$p->{bufpixelspace},$p->{buflinespace});</div><div·class="line"><a·name="l01573"></a><span·class="lineno">·1573</span> }</div><div·class="line"><a·name="l01574"></a><span·class="lineno">·1574</span> </div><div·class="line"><a·name="l01575"></a><span·class="lineno">·1575</span> <span·class="preprocessor">#**·@method·WriteTile($data,·$xoff·=·0,·$yoff·=·0)</span></div><div·class="line"><a·name="l01576"></a><span·class="lineno">·1576</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01577"></a><span·class="lineno">·1577</span> <span·class="preprocessor">#·Write·band·data·from·a·Perl·array.</span></div><div·class="line"><a·name="l01578"></a><span·class="lineno">·1578</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01579"></a><span·class="lineno">·1579</span> <span·class="preprocessor">#·\note·Accessing·band·data·in·this·way·is·slow.·Consider·using·PDL·and·Geo::GDAL::Band::Piddle.</span></div><div·class="line"><a·name="l01580"></a><span·class="lineno">·1580</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01581"></a><span·class="lineno">·1581</span> <span·class="preprocessor">#·@param·data·A·two-dimensional·Perl·array,·organizes·as·data->[y][x],·y·=</span></div><div·class="line"><a·name="l01582"></a><span·class="lineno">·1582</span> <span·class="preprocessor">#·0..height-1,·x·=·0..width-1.</span></div><div·class="line"><a·name="l01583"></a><span·class="lineno">·1583</span> <span·class="preprocessor">#·@param·xoff</span></div><div·class="line"><a·name="l01584"></a><span·class="lineno">·1584</span> <span·class="preprocessor">#·@param·yoff</span></div><div·class="line"><a·name="l01585"></a><span·class="lineno">·1585</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01586"></a><span·class="lineno">·1586</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01587"></a><span·class="lineno">·1587</span> sub·WriteTile·{</div><div·class="line"><a·name="l01588"></a><span·class="lineno">·1588</span> ····my($self,·$data,·$xoff,·$yoff)·=·@_;</div><div·class="line"><a·name="l01589"></a><span·class="lineno">·1589</span> ····$xoff·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l01590"></a><span·class="lineno">·1590</span> ····$yoff·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l01591"></a><span·class="lineno">·1591</span> ····error(<span·class="stringliteral">'The·data·must·be·in·a·two-dimensional·array'</span>)·unless·ref·$data·eq·<span·class="stringliteral">'ARRAY'</span>·&&·ref·$data->[0]·eq·<span·class="stringliteral">'ARRAY'</span>;</div><div·class="line"><a·name="l01592"></a><span·class="lineno">·1592</span> ····my·$xsize·=·@{$data->[0]};</div><div·class="line"><a·name="l01593"></a><span·class="lineno">·1593</span> ····<span·class="keywordflow">if</span>·($xsize·>·$self->{XSize}·-·$xoff)·{</div><div·class="line"><a·name="l01594"></a><span·class="lineno">·1594</span> ········warn·<span·class="stringliteral">"Buffer·XSize·too·large·($xsize)·for·this·raster·band·(width·=·$self->{XSize},·offset·=·$xoff)."</span>;</div><div·class="line"><a·name="l01595"></a><span·class="lineno">·1595</span> ········$xsize·=·$self->{XSize}·-·$xoff;</div><div·class="line"><a·name="l01596"></a><span·class="lineno">·1596</span> ····}</div><div·class="line"><a·name="l01597"></a><span·class="lineno">·1597</span> ····my·$ysize·=·@{$data};</div><div·class="line"><a·name="l01598"></a><span·class="lineno">·1598</span> ····<span·class="keywordflow">if</span>·($ysize·>·$self->{YSize}·-·$yoff)·{</div><div·class="line"><a·name="l01599"></a><span·class="lineno">·1599</span> ········$ysize·=·$self->{YSize}·-·$yoff;</div><div·class="line"><a·name="l01600"></a><span·class="lineno">·1600</span> ········warn·<span·class="stringliteral">"Buffer·YSize·too·large·($ysize)·for·this·raster·band·(height·=·$self->{YSize},·offset·=·$yoff)."</span>;</div><div·class="line"><a·name="l01601"></a><span·class="lineno">·1601</span> ····}</div><div·class="line"><a·name="l01602"></a><span·class="lineno">·1602</span> ····my·$pc·=·<a·class="code"·href="classGeo_1_1GDAL.html#abbc0c1d362bc306a1916c51116b7a0ff">Geo::GDAL::PackCharacter</a>($self->{DataType});</div><div·class="line"><a·name="l01603"></a><span·class="lineno">·1603</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$ysize-1)·{</div><div·class="line"><a·name="l01604"></a><span·class="lineno">·1604</span> ········my·$scanline·=·pack($pc.<span·class="stringliteral">"[$xsize]"</span>,·@{$data->[$i]});</div><div·class="line"><a·name="l01605"></a><span·class="lineno">·1605</span> ········$self->WriteRaster(·$xoff,·$yoff+$i,·$xsize,·1,·$scanline·);</div><div·class="line"><a·name="l01606"></a><span·class="lineno">·1606</span> ····}</div><div·class="line"><a·name="l01607"></a><span·class="lineno">·1607</span> }</div><div·class="line"><a·name="l01608"></a><span·class="lineno">·1608</span> </div><div·class="line"><a·name="l01609"></a><span·class="lineno">·1609</span> <span·class="preprocessor">#**·@class·Geo::GDAL::ColorTable</span></div><div·class="line"><a·name="l01610"></a><span·class="lineno">·1610</span> <span·class="preprocessor">#·@brief·A·color·table·from·a·raster·band·or·a·color·table,·which·can·be·used·for·a·band.</span></div><div·class="line"><a·name="l01611"></a><span·class="lineno">·1611</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l01612"></a><span·class="lineno">·1612</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01613"></a><span·class="lineno">·1613</span> <span·class="keyword">package·</span>Geo::GDAL::ColorTable;</div><div·class="line"><a·name="l01614"></a><span·class="lineno">·1614</span> </div><div·class="line"><a·name="l01615"></a><span·class="lineno">·1615</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1GDAL.html">Geo::GDAL</a>)</div><div·class="line"><a·name="l01616"></a><span·class="lineno">·1616</span> </div><div·class="line"><a·name="l01617"></a><span·class="lineno">·1617</span> <span·class="preprocessor">#**·@method·Geo::GDAL::ColorTable·Clone()</span></div><div·class="line"><a·name="l01618"></a><span·class="lineno">·1618</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01619"></a><span·class="lineno">·1619</span> <span·class="preprocessor">#·Clone·an·existing·color·table.</span></div><div·class="line"><a·name="l01620"></a><span·class="lineno">·1620</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::ColorTable·object</span></div><div·class="line"><a·name="l01621"></a><span·class="lineno">·1621</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01622"></a><span·class="lineno">·1622</span> sub·Clone·{</div><div·class="line"><a·name="l01623"></a><span·class="lineno">·1623</span> }</div><div·class="line"><a·name="l01624"></a><span·class="lineno">·1624</span> </div><div·class="line"><a·name="l01625"></a><span·class="lineno">·1625</span> <span·class="preprocessor">#**·@method·list·Color($index,·@color)</span></div><div·class="line"><a·name="l01626"></a><span·class="lineno">·1626</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01627"></a><span·class="lineno">·1627</span> <span·class="preprocessor">#·Get·or·set·a·color·in·this·color·table.</span></div><div·class="line"><a·name="l01628"></a><span·class="lineno">·1628</span> <span·class="preprocessor">#·@param·index·The·index·of·the·color·in·the·table.·Note·that·the</span></div><div·class="line"><a·name="l01629"></a><span·class="lineno">·1629</span> <span·class="preprocessor">#·color·table·may·expand·if·the·index·is·larger·than·the·current·max</span></div><div·class="line"><a·name="l01630"></a><span·class="lineno">·1630</span> <span·class="preprocessor">#·index·of·this·table·and·a·color·is·given.·An·attempt·to·retrieve·a</span></div><div·class="line"><a·name="l01631"></a><span·class="lineno">·1631</span> <span·class="preprocessor">#·color·out·of·the·current·size·of·the·table·causes·an·error.</span></div><div·class="line"><a·name="l01632"></a><span·class="lineno">·1632</span> <span·class="preprocessor">#·@param·color·[optional]·The·color,·either·a·list·or·a·reference·to·a</span></div><div·class="line"><a·name="l01633"></a><span·class="lineno">·1633</span> <span·class="preprocessor">#·list.·If·the·list·is·too·short·or·has·undef·values,·the·undef·values</span></div><div·class="line"><a·name="l01634"></a><span·class="lineno">·1634</span> <span·class="preprocessor">#·are·taken·as·0·except·for·alpha,·which·is·taken·as·255.</span></div><div·class="line"><a·name="l01635"></a><span·class="lineno">·1635</span> <span·class="preprocessor">#·@note·A·color·is·an·array·of·four·integers·having·a·value·between·0</span></div><div·class="line"><a·name="l01636"></a><span·class="lineno">·1636</span> <span·class="preprocessor">#·and·255:·(gray,·red,·cyan·or·hue;·green,·magenta,·or·lightness;</span></div><div·class="line"><a·name="l01637"></a><span·class="lineno">·1637</span> <span·class="preprocessor">#·blue,·yellow,·or·saturation;·alpha·or·blackband)</span></div><div·class="line"><a·name="l01638"></a><span·class="lineno">·1638</span> <span·class="preprocessor">#·@return·A·color,·in·list·context·a·list·and·in·scalar·context·a·reference·to·an·anonymous·array.</span></div><div·class="line"><a·name="l01639"></a><span·class="lineno">·1639</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01640"></a><span·class="lineno">·1640</span> sub·Color·{</div><div·class="line"><a·name="l01641"></a><span·class="lineno">·1641</span> }</div><div·class="line"><a·name="l01642"></a><span·class="lineno">·1642</span> </div><div·class="line"><a·name="l01643"></a><span·class="lineno">·1643</span> <span·class="preprocessor">#**·@method·list·Colors(@colors)</span></div><div·class="line"><a·name="l01644"></a><span·class="lineno">·1644</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01645"></a><span·class="lineno">·1645</span> <span·class="preprocessor">#·Get·or·set·the·colors·in·this·color·table.</span></div><div·class="line"><a·name="l01646"></a><span·class="lineno">·1646</span> <span·class="preprocessor">#·@note·The·color·table·will·expand·to·the·size·of·the·input·list·but</span></div><div·class="line"><a·name="l01647"></a><span·class="lineno">·1647</span> <span·class="preprocessor">#·it·will·not·shrink.</span></div><div·class="line"><a·name="l01648"></a><span·class="lineno">·1648</span> <span·class="preprocessor">#·@param·colors·[optional]·A·list·of·all·colors·(a·list·of·lists)·for·this·color·table.</span></div><div·class="line"><a·name="l01649"></a><span·class="lineno">·1649</span> <span·class="preprocessor">#·@return·A·list·of·colors·(a·list·of·lists).</span></div><div·class="line"><a·name="l01650"></a><span·class="lineno">·1650</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01651"></a><span·class="lineno">·1651</span> sub·Colors·{</div><div·class="line"><a·name="l01652"></a><span·class="lineno">·1652</span> }</div><div·class="line"><a·name="l01653"></a><span·class="lineno">·1653</span> </div><div·class="line"><a·name="l01654"></a><span·class="lineno">·1654</span> <span·class="preprocessor">#**·@method·CreateColorRamp($start_index,·arrayref·start_color,·$end_index,·arrayref·end_color)</span></div><div·class="line"><a·name="l01655"></a><span·class="lineno">·1655</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01656"></a><span·class="lineno">·1656</span> <span·class="preprocessor">#·@param·start_index</span></div><div·class="line"><a·name="l01657"></a><span·class="lineno">·1657</span> <span·class="preprocessor">#·@param·start_color</span></div><div·class="line"><a·name="l01658"></a><span·class="lineno">·1658</span> <span·class="preprocessor">#·@param·end_index</span></div><div·class="line"><a·name="l01659"></a><span·class="lineno">·1659</span> <span·class="preprocessor">#·@param·end_color</span></div><div·class="line"><a·name="l01660"></a><span·class="lineno">·1660</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01661"></a><span·class="lineno">·1661</span> sub·CreateColorRamp·{</div><div·class="line"><a·name="l01662"></a><span·class="lineno">·1662</span> }</div><div·class="line"><a·name="l01663"></a><span·class="lineno">·1663</span> </div><div·class="line"><a·name="l01664"></a><span·class="lineno">·1664</span> <span·class="preprocessor">#**·@method·scalar·GetCount()</span></div><div·class="line"><a·name="l01665"></a><span·class="lineno">·1665</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01666"></a><span·class="lineno">·1666</span> <span·class="preprocessor">#·@return·The·number·of·colors·in·this·color·table.</span></div><div·class="line"><a·name="l01667"></a><span·class="lineno">·1667</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01668"></a><span·class="lineno">·1668</span> sub·GetCount·{</div><div·class="line"><a·name="l01669"></a><span·class="lineno">·1669</span> }</div><div·class="line"><a·name="l01670"></a><span·class="lineno">·1670</span> </div><div·class="line"><a·name="l01671"></a><span·class="lineno">·1671</span> <span·class="preprocessor">#**·@method·scalar·GetPaletteInterpretation()</span></div><div·class="line"><a·name="l01672"></a><span·class="lineno">·1672</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01673"></a><span·class="lineno">·1673</span> <span·class="preprocessor">#·@return·palette·interpretation·(string)</span></div><div·class="line"><a·name="l01674"></a><span·class="lineno">·1674</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01675"></a><span·class="lineno">·1675</span> sub·GetPaletteInterpretation·{</div><div·class="line"><a·name="l01676"></a><span·class="lineno">·1676</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01677"></a><span·class="lineno">·1677</span> ····<span·class="keywordflow">return</span>·i2s(palette_interpretation·=>·GetPaletteInterpretation($self));</div><div·class="line"><a·name="l01678"></a><span·class="lineno">·1678</span> }</div><div·class="line"><a·name="l01679"></a><span·class="lineno">·1679</span> </div><div·class="line"><a·name="l01680"></a><span·class="lineno">·1680</span> <span·class="preprocessor">#**·@method·Geo::GDAL::ColorTable·new($GDALPaletteInterp·=·'RGB')</span></div><div·class="line"><a·name="l01681"></a><span·class="lineno">·1681</span> <span·class="preprocessor">#·Class·method.</span></div><div·class="line"><a·name="l01682"></a><span·class="lineno">·1682</span> <span·class="preprocessor">#·Create·a·new·empty·color·table.</span></div><div·class="line"><a·name="l01683"></a><span·class="lineno">·1683</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::ColorTable·object</span></div><div·class="line"><a·name="l01684"></a><span·class="lineno">·1684</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01685"></a><span·class="lineno">·1685</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l01686"></a><span·class="lineno">·1686</span> ····my($pkg,·$pi)·=·@_;</div><div·class="line"><a·name="l01687"></a><span·class="lineno">·1687</span> ····$pi·<span·class="comment">//=·'RGB';</span></div><div·class="line"><a·name="l01688"></a><span·class="lineno">·1688</span> ····$pi·=·s2i(palette_interpretation·=>·$pi);</div><div·class="line"><a·name="l01689"></a><span·class="lineno">·1689</span> ····my·$self·=·Geo::GDALc::new_ColorTable($pi);</div><div·class="line"><a·name="l01690"></a><span·class="lineno">·1690</span> ····bless·$self,·$pkg·<span·class="keywordflow">if</span>·defined($self);</div><div·class="line"><a·name="l01691"></a><span·class="lineno">·1691</span> }</div><div·class="line"><a·name="l01692"></a><span·class="lineno">·1692</span> </div><div·class="line"><a·name="l01693"></a><span·class="lineno">·1693</span> <span·class="preprocessor">#**·@class·Geo::GDAL::Dataset</span></div><div·class="line"><a·name="l01694"></a><span·class="lineno">·1694</span> <span·class="preprocessor">#·@brief·A·set·of·associated·raster·bands·or·vector·layer·source.</span></div><div·class="line"><a·name="l01695"></a><span·class="lineno">·1695</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l01696"></a><span·class="lineno">·1696</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01697"></a><span·class="lineno">·1697</span> <span·class="keyword">package·</span>Geo::GDAL::Dataset;</div><div·class="line"><a·name="l01698"></a><span·class="lineno">·1698</span> </div><div·class="line"><a·name="l01699"></a><span·class="lineno">·1699</span> use·base·qw(<a·class="code"·href="classGeo_1_1GDAL_1_1MajorObject.html">Geo::GDAL::MajorObject</a>·<a·class="code"·href="namespaceGeo_1_1GDAL.html">Geo::GDAL</a>)</div><div·class="line"><a·name="l01700"></a><span·class="lineno">·1700</span> </div><div·class="line"><a·name="l01701"></a><span·class="lineno">·1701</span> <span·class="preprocessor">#**·@attr·$RasterCount·</span></div><div·class="line"><a·name="l01702"></a><span·class="lineno">·1702</span> <span·class="preprocessor">#·scalar·(access·as·$dataset->{RasterCount})</span></div><div·class="line"><a·name="l01703"></a><span·class="lineno">·1703</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01704"></a><span·class="lineno">·1704</span> </div><div·class="line"><a·name="l01705"></a><span·class="lineno">·1705</span> <span·class="preprocessor">#**·@attr·$RasterXSize·</span></div><div·class="line"><a·name="l01706"></a><span·class="lineno">·1706</span> <span·class="preprocessor">#·scalar·(access·as·$dataset->{RasterXSize})</span></div><div·class="line"><a·name="l01707"></a><span·class="lineno">·1707</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01708"></a><span·class="lineno">·1708</span> </div><div·class="line"><a·name="l01709"></a><span·class="lineno">·1709</span> <span·class="preprocessor">#**·@attr·$RasterYSize·</span></div><div·class="line"><a·name="l01710"></a><span·class="lineno">·1710</span> <span·class="preprocessor">#·scalar·(access·as·$dataset->{RasterYSize})</span></div><div·class="line"><a·name="l01711"></a><span·class="lineno">·1711</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01712"></a><span·class="lineno">·1712</span> </div><div·class="line"><a·name="l01713"></a><span·class="lineno">·1713</span> <span·class="preprocessor">#**·@method·AddBand($datatype·=·'Byte',·hashref·options·=·{})</span></div><div·class="line"><a·name="l01714"></a><span·class="lineno">·1714</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01715"></a><span·class="lineno">·1715</span> <span·class="preprocessor">#·Add·a·new·band·to·the·dataset.·The·driver·must·support·the·action.</span></div><div·class="line"><a·name="l01716"></a><span·class="lineno">·1716</span> <span·class="preprocessor">#·@param·datatype·GDAL·raster·cell·data·type·(one·of·those·listed·by·Geo::GDAL::DataTypes).</span></div><div·class="line"><a·name="l01717"></a><span·class="lineno">·1717</span> <span·class="preprocessor">#·@param·options·reference·to·a·hash·of·format·specific·options.</span></div><div·class="line"><a·name="l01718"></a><span·class="lineno">·1718</span> <span·class="preprocessor">#·@return·The·added·band.</span></div><div·class="line"><a·name="l01719"></a><span·class="lineno">·1719</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01720"></a><span·class="lineno">·1720</span> sub·AddBand·{</div><div·class="line"><a·name="l01721"></a><span·class="lineno">·1721</span> ····my·($self,·$type,·$options)·=·@_;</div><div·class="line"><a·name="l01722"></a><span·class="lineno">·1722</span> ····$type·<span·class="comment">//=·'Byte';</span></div><div·class="line"><a·name="l01723"></a><span·class="lineno">·1723</span> ····$type·=·s2i(data_type·=>·$type);</div><div·class="line"><a·name="l01724"></a><span·class="lineno">·1724</span> ····$self->_AddBand($type,·$options);</div><div·class="line"><a·name="l01725"></a><span·class="lineno">·1725</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l01726"></a><span·class="lineno">·1726</span> ····<span·class="keywordflow">return</span>·$self->GetRasterBand($self->{RasterCount});</div><div·class="line"><a·name="l01727"></a><span·class="lineno">·1727</span> }</div><div·class="line"><a·name="l01728"></a><span·class="lineno">·1728</span> </div><div·class="line"><a·name="l01729"></a><span·class="lineno">·1729</span> <span·class="preprocessor">#**·@method·AdviseRead()</span></div><div·class="line"><a·name="l01730"></a><span·class="lineno">·1730</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01731"></a><span·class="lineno">·1731</span> sub·AdviseRead·{</div><div·class="line"><a·name="l01732"></a><span·class="lineno">·1732</span> }</div><div·class="line"><a·name="l01733"></a><span·class="lineno">·1733</span> </div><div·class="line"><a·name="l01734"></a><span·class="lineno">·1734</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Band·Band($index)</span></div><div·class="line"><a·name="l01735"></a><span·class="lineno">·1735</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01736"></a><span·class="lineno">·1736</span> <span·class="preprocessor">#·Create·a·band·object·for·the·band·within·the·dataset.</span></div><div·class="line"><a·name="l01737"></a><span·class="lineno">·1737</span> <span·class="preprocessor">#·@note·a.k.a.·GetRasterBand</span></div><div·class="line"><a·name="l01738"></a><span·class="lineno">·1738</span> <span·class="preprocessor">#·@param·index·1...RasterCount,·default·is·1.</span></div><div·class="line"><a·name="l01739"></a><span·class="lineno">·1739</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::Band·object</span></div><div·class="line"><a·name="l01740"></a><span·class="lineno">·1740</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01741"></a><span·class="lineno">·1741</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1Band.html">Band</a>·{</div><div·class="line"><a·name="l01742"></a><span·class="lineno">·1742</span> }</div><div·class="line"><a·name="l01743"></a><span·class="lineno">·1743</span> </div><div·class="line"><a·name="l01744"></a><span·class="lineno">·1744</span> <span·class="preprocessor">#**·@method·list·Bands()</span></div><div·class="line"><a·name="l01745"></a><span·class="lineno">·1745</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01746"></a><span·class="lineno">·1746</span> <span·class="preprocessor">#·@return·a·list·of·new·Geo::GDAL::Band·objects</span></div><div·class="line"><a·name="l01747"></a><span·class="lineno">·1747</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01748"></a><span·class="lineno">·1748</span> sub·Bands·{</div><div·class="line"><a·name="l01749"></a><span·class="lineno">·1749</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01750"></a><span·class="lineno">·1750</span> ····my·@bands;</div><div·class="line"><a·name="l01751"></a><span·class="lineno">·1751</span> ····<span·class="keywordflow">for</span>·my·$i·(1..$self->{RasterCount})·{</div><div·class="line"><a·name="l01752"></a><span·class="lineno">·1752</span> ········push·@bands,·GetRasterBand($self,·$i);</div><div·class="line"><a·name="l01753"></a><span·class="lineno">·1753</span> ····}</div><div·class="line"><a·name="l01754"></a><span·class="lineno">·1754</span> ····<span·class="keywordflow">return</span>·@bands;</div><div·class="line"><a·name="l01755"></a><span·class="lineno">·1755</span> }</div><div·class="line"><a·name="l01756"></a><span·class="lineno">·1756</span> </div><div·class="line"><a·name="l01757"></a><span·class="lineno">·1757</span> <span·class="preprocessor">#**·@method·BuildOverviews($resampling,·arrayref·overviews,·coderef·progress,·$progress_data)</span></div><div·class="line"><a·name="l01758"></a><span·class="lineno">·1758</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01759"></a><span·class="lineno">·1759</span> <span·class="preprocessor">#·@param·resampling·the·resampling·method,·one·of·Geo::GDAL::RIOResamplingTypes.</span></div><div·class="line"><a·name="l01760"></a><span·class="lineno">·1760</span> <span·class="preprocessor">#·@param·overviews·The·list·of·overview·decimation·factors·to</span></div><div·class="line"><a·name="l01761"></a><span·class="lineno">·1761</span> <span·class="preprocessor">#·build.·For·example·[2,4,8].</span></div><div·class="line"><a·name="l01762"></a><span·class="lineno">·1762</span> <span·class="preprocessor">#·@param·progress·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l01763"></a><span·class="lineno">·1763</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·progress_data)</span></div><div·class="line"><a·name="l01764"></a><span·class="lineno">·1764</span> <span·class="preprocessor">#·@param·progress_data·[optional]</span></div><div·class="line"><a·name="l01765"></a><span·class="lineno">·1765</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01766"></a><span·class="lineno">·1766</span> sub·BuildOverviews·{</div><div·class="line"><a·name="l01767"></a><span·class="lineno">·1767</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01768"></a><span·class="lineno">·1768</span> ····my·@p·=·@_;</div><div·class="line"><a·name="l01769"></a><span·class="lineno">·1769</span> ····$p[0]·=·uc($p[0])·<span·class="keywordflow">if</span>·$p[0];</div><div·class="line"><a·name="l01770"></a><span·class="lineno">·1770</span> ····eval·{</div><div·class="line"><a·name="l01771"></a><span·class="lineno">·1771</span> ········$self->_BuildOverviews(@p);</div><div·class="line"><a·name="l01772"></a><span·class="lineno">·1772</span> ····};</div><div·class="line"><a·name="l01773"></a><span·class="lineno">·1773</span> ····confess(last_error())·<span·class="keywordflow">if</span>·$@;</div><div·class="line"><a·name="l01774"></a><span·class="lineno">·1774</span> }</div><div·class="line"><a·name="l01775"></a><span·class="lineno">·1775</span> </div><div·class="line"><a·name="l01776"></a><span·class="lineno">·1776</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·BuildVRT($Dest,·arrayref·Sources,·hashref·Options,·coderef·progress,·$progress_data)</span></div><div·class="line"><a·name="l01777"></a><span·class="lineno">·1777</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01778"></a><span·class="lineno">·1778</span> <span·class="preprocessor">#·Build·a·virtual·dataset·from·a·set·of·datasets.</span></div><div·class="line"><a·name="l01779"></a><span·class="lineno">·1779</span> <span·class="preprocessor">#·@param·Dest·Destination·raster·dataset·definition·string·(typically</span></div><div·class="line"><a·name="l01780"></a><span·class="lineno">·1780</span> <span·class="preprocessor">#·filename),·or·an·object,·which·implements·write·and·close.</span></div><div·class="line"><a·name="l01781"></a><span·class="lineno">·1781</span> <span·class="preprocessor">#·@param·Sources·A·list·of·filenames·of·input·datasets·or·a·list·of</span></div><div·class="line"><a·name="l01782"></a><span·class="lineno">·1782</span> <span·class="preprocessor">#·dataset·objects.</span></div><div·class="line"><a·name="l01783"></a><span·class="lineno">·1783</span> <span·class="preprocessor">#·@param·Options·See·section·\ref·index_processing_options.</span></div><div·class="line"><a·name="l01784"></a><span·class="lineno">·1784</span> <span·class="preprocessor">#·@return·Dataset·object</span></div><div·class="line"><a·name="l01785"></a><span·class="lineno">·1785</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01786"></a><span·class="lineno">·1786</span> <span·class="preprocessor">#·@note·This·subroutine·is·imported·into·the·main·namespace·if·Geo::GDAL</span></div><div·class="line"><a·name="l01787"></a><span·class="lineno">·1787</span> <span·class="preprocessor">#·is·use'd·with·qw/:all/.</span></div><div·class="line"><a·name="l01788"></a><span·class="lineno">·1788</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01789"></a><span·class="lineno">·1789</span> sub·BuildVRT·{</div><div·class="line"><a·name="l01790"></a><span·class="lineno">·1790</span> ····my·($dest,·$sources,·$options,·$progress,·$progress_data)·=·@_;</div><div·class="line"><a·name="l01791"></a><span·class="lineno">·1791</span> ····$options·=·Geo::GDAL::GDALBuildVRTOptions->new(make_processing_options($options));</div><div·class="line"><a·name="l01792"></a><span·class="lineno">·1792</span> ····error(<span·class="stringliteral">"Usage:·Geo::GDAL::DataSet::BuildVRT(\$vrt_file_name,·\\\@sources)"</span>)</div><div·class="line"><a·name="l01793"></a><span·class="lineno">·1793</span> ········unless·ref·$sources·eq·<span·class="stringliteral">'ARRAY'</span>·&&·defined·$sources->[0];</div><div·class="line"><a·name="l01794"></a><span·class="lineno">·1794</span> ····unless·(blessed($dest))·{</div><div·class="line"><a·name="l01795"></a><span·class="lineno">·1795</span> ········<span·class="keywordflow">if</span>·(blessed($sources->[0]))·{</div><div·class="line"><a·name="l01796"></a><span·class="lineno">·1796</span> ············<span·class="keywordflow">return</span>·Geo::GDAL::wrapper_GDALBuildVRT_objects($dest,·$sources,·$options,·$progress,·$progress_data);</div><div·class="line"><a·name="l01797"></a><span·class="lineno">·1797</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l01798"></a><span·class="lineno">·1798</span> ············<span·class="keywordflow">return</span>·Geo::GDAL::wrapper_GDALBuildVRT_names($dest,·$sources,·$options,·$progress,·$progress_data);</div><div·class="line"><a·name="l01799"></a><span·class="lineno">·1799</span> ········}</div><div·class="line"><a·name="l01800"></a><span·class="lineno">·1800</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l01801"></a><span·class="lineno">·1801</span> ········<span·class="keywordflow">if</span>·(blessed($sources->[0]))·{</div><div·class="line"><a·name="l01802"></a><span·class="lineno">·1802</span> ············<span·class="keywordflow">return</span>·stdout_redirection_wrapper(</div><div·class="line"><a·name="l01803"></a><span·class="lineno">·1803</span> ················$sources,·$dest,</div><div·class="line"><a·name="l01804"></a><span·class="lineno">·1804</span> ················\&Geo::GDAL::wrapper_GDALBuildVRT_objects,</div><div·class="line"><a·name="l01805"></a><span·class="lineno">·1805</span> ················$options,·$progress,·$progress_data);</div><div·class="line"><a·name="l01806"></a><span·class="lineno">·1806</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l01807"></a><span·class="lineno">·1807</span> ············<span·class="keywordflow">return</span>·stdout_redirection_wrapper(</div><div·class="line"><a·name="l01808"></a><span·class="lineno">·1808</span> ················$sources,·$dest,</div><div·class="line"><a·name="l01809"></a><span·class="lineno">·1809</span> ················\&Geo::GDAL::wrapper_GDALBuildVRT_names,</div><div·class="line"><a·name="l01810"></a><span·class="lineno">·1810</span> ················$options,·$progress,·$progress_data);</div><div·class="line"><a·name="l01811"></a><span·class="lineno">·1811</span> ········}</div><div·class="line"><a·name="l01812"></a><span·class="lineno">·1812</span> ····}</div><div·class="line"><a·name="l01813"></a><span·class="lineno">·1813</span> }</div><div·class="line"><a·name="l01814"></a><span·class="lineno">·1814</span> </div><div·class="line"><a·name="l01815"></a><span·class="lineno">·1815</span> <span·class="preprocessor">#**·@method·CommitTransaction()</span></div><div·class="line"><a·name="l01816"></a><span·class="lineno">·1816</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01817"></a><span·class="lineno">·1817</span> sub·CommitTransaction·{</div><div·class="line"><a·name="l01818"></a><span·class="lineno">·1818</span> }</div><div·class="line"><a·name="l01819"></a><span·class="lineno">·1819</span> </div><div·class="line"><a·name="l01820"></a><span·class="lineno">·1820</span> <span·class="preprocessor">#**·@method·Geo::GDAL::ColorTable·ComputeColorTable(%params)</span></div><div·class="line"><a·name="l01821"></a><span·class="lineno">·1821</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01822"></a><span·class="lineno">·1822</span> <span·class="preprocessor">#·Compute·a·color·table·from·an·RGB·image</span></div><div·class="line"><a·name="l01823"></a><span·class="lineno">·1823</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l01824"></a><span·class="lineno">·1824</span> <span·class="preprocessor">#·-·\a·Red·The·red·band,·the·default·is·to·use·the·red·band·of·this·dataset.</span></div><div·class="line"><a·name="l01825"></a><span·class="lineno">·1825</span> <span·class="preprocessor">#·-·\a·Green·The·green·band,·the·default·is·to·use·the·green·band·of·this·dataset.</span></div><div·class="line"><a·name="l01826"></a><span·class="lineno">·1826</span> <span·class="preprocessor">#·-·\a·Blue·The·blue·band,·the·default·is·to·use·the·blue·band·of·this·dataset.</span></div><div·class="line"><a·name="l01827"></a><span·class="lineno">·1827</span> <span·class="preprocessor">#·-·\a·NumColors·The·number·of·colors·in·the·computed·color·table.·Default·is·256.</span></div><div·class="line"><a·name="l01828"></a><span·class="lineno">·1828</span> <span·class="preprocessor">#·-·\a·Progress·reference·to·a·progress·function·(default·is·undef)</span></div><div·class="line"><a·name="l01829"></a><span·class="lineno">·1829</span> <span·class="preprocessor">#·-·\a·ProgressData·(default·is·undef)</span></div><div·class="line"><a·name="l01830"></a><span·class="lineno">·1830</span> <span·class="preprocessor">#·-·\a·Method·The·computation·method.·The·default·and·currently·only·option·is·the·median·cut·algorithm.</span></div><div·class="line"><a·name="l01831"></a><span·class="lineno">·1831</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01832"></a><span·class="lineno">·1832</span> <span·class="preprocessor">#·@return·a·new·color·table·object.</span></div><div·class="line"><a·name="l01833"></a><span·class="lineno">·1833</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01834"></a><span·class="lineno">·1834</span> sub·ComputeColorTable·{</div><div·class="line"><a·name="l01835"></a><span·class="lineno">·1835</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01836"></a><span·class="lineno">·1836</span> ····my·$p·=·named_parameters(\@_,</div><div·class="line"><a·name="l01837"></a><span·class="lineno">·1837</span> ·····························Red·=>·undef,</div><div·class="line"><a·name="l01838"></a><span·class="lineno">·1838</span> ·····························Green·=>·undef,</div><div·class="line"><a·name="l01839"></a><span·class="lineno">·1839</span> ·····························Blue·=>·undef,</div><div·class="line"><a·name="l01840"></a><span·class="lineno">·1840</span> ·····························NumColors·=>·256,</div><div·class="line"><a·name="l01841"></a><span·class="lineno">·1841</span> ·····························Progress·=>·undef,</div><div·class="line"><a·name="l01842"></a><span·class="lineno">·1842</span> ·····························ProgressData·=>·undef,</div><div·class="line"><a·name="l01843"></a><span·class="lineno">·1843</span> ·····························Method·=>·<span·class="stringliteral">'MedianCut'</span>);</div><div·class="line"><a·name="l01844"></a><span·class="lineno">·1844</span> ····<span·class="keywordflow">for</span>·my·$b·($self->Bands)·{</div><div·class="line"><a·name="l01845"></a><span·class="lineno">·1845</span> ········<span·class="keywordflow">for</span>·my·$cion·($b->ColorInterpretation)·{</div><div·class="line"><a·name="l01846"></a><span·class="lineno">·1846</span> ············<span·class="keywordflow">if</span>·($cion·eq·<span·class="stringliteral">'RedBand'</span>)·{·$p->{red}·<span·class="comment">//=·$b;·last;·}</span></div><div·class="line"><a·name="l01847"></a><span·class="lineno">·1847</span> ············<span·class="keywordflow">if</span>·($cion·eq·<span·class="stringliteral">'GreenBand'</span>)·{·$p->{green}·<span·class="comment">//=·$b;·last;·}</span></div><div·class="line"><a·name="l01848"></a><span·class="lineno">·1848</span> ············<span·class="keywordflow">if</span>·($cion·eq·<span·class="stringliteral">'BlueBand'</span>)·{·$p->{blue}·<span·class="comment">//=·$b;·last;·}</span></div><div·class="line"><a·name="l01849"></a><span·class="lineno">·1849</span> ········}</div><div·class="line"><a·name="l01850"></a><span·class="lineno">·1850</span> ····}</div><div·class="line"><a·name="l01851"></a><span·class="lineno">·1851</span> ····my·$ct·=·<a·class="code"·href="classGeo_1_1GDAL_1_1ColorTable.html">Geo::GDAL::ColorTable</a>-><a·class="code"·href="classGeo_1_1GDAL_1_1ColorTable.html#a4a88808000916b70c9561f9dbff481fc">new</a>;</div><div·class="line"><a·name="l01852"></a><span·class="lineno">·1852</span> ····Geo::GDAL::ComputeMedianCutPCT($p->{red},</div><div·class="line"><a·name="l01853"></a><span·class="lineno">·1853</span> ···································$p->{green},</div><div·class="line"><a·name="l01854"></a><span·class="lineno">·1854</span> ···································$p->{blue},</div><div·class="line"><a·name="l01855"></a><span·class="lineno">·1855</span> ···································$p->{numcolors},</div><div·class="line"><a·name="l01856"></a><span·class="lineno">·1856</span> ···································$ct,·$p->{progress},</div><div·class="line"><a·name="l01857"></a><span·class="lineno">·1857</span> ···································$p->{progressdata});</div><div·class="line"><a·name="l01858"></a><span·class="lineno">·1858</span> ····<span·class="keywordflow">return</span>·$ct;</div><div·class="line"><a·name="l01859"></a><span·class="lineno">·1859</span> }</div><div·class="line"><a·name="l01860"></a><span·class="lineno">·1860</span> </div><div·class="line"><a·name="l01861"></a><span·class="lineno">·1861</span> <span·class="preprocessor">#**·@method·Geo::OGR::Layer·CopyLayer($layer,·$name,·hashref·options·=·undef)</span></div><div·class="line"><a·name="l01862"></a><span·class="lineno">·1862</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01863"></a><span·class="lineno">·1863</span> <span·class="preprocessor">#·@param·layer·A·Geo::OGR::Layer·object·to·be·copied.</span></div><div·class="line"><a·name="l01864"></a><span·class="lineno">·1864</span> <span·class="preprocessor">#·@param·name·A·name·for·the·new·layer.</span></div><div·class="line"><a·name="l01865"></a><span·class="lineno">·1865</span> <span·class="preprocessor">#·@param·options·A·ref·to·a·hash·of·format·specific·options.</span></div><div·class="line"><a·name="l01866"></a><span·class="lineno">·1866</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Layer·object.</span></div><div·class="line"><a·name="l01867"></a><span·class="lineno">·1867</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01868"></a><span·class="lineno">·1868</span> sub·CopyLayer·{</div><div·class="line"><a·name="l01869"></a><span·class="lineno">·1869</span> }</div><div·class="line"><a·name="l01870"></a><span·class="lineno">·1870</span> </div><div·class="line"><a·name="l01871"></a><span·class="lineno">·1871</span> <span·class="preprocessor">#**·@method·Geo::OGR::Layer·CreateLayer(%params)</span></div><div·class="line"><a·name="l01872"></a><span·class="lineno">·1872</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01873"></a><span·class="lineno">·1873</span> <span·class="preprocessor">#·@brief·Create·a·new·vector·layer·into·this·dataset.</span></div><div·class="line"><a·name="l01874"></a><span·class="lineno">·1874</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01875"></a><span·class="lineno">·1875</span> <span·class="preprocessor">#·@param·%params·Named·parameters:</span></div><div·class="line"><a·name="l01876"></a><span·class="lineno">·1876</span> <span·class="preprocessor">#·-·\a·Name·(scalar)·name·for·the·new·layer.</span></div><div·class="line"><a·name="l01877"></a><span·class="lineno">·1877</span> <span·class="preprocessor">#·-·\a·Fields·(array·reference)·a·list·of·(scalar·and·geometry)·field·definitions·as·in</span></div><div·class="line"><a·name="l01878"></a><span·class="lineno">·1878</span> <span·class="preprocessor">#·Geo::OGR::Layer::CreateField.</span></div><div·class="line"><a·name="l01879"></a><span·class="lineno">·1879</span> <span·class="preprocessor">#·-·\a·ApproxOK·(boolean·value,·default·is·true)·a·flag,·which·is·forwarded·to·Geo::OGR::Layer::CreateField.</span></div><div·class="line"><a·name="l01880"></a><span·class="lineno">·1880</span> <span·class="preprocessor">#·-·\a·Options·(hash·reference)·driver·specific·hash·of·layer·creation·options.</span></div><div·class="line"><a·name="l01881"></a><span·class="lineno">·1881</span> <span·class="preprocessor">#·-·\a·Schema·(hash·reference,·deprecated,·use·\a·Fields·and·\a·Name)·may·contain·keys·Name,·Fields,·GeomFields,·GeometryType.</span></div><div·class="line"><a·name="l01882"></a><span·class="lineno">·1882</span> <span·class="preprocessor">#·-·\a·SRS·(scalar)·the·spatial·reference·for·the·default·geometry·field.</span></div><div·class="line"><a·name="l01883"></a><span·class="lineno">·1883</span> <span·class="preprocessor">#·-·\a·GeometryType·(scalar)·the·type·of·the·default·geometry·field</span></div><div·class="line"><a·name="l01884"></a><span·class="lineno">·1884</span> <span·class="preprocessor">#·(if·only·one·geometry·field).·Default·is·'Unknown'.</span></div><div·class="line"><a·name="l01885"></a><span·class="lineno">·1885</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01886"></a><span·class="lineno">·1886</span> <span·class="preprocessor">#·@note·If·Fields·or·Schema|Fields·is·not·given,·a·default·geometry</span></div><div·class="line"><a·name="l01887"></a><span·class="lineno">·1887</span> <span·class="preprocessor">#·field·(Name·=>·'',·GeometryType·=>·'Unknown')·is·created.·If·it·is</span></div><div·class="line"><a·name="l01888"></a><span·class="lineno">·1888</span> <span·class="preprocessor">#·given·and·it·contains·spatial·fields,·both·GeometryType·and·SRS·are</span></div><div·class="line"><a·name="l01889"></a><span·class="lineno">·1889</span> <span·class="preprocessor">#·ignored.·The·type·can·be·also·set·with·the·named·parameter.</span></div><div·class="line"><a·name="l01890"></a><span·class="lineno">·1890</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01891"></a><span·class="lineno">·1891</span> <span·class="preprocessor">#·Example:</span></div><div·class="line"><a·name="l01892"></a><span·class="lineno">·1892</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l01893"></a><span·class="lineno">·1893</span> <span·class="preprocessor">#·my·$roads·=·Geo::OGR::Driver('Memory')->Create('road')-></span></div><div·class="line"><a·name="l01894"></a><span·class="lineno">·1894</span> <span·class="preprocessor">#····CreateLayer(</span></div><div·class="line"><a·name="l01895"></a><span·class="lineno">·1895</span> <span·class="preprocessor">#········Fields·=>·[·{·Name·=>·'class',</span></div><div·class="line"><a·name="l01896"></a><span·class="lineno">·1896</span> <span·class="preprocessor">#······················Type·=>·'Integer'·},</span></div><div·class="line"><a·name="l01897"></a><span·class="lineno">·1897</span> <span·class="preprocessor">#····················{·Name·=>·'geom',</span></div><div·class="line"><a·name="l01898"></a><span·class="lineno">·1898</span> <span·class="preprocessor">#······················Type·=>·'LineString25D'·}·]·);</span></div><div·class="line"><a·name="l01899"></a><span·class="lineno">·1899</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l01900"></a><span·class="lineno">·1900</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01901"></a><span·class="lineno">·1901</span> <span·class="preprocessor">#·@note·Many·formats·allow·only·one·spatial·field,·which·currently</span></div><div·class="line"><a·name="l01902"></a><span·class="lineno">·1902</span> <span·class="preprocessor">#·requires·the·use·of·GeometryType.</span></div><div·class="line"><a·name="l01903"></a><span·class="lineno">·1903</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01904"></a><span·class="lineno">·1904</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Layer·object.</span></div><div·class="line"><a·name="l01905"></a><span·class="lineno">·1905</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01906"></a><span·class="lineno">·1906</span> sub·CreateLayer·{</div><div·class="line"><a·name="l01907"></a><span·class="lineno">·1907</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01908"></a><span·class="lineno">·1908</span> ····my·$p·=·named_parameters(\@_,</div><div·class="line"><a·name="l01909"></a><span·class="lineno">·1909</span> ·····························Name·=>·<span·class="stringliteral">'unnamed'</span>,</div><div·class="line"><a·name="l01910"></a><span·class="lineno">·1910</span> ·····························SRS·=>·undef,</div><div·class="line"><a·name="l01911"></a><span·class="lineno">·1911</span> ·····························GeometryType·=>·<span·class="stringliteral">'Unknown'</span>,</div><div·class="line"><a·name="l01912"></a><span·class="lineno">·1912</span> ·····························Options·=>·{},</div><div·class="line"><a·name="l01913"></a><span·class="lineno">·1913</span> ·····························Schema·=>·undef,</div><div·class="line"><a·name="l01914"></a><span·class="lineno">·1914</span> ·····························Fields·=>·undef,</div><div·class="line"><a·name="l01915"></a><span·class="lineno">·1915</span> ·····························ApproxOK·=>·1);</div><div·class="line"><a·name="l01916"></a><span·class="lineno">·1916</span> ····error(<span·class="stringliteral">"The·'Fields'·argument·must·be·an·array·reference."</span>)·<span·class="keywordflow">if</span>·$p->{fields}·&&·ref($p->{fields})·ne·<span·class="stringliteral">'ARRAY'</span>;</div><div·class="line"><a·name="l01917"></a><span·class="lineno">·1917</span> ····<span·class="keywordflow">if</span>·(defined·$p->{schema})·{</div><div·class="line"><a·name="l01918"></a><span·class="lineno">·1918</span> ········my·$s·=·$p->{schema};</div><div·class="line"><a·name="l01919"></a><span·class="lineno">·1919</span> ········$p->{geometrytype}·=·$s->{GeometryType}·<span·class="keywordflow">if</span>·exists·$s->{GeometryType};</div><div·class="line"><a·name="l01920"></a><span·class="lineno">·1920</span> ········$p->{fields}·=·$s->{Fields}·<span·class="keywordflow">if</span>·exists·$s->{Fields};</div><div·class="line"><a·name="l01921"></a><span·class="lineno">·1921</span> ········$p->{name}·=·$s->{Name}·<span·class="keywordflow">if</span>·exists·$s->{Name};</div><div·class="line"><a·name="l01922"></a><span·class="lineno">·1922</span> ····}</div><div·class="line"><a·name="l01923"></a><span·class="lineno">·1923</span> ····$p->{fields}·=·[]·unless·ref($p->{fields})·eq·<span·class="stringliteral">'ARRAY'</span>;</div><div·class="line"><a·name="l01924"></a><span·class="lineno">·1924</span> <span·class="preprocessor">····#·if·fields·contains·spatial·fields,·then·do·not·create·default·one</span></div><div·class="line"><a·name="l01925"></a><span·class="lineno">·1925</span> ····<span·class="keywordflow">for</span>·my·$f·(@{$p->{fields}})·{</div><div·class="line"><a·name="l01926"></a><span·class="lineno">·1926</span> ········error(<span·class="stringliteral">"Field·definitions·must·be·hash·references."</span>)·unless·ref·$f·eq·<span·class="stringliteral">'HASH'</span>;</div><div·class="line"><a·name="l01927"></a><span·class="lineno">·1927</span> ········<span·class="keywordflow">if</span>·($f->{GeometryType}·||·($f->{Type}·&&·s_exists(geometry_type·=>·$f->{Type})))·{</div><div·class="line"><a·name="l01928"></a><span·class="lineno">·1928</span> ············$p->{geometrytype}·=·<span·class="stringliteral">'None'</span>;</div><div·class="line"><a·name="l01929"></a><span·class="lineno">·1929</span> ············last;</div><div·class="line"><a·name="l01930"></a><span·class="lineno">·1930</span> ········}</div><div·class="line"><a·name="l01931"></a><span·class="lineno">·1931</span> ····}</div><div·class="line"><a·name="l01932"></a><span·class="lineno">·1932</span> ····my·$gt·=·s2i(geometry_type·=>·$p->{geometrytype});</div><div·class="line"><a·name="l01933"></a><span·class="lineno">·1933</span> ····my·$layer·=·_CreateLayer($self,·$p->{name},·$p->{srs},·$gt,·$p->{options});</div><div·class="line"><a·name="l01934"></a><span·class="lineno">·1934</span> ····<span·class="keywordflow">for</span>·my·$f·(@{$p->{fields}})·{</div><div·class="line"><a·name="l01935"></a><span·class="lineno">·1935</span> ········$layer->CreateField($f);</div><div·class="line"><a·name="l01936"></a><span·class="lineno">·1936</span> ····}</div><div·class="line"><a·name="l01937"></a><span·class="lineno">·1937</span> ····keep($layer,·$self);</div><div·class="line"><a·name="l01938"></a><span·class="lineno">·1938</span> }</div><div·class="line"><a·name="l01939"></a><span·class="lineno">·1939</span> </div><div·class="line"><a·name="l01940"></a><span·class="lineno">·1940</span> <span·class="preprocessor">#**·@method·CreateMaskBand()</span></div><div·class="line"><a·name="l01941"></a><span·class="lineno">·1941</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01942"></a><span·class="lineno">·1942</span> <span·class="preprocessor">#·Add·a·mask·band·to·the·dataset.</span></div><div·class="line"><a·name="l01943"></a><span·class="lineno">·1943</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01944"></a><span·class="lineno">·1944</span> sub·CreateMaskBand·{</div><div·class="line"><a·name="l01945"></a><span·class="lineno">·1945</span> ····<span·class="keywordflow">return</span>·_CreateMaskBand(@_);</div><div·class="line"><a·name="l01946"></a><span·class="lineno">·1946</span> }</div><div·class="line"><a·name="l01947"></a><span·class="lineno">·1947</span> </div><div·class="line"><a·name="l01948"></a><span·class="lineno">·1948</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·DEMProcessing($Dest,·$Processing,·$ColorFilename,·hashref·Options,·coderef·progress,·$progress_data)</span></div><div·class="line"><a·name="l01949"></a><span·class="lineno">·1949</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01950"></a><span·class="lineno">·1950</span> <span·class="preprocessor">#·Apply·a·DEM·processing·to·this·dataset.</span></div><div·class="line"><a·name="l01951"></a><span·class="lineno">·1951</span> <span·class="preprocessor">#·@param·Dest·Destination·raster·dataset·definition·string·(typically·filename)·or·an·object,·which·implements·write·and·close.</span></div><div·class="line"><a·name="l01952"></a><span·class="lineno">·1952</span> <span·class="preprocessor">#·@param·Processing·Processing·to·apply,·one·of·"hillshade",·"slope",·"aspect",·"color-relief",·"TRI",·"TPI",·or·"Roughness".</span></div><div·class="line"><a·name="l01953"></a><span·class="lineno">·1953</span> <span·class="preprocessor">#·@param·ColorFilename·The·color·palette·for·color-relief.</span></div><div·class="line"><a·name="l01954"></a><span·class="lineno">·1954</span> <span·class="preprocessor">#·@param·Options·See·section·\ref·index_processing_options.</span></div><div·class="line"><a·name="l01955"></a><span·class="lineno">·1955</span> <span·class="preprocessor">#·@param·progress·[optional]·A·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l01956"></a><span·class="lineno">·1956</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·progress_data).</span></div><div·class="line"><a·name="l01957"></a><span·class="lineno">·1957</span> <span·class="preprocessor">#·@param·progress_data·[optional]</span></div><div·class="line"><a·name="l01958"></a><span·class="lineno">·1958</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l01959"></a><span·class="lineno">·1959</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01960"></a><span·class="lineno">·1960</span> sub·DEMProcessing·{</div><div·class="line"><a·name="l01961"></a><span·class="lineno">·1961</span> ····my·($self,·$dest,·$Processing,·$ColorFilename,·$options,·$progress,·$progress_data)·=·@_;</div><div·class="line"><a·name="l01962"></a><span·class="lineno">·1962</span> ····$options·=·Geo::GDAL::GDALDEMProcessingOptions->new(make_processing_options($options));</div><div·class="line"><a·name="l01963"></a><span·class="lineno">·1963</span> ····<span·class="keywordflow">return</span>·$self->stdout_redirection_wrapper(</div><div·class="line"><a·name="l01964"></a><span·class="lineno">·1964</span> ········$dest,</div><div·class="line"><a·name="l01965"></a><span·class="lineno">·1965</span> ········\&Geo::GDAL::wrapper_GDALDEMProcessing,</div><div·class="line"><a·name="l01966"></a><span·class="lineno">·1966</span> ········$Processing,·$ColorFilename,·$options,·$progress,·$progress_data</div><div·class="line"><a·name="l01967"></a><span·class="lineno">·1967</span> ····);</div><div·class="line"><a·name="l01968"></a><span·class="lineno">·1968</span> }</div><div·class="line"><a·name="l01969"></a><span·class="lineno">·1969</span> </div><div·class="line"><a·name="l01970"></a><span·class="lineno">·1970</span> <span·class="preprocessor">#**·@method·Dataset()</span></div><div·class="line"><a·name="l01971"></a><span·class="lineno">·1971</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01972"></a><span·class="lineno">·1972</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1Dataset.html">Dataset</a>·{</div><div·class="line"><a·name="l01973"></a><span·class="lineno">·1973</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l01974"></a><span·class="lineno">·1974</span> ····parent($self);</div><div·class="line"><a·name="l01975"></a><span·class="lineno">·1975</span> }</div><div·class="line"><a·name="l01976"></a><span·class="lineno">·1976</span> </div><div·class="line"><a·name="l01977"></a><span·class="lineno">·1977</span> <span·class="preprocessor">#**·@method·DeleteLayer($name)</span></div><div·class="line"><a·name="l01978"></a><span·class="lineno">·1978</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01979"></a><span·class="lineno">·1979</span> <span·class="preprocessor">#·Deletes·a·layer·from·the·data·source.·Note·that·if·there·is·a·layer</span></div><div·class="line"><a·name="l01980"></a><span·class="lineno">·1980</span> <span·class="preprocessor">#·object·for·the·deleted·layer,·it·becomes·unusable.</span></div><div·class="line"><a·name="l01981"></a><span·class="lineno">·1981</span> <span·class="preprocessor">#·@param·name·name·of·the·layer·to·delete.</span></div><div·class="line"><a·name="l01982"></a><span·class="lineno">·1982</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l01983"></a><span·class="lineno">·1983</span> sub·DeleteLayer·{</div><div·class="line"><a·name="l01984"></a><span·class="lineno">·1984</span> ····my·($self,·$name)·=·@_;</div><div·class="line"><a·name="l01985"></a><span·class="lineno">·1985</span> ····my·$index;</div><div·class="line"><a·name="l01986"></a><span·class="lineno">·1986</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$self->GetLayerCount-1)·{</div><div·class="line"><a·name="l01987"></a><span·class="lineno">·1987</span> ········my·$layer·=·GetLayerByIndex($self,·$i);</div><div·class="line"><a·name="l01988"></a><span·class="lineno">·1988</span> ········$index·=·$i,·last·<span·class="keywordflow">if</span>·$layer->GetName·eq·$name;</div><div·class="line"><a·name="l01989"></a><span·class="lineno">·1989</span> ····}</div><div·class="line"><a·name="l01990"></a><span·class="lineno">·1990</span> ····error(2,·$name,·<span·class="stringliteral">'Layer'</span>)·unless·defined·$index;</div><div·class="line"><a·name="l01991"></a><span·class="lineno">·1991</span> ····_DeleteLayer($self,·$index);</div><div·class="line"><a·name="l01992"></a><span·class="lineno">·1992</span> }</div><div·class="line"><a·name="l01993"></a><span·class="lineno">·1993</span> </div><div·class="line"><a·name="l01994"></a><span·class="lineno">·1994</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Band·Dither(%params)</span></div><div·class="line"><a·name="l01995"></a><span·class="lineno">·1995</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l01996"></a><span·class="lineno">·1996</span> <span·class="preprocessor">#·Compute·one·band·with·color·table·image·from·an·RGB·image</span></div><div·class="line"><a·name="l01997"></a><span·class="lineno">·1997</span> <span·class="preprocessor">#·@params·params·Named·parameters:</span></div><div·class="line"><a·name="l01998"></a><span·class="lineno">·1998</span> <span·class="preprocessor">#·-·\a·Red·The·red·band,·the·default·is·to·use·the·red·band·of·this·dataset.</span></div><div·class="line"><a·name="l01999"></a><span·class="lineno">·1999</span> <span·class="preprocessor">#·-·\a·Green·The·green·band,·the·default·is·to·use·the·green·band·of·this·dataset.</span></div><div·class="line"><a·name="l02000"></a><span·class="lineno">·2000</span> <span·class="preprocessor">#·-·\a·Blue·The·blue·band,·the·default·is·to·use·the·blue·band·of·this·dataset.</span></div><div·class="line"><a·name="l02001"></a><span·class="lineno">·2001</span> <span·class="preprocessor">#·-·\a·Dest·The·destination·band.·If·this·is·not·defined,·a·new·in-memory·band·(and·a·dataset)·will·be·created.</span></div><div·class="line"><a·name="l02002"></a><span·class="lineno">·2002</span> <span·class="preprocessor">#·-·\a·ColorTable·The·color·table·for·the·result.·If·this·is·not·defined,·and·the·destination·band·does·not·contain·one,·it·will·be·computed·with·the·ComputeColorTable·method.</span></div><div·class="line"><a·name="l02003"></a><span·class="lineno">·2003</span> <span·class="preprocessor">#·-·\a·Progress·Reference·to·a·progress·function·(default·is·undef).·Note·that·if·ColorTable·is·computed·using·ComputeColorTable·method,·the·progress·will·run·twice·from·0·to·1.</span></div><div·class="line"><a·name="l02004"></a><span·class="lineno">·2004</span> <span·class="preprocessor">#·-·\a·ProgressData·(default·is·undef)</span></div><div·class="line"><a·name="l02005"></a><span·class="lineno">·2005</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02006"></a><span·class="lineno">·2006</span> <span·class="preprocessor">#·@return·the·destination·band.</span></div><div·class="line"><a·name="l02007"></a><span·class="lineno">·2007</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02008"></a><span·class="lineno">·2008</span> <span·class="preprocessor">#·Usage·example.·This·code·converts·an·RGB·JPEG·image·into·a·one·band·PNG·image·with·a·color·table.</span></div><div·class="line"><a·name="l02009"></a><span·class="lineno">·2009</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l02010"></a><span·class="lineno">·2010</span> <span·class="preprocessor">#·my·$d·=·Geo::GDAL::Open('pic.jpg');</span></div><div·class="line"><a·name="l02011"></a><span·class="lineno">·2011</span> <span·class="preprocessor">#·Geo::GDAL::Driver('PNG')->Copy(Name·=>·'test.png',·Src·=>·$d->Dither->Dataset);</span></div><div·class="line"><a·name="l02012"></a><span·class="lineno">·2012</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l02013"></a><span·class="lineno">·2013</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02014"></a><span·class="lineno">·2014</span> sub·Dither·{</div><div·class="line"><a·name="l02015"></a><span·class="lineno">·2015</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02016"></a><span·class="lineno">·2016</span> ····my·$p·=·named_parameters(\@_,</div><div·class="line"><a·name="l02017"></a><span·class="lineno">·2017</span> ·····························Red·=>·undef,</div><div·class="line"><a·name="l02018"></a><span·class="lineno">·2018</span> ·····························Green·=>·undef,</div><div·class="line"><a·name="l02019"></a><span·class="lineno">·2019</span> ·····························Blue·=>·undef,</div><div·class="line"><a·name="l02020"></a><span·class="lineno">·2020</span> ·····························Dest·=>·undef,</div><div·class="line"><a·name="l02021"></a><span·class="lineno">·2021</span> ·····························<a·class="code"·href="classGeo_1_1GDAL_1_1ColorTable.html">ColorTable</a>·=>·undef,</div><div·class="line"><a·name="l02022"></a><span·class="lineno">·2022</span> ·····························Progress·=>·undef,</div><div·class="line"><a·name="l02023"></a><span·class="lineno">·2023</span> ·····························ProgressData·=>·undef);</div><div·class="line"><a·name="l02024"></a><span·class="lineno">·2024</span> ····<span·class="keywordflow">for</span>·my·$b·($self->Bands)·{</div><div·class="line"><a·name="l02025"></a><span·class="lineno">·2025</span> ········<span·class="keywordflow">for</span>·my·$cion·($b->ColorInterpretation)·{</div><div·class="line"><a·name="l02026"></a><span·class="lineno">·2026</span> ············<span·class="keywordflow">if</span>·($cion·eq·<span·class="stringliteral">'RedBand'</span>)·{·$p->{red}·<span·class="comment">//=·$b;·last;·}</span></div><div·class="line"><a·name="l02027"></a><span·class="lineno">·2027</span> ············<span·class="keywordflow">if</span>·($cion·eq·<span·class="stringliteral">'GreenBand'</span>)·{·$p->{green}·<span·class="comment">//=·$b;·last;·}</span></div><div·class="line"><a·name="l02028"></a><span·class="lineno">·2028</span> ············<span·class="keywordflow">if</span>·($cion·eq·<span·class="stringliteral">'BlueBand'</span>)·{·$p->{blue}·<span·class="comment">//=·$b;·last;·}</span></div><div·class="line"><a·name="l02029"></a><span·class="lineno">·2029</span> ········}</div><div·class="line"><a·name="l02030"></a><span·class="lineno">·2030</span> ····}</div><div·class="line"><a·name="l02031"></a><span·class="lineno">·2031</span> ····my·($w,·$h)·=·$self->Size;</div><div·class="line"><a·name="l02032"></a><span·class="lineno">·2032</span> ····$p->{dest}·<span·class="comment">//=·Geo::GDAL::Driver('MEM')->Create(Name·=>·'dithered',</span></div><div·class="line"><a·name="l02033"></a><span·class="lineno">·2033</span> ····················································Width·=>·$w,</div><div·class="line"><a·name="l02034"></a><span·class="lineno">·2034</span> ····················································Height·=>·$h,</div><div·class="line"><a·name="l02035"></a><span·class="lineno">·2035</span> ····················································Type·=>·<span·class="stringliteral">'Byte'</span>)-><a·class="code"·href="classGeo_1_1GDAL_1_1Band.html">Band</a>;</div><div·class="line"><a·name="l02036"></a><span·class="lineno">·2036</span> ····$p->{colortable}</div><div·class="line"><a·name="l02037"></a><span·class="lineno">·2037</span> ········<span·class="comment">//=·$p->{dest}->ColorTable</span></div><div·class="line"><a·name="l02038"></a><span·class="lineno">·2038</span> ············<span·class="comment">//·$self->ComputeColorTable(Red·=>·$p->{red},</span></div><div·class="line"><a·name="l02039"></a><span·class="lineno">·2039</span> ········································Green·=>·$p->{green},</div><div·class="line"><a·name="l02040"></a><span·class="lineno">·2040</span> ········································Blue·=>·$p->{blue},</div><div·class="line"><a·name="l02041"></a><span·class="lineno">·2041</span> ········································Progress·=>·$p->{progress},</div><div·class="line"><a·name="l02042"></a><span·class="lineno">·2042</span> ········································ProgressData·=>·$p->{progressdata});</div><div·class="line"><a·name="l02043"></a><span·class="lineno">·2043</span> ····Geo::GDAL::DitherRGB2PCT($p->{red},</div><div·class="line"><a·name="l02044"></a><span·class="lineno">·2044</span> ·····························$p->{green},</div><div·class="line"><a·name="l02045"></a><span·class="lineno">·2045</span> ·····························$p->{blue},</div><div·class="line"><a·name="l02046"></a><span·class="lineno">·2046</span> ·····························$p->{dest},</div><div·class="line"><a·name="l02047"></a><span·class="lineno">·2047</span> ·····························$p->{colortable},</div><div·class="line"><a·name="l02048"></a><span·class="lineno">·2048</span> ·····························$p->{progress},</div><div·class="line"><a·name="l02049"></a><span·class="lineno">·2049</span> ·····························$p->{progressdata});</div><div·class="line"><a·name="l02050"></a><span·class="lineno">·2050</span> ····$p->{dest}-><a·class="code"·href="classGeo_1_1GDAL_1_1Band.html#aa7d61cccf0ff1456d5c051c36838b2d3">ColorTable</a>($p->{colortable});</div><div·class="line"><a·name="l02051"></a><span·class="lineno">·2051</span> ····<span·class="keywordflow">return</span>·$p->{dest};</div><div·class="line"><a·name="l02052"></a><span·class="lineno">·2052</span> }</div><div·class="line"><a·name="l02053"></a><span·class="lineno">·2053</span> </div><div·class="line"><a·name="l02054"></a><span·class="lineno">·2054</span> <span·class="preprocessor">#**·@method·Domains()</span></div><div·class="line"><a·name="l02055"></a><span·class="lineno">·2055</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02056"></a><span·class="lineno">·2056</span> sub·Domains·{</div><div·class="line"><a·name="l02057"></a><span·class="lineno">·2057</span> ····<span·class="keywordflow">return</span>·@DOMAINS;</div><div·class="line"><a·name="l02058"></a><span·class="lineno">·2058</span> }</div><div·class="line"><a·name="l02059"></a><span·class="lineno">·2059</span> </div><div·class="line"><a·name="l02060"></a><span·class="lineno">·2060</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Driver·Driver()</span></div><div·class="line"><a·name="l02061"></a><span·class="lineno">·2061</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02062"></a><span·class="lineno">·2062</span> <span·class="preprocessor">#·@note·a.k.a.·GetDriver</span></div><div·class="line"><a·name="l02063"></a><span·class="lineno">·2063</span> <span·class="preprocessor">#·@return·a·Geo::GDAL::Driver·object·that·was·used·to·open·or·create·this·dataset.</span></div><div·class="line"><a·name="l02064"></a><span·class="lineno">·2064</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02065"></a><span·class="lineno">·2065</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1Driver.html">Driver</a>·{</div><div·class="line"><a·name="l02066"></a><span·class="lineno">·2066</span> }</div><div·class="line"><a·name="l02067"></a><span·class="lineno">·2067</span> </div><div·class="line"><a·name="l02068"></a><span·class="lineno">·2068</span> <span·class="preprocessor">#**·@method·Geo::OGR::Layer·ExecuteSQL($statement,·$geom·=·undef,·$dialect·=·"")</span></div><div·class="line"><a·name="l02069"></a><span·class="lineno">·2069</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02070"></a><span·class="lineno">·2070</span> <span·class="preprocessor">#·@param·statement·A·SQL·statement.</span></div><div·class="line"><a·name="l02071"></a><span·class="lineno">·2071</span> <span·class="preprocessor">#·@param·geom·A·Geo::OGR::Geometry·object.</span></div><div·class="line"><a·name="l02072"></a><span·class="lineno">·2072</span> <span·class="preprocessor">#·@param·dialect</span></div><div·class="line"><a·name="l02073"></a><span·class="lineno">·2073</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Layer·object.·The·data·source·object·will</span></div><div·class="line"><a·name="l02074"></a><span·class="lineno">·2074</span> <span·class="preprocessor">#·exist·as·long·as·the·layer·object·exists.</span></div><div·class="line"><a·name="l02075"></a><span·class="lineno">·2075</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02076"></a><span·class="lineno">·2076</span> sub·ExecuteSQL·{</div><div·class="line"><a·name="l02077"></a><span·class="lineno">·2077</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02078"></a><span·class="lineno">·2078</span> ····my·$layer·=·$self->_ExecuteSQL(@_);</div><div·class="line"><a·name="l02079"></a><span·class="lineno">·2079</span> ····note($layer,·<span·class="stringliteral">"is·result·set"</span>);</div><div·class="line"><a·name="l02080"></a><span·class="lineno">·2080</span> ····keep($layer,·$self);</div><div·class="line"><a·name="l02081"></a><span·class="lineno">·2081</span> }</div><div·class="line"><a·name="l02082"></a><span·class="lineno">·2082</span> </div><div·class="line"><a·name="l02083"></a><span·class="lineno">·2083</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Extent·Extent(@params)</span></div><div·class="line"><a·name="l02084"></a><span·class="lineno">·2084</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02085"></a><span·class="lineno">·2085</span> <span·class="preprocessor">#·@param·params·nothing,·or·a·list·($xoff,·$yoff,·$w,·$h)</span></div><div·class="line"><a·name="l02086"></a><span·class="lineno">·2086</span> <span·class="preprocessor">#·@return·A·new·Geo::GDAL::Extent·object·that·represents·the·area·that</span></div><div·class="line"><a·name="l02087"></a><span·class="lineno">·2087</span> <span·class="preprocessor">#·this·raster·or·the·specified·tile·covers.</span></div><div·class="line"><a·name="l02088"></a><span·class="lineno">·2088</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02089"></a><span·class="lineno">·2089</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html">Extent</a>·{</div><div·class="line"><a·name="l02090"></a><span·class="lineno">·2090</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02091"></a><span·class="lineno">·2091</span> ····my·$t·=·$self->GeoTransform;</div><div·class="line"><a·name="l02092"></a><span·class="lineno">·2092</span> ····my·$extent·=·$t->Extent($self->Size);</div><div·class="line"><a·name="l02093"></a><span·class="lineno">·2093</span> ····<span·class="keywordflow">if</span>·(@_)·{</div><div·class="line"><a·name="l02094"></a><span·class="lineno">·2094</span> ········my·($xoff,·$yoff,·$w,·$h)·=·@_;</div><div·class="line"><a·name="l02095"></a><span·class="lineno">·2095</span> ········my·($x,·$y)·=·$t->Apply([$xoff,·$xoff+$w,·$xoff+$w,·$xoff],·[$yoff,·$yoff,·$yoff+$h,·$yoff+$h]);</div><div·class="line"><a·name="l02096"></a><span·class="lineno">·2096</span> ········my·$xmin·=·shift·@$x;</div><div·class="line"><a·name="l02097"></a><span·class="lineno">·2097</span> ········my·$xmax·=·$xmin;</div><div·class="line"><a·name="l02098"></a><span·class="lineno">·2098</span> ········<span·class="keywordflow">for</span>·my·$x·(@$x)·{</div><div·class="line"><a·name="l02099"></a><span·class="lineno">·2099</span> ············$xmin·=·$x·<span·class="keywordflow">if</span>·$x·<·$xmin;</div><div·class="line"><a·name="l02100"></a><span·class="lineno">·2100</span> ············$xmax·=·$x·<span·class="keywordflow">if</span>·$x·>·$xmax;</div><div·class="line"><a·name="l02101"></a><span·class="lineno">·2101</span> ········}</div><div·class="line"><a·name="l02102"></a><span·class="lineno">·2102</span> ········my·$ymin·=·shift·@$y;</div><div·class="line"><a·name="l02103"></a><span·class="lineno">·2103</span> ········my·$ymax·=·$ymin;</div><div·class="line"><a·name="l02104"></a><span·class="lineno">·2104</span> ········<span·class="keywordflow">for</span>·my·$y·(@$y)·{</div><div·class="line"><a·name="l02105"></a><span·class="lineno">·2105</span> ············$ymin·=·$y·<span·class="keywordflow">if</span>·$y·<·$ymin;</div><div·class="line"><a·name="l02106"></a><span·class="lineno">·2106</span> ············$ymax·=·$y·<span·class="keywordflow">if</span>·$y·>·$ymax;</div><div·class="line"><a·name="l02107"></a><span·class="lineno">·2107</span> ········}</div><div·class="line"><a·name="l02108"></a><span·class="lineno">·2108</span> ········$extent·=·<a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html">Geo::GDAL::Extent</a>-><a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html#aaa908458e9aaa398762601ae2b466e9a">new</a>($xmin,·$ymin,·$xmax,·$ymax);</div><div·class="line"><a·name="l02109"></a><span·class="lineno">·2109</span> ····}</div><div·class="line"><a·name="l02110"></a><span·class="lineno">·2110</span> ····<span·class="keywordflow">return</span>·$extent;</div><div·class="line"><a·name="l02111"></a><span·class="lineno">·2111</span> }</div><div·class="line"><a·name="l02112"></a><span·class="lineno">·2112</span> </div><div·class="line"><a·name="l02113"></a><span·class="lineno">·2113</span> <span·class="preprocessor">#**·@method·list·GCPs(@GCPs,·Geo::OSR::SpatialReference·sr)</span></div><div·class="line"><a·name="l02114"></a><span·class="lineno">·2114</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02115"></a><span·class="lineno">·2115</span> <span·class="preprocessor">#·Get·or·set·the·GCPs·and·their·projection.</span></div><div·class="line"><a·name="l02116"></a><span·class="lineno">·2116</span> <span·class="preprocessor">#·@param·GCPs·[optional]·a·list·of·Geo::GDAL::GCP·objects</span></div><div·class="line"><a·name="l02117"></a><span·class="lineno">·2117</span> <span·class="preprocessor">#·@param·sr·[optional]·the·projection·of·the·GCPs.</span></div><div·class="line"><a·name="l02118"></a><span·class="lineno">·2118</span> <span·class="preprocessor">#·@return·a·list·of·Geo::GDAL::GCP·objects·followed·by·a·Geo::OSR::SpatialReference·object.</span></div><div·class="line"><a·name="l02119"></a><span·class="lineno">·2119</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02120"></a><span·class="lineno">·2120</span> sub·GCPs·{</div><div·class="line"><a·name="l02121"></a><span·class="lineno">·2121</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02122"></a><span·class="lineno">·2122</span> ····<span·class="keywordflow">if</span>·(@_·>·0)·{</div><div·class="line"><a·name="l02123"></a><span·class="lineno">·2123</span> ········my·$proj·=·pop·@_;</div><div·class="line"><a·name="l02124"></a><span·class="lineno">·2124</span> ········$proj·=·$proj->Export(<span·class="stringliteral">'WKT'</span>)·<span·class="keywordflow">if</span>·$proj·and·ref($proj);</div><div·class="line"><a·name="l02125"></a><span·class="lineno">·2125</span> ········SetGCPs($self,·\@_,·$proj);</div><div·class="line"><a·name="l02126"></a><span·class="lineno">·2126</span> ····}</div><div·class="line"><a·name="l02127"></a><span·class="lineno">·2127</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l02128"></a><span·class="lineno">·2128</span> ····my·$proj·=·<a·class="code"·href="classGeo_1_1OSR_1_1SpatialReference.html">Geo::OSR::SpatialReference</a>-><a·class="code"·href="classGeo_1_1OSR_1_1SpatialReference.html#aa1e78517d5765c5a5818f829cd076edc">new</a>(GetGCPProjection($self));</div><div·class="line"><a·name="l02129"></a><span·class="lineno">·2129</span> ····my·$GCPs·=·GetGCPs($self);</div><div·class="line"><a·name="l02130"></a><span·class="lineno">·2130</span> ····<span·class="keywordflow">return</span>·(@$GCPs,·$proj);</div><div·class="line"><a·name="l02131"></a><span·class="lineno">·2131</span> }</div><div·class="line"><a·name="l02132"></a><span·class="lineno">·2132</span> </div><div·class="line"><a·name="l02133"></a><span·class="lineno">·2133</span> <span·class="preprocessor">#**·@method·Geo::GDAL::GeoTransform·GeoTransform(Geo::GDAL::GeoTransform·$geo_transform)</span></div><div·class="line"><a·name="l02134"></a><span·class="lineno">·2134</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02135"></a><span·class="lineno">·2135</span> <span·class="preprocessor">#·Transformation·from·cell·coordinates·(column,row)·to·projection</span></div><div·class="line"><a·name="l02136"></a><span·class="lineno">·2136</span> <span·class="preprocessor">#·coordinates·(x,y)</span></div><div·class="line"><a·name="l02137"></a><span·class="lineno">·2137</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l02138"></a><span·class="lineno">·2138</span> <span·class="preprocessor">#·x·=·geo_transform[0]·+·column*geo_transform[1]·+·row*geo_transform[2]</span></div><div·class="line"><a·name="l02139"></a><span·class="lineno">·2139</span> <span·class="preprocessor">#·y·=·geo_transform[3]·+·column*geo_transform[4]·+·row*geo_transform[5]</span></div><div·class="line"><a·name="l02140"></a><span·class="lineno">·2140</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l02141"></a><span·class="lineno">·2141</span> <span·class="preprocessor">#·@param·geo_transform·[optional]</span></div><div·class="line"><a·name="l02142"></a><span·class="lineno">·2142</span> <span·class="preprocessor">#·@return·the·geo·transform·in·a·non-void·context.</span></div><div·class="line"><a·name="l02143"></a><span·class="lineno">·2143</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02144"></a><span·class="lineno">·2144</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1GeoTransform.html">GeoTransform</a>·{</div><div·class="line"><a·name="l02145"></a><span·class="lineno">·2145</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02146"></a><span·class="lineno">·2146</span> ····eval·{</div><div·class="line"><a·name="l02147"></a><span·class="lineno">·2147</span> ········<span·class="keywordflow">if</span>·(@_·==·1)·{</div><div·class="line"><a·name="l02148"></a><span·class="lineno">·2148</span> ············SetGeoTransform($self,·$_[0]);</div><div·class="line"><a·name="l02149"></a><span·class="lineno">·2149</span> ········}·elsif·(@_·>·1)·{</div><div·class="line"><a·name="l02150"></a><span·class="lineno">·2150</span> ············SetGeoTransform($self,·\@_);</div><div·class="line"><a·name="l02151"></a><span·class="lineno">·2151</span> ········}</div><div·class="line"><a·name="l02152"></a><span·class="lineno">·2152</span> ····};</div><div·class="line"><a·name="l02153"></a><span·class="lineno">·2153</span> ····confess(last_error())·<span·class="keywordflow">if</span>·$@;</div><div·class="line"><a·name="l02154"></a><span·class="lineno">·2154</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l02155"></a><span·class="lineno">·2155</span> ····my·$t·=·GetGeoTransform($self);</div><div·class="line"><a·name="l02156"></a><span·class="lineno">·2156</span> ····<span·class="keywordflow">if</span>·(wantarray)·{</div><div·class="line"><a·name="l02157"></a><span·class="lineno">·2157</span> ········<span·class="keywordflow">return</span>·@$t;</div><div·class="line"><a·name="l02158"></a><span·class="lineno">·2158</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l02159"></a><span·class="lineno">·2159</span> ········<span·class="keywordflow">return</span>·<a·class="code"·href="classGeo_1_1GDAL_1_1GeoTransform.html">Geo::GDAL::GeoTransform</a>-><a·class="code"·href="classGeo_1_1GDAL_1_1GeoTransform.html#a47df3828bccbfe26899b47f87a8e65b4">new</a>($t);</div><div·class="line"><a·name="l02160"></a><span·class="lineno">·2160</span> ····}</div><div·class="line"><a·name="l02161"></a><span·class="lineno">·2161</span> }</div><div·class="line"><a·name="l02162"></a><span·class="lineno">·2162</span> </div><div·class="line"><a·name="l02163"></a><span·class="lineno">·2163</span> <span·class="preprocessor">#**·@method·GetDriver()</span></div><div·class="line"><a·name="l02164"></a><span·class="lineno">·2164</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02165"></a><span·class="lineno">·2165</span> sub·GetDriver·{</div><div·class="line"><a·name="l02166"></a><span·class="lineno">·2166</span> }</div><div·class="line"><a·name="l02167"></a><span·class="lineno">·2167</span> </div><div·class="line"><a·name="l02168"></a><span·class="lineno">·2168</span> <span·class="preprocessor">#**·@method·list·GetFileList()</span></div><div·class="line"><a·name="l02169"></a><span·class="lineno">·2169</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02170"></a><span·class="lineno">·2170</span> <span·class="preprocessor">#·@return·list·of·files·GDAL·believes·to·be·part·of·this·dataset.</span></div><div·class="line"><a·name="l02171"></a><span·class="lineno">·2171</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02172"></a><span·class="lineno">·2172</span> sub·GetFileList·{</div><div·class="line"><a·name="l02173"></a><span·class="lineno">·2173</span> }</div><div·class="line"><a·name="l02174"></a><span·class="lineno">·2174</span> </div><div·class="line"><a·name="l02175"></a><span·class="lineno">·2175</span> <span·class="preprocessor">#**·@method·scalar·GetGCPProjection()</span></div><div·class="line"><a·name="l02176"></a><span·class="lineno">·2176</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02177"></a><span·class="lineno">·2177</span> <span·class="preprocessor">#·@return·projection·string.</span></div><div·class="line"><a·name="l02178"></a><span·class="lineno">·2178</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02179"></a><span·class="lineno">·2179</span> sub·GetGCPProjection·{</div><div·class="line"><a·name="l02180"></a><span·class="lineno">·2180</span> }</div><div·class="line"><a·name="l02181"></a><span·class="lineno">·2181</span> </div><div·class="line"><a·name="l02182"></a><span·class="lineno">·2182</span> <span·class="preprocessor">#**·@method·Geo::OGR::Layer·GetLayer($name)</span></div><div·class="line"><a·name="l02183"></a><span·class="lineno">·2183</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02184"></a><span·class="lineno">·2184</span> <span·class="preprocessor">#·@param·name·the·name·of·the·requested·layer.·If·not·given,·then</span></div><div·class="line"><a·name="l02185"></a><span·class="lineno">·2185</span> <span·class="preprocessor">#·returns·the·first·layer·in·the·data·source.</span></div><div·class="line"><a·name="l02186"></a><span·class="lineno">·2186</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Layer·object·that·represents·the·layer</span></div><div·class="line"><a·name="l02187"></a><span·class="lineno">·2187</span> <span·class="preprocessor">#·in·the·data·source.</span></div><div·class="line"><a·name="l02188"></a><span·class="lineno">·2188</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02189"></a><span·class="lineno">·2189</span> sub·GetLayer·{</div><div·class="line"><a·name="l02190"></a><span·class="lineno">·2190</span> ····my($self,·$name)·=·@_;</div><div·class="line"><a·name="l02191"></a><span·class="lineno">·2191</span> ····my·$layer·=·defined·$name·?·GetLayerByName($self,·<span·class="stringliteral">"$name"</span>)·:·GetLayerByIndex($self,·0);</div><div·class="line"><a·name="l02192"></a><span·class="lineno">·2192</span> ····$name·<span·class="comment">//=·'';</span></div><div·class="line"><a·name="l02193"></a><span·class="lineno">·2193</span> ····error(2,·$name,·<span·class="stringliteral">'Layer'</span>)·unless·$layer;</div><div·class="line"><a·name="l02194"></a><span·class="lineno">·2194</span> ····keep($layer,·$self);</div><div·class="line"><a·name="l02195"></a><span·class="lineno">·2195</span> }</div><div·class="line"><a·name="l02196"></a><span·class="lineno">·2196</span> </div><div·class="line"><a·name="l02197"></a><span·class="lineno">·2197</span> <span·class="preprocessor">#**·@method·list·GetLayerNames()</span></div><div·class="line"><a·name="l02198"></a><span·class="lineno">·2198</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02199"></a><span·class="lineno">·2199</span> <span·class="preprocessor">#·@note·Delivers·the·functionality·of·undocumented·method·GetLayerCount.</span></div><div·class="line"><a·name="l02200"></a><span·class="lineno">·2200</span> <span·class="preprocessor">#·@return·a·list·of·the·names·of·the·layers·this·data·source·provides.</span></div><div·class="line"><a·name="l02201"></a><span·class="lineno">·2201</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02202"></a><span·class="lineno">·2202</span> sub·GetLayerNames·{</div><div·class="line"><a·name="l02203"></a><span·class="lineno">·2203</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02204"></a><span·class="lineno">·2204</span> ····my·@names;</div><div·class="line"><a·name="l02205"></a><span·class="lineno">·2205</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$self->GetLayerCount-1)·{</div><div·class="line"><a·name="l02206"></a><span·class="lineno">·2206</span> ········my·$layer·=·GetLayerByIndex($self,·$i);</div><div·class="line"><a·name="l02207"></a><span·class="lineno">·2207</span> ········push·@names,·$layer->GetName;</div><div·class="line"><a·name="l02208"></a><span·class="lineno">·2208</span> ····}</div><div·class="line"><a·name="l02209"></a><span·class="lineno">·2209</span> ····<span·class="keywordflow">return</span>·@names;</div><div·class="line"><a·name="l02210"></a><span·class="lineno">·2210</span> }</div><div·class="line"><a·name="l02211"></a><span·class="lineno">·2211</span> </div><div·class="line"><a·name="l02212"></a><span·class="lineno">·2212</span> <span·class="preprocessor">#**·@method·GetNextFeature()</span></div><div·class="line"><a·name="l02213"></a><span·class="lineno">·2213</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02214"></a><span·class="lineno">·2214</span> sub·GetNextFeature·{</div><div·class="line"><a·name="l02215"></a><span·class="lineno">·2215</span> }</div><div·class="line"><a·name="l02216"></a><span·class="lineno">·2216</span> </div><div·class="line"><a·name="l02217"></a><span·class="lineno">·2217</span> <span·class="preprocessor">#**·@method·GetStyleTable()</span></div><div·class="line"><a·name="l02218"></a><span·class="lineno">·2218</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02219"></a><span·class="lineno">·2219</span> sub·GetStyleTable·{</div><div·class="line"><a·name="l02220"></a><span·class="lineno">·2220</span> }</div><div·class="line"><a·name="l02221"></a><span·class="lineno">·2221</span> </div><div·class="line"><a·name="l02222"></a><span·class="lineno">·2222</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Grid($Dest,·hashref·Options)</span></div><div·class="line"><a·name="l02223"></a><span·class="lineno">·2223</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02224"></a><span·class="lineno">·2224</span> <span·class="preprocessor">#·Creates·a·regular·raster·grid·from·this·data·source.</span></div><div·class="line"><a·name="l02225"></a><span·class="lineno">·2225</span> <span·class="preprocessor">#·This·is·equivalent·to·the·gdal_grid·utility.</span></div><div·class="line"><a·name="l02226"></a><span·class="lineno">·2226</span> <span·class="preprocessor">#·@param·Dest·Destination·raster·dataset·definition·string·(typically</span></div><div·class="line"><a·name="l02227"></a><span·class="lineno">·2227</span> <span·class="preprocessor">#·filename)·or·an·object,·which·implements·write·and·close.</span></div><div·class="line"><a·name="l02228"></a><span·class="lineno">·2228</span> <span·class="preprocessor">#·@param·Options·See·section·\ref·index_processing_options.</span></div><div·class="line"><a·name="l02229"></a><span·class="lineno">·2229</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02230"></a><span·class="lineno">·2230</span> sub·Grid·{</div><div·class="line"><a·name="l02231"></a><span·class="lineno">·2231</span> ····my·($self,·$dest,·$options,·$progress,·$progress_data)·=·@_;</div><div·class="line"><a·name="l02232"></a><span·class="lineno">·2232</span> ····$options·=·Geo::GDAL::GDALGridOptions->new(make_processing_options($options));</div><div·class="line"><a·name="l02233"></a><span·class="lineno">·2233</span> ····<span·class="keywordflow">return</span>·$self->stdout_redirection_wrapper(</div><div·class="line"><a·name="l02234"></a><span·class="lineno">·2234</span> ········$dest,</div><div·class="line"><a·name="l02235"></a><span·class="lineno">·2235</span> ········\&Geo::GDAL::wrapper_GDALGrid,</div><div·class="line"><a·name="l02236"></a><span·class="lineno">·2236</span> ········$options,·$progress,·$progress_data</div><div·class="line"><a·name="l02237"></a><span·class="lineno">·2237</span> ····);</div><div·class="line"><a·name="l02238"></a><span·class="lineno">·2238</span> }</div><div·class="line"><a·name="l02239"></a><span·class="lineno">·2239</span> </div><div·class="line"><a·name="l02240"></a><span·class="lineno">·2240</span> <span·class="preprocessor">#**·@method·scalar·Info(hashref·Options)</span></div><div·class="line"><a·name="l02241"></a><span·class="lineno">·2241</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02242"></a><span·class="lineno">·2242</span> <span·class="preprocessor">#·Information·about·this·dataset.</span></div><div·class="line"><a·name="l02243"></a><span·class="lineno">·2243</span> <span·class="preprocessor">#·@param·Options·See·section·\ref·index_processing_options.</span></div><div·class="line"><a·name="l02244"></a><span·class="lineno">·2244</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02245"></a><span·class="lineno">·2245</span> sub·Info·{</div><div·class="line"><a·name="l02246"></a><span·class="lineno">·2246</span> ····my·($self,·$o)·=·@_;</div><div·class="line"><a·name="l02247"></a><span·class="lineno">·2247</span> ····$o·=·Geo::GDAL::GDALInfoOptions->new(make_processing_options($o));</div><div·class="line"><a·name="l02248"></a><span·class="lineno">·2248</span> ····<span·class="keywordflow">return</span>·GDALInfo($self,·$o);</div><div·class="line"><a·name="l02249"></a><span·class="lineno">·2249</span> }</div><div·class="line"><a·name="l02250"></a><span·class="lineno">·2250</span> </div><div·class="line"><a·name="l02251"></a><span·class="lineno">·2251</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Nearblack($Dest,·hashref·Options,·coderef·progress,·$progress_data)</span></div><div·class="line"><a·name="l02252"></a><span·class="lineno">·2252</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02253"></a><span·class="lineno">·2253</span> <span·class="preprocessor">#·Convert·nearly·black/white·pixels·to·black/white.</span></div><div·class="line"><a·name="l02254"></a><span·class="lineno">·2254</span> <span·class="preprocessor">#·@param·Dest·Destination·raster·dataset·definition·string·(typically</span></div><div·class="line"><a·name="l02255"></a><span·class="lineno">·2255</span> <span·class="preprocessor">#·filename),·destination·dataset·to·which·to·add·an·alpha·or·mask</span></div><div·class="line"><a·name="l02256"></a><span·class="lineno">·2256</span> <span·class="preprocessor">#·band,·or·an·object,·which·implements·write·and·close.</span></div><div·class="line"><a·name="l02257"></a><span·class="lineno">·2257</span> <span·class="preprocessor">#·@param·Options·See·section·\ref·index_processing_options.</span></div><div·class="line"><a·name="l02258"></a><span·class="lineno">·2258</span> <span·class="preprocessor">#·@return·Dataset·if·destination·dataset·definition·string·was·given,</span></div><div·class="line"><a·name="l02259"></a><span·class="lineno">·2259</span> <span·class="preprocessor">#·otherwise·a·boolean·for·success/fail·but·the·method·croaks·if·there</span></div><div·class="line"><a·name="l02260"></a><span·class="lineno">·2260</span> <span·class="preprocessor">#·was·an·error.</span></div><div·class="line"><a·name="l02261"></a><span·class="lineno">·2261</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02262"></a><span·class="lineno">·2262</span> sub·Nearblack·{</div><div·class="line"><a·name="l02263"></a><span·class="lineno">·2263</span> ····my·($self,·$dest,·$options,·$progress,·$progress_data)·=·@_;</div><div·class="line"><a·name="l02264"></a><span·class="lineno">·2264</span> ····$options·=·Geo::GDAL::GDALNearblackOptions->new(make_processing_options($options));</div><div·class="line"><a·name="l02265"></a><span·class="lineno">·2265</span> ····my·$b·=·blessed($dest);</div><div·class="line"><a·name="l02266"></a><span·class="lineno">·2266</span> ····<span·class="keywordflow">if</span>·($b·&&·$b·eq·<span·class="stringliteral">'Geo::GDAL::Dataset'</span>)·{</div><div·class="line"><a·name="l02267"></a><span·class="lineno">·2267</span> ········Geo::GDAL::wrapper_GDALNearblackDestDS($dest,·$self,·$options,·$progress,·$progress_data);</div><div·class="line"><a·name="l02268"></a><span·class="lineno">·2268</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l02269"></a><span·class="lineno">·2269</span> ········<span·class="keywordflow">return</span>·$self->stdout_redirection_wrapper(</div><div·class="line"><a·name="l02270"></a><span·class="lineno">·2270</span> ············$dest,</div><div·class="line"><a·name="l02271"></a><span·class="lineno">·2271</span> ············\&Geo::GDAL::wrapper_GDALNearblackDestName,</div><div·class="line"><a·name="l02272"></a><span·class="lineno">·2272</span> ············$options,·$progress,·$progress_data</div><div·class="line"><a·name="l02273"></a><span·class="lineno">·2273</span> ········);</div><div·class="line"><a·name="l02274"></a><span·class="lineno">·2274</span> ····}</div><div·class="line"><a·name="l02275"></a><span·class="lineno">·2275</span> }</div><div·class="line"><a·name="l02276"></a><span·class="lineno">·2276</span> </div><div·class="line"><a·name="l02277"></a><span·class="lineno">·2277</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Open()</span></div><div·class="line"><a·name="l02278"></a><span·class="lineno">·2278</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l02279"></a><span·class="lineno">·2279</span> <span·class="preprocessor">#·The·same·as·Geo::GDAL::Open</span></div><div·class="line"><a·name="l02280"></a><span·class="lineno">·2280</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02281"></a><span·class="lineno">·2281</span> sub·Open·{</div><div·class="line"><a·name="l02282"></a><span·class="lineno">·2282</span> }</div><div·class="line"><a·name="l02283"></a><span·class="lineno">·2283</span> </div><div·class="line"><a·name="l02284"></a><span·class="lineno">·2284</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·OpenShared()</span></div><div·class="line"><a·name="l02285"></a><span·class="lineno">·2285</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l02286"></a><span·class="lineno">·2286</span> <span·class="preprocessor">#·The·same·as·Geo::GDAL::OpenShared</span></div><div·class="line"><a·name="l02287"></a><span·class="lineno">·2287</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02288"></a><span·class="lineno">·2288</span> sub·OpenShared·{</div><div·class="line"><a·name="l02289"></a><span·class="lineno">·2289</span> }</div><div·class="line"><a·name="l02290"></a><span·class="lineno">·2290</span> </div><div·class="line"><a·name="l02291"></a><span·class="lineno">·2291</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Rasterize($Dest,·hashref·Options,·coderef·progress,·$progress_data)</span></div><div·class="line"><a·name="l02292"></a><span·class="lineno">·2292</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02293"></a><span·class="lineno">·2293</span> <span·class="preprocessor">#·Render·data·from·this·data·source·into·a·raster.</span></div><div·class="line"><a·name="l02294"></a><span·class="lineno">·2294</span> <span·class="preprocessor">#·@param·Dest·Destination·raster·dataset·definition·string·(typically</span></div><div·class="line"><a·name="l02295"></a><span·class="lineno">·2295</span> <span·class="preprocessor">#·filename),·destination·dataset,·or·an·object,·which·implements·write·and·close.</span></div><div·class="line"><a·name="l02296"></a><span·class="lineno">·2296</span> <span·class="preprocessor">#·@param·Options·See·section·\ref·index_processing_options.</span></div><div·class="line"><a·name="l02297"></a><span·class="lineno">·2297</span> <span·class="preprocessor">#·@return·Dataset·if·destination·dataset·definition·string·was·given,</span></div><div·class="line"><a·name="l02298"></a><span·class="lineno">·2298</span> <span·class="preprocessor">#·otherwise·a·boolean·for·success/fail·but·the·method·croaks·if·there</span></div><div·class="line"><a·name="l02299"></a><span·class="lineno">·2299</span> <span·class="preprocessor">#·was·an·error.</span></div><div·class="line"><a·name="l02300"></a><span·class="lineno">·2300</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02301"></a><span·class="lineno">·2301</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02302"></a><span·class="lineno">·2302</span> sub·Rasterize·{</div><div·class="line"><a·name="l02303"></a><span·class="lineno">·2303</span> ····my·($self,·$dest,·$options,·$progress,·$progress_data)·=·@_;</div><div·class="line"><a·name="l02304"></a><span·class="lineno">·2304</span> ····$options·=·Geo::GDAL::GDALRasterizeOptions->new(make_processing_options($options));</div><div·class="line"><a·name="l02305"></a><span·class="lineno">·2305</span> ····my·$b·=·blessed($dest);</div><div·class="line"><a·name="l02306"></a><span·class="lineno">·2306</span> ····<span·class="keywordflow">if</span>·($b·&&·$b·eq·<span·class="stringliteral">'Geo::GDAL::Dataset'</span>)·{</div><div·class="line"><a·name="l02307"></a><span·class="lineno">·2307</span> ········Geo::GDAL::wrapper_GDALRasterizeDestDS($dest,·$self,·$options,·$progress,·$progress_data);</div><div·class="line"><a·name="l02308"></a><span·class="lineno">·2308</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l02309"></a><span·class="lineno">·2309</span> <span·class="preprocessor">········#·TODO:·options·need·to·force·a·new·raster·be·made,·otherwise·segfault</span></div><div·class="line"><a·name="l02310"></a><span·class="lineno">·2310</span> ········<span·class="keywordflow">return</span>·$self->stdout_redirection_wrapper(</div><div·class="line"><a·name="l02311"></a><span·class="lineno">·2311</span> ············$dest,</div><div·class="line"><a·name="l02312"></a><span·class="lineno">·2312</span> ············\&Geo::GDAL::wrapper_GDALRasterizeDestName,</div><div·class="line"><a·name="l02313"></a><span·class="lineno">·2313</span> ············$options,·$progress,·$progress_data</div><div·class="line"><a·name="l02314"></a><span·class="lineno">·2314</span> ········);</div><div·class="line"><a·name="l02315"></a><span·class="lineno">·2315</span> ····}</div><div·class="line"><a·name="l02316"></a><span·class="lineno">·2316</span> }</div><div·class="line"><a·name="l02317"></a><span·class="lineno">·2317</span> </div><div·class="line"><a·name="l02318"></a><span·class="lineno">·2318</span> <span·class="preprocessor">#**·@method·scalar·ReadRaster(%params)</span></div><div·class="line"><a·name="l02319"></a><span·class="lineno">·2319</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02320"></a><span·class="lineno">·2320</span> <span·class="preprocessor">#·Read·data·from·the·dataset.</span></div><div·class="line"><a·name="l02321"></a><span·class="lineno">·2321</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02322"></a><span·class="lineno">·2322</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l02323"></a><span·class="lineno">·2323</span> <span·class="preprocessor">#·-·\a·XOff·x·offset·(cell·coordinates)·(default·is·0)</span></div><div·class="line"><a·name="l02324"></a><span·class="lineno">·2324</span> <span·class="preprocessor">#·-·\a·YOff·y·offset·(cell·coordinates)·(default·is·0)</span></div><div·class="line"><a·name="l02325"></a><span·class="lineno">·2325</span> <span·class="preprocessor">#·-·\a·XSize·width·of·the·area·to·read·(default·is·the·width·of·the·dataset)</span></div><div·class="line"><a·name="l02326"></a><span·class="lineno">·2326</span> <span·class="preprocessor">#·-·\a·YSize·height·of·the·area·to·read·(default·is·the·height·of·the·dataset)</span></div><div·class="line"><a·name="l02327"></a><span·class="lineno">·2327</span> <span·class="preprocessor">#·-·\a·BufXSize·(default·is·undef,·i.e.,·the·same·as·XSize)</span></div><div·class="line"><a·name="l02328"></a><span·class="lineno">·2328</span> <span·class="preprocessor">#·-·\a·BufYSize·(default·is·undef,·i.e.,·the·same·as·YSize)</span></div><div·class="line"><a·name="l02329"></a><span·class="lineno">·2329</span> <span·class="preprocessor">#·-·\a·BufType·data·type·of·the·buffer·(default·is·the·data·type·of·the·first·band)</span></div><div·class="line"><a·name="l02330"></a><span·class="lineno">·2330</span> <span·class="preprocessor">#·-·\a·BandList·a·reference·to·an·array·of·band·indices·(default·is·[1])</span></div><div·class="line"><a·name="l02331"></a><span·class="lineno">·2331</span> <span·class="preprocessor">#·-·\a·BufPixelSpace·(default·is·0)</span></div><div·class="line"><a·name="l02332"></a><span·class="lineno">·2332</span> <span·class="preprocessor">#·-·\a·BufLineSpace·(default·is·0)</span></div><div·class="line"><a·name="l02333"></a><span·class="lineno">·2333</span> <span·class="preprocessor">#·-·\a·BufBandSpace·(default·is·0)</span></div><div·class="line"><a·name="l02334"></a><span·class="lineno">·2334</span> <span·class="preprocessor">#·-·\a·ResampleAlg·one·of·Geo::GDAL::RIOResamplingTypes·(default·is·'NearestNeighbour'),</span></div><div·class="line"><a·name="l02335"></a><span·class="lineno">·2335</span> <span·class="preprocessor">#·-·\a·Progress·reference·to·a·progress·function·(default·is·undef)</span></div><div·class="line"><a·name="l02336"></a><span·class="lineno">·2336</span> <span·class="preprocessor">#·-·\a·ProgressData·(default·is·undef)</span></div><div·class="line"><a·name="l02337"></a><span·class="lineno">·2337</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02338"></a><span·class="lineno">·2338</span> <span·class="preprocessor">#·<a·href="http://www.gdal.org/classGDALDataset.html">Entry·in·GDAL·docs·(method·RasterIO)</a></span></div><div·class="line"><a·name="l02339"></a><span·class="lineno">·2339</span> <span·class="preprocessor">#·@return·a·buffer,·open·the·buffer·with·\a·unpack·function·of·Perl.·See·Geo::GDAL::Band::PackCharacter.</span></div><div·class="line"><a·name="l02340"></a><span·class="lineno">·2340</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02341"></a><span·class="lineno">·2341</span> sub·ReadRaster·{</div><div·class="line"><a·name="l02342"></a><span·class="lineno">·2342</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02343"></a><span·class="lineno">·2343</span> ····my·($width,·$height)·=·$self->Size;</div><div·class="line"><a·name="l02344"></a><span·class="lineno">·2344</span> ····my·($type)·=·$self->Band->DataType;</div><div·class="line"><a·name="l02345"></a><span·class="lineno">·2345</span> ····my·$p·=·named_parameters(\@_,</div><div·class="line"><a·name="l02346"></a><span·class="lineno">·2346</span> ·····························XOff·=>·0,</div><div·class="line"><a·name="l02347"></a><span·class="lineno">·2347</span> ·····························YOff·=>·0,</div><div·class="line"><a·name="l02348"></a><span·class="lineno">·2348</span> ·····························XSize·=>·$width,</div><div·class="line"><a·name="l02349"></a><span·class="lineno">·2349</span> ·····························YSize·=>·$height,</div><div·class="line"><a·name="l02350"></a><span·class="lineno">·2350</span> ·····························BufXSize·=>·undef,</div><div·class="line"><a·name="l02351"></a><span·class="lineno">·2351</span> ·····························BufYSize·=>·undef,</div><div·class="line"><a·name="l02352"></a><span·class="lineno">·2352</span> ·····························BufType·=>·$type,</div><div·class="line"><a·name="l02353"></a><span·class="lineno">·2353</span> ·····························BandList·=>·[1],</div><div·class="line"><a·name="l02354"></a><span·class="lineno">·2354</span> ·····························BufPixelSpace·=>·0,</div><div·class="line"><a·name="l02355"></a><span·class="lineno">·2355</span> ·····························BufLineSpace·=>·0,</div><div·class="line"><a·name="l02356"></a><span·class="lineno">·2356</span> ·····························BufBandSpace·=>·0,</div><div·class="line"><a·name="l02357"></a><span·class="lineno">·2357</span> ·····························ResampleAlg·=>·<span·class="stringliteral">'NearestNeighbour'</span>,</div><div·class="line"><a·name="l02358"></a><span·class="lineno">·2358</span> ·····························Progress·=>·undef,</div><div·class="line"><a·name="l02359"></a><span·class="lineno">·2359</span> ·····························ProgressData·=>·undef</div><div·class="line"><a·name="l02360"></a><span·class="lineno">·2360</span> ········);</div><div·class="line"><a·name="l02361"></a><span·class="lineno">·2361</span> ····$p->{resamplealg}·=·s2i(rio_resampling·=>·$p->{resamplealg});</div><div·class="line"><a·name="l02362"></a><span·class="lineno">·2362</span> ····$p->{buftype}·=·s2i(data_type·=>·$p->{buftype},·1);</div><div·class="line"><a·name="l02363"></a><span·class="lineno">·2363</span> ····$self->_ReadRaster($p->{xoff},$p->{yoff},$p->{xsize},$p->{ysize},$p->{bufxsize},$p->{bufysize},$p->{buftype},$p->{bandlist},$p->{bufpixelspace},$p->{buflinespace},$p->{bufbandspace},$p->{resamplealg},$p->{progress},$p->{progressdata});</div><div·class="line"><a·name="l02364"></a><span·class="lineno">·2364</span> }</div><div·class="line"><a·name="l02365"></a><span·class="lineno">·2365</span> </div><div·class="line"><a·name="l02366"></a><span·class="lineno">·2366</span> <span·class="preprocessor">#**·@method·ReadTile()</span></div><div·class="line"><a·name="l02367"></a><span·class="lineno">·2367</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02368"></a><span·class="lineno">·2368</span> sub·ReadTile·{</div><div·class="line"><a·name="l02369"></a><span·class="lineno">·2369</span> ····my·($self,·$xoff,·$yoff,·$xsize,·$ysize,·$w_tile,·$h_tile,·$alg)·=·@_;</div><div·class="line"><a·name="l02370"></a><span·class="lineno">·2370</span> ····my·@data;</div><div·class="line"><a·name="l02371"></a><span·class="lineno">·2371</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$self->Bands-1)·{</div><div·class="line"><a·name="l02372"></a><span·class="lineno">·2372</span> ········$data[$i]·=·$self->Band($i+1)->ReadTile($xoff,·$yoff,·$xsize,·$ysize,·$w_tile,·$h_tile,·$alg);</div><div·class="line"><a·name="l02373"></a><span·class="lineno">·2373</span> ····}</div><div·class="line"><a·name="l02374"></a><span·class="lineno">·2374</span> ····<span·class="keywordflow">return</span>·\@data;</div><div·class="line"><a·name="l02375"></a><span·class="lineno">·2375</span> }</div><div·class="line"><a·name="l02376"></a><span·class="lineno">·2376</span> </div><div·class="line"><a·name="l02377"></a><span·class="lineno">·2377</span> <span·class="preprocessor">#**·@method·ReleaseResultSet($layer)</span></div><div·class="line"><a·name="l02378"></a><span·class="lineno">·2378</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02379"></a><span·class="lineno">·2379</span> <span·class="preprocessor">#·@param·layer·A·layer·the·has·been·created·with·ExecuteSQL.</span></div><div·class="line"><a·name="l02380"></a><span·class="lineno">·2380</span> <span·class="preprocessor">#·@note·There·is·no·need·to·call·this·method.·The·result·set·layer·is</span></div><div·class="line"><a·name="l02381"></a><span·class="lineno">·2381</span> <span·class="preprocessor">#·released·in·the·destructor·of·the·layer·that·was·created·with·SQL.</span></div><div·class="line"><a·name="l02382"></a><span·class="lineno">·2382</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02383"></a><span·class="lineno">·2383</span> sub·ReleaseResultSet·{</div><div·class="line"><a·name="l02384"></a><span·class="lineno">·2384</span> <span·class="preprocessor">····#·a·no-op,·_ReleaseResultSet·is·called·from·Layer::DESTROY</span></div><div·class="line"><a·name="l02385"></a><span·class="lineno">·2385</span> }</div><div·class="line"><a·name="l02386"></a><span·class="lineno">·2386</span> </div><div·class="line"><a·name="l02387"></a><span·class="lineno">·2387</span> <span·class="preprocessor">#**·@method·ResetReading()</span></div><div·class="line"><a·name="l02388"></a><span·class="lineno">·2388</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02389"></a><span·class="lineno">·2389</span> sub·ResetReading·{</div><div·class="line"><a·name="l02390"></a><span·class="lineno">·2390</span> }</div><div·class="line"><a·name="l02391"></a><span·class="lineno">·2391</span> </div><div·class="line"><a·name="l02392"></a><span·class="lineno">·2392</span> <span·class="preprocessor">#**·@method·RollbackTransaction()</span></div><div·class="line"><a·name="l02393"></a><span·class="lineno">·2393</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02394"></a><span·class="lineno">·2394</span> sub·RollbackTransaction·{</div><div·class="line"><a·name="l02395"></a><span·class="lineno">·2395</span> }</div><div·class="line"><a·name="l02396"></a><span·class="lineno">·2396</span> </div><div·class="line"><a·name="l02397"></a><span·class="lineno">·2397</span> <span·class="preprocessor">#**·@method·SetStyleTable()</span></div><div·class="line"><a·name="l02398"></a><span·class="lineno">·2398</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02399"></a><span·class="lineno">·2399</span> sub·SetStyleTable·{</div><div·class="line"><a·name="l02400"></a><span·class="lineno">·2400</span> }</div><div·class="line"><a·name="l02401"></a><span·class="lineno">·2401</span> </div><div·class="line"><a·name="l02402"></a><span·class="lineno">·2402</span> <span·class="preprocessor">#**·@method·list·Size()</span></div><div·class="line"><a·name="l02403"></a><span·class="lineno">·2403</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02404"></a><span·class="lineno">·2404</span> <span·class="preprocessor">#·@return·(width,·height)</span></div><div·class="line"><a·name="l02405"></a><span·class="lineno">·2405</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02406"></a><span·class="lineno">·2406</span> sub·Size·{</div><div·class="line"><a·name="l02407"></a><span·class="lineno">·2407</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02408"></a><span·class="lineno">·2408</span> ····<span·class="keywordflow">return</span>·($self->{RasterXSize},·$self->{RasterYSize});</div><div·class="line"><a·name="l02409"></a><span·class="lineno">·2409</span> }</div><div·class="line"><a·name="l02410"></a><span·class="lineno">·2410</span> </div><div·class="line"><a·name="l02411"></a><span·class="lineno">·2411</span> <span·class="preprocessor">#**·@method·Geo::OSR::SpatialReference·SpatialReference(Geo::OSR::SpatialReference·sr)</span></div><div·class="line"><a·name="l02412"></a><span·class="lineno">·2412</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02413"></a><span·class="lineno">·2413</span> <span·class="preprocessor">#·Get·or·set·the·projection·of·this·dataset.</span></div><div·class="line"><a·name="l02414"></a><span·class="lineno">·2414</span> <span·class="preprocessor">#·@param·sr·[optional]·a·Geo::OSR::SpatialReference·object,</span></div><div·class="line"><a·name="l02415"></a><span·class="lineno">·2415</span> <span·class="preprocessor">#·which·replaces·the·existing·projection·definition·of·this·dataset.</span></div><div·class="line"><a·name="l02416"></a><span·class="lineno">·2416</span> <span·class="preprocessor">#·@return·a·Geo::OSR::SpatialReference·object,·which·represents·the</span></div><div·class="line"><a·name="l02417"></a><span·class="lineno">·2417</span> <span·class="preprocessor">#·projection·of·this·dataset.</span></div><div·class="line"><a·name="l02418"></a><span·class="lineno">·2418</span> <span·class="preprocessor">#·@note·Methods·GetProjection,·SetProjection,·and·Projection·return·WKT·strings.</span></div><div·class="line"><a·name="l02419"></a><span·class="lineno">·2419</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02420"></a><span·class="lineno">·2420</span> sub·SpatialReference·{</div><div·class="line"><a·name="l02421"></a><span·class="lineno">·2421</span> ····my($self,·$sr)·=·@_;</div><div·class="line"><a·name="l02422"></a><span·class="lineno">·2422</span> ····SetProjection($self,·$sr->As(<span·class="stringliteral">'WKT'</span>))·<span·class="keywordflow">if</span>·defined·$sr;</div><div·class="line"><a·name="l02423"></a><span·class="lineno">·2423</span> ····<span·class="keywordflow">if</span>·(defined·wantarray)·{</div><div·class="line"><a·name="l02424"></a><span·class="lineno">·2424</span> ········my·$p·=·GetProjection($self);</div><div·class="line"><a·name="l02425"></a><span·class="lineno">·2425</span> ········<span·class="keywordflow">return</span>·unless·$p;</div><div·class="line"><a·name="l02426"></a><span·class="lineno">·2426</span> ········<span·class="keywordflow">return</span>·<a·class="code"·href="classGeo_1_1OSR_1_1SpatialReference.html">Geo::OSR::SpatialReference</a>-><a·class="code"·href="classGeo_1_1OSR_1_1SpatialReference.html#aa1e78517d5765c5a5818f829cd076edc">new</a>(WKT·=>·$p);</div><div·class="line"><a·name="l02427"></a><span·class="lineno">·2427</span> ····}</div><div·class="line"><a·name="l02428"></a><span·class="lineno">·2428</span> }</div><div·class="line"><a·name="l02429"></a><span·class="lineno">·2429</span> </div><div·class="line"><a·name="l02430"></a><span·class="lineno">·2430</span> <span·class="preprocessor">#**·@method·StartTransaction()</span></div><div·class="line"><a·name="l02431"></a><span·class="lineno">·2431</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02432"></a><span·class="lineno">·2432</span> sub·StartTransaction·{</div><div·class="line"><a·name="l02433"></a><span·class="lineno">·2433</span> }</div><div·class="line"><a·name="l02434"></a><span·class="lineno">·2434</span> </div><div·class="line"><a·name="l02435"></a><span·class="lineno">·2435</span> <span·class="preprocessor">#**·@method·TestCapability()</span></div><div·class="line"><a·name="l02436"></a><span·class="lineno">·2436</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02437"></a><span·class="lineno">·2437</span> sub·TestCapability·{</div><div·class="line"><a·name="l02438"></a><span·class="lineno">·2438</span> ····<span·class="keywordflow">return</span>·_TestCapability(@_);</div><div·class="line"><a·name="l02439"></a><span·class="lineno">·2439</span> }</div><div·class="line"><a·name="l02440"></a><span·class="lineno">·2440</span> </div><div·class="line"><a·name="l02441"></a><span·class="lineno">·2441</span> <span·class="preprocessor">#**·@method·Tile(Geo::GDAL::Extent·e)</span></div><div·class="line"><a·name="l02442"></a><span·class="lineno">·2442</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02443"></a><span·class="lineno">·2443</span> <span·class="preprocessor">#·Compute·the·top·left·cell·coordinates·and·width·and·height·of·the</span></div><div·class="line"><a·name="l02444"></a><span·class="lineno">·2444</span> <span·class="preprocessor">#·tile·that·covers·the·given·extent.</span></div><div·class="line"><a·name="l02445"></a><span·class="lineno">·2445</span> <span·class="preprocessor">#·@param·e·The·extent·whose·tile·is·needed.</span></div><div·class="line"><a·name="l02446"></a><span·class="lineno">·2446</span> <span·class="preprocessor">#·@note·Requires·that·the·raster·is·a·strictly·north·up·one.</span></div><div·class="line"><a·name="l02447"></a><span·class="lineno">·2447</span> <span·class="preprocessor">#·@return·A·list·($xoff,·$yoff,·$xsize,·$ysize).</span></div><div·class="line"><a·name="l02448"></a><span·class="lineno">·2448</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02449"></a><span·class="lineno">·2449</span> sub·Tile·{</div><div·class="line"><a·name="l02450"></a><span·class="lineno">·2450</span> ····my·($self,·$e)·=·@_;</div><div·class="line"><a·name="l02451"></a><span·class="lineno">·2451</span> ····my·($w,·$h)·=·$self->Size;</div><div·class="line"><a·name="l02452"></a><span·class="lineno">·2452</span> ····my·$t·=·$self->GeoTransform;</div><div·class="line"><a·name="l02453"></a><span·class="lineno">·2453</span> ····confess·<span·class="stringliteral">"GeoTransform·is·not·\"north·up\"."</span>·unless·$t->NorthUp;</div><div·class="line"><a·name="l02454"></a><span·class="lineno">·2454</span> ····my·$xoff·=·floor(($e->[0]·-·$t->[0])/$t->[1]);</div><div·class="line"><a·name="l02455"></a><span·class="lineno">·2455</span> ····$xoff·=·0·<span·class="keywordflow">if</span>·$xoff·<·0;</div><div·class="line"><a·name="l02456"></a><span·class="lineno">·2456</span> ····my·$yoff·=·floor(($e->[1]·-·$t->[3])/$t->[5]);</div><div·class="line"><a·name="l02457"></a><span·class="lineno">·2457</span> ····$yoff·=·0·<span·class="keywordflow">if</span>·$yoff·<·0;</div><div·class="line"><a·name="l02458"></a><span·class="lineno">·2458</span> ····my·$xsize·=·ceil(($e->[2]·-·$t->[0])/$t->[1])·-·$xoff;</div><div·class="line"><a·name="l02459"></a><span·class="lineno">·2459</span> ····$xsize·=·$w·-·$xoff·<span·class="keywordflow">if</span>·$xsize·>·$w·-·$xoff;</div><div·class="line"><a·name="l02460"></a><span·class="lineno">·2460</span> ····my·$ysize·=·ceil(($e->[3]·-·$t->[3])/$t->[5])·-·$yoff;</div><div·class="line"><a·name="l02461"></a><span·class="lineno">·2461</span> ····$ysize·=·$h·-·$yoff·<span·class="keywordflow">if</span>·$ysize·>·$h·-·$yoff;</div><div·class="line"><a·name="l02462"></a><span·class="lineno">·2462</span> ····<span·class="keywordflow">return</span>·($xoff,·$yoff,·$xsize,·$ysize);</div><div·class="line"><a·name="l02463"></a><span·class="lineno">·2463</span> }</div><div·class="line"><a·name="l02464"></a><span·class="lineno">·2464</span> </div><div·class="line"><a·name="l02465"></a><span·class="lineno">·2465</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Translate($Dest,·hashref·Options,·coderef·progress,·$progress_data)</span></div><div·class="line"><a·name="l02466"></a><span·class="lineno">·2466</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02467"></a><span·class="lineno">·2467</span> <span·class="preprocessor">#·Convert·this·dataset·into·another·format.</span></div><div·class="line"><a·name="l02468"></a><span·class="lineno">·2468</span> <span·class="preprocessor">#·@param·Dest·Destination·dataset·definition·string·(typically</span></div><div·class="line"><a·name="l02469"></a><span·class="lineno">·2469</span> <span·class="preprocessor">#·filename)·or·an·object,·which·implements·write·and·close.</span></div><div·class="line"><a·name="l02470"></a><span·class="lineno">·2470</span> <span·class="preprocessor">#·@param·Options·See·section·\ref·index_processing_options.</span></div><div·class="line"><a·name="l02471"></a><span·class="lineno">·2471</span> <span·class="preprocessor">#·@return·New·dataset·object·if·destination·dataset·definition</span></div><div·class="line"><a·name="l02472"></a><span·class="lineno">·2472</span> <span·class="preprocessor">#·string·was·given,·otherwise·a·boolean·for·success/fail·but·the</span></div><div·class="line"><a·name="l02473"></a><span·class="lineno">·2473</span> <span·class="preprocessor">#·method·croaks·if·there·was·an·error.</span></div><div·class="line"><a·name="l02474"></a><span·class="lineno">·2474</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02475"></a><span·class="lineno">·2475</span> sub·Translate·{</div><div·class="line"><a·name="l02476"></a><span·class="lineno">·2476</span> ····my·($self,·$dest,·$options,·$progress,·$progress_data)·=·@_;</div><div·class="line"><a·name="l02477"></a><span·class="lineno">·2477</span> ····<span·class="keywordflow">return</span>·$self->stdout_redirection_wrapper(</div><div·class="line"><a·name="l02478"></a><span·class="lineno">·2478</span> ········$dest,</div><div·class="line"><a·name="l02479"></a><span·class="lineno">·2479</span> }</div><div·class="line"><a·name="l02480"></a><span·class="lineno">·2480</span> </div><div·class="line"><a·name="l02481"></a><span·class="lineno">·2481</span> #**·@method·<a·class="code"·href="classGeo_1_1GDAL_1_1Dataset.html">Geo::GDAL::Dataset</a>·Warp($Dest,·hashref·Options,·coderef·progress,·$progress_data)</div><div·class="line"><a·name="l02482"></a><span·class="lineno">·2482</span> #·Object·method.</div><div·class="line"><a·name="l02483"></a><span·class="lineno">·2483</span> #·Reproject·<span·class="keyword">this</span>·dataset.</div><div·class="line"><a·name="l02484"></a><span·class="lineno">·2484</span> #·@param·Dest·Destination·raster·dataset·definition·string·(typically</div><div·class="line"><a·name="l02485"></a><span·class="lineno">·2485</span> #·filename)·or·an·<span·class="keywordtype">object</span>,·which·implements·write·and·close.</div><div·class="line"><a·name="l02486"></a><span·class="lineno">·2486</span> #·@param·Options·See·section·\ref·index_processing_options.</div><div·class="line"><a·name="l02487"></a><span·class="lineno">·2487</span> #·@note·This·method·can·be·run·as·a·package·subroutine·with·a·list·of</div><div·class="line"><a·name="l02488"></a><span·class="lineno">·2488</span> #·datasets·as·the·first·argument·to·mosaic·several·datasets.</div><div·class="line"><a·name="l02489"></a><span·class="lineno">·2489</span> #*</div><div·class="line"><a·name="l02490"></a><span·class="lineno">·2490</span> sub·Warp·{</div><div·class="line"><a·name="l02491"></a><span·class="lineno">·2491</span> ····my·($self,·$dest,·$options,·$progress,·$progress_data)·=·@_;</div><div·class="line"><a·name="l02492"></a><span·class="lineno">·2492</span> ····#·can·be·run·as·object·method·(one·dataset)·and·as·package·sub·(a·list·of·datasets)</div><div·class="line"><a·name="l02493"></a><span·class="lineno">·2493</span> ····$options·=·Geo::GDAL::GDALWarpAppOptions->new(make_processing_options($options));</div><div·class="line"><a·name="l02494"></a><span·class="lineno">·2494</span> ····my·$b·=·blessed($dest);</div><div·class="line"><a·name="l02495"></a><span·class="lineno">·2495</span> ····$self·=·[$self]·unless·ref·$self·eq·<span·class="stringliteral">'ARRAY'</span>;</div><div·class="line"><a·name="l02496"></a><span·class="lineno">·2496</span> ····if·($b·&&·$b·eq·<span·class="stringliteral">'Geo::GDAL::Dataset'</span>)·{</div><div·class="line"><a·name="l02497"></a><span·class="lineno">·2497</span> ········Geo::GDAL::wrapper_GDALWarpDestDS($dest,·$self,·$options,·$progress,·$progress_data);</div><div·class="line"><a·name="l02498"></a><span·class="lineno">·2498</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l02499"></a><span·class="lineno">·2499</span> ········return·stdout_redirection_wrapper(</div><div·class="line"><a·name="l02500"></a><span·class="lineno">·2500</span> ············$self,</div><div·class="line"><a·name="l02501"></a><span·class="lineno">·2501</span> ············$dest,</div><div·class="line"><a·name="l02502"></a><span·class="lineno">·2502</span> ············\&Geo::GDAL::wrapper_GDALWarpDestName,</div><div·class="line"><a·name="l02503"></a><span·class="lineno">·2503</span> ············$options,·$progress,·$progress_data</div><div·class="line"><a·name="l02504"></a><span·class="lineno">·2504</span> ········);</div><div·class="line"><a·name="l02505"></a><span·class="lineno">·2505</span> ····}</div><div·class="line"><a·name="l02506"></a><span·class="lineno">·2506</span> }</div><div·class="line"><a·name="l02507"></a><span·class="lineno">·2507</span> </div><div·class="line"><a·name="l02508"></a><span·class="lineno">·2508</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Warped(%params)</span></div><div·class="line"><a·name="l02509"></a><span·class="lineno">·2509</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02510"></a><span·class="lineno">·2510</span> <span·class="preprocessor">#·Create·a·virtual·warped·dataset·from·this·dataset.</span></div><div·class="line"><a·name="l02511"></a><span·class="lineno">·2511</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02512"></a><span·class="lineno">·2512</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l02513"></a><span·class="lineno">·2513</span> <span·class="preprocessor">#·-·\a·SrcSRS·Override·the·spatial·reference·system·of·this·dataset·if·there·is·one·(default·is·undef).</span></div><div·class="line"><a·name="l02514"></a><span·class="lineno">·2514</span> <span·class="preprocessor">#·-·\a·DstSRS·The·target·spatial·reference·system·of·the·result·(default·is·undef).</span></div><div·class="line"><a·name="l02515"></a><span·class="lineno">·2515</span> <span·class="preprocessor">#·-·\a·ResampleAlg·The·resampling·algorithm·(default·is·'NearestNeighbour').</span></div><div·class="line"><a·name="l02516"></a><span·class="lineno">·2516</span> <span·class="preprocessor">#·-·\a·MaxError·Maximum·error·measured·in·input·cellsize·that·is·allowed·in·approximating·the·transformation·(default·is·0·for·exact·calculations).</span></div><div·class="line"><a·name="l02517"></a><span·class="lineno">·2517</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02518"></a><span·class="lineno">·2518</span> <span·class="preprocessor">#·#·<a·href="http://www.gdal.org/gdalwarper_8h.html">Documentation·for·GDAL·warper.</a></span></div><div·class="line"><a·name="l02519"></a><span·class="lineno">·2519</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02520"></a><span·class="lineno">·2520</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::Dataset·object</span></div><div·class="line"><a·name="l02521"></a><span·class="lineno">·2521</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02522"></a><span·class="lineno">·2522</span> sub·Warped·{</div><div·class="line"><a·name="l02523"></a><span·class="lineno">·2523</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02524"></a><span·class="lineno">·2524</span> ····my·$p·=·named_parameters(\@_,·SrcSRS·=>·undef,·DstSRS·=>·undef,·ResampleAlg·=>·<span·class="stringliteral">'NearestNeighbour'</span>,·MaxError·=>·0);</div><div·class="line"><a·name="l02525"></a><span·class="lineno">·2525</span> ····<span·class="keywordflow">for</span>·my·$srs·(qw/srcsrs·dstsrs/)·{</div><div·class="line"><a·name="l02526"></a><span·class="lineno">·2526</span> ········$p->{$srs}·=·$p->{$srs}->ExportToWkt·<span·class="keywordflow">if</span>·$p->{$srs}·&&·blessed·$p->{$srs};</div><div·class="line"><a·name="l02527"></a><span·class="lineno">·2527</span> ····}</div><div·class="line"><a·name="l02528"></a><span·class="lineno">·2528</span> ····$p->{resamplealg}·=·s2i(resampling·=>·$p->{resamplealg});</div><div·class="line"><a·name="l02529"></a><span·class="lineno">·2529</span> ····my·$warped·=·Geo::GDAL::_AutoCreateWarpedVRT($self,·$p->{srcsrs},·$p->{dstsrs},·$p->{resamplealg},·$p->{maxerror});</div><div·class="line"><a·name="l02530"></a><span·class="lineno">·2530</span> ····keep($warped,·$self)·<span·class="keywordflow">if</span>·$warped;·#·<span·class="keyword">self</span>·must·live·as·<span·class="keywordtype">long</span>·as·warped</div><div·class="line"><a·name="l02531"></a><span·class="lineno">·2531</span> }</div><div·class="line"><a·name="l02532"></a><span·class="lineno">·2532</span> </div><div·class="line"><a·name="l02533"></a><span·class="lineno">·2533</span> <span·class="preprocessor">#**·@method·WriteRaster(%params)</span></div><div·class="line"><a·name="l02534"></a><span·class="lineno">·2534</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02535"></a><span·class="lineno">·2535</span> <span·class="preprocessor">#·Write·data·into·the·dataset.</span></div><div·class="line"><a·name="l02536"></a><span·class="lineno">·2536</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02537"></a><span·class="lineno">·2537</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l02538"></a><span·class="lineno">·2538</span> <span·class="preprocessor">#·-·\a·XOff·x·offset·(cell·coordinates)·(default·is·0)</span></div><div·class="line"><a·name="l02539"></a><span·class="lineno">·2539</span> <span·class="preprocessor">#·-·\a·YOff·y·offset·(cell·coordinates)·(default·is·0)</span></div><div·class="line"><a·name="l02540"></a><span·class="lineno">·2540</span> <span·class="preprocessor">#·-·\a·XSize·width·of·the·area·to·write·(default·is·the·width·of·the·dataset)</span></div><div·class="line"><a·name="l02541"></a><span·class="lineno">·2541</span> <span·class="preprocessor">#·-·\a·YSize·height·of·the·area·to·write·(default·is·the·height·of·the·dataset)</span></div><div·class="line"><a·name="l02542"></a><span·class="lineno">·2542</span> <span·class="preprocessor">#·-·\a·Buf·a·buffer·(or·a·reference·to·a·buffer)·containing·the·data.·Create·the·buffer·with·\a·pack·function·of·Perl.·See·Geo::GDAL::Band::PackCharacter.</span></div><div·class="line"><a·name="l02543"></a><span·class="lineno">·2543</span> <span·class="preprocessor">#·-·\a·BufXSize·(default·is·undef,·i.e.,·the·same·as·XSize)</span></div><div·class="line"><a·name="l02544"></a><span·class="lineno">·2544</span> <span·class="preprocessor">#·-·\a·BufYSize·(default·is·undef,·i.e.,·the·same·as·YSize)</span></div><div·class="line"><a·name="l02545"></a><span·class="lineno">·2545</span> <span·class="preprocessor">#·-·\a·BufType·data·type·of·the·buffer·(default·is·the·data·type·of·the·first·band)</span></div><div·class="line"><a·name="l02546"></a><span·class="lineno">·2546</span> <span·class="preprocessor">#·-·\a·BandList·a·reference·to·an·array·of·band·indices·(default·is·[1])</span></div><div·class="line"><a·name="l02547"></a><span·class="lineno">·2547</span> <span·class="preprocessor">#·-·\a·BufPixelSpace·(default·is·0)</span></div><div·class="line"><a·name="l02548"></a><span·class="lineno">·2548</span> <span·class="preprocessor">#·-·\a·BufLineSpace·(default·is·0)</span></div><div·class="line"><a·name="l02549"></a><span·class="lineno">·2549</span> <span·class="preprocessor">#·-·\a·BufBandSpace·(default·is·0)</span></div><div·class="line"><a·name="l02550"></a><span·class="lineno">·2550</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02551"></a><span·class="lineno">·2551</span> <span·class="preprocessor">#·<a·href="http://www.gdal.org/classGDALDataset.html">Entry·in·GDAL·docs·(method·RasterIO)</a></span></div><div·class="line"><a·name="l02552"></a><span·class="lineno">·2552</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02553"></a><span·class="lineno">·2553</span> sub·WriteRaster·{</div><div·class="line"><a·name="l02554"></a><span·class="lineno">·2554</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02555"></a><span·class="lineno">·2555</span> ····my·($width,·$height)·=·$self->Size;</div><div·class="line"><a·name="l02556"></a><span·class="lineno">·2556</span> ····my·($type)·=·$self->Band->DataType;</div><div·class="line"><a·name="l02557"></a><span·class="lineno">·2557</span> ····my·$p·=·named_parameters(\@_,</div><div·class="line"><a·name="l02558"></a><span·class="lineno">·2558</span> ·····························XOff·=>·0,</div><div·class="line"><a·name="l02559"></a><span·class="lineno">·2559</span> ·····························YOff·=>·0,</div><div·class="line"><a·name="l02560"></a><span·class="lineno">·2560</span> ·····························XSize·=>·$width,</div><div·class="line"><a·name="l02561"></a><span·class="lineno">·2561</span> ·····························YSize·=>·$height,</div><div·class="line"><a·name="l02562"></a><span·class="lineno">·2562</span> ·····························Buf·=>·undef,</div><div·class="line"><a·name="l02563"></a><span·class="lineno">·2563</span> ·····························BufXSize·=>·undef,</div><div·class="line"><a·name="l02564"></a><span·class="lineno">·2564</span> ·····························BufYSize·=>·undef,</div><div·class="line"><a·name="l02565"></a><span·class="lineno">·2565</span> ·····························BufType·=>·$type,</div><div·class="line"><a·name="l02566"></a><span·class="lineno">·2566</span> ·····························BandList·=>·[1],</div><div·class="line"><a·name="l02567"></a><span·class="lineno">·2567</span> ·····························BufPixelSpace·=>·0,</div><div·class="line"><a·name="l02568"></a><span·class="lineno">·2568</span> ·····························BufLineSpace·=>·0,</div><div·class="line"><a·name="l02569"></a><span·class="lineno">·2569</span> ·····························BufBandSpace·=>·0</div><div·class="line"><a·name="l02570"></a><span·class="lineno">·2570</span> ········);</div><div·class="line"><a·name="l02571"></a><span·class="lineno">·2571</span> ····$p->{buftype}·=·s2i(data_type·=>·$p->{buftype},·1);</div><div·class="line"><a·name="l02572"></a><span·class="lineno">·2572</span> ····$self->_WriteRaster($p->{xoff},$p->{yoff},$p->{xsize},$p->{ysize},$p->{buf},$p->{bufxsize},$p->{bufysize},$p->{buftype},$p->{bandlist},$p->{bufpixelspace},$p->{buflinespace},$p->{bufbandspace});</div><div·class="line"><a·name="l02573"></a><span·class="lineno">·2573</span> }</div><div·class="line"><a·name="l02574"></a><span·class="lineno">·2574</span> </div><div·class="line"><a·name="l02575"></a><span·class="lineno">·2575</span> <span·class="preprocessor">#**·@method·WriteTile()</span></div><div·class="line"><a·name="l02576"></a><span·class="lineno">·2576</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02577"></a><span·class="lineno">·2577</span> sub·WriteTile·{</div><div·class="line"><a·name="l02578"></a><span·class="lineno">·2578</span> ····my·($self,·$data,·$xoff,·$yoff)·=·@_;</div><div·class="line"><a·name="l02579"></a><span·class="lineno">·2579</span> ····$xoff·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l02580"></a><span·class="lineno">·2580</span> ····$yoff·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l02581"></a><span·class="lineno">·2581</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$self->Bands-1)·{</div><div·class="line"><a·name="l02582"></a><span·class="lineno">·2582</span> ········$self->Band($i+1)->WriteTile($data->[$i],·$xoff,·$yoff);</div><div·class="line"><a·name="l02583"></a><span·class="lineno">·2583</span> ····}</div><div·class="line"><a·name="l02584"></a><span·class="lineno">·2584</span> }</div><div·class="line"><a·name="l02585"></a><span·class="lineno">·2585</span> </div><div·class="line"><a·name="l02586"></a><span·class="lineno">·2586</span> <span·class="preprocessor">#**·@class·Geo::GDAL::Driver</span></div><div·class="line"><a·name="l02587"></a><span·class="lineno">·2587</span> <span·class="preprocessor">#·@brief·A·driver·for·a·specific·dataset·format.</span></div><div·class="line"><a·name="l02588"></a><span·class="lineno">·2588</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l02589"></a><span·class="lineno">·2589</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02590"></a><span·class="lineno">·2590</span> <span·class="keyword">package·</span>Geo::GDAL::Driver;</div><div·class="line"><a·name="l02591"></a><span·class="lineno">·2591</span> </div><div·class="line"><a·name="l02592"></a><span·class="lineno">·2592</span> use·base·qw(<a·class="code"·href="classGeo_1_1GDAL_1_1MajorObject.html">Geo::GDAL::MajorObject</a>·<a·class="code"·href="namespaceGeo_1_1GDAL.html">Geo::GDAL</a>)</div><div·class="line"><a·name="l02593"></a><span·class="lineno">·2593</span> </div><div·class="line"><a·name="l02594"></a><span·class="lineno">·2594</span> <span·class="preprocessor">#**·@attr·$HelpTopic·</span></div><div·class="line"><a·name="l02595"></a><span·class="lineno">·2595</span> <span·class="preprocessor">#·$driver->{HelpTopic}</span></div><div·class="line"><a·name="l02596"></a><span·class="lineno">·2596</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02597"></a><span·class="lineno">·2597</span> </div><div·class="line"><a·name="l02598"></a><span·class="lineno">·2598</span> <span·class="preprocessor">#**·@attr·$LongName·</span></div><div·class="line"><a·name="l02599"></a><span·class="lineno">·2599</span> <span·class="preprocessor">#·$driver->{LongName}</span></div><div·class="line"><a·name="l02600"></a><span·class="lineno">·2600</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02601"></a><span·class="lineno">·2601</span> </div><div·class="line"><a·name="l02602"></a><span·class="lineno">·2602</span> <span·class="preprocessor">#**·@attr·$ShortName·</span></div><div·class="line"><a·name="l02603"></a><span·class="lineno">·2603</span> <span·class="preprocessor">#·$driver->{ShortName}</span></div><div·class="line"><a·name="l02604"></a><span·class="lineno">·2604</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02605"></a><span·class="lineno">·2605</span> </div><div·class="line"><a·name="l02606"></a><span·class="lineno">·2606</span> <span·class="preprocessor">#**·@method·list·Capabilities()</span></div><div·class="line"><a·name="l02607"></a><span·class="lineno">·2607</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02608"></a><span·class="lineno">·2608</span> <span·class="preprocessor">#·@return·A·list·of·capabilities.·When·executed·as·a·package·subroutine</span></div><div·class="line"><a·name="l02609"></a><span·class="lineno">·2609</span> <span·class="preprocessor">#·returns·a·list·of·all·potential·capabilities·a·driver·may·have.·When</span></div><div·class="line"><a·name="l02610"></a><span·class="lineno">·2610</span> <span·class="preprocessor">#·executed·as·an·object·method·returns·a·list·of·all·capabilities·the</span></div><div·class="line"><a·name="l02611"></a><span·class="lineno">·2611</span> <span·class="preprocessor">#·driver·has.</span></div><div·class="line"><a·name="l02612"></a><span·class="lineno">·2612</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02613"></a><span·class="lineno">·2613</span> <span·class="preprocessor">#·Currently·capabilities·are:</span></div><div·class="line"><a·name="l02614"></a><span·class="lineno">·2614</span> <span·class="preprocessor">#·CREATE,·CREATECOPY,·DEFAULT_FIELDS,·NOTNULL_FIELDS,·NOTNULL_GEOMFIELDS,·OPEN,·RASTER,·VECTOR,·and·VIRTUALIO.</span></div><div·class="line"><a·name="l02615"></a><span·class="lineno">·2615</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02616"></a><span·class="lineno">·2616</span> <span·class="preprocessor">#·Examples.</span></div><div·class="line"><a·name="l02617"></a><span·class="lineno">·2617</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l02618"></a><span·class="lineno">·2618</span> <span·class="preprocessor">#·@all_capabilities·=·Geo::GDAL::Driver::Capabilities;</span></div><div·class="line"><a·name="l02619"></a><span·class="lineno">·2619</span> <span·class="preprocessor">#·@capabilities_of_the_geotiff_driver·=·Geo::GDAL::Driver('GTiff')->Capabilities;</span></div><div·class="line"><a·name="l02620"></a><span·class="lineno">·2620</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l02621"></a><span·class="lineno">·2621</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02622"></a><span·class="lineno">·2622</span> sub·Capabilities·{</div><div·class="line"><a·name="l02623"></a><span·class="lineno">·2623</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02624"></a><span·class="lineno">·2624</span> ····<span·class="keywordflow">return</span>·@CAPABILITIES·unless·$self;</div><div·class="line"><a·name="l02625"></a><span·class="lineno">·2625</span> ····my·$h·=·$self->GetMetadata;</div><div·class="line"><a·name="l02626"></a><span·class="lineno">·2626</span> ····my·@cap;</div><div·class="line"><a·name="l02627"></a><span·class="lineno">·2627</span> ····<span·class="keywordflow">for</span>·my·$cap·(@CAPABILITIES)·{</div><div·class="line"><a·name="l02628"></a><span·class="lineno">·2628</span> ········my·$test·=·$h->{<span·class="stringliteral">'DCAP_'</span>.uc($cap)};</div><div·class="line"><a·name="l02629"></a><span·class="lineno">·2629</span> ········push·@cap,·$cap·<span·class="keywordflow">if</span>·defined($test)·and·$test·eq·<span·class="stringliteral">'YES'</span>;</div><div·class="line"><a·name="l02630"></a><span·class="lineno">·2630</span> ····}</div><div·class="line"><a·name="l02631"></a><span·class="lineno">·2631</span> ····<span·class="keywordflow">return</span>·@cap;</div><div·class="line"><a·name="l02632"></a><span·class="lineno">·2632</span> }</div><div·class="line"><a·name="l02633"></a><span·class="lineno">·2633</span> </div><div·class="line"><a·name="l02634"></a><span·class="lineno">·2634</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Copy(%params)</span></div><div·class="line"><a·name="l02635"></a><span·class="lineno">·2635</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02636"></a><span·class="lineno">·2636</span> <span·class="preprocessor">#·Create·a·new·raster·Geo::GDAL::Dataset·as·a·copy·of·an·existing·dataset.</span></div><div·class="line"><a·name="l02637"></a><span·class="lineno">·2637</span> <span·class="preprocessor">#·@note·a.k.a.·CreateCopy</span></div><div·class="line"><a·name="l02638"></a><span·class="lineno">·2638</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02639"></a><span·class="lineno">·2639</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l02640"></a><span·class="lineno">·2640</span> <span·class="preprocessor">#·-·\a·Name·name·for·the·new·raster·dataset.</span></div><div·class="line"><a·name="l02641"></a><span·class="lineno">·2641</span> <span·class="preprocessor">#·-·\a·Src·the·source·Geo::GDAL::Dataset·object.</span></div><div·class="line"><a·name="l02642"></a><span·class="lineno">·2642</span> <span·class="preprocessor">#·-·\a·Strict·1·(default)·if·the·copy·must·be·strictly·equivalent,·or·0·if·the·copy·may·adapt.</span></div><div·class="line"><a·name="l02643"></a><span·class="lineno">·2643</span> <span·class="preprocessor">#·-·\a·Options·an·anonymous·hash·of·driver·specific·options.</span></div><div·class="line"><a·name="l02644"></a><span·class="lineno">·2644</span> <span·class="preprocessor">#·-·\a·Progress·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l02645"></a><span·class="lineno">·2645</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·progress_data).</span></div><div·class="line"><a·name="l02646"></a><span·class="lineno">·2646</span> <span·class="preprocessor">#·-·\a·ProgressData·[optional]</span></div><div·class="line"><a·name="l02647"></a><span·class="lineno">·2647</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::Dataset·object.</span></div><div·class="line"><a·name="l02648"></a><span·class="lineno">·2648</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02649"></a><span·class="lineno">·2649</span> sub·Copy·{</div><div·class="line"><a·name="l02650"></a><span·class="lineno">·2650</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02651"></a><span·class="lineno">·2651</span> ····my·$p·=·named_parameters(\@_,·Name·=>·<span·class="stringliteral">'unnamed'</span>,·Src·=>·undef,·Strict·=>·1,·Options·=>·{},·Progress·=>·undef,·ProgressData·=>·undef);</div><div·class="line"><a·name="l02652"></a><span·class="lineno">·2652</span> ····<span·class="keywordflow">return</span>·$self->stdout_redirection_wrapper(</div><div·class="line"><a·name="l02653"></a><span·class="lineno">·2653</span> ········$p->{name},</div><div·class="line"><a·name="l02654"></a><span·class="lineno">·2654</span> ········$self->can(<span·class="stringliteral">'_CreateCopy'</span>),</div><div·class="line"><a·name="l02655"></a><span·class="lineno">·2655</span> ········$p->{src},·$p->{strict},·$p->{options},·$p->{progress},·$p->{progressdata});</div><div·class="line"><a·name="l02656"></a><span·class="lineno">·2656</span> }</div><div·class="line"><a·name="l02657"></a><span·class="lineno">·2657</span> </div><div·class="line"><a·name="l02658"></a><span·class="lineno">·2658</span> <span·class="preprocessor">#**·@method·CopyFiles($NewName,·$OldName)</span></div><div·class="line"><a·name="l02659"></a><span·class="lineno">·2659</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02660"></a><span·class="lineno">·2660</span> <span·class="preprocessor">#·Copy·the·files·of·a·dataset.</span></div><div·class="line"><a·name="l02661"></a><span·class="lineno">·2661</span> <span·class="preprocessor">#·@param·NewName·String.</span></div><div·class="line"><a·name="l02662"></a><span·class="lineno">·2662</span> <span·class="preprocessor">#·@param·OldName·String.</span></div><div·class="line"><a·name="l02663"></a><span·class="lineno">·2663</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02664"></a><span·class="lineno">·2664</span> sub·CopyFiles·{</div><div·class="line"><a·name="l02665"></a><span·class="lineno">·2665</span> }</div><div·class="line"><a·name="l02666"></a><span·class="lineno">·2666</span> </div><div·class="line"><a·name="l02667"></a><span·class="lineno">·2667</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Create(%params)</span></div><div·class="line"><a·name="l02668"></a><span·class="lineno">·2668</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02669"></a><span·class="lineno">·2669</span> <span·class="preprocessor">#·Create·a·raster·dataset·using·this·driver.</span></div><div·class="line"><a·name="l02670"></a><span·class="lineno">·2670</span> <span·class="preprocessor">#·@note·a.k.a.·CreateDataset</span></div><div·class="line"><a·name="l02671"></a><span·class="lineno">·2671</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02672"></a><span·class="lineno">·2672</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l02673"></a><span·class="lineno">·2673</span> <span·class="preprocessor">#·-·\a·Name·The·name·for·the·dataset·(default·is·'unnamed')·or·an·object,·which·implements·write·and·close.</span></div><div·class="line"><a·name="l02674"></a><span·class="lineno">·2674</span> <span·class="preprocessor">#·-·\a·Width·The·width·for·the·raster·dataset·(default·is·256).</span></div><div·class="line"><a·name="l02675"></a><span·class="lineno">·2675</span> <span·class="preprocessor">#·-·\a·Height·The·height·for·the·raster·dataset·(default·is·256).</span></div><div·class="line"><a·name="l02676"></a><span·class="lineno">·2676</span> <span·class="preprocessor">#·-·\a·Bands·The·number·of·bands·to·create·into·the·raster·dataset·(default·is·1).</span></div><div·class="line"><a·name="l02677"></a><span·class="lineno">·2677</span> <span·class="preprocessor">#·-·\a·Type·The·data·type·for·the·raster·cells·(default·is·'Byte').·One·of·Geo::GDAL::Driver::CreationDataTypes.</span></div><div·class="line"><a·name="l02678"></a><span·class="lineno">·2678</span> <span·class="preprocessor">#·-·\a·Options·Driver·creation·options·as·a·reference·to·a·hash·(default·is·{}).</span></div><div·class="line"><a·name="l02679"></a><span·class="lineno">·2679</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l02680"></a><span·class="lineno">·2680</span> <span·class="preprocessor">#·@return·A·new·Geo::GDAL::Dataset·object.</span></div><div·class="line"><a·name="l02681"></a><span·class="lineno">·2681</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02682"></a><span·class="lineno">·2682</span> sub·Create·{</div><div·class="line"><a·name="l02683"></a><span·class="lineno">·2683</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02684"></a><span·class="lineno">·2684</span> ····my·$p·=·named_parameters(\@_,·Name·=>·<span·class="stringliteral">'unnamed'</span>,·Width·=>·256,·Height·=>·256,·Bands·=>·1,·Type·=>·<span·class="stringliteral">'Byte'</span>,·Options·=>·{});</div><div·class="line"><a·name="l02685"></a><span·class="lineno">·2685</span> ····my·$type·=·s2i(data_type·=>·$p->{type});</div><div·class="line"><a·name="l02686"></a><span·class="lineno">·2686</span> ····<span·class="keywordflow">return</span>·$self->stdout_redirection_wrapper(</div><div·class="line"><a·name="l02687"></a><span·class="lineno">·2687</span> ········$p->{name},</div><div·class="line"><a·name="l02688"></a><span·class="lineno">·2688</span> ········$self->can(<span·class="stringliteral">'_Create'</span>),</div><div·class="line"><a·name="l02689"></a><span·class="lineno">·2689</span> ········$p->{width},·$p->{height},·$p->{bands},·$type,·$p->{options}</div><div·class="line"><a·name="l02690"></a><span·class="lineno">·2690</span> ····);</div><div·class="line"><a·name="l02691"></a><span·class="lineno">·2691</span> }</div><div·class="line"><a·name="l02692"></a><span·class="lineno">·2692</span> </div><div·class="line"><a·name="l02693"></a><span·class="lineno">·2693</span> <span·class="preprocessor">#**·@method·list·CreationDataTypes()</span></div><div·class="line"><a·name="l02694"></a><span·class="lineno">·2694</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02695"></a><span·class="lineno">·2695</span> <span·class="preprocessor">#·@return·a·list·of·data·types·that·can·be·used·for·new·datasets·of·this·format.·A·subset·of·Geo::GDAL::DataTypes</span></div><div·class="line"><a·name="l02696"></a><span·class="lineno">·2696</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02697"></a><span·class="lineno">·2697</span> sub·CreationDataTypes·{</div><div·class="line"><a·name="l02698"></a><span·class="lineno">·2698</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02699"></a><span·class="lineno">·2699</span> ····my·$h·=·$self->GetMetadata;</div><div·class="line"><a·name="l02700"></a><span·class="lineno">·2700</span> ····<span·class="keywordflow">return</span>·split·/\s+/,·$h->{DMD_CREATIONDATATYPES}·<span·class="keywordflow">if</span>·$h->{DMD_CREATIONDATATYPES};</div><div·class="line"><a·name="l02701"></a><span·class="lineno">·2701</span> }</div><div·class="line"><a·name="l02702"></a><span·class="lineno">·2702</span> </div><div·class="line"><a·name="l02703"></a><span·class="lineno">·2703</span> <span·class="preprocessor">#**·@method·list·CreationOptionList()</span></div><div·class="line"><a·name="l02704"></a><span·class="lineno">·2704</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02705"></a><span·class="lineno">·2705</span> <span·class="preprocessor">#·@return·a·list·of·options,·each·option·is·a·hashref,·the·keys·are</span></div><div·class="line"><a·name="l02706"></a><span·class="lineno">·2706</span> <span·class="preprocessor">#·name,·type·and·description·or·Value.·Value·is·a·listref.</span></div><div·class="line"><a·name="l02707"></a><span·class="lineno">·2707</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02708"></a><span·class="lineno">·2708</span> sub·CreationOptionList·{</div><div·class="line"><a·name="l02709"></a><span·class="lineno">·2709</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02710"></a><span·class="lineno">·2710</span> ····my·@options;</div><div·class="line"><a·name="l02711"></a><span·class="lineno">·2711</span> ····my·$h·=·$self->GetMetadata->{DMD_CREATIONOPTIONLIST};</div><div·class="line"><a·name="l02712"></a><span·class="lineno">·2712</span> ····<span·class="keywordflow">if</span>·($h)·{</div><div·class="line"><a·name="l02713"></a><span·class="lineno">·2713</span> ········$h·=·ParseXMLString($h);</div><div·class="line"><a·name="l02714"></a><span·class="lineno">·2714</span> ········my($type,·$value)·=·NodeData($h);</div><div·class="line"><a·name="l02715"></a><span·class="lineno">·2715</span> ········<span·class="keywordflow">if</span>·($value·eq·<span·class="stringliteral">'CreationOptionList'</span>)·{</div><div·class="line"><a·name="l02716"></a><span·class="lineno">·2716</span> ············<span·class="keywordflow">for</span>·my·$o·(Children($h))·{</div><div·class="line"><a·name="l02717"></a><span·class="lineno">·2717</span> ················my·%option;</div><div·class="line"><a·name="l02718"></a><span·class="lineno">·2718</span> ················<span·class="keywordflow">for</span>·my·$a·(Children($o))·{</div><div·class="line"><a·name="l02719"></a><span·class="lineno">·2719</span> ····················my(undef,·$key)·=·NodeData($a);</div><div·class="line"><a·name="l02720"></a><span·class="lineno">·2720</span> ····················my(undef,·$value)·=·NodeData(Child($a,·0));</div><div·class="line"><a·name="l02721"></a><span·class="lineno">·2721</span> ····················<span·class="keywordflow">if</span>·($key·eq·<span·class="stringliteral">'Value'</span>)·{</div><div·class="line"><a·name="l02722"></a><span·class="lineno">·2722</span> ························push·@{$option{$key}},·$value;</div><div·class="line"><a·name="l02723"></a><span·class="lineno">·2723</span> ····················}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l02724"></a><span·class="lineno">·2724</span> ························$option{$key}·=·$value;</div><div·class="line"><a·name="l02725"></a><span·class="lineno">·2725</span> ····················}</div><div·class="line"><a·name="l02726"></a><span·class="lineno">·2726</span> ················}</div><div·class="line"><a·name="l02727"></a><span·class="lineno">·2727</span> ················push·@options,·\%option;</div><div·class="line"><a·name="l02728"></a><span·class="lineno">·2728</span> ············}</div><div·class="line"><a·name="l02729"></a><span·class="lineno">·2729</span> ········}</div><div·class="line"><a·name="l02730"></a><span·class="lineno">·2730</span> ····}</div><div·class="line"><a·name="l02731"></a><span·class="lineno">·2731</span> ····<span·class="keywordflow">return</span>·@options;</div><div·class="line"><a·name="l02732"></a><span·class="lineno">·2732</span> }</div><div·class="line"><a·name="l02733"></a><span·class="lineno">·2733</span> </div><div·class="line"><a·name="l02734"></a><span·class="lineno">·2734</span> <span·class="preprocessor">#**·@method·Delete($name)</span></div><div·class="line"><a·name="l02735"></a><span·class="lineno">·2735</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02736"></a><span·class="lineno">·2736</span> <span·class="preprocessor">#·@param·name</span></div><div·class="line"><a·name="l02737"></a><span·class="lineno">·2737</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02738"></a><span·class="lineno">·2738</span> sub·Delete·{</div><div·class="line"><a·name="l02739"></a><span·class="lineno">·2739</span> }</div><div·class="line"><a·name="l02740"></a><span·class="lineno">·2740</span> </div><div·class="line"><a·name="l02741"></a><span·class="lineno">·2741</span> <span·class="preprocessor">#**·@method·Domains()</span></div><div·class="line"><a·name="l02742"></a><span·class="lineno">·2742</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02743"></a><span·class="lineno">·2743</span> sub·Domains·{</div><div·class="line"><a·name="l02744"></a><span·class="lineno">·2744</span> ····<span·class="keywordflow">return</span>·@DOMAINS;</div><div·class="line"><a·name="l02745"></a><span·class="lineno">·2745</span> }</div><div·class="line"><a·name="l02746"></a><span·class="lineno">·2746</span> </div><div·class="line"><a·name="l02747"></a><span·class="lineno">·2747</span> <span·class="preprocessor">#**·@method·scalar·Extension()</span></div><div·class="line"><a·name="l02748"></a><span·class="lineno">·2748</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02749"></a><span·class="lineno">·2749</span> <span·class="preprocessor">#·@note·The·returned·extension·does·not·contain·a·'.'·prefix.</span></div><div·class="line"><a·name="l02750"></a><span·class="lineno">·2750</span> <span·class="preprocessor">#·@return·a·suggested·single·extension·or·a·list·of·extensions·(in</span></div><div·class="line"><a·name="l02751"></a><span·class="lineno">·2751</span> <span·class="preprocessor">#·list·context)·for·datasets.</span></div><div·class="line"><a·name="l02752"></a><span·class="lineno">·2752</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02753"></a><span·class="lineno">·2753</span> sub·Extension·{</div><div·class="line"><a·name="l02754"></a><span·class="lineno">·2754</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02755"></a><span·class="lineno">·2755</span> ····my·$h·=·$self->GetMetadata;</div><div·class="line"><a·name="l02756"></a><span·class="lineno">·2756</span> ····<span·class="keywordflow">if</span>·(wantarray)·{</div><div·class="line"><a·name="l02757"></a><span·class="lineno">·2757</span> ········my·$e·=·$h->{DMD_EXTENSIONS};</div><div·class="line"><a·name="l02758"></a><span·class="lineno">·2758</span> ········my·@e·=·split·/·/,·$e;</div><div·class="line"><a·name="l02759"></a><span·class="lineno">·2759</span> ········@e·=·split·/\<span·class="comment">//,·$e·if·$e·=~·/\//;·#·ILWIS·returns·mpr/mpl</span></div><div·class="line"><a·name="l02760"></a><span·class="lineno">·2760</span> ········<span·class="keywordflow">for</span>·my·$i·(0..$#e)·{</div><div·class="line"><a·name="l02761"></a><span·class="lineno">·2761</span> ············$e[$i]·=~·s/^\.<span·class="comment">//;·#·CALS·returns·extensions·with·a·dot·prefix</span></div><div·class="line"><a·name="l02762"></a><span·class="lineno">·2762</span> ········}</div><div·class="line"><a·name="l02763"></a><span·class="lineno">·2763</span> ········<span·class="keywordflow">return</span>·@e;</div><div·class="line"><a·name="l02764"></a><span·class="lineno">·2764</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l02765"></a><span·class="lineno">·2765</span> ········my·$e·=·$h->{DMD_EXTENSION};</div><div·class="line"><a·name="l02766"></a><span·class="lineno">·2766</span> ········<span·class="keywordflow">return</span>·<span·class="stringliteral">''</span>·<span·class="keywordflow">if</span>·$e·=~·/\<span·class="comment">//;·#·ILWIS·returns·mpr/mpl</span></div><div·class="line"><a·name="l02767"></a><span·class="lineno">·2767</span> ········$e·=~·s/^\.<span·class="comment">//;</span></div><div·class="line"><a·name="l02768"></a><span·class="lineno">·2768</span> ········<span·class="keywordflow">return</span>·$e;</div><div·class="line"><a·name="l02769"></a><span·class="lineno">·2769</span> ····}</div><div·class="line"><a·name="l02770"></a><span·class="lineno">·2770</span> }</div><div·class="line"><a·name="l02771"></a><span·class="lineno">·2771</span> </div><div·class="line"><a·name="l02772"></a><span·class="lineno">·2772</span> <span·class="preprocessor">#**·@method·scalar·MIMEType()</span></div><div·class="line"><a·name="l02773"></a><span·class="lineno">·2773</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02774"></a><span·class="lineno">·2774</span> <span·class="preprocessor">#·@return·a·suggested·MIME·type·for·datasets.</span></div><div·class="line"><a·name="l02775"></a><span·class="lineno">·2775</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02776"></a><span·class="lineno">·2776</span> sub·MIMEType·{</div><div·class="line"><a·name="l02777"></a><span·class="lineno">·2777</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02778"></a><span·class="lineno">·2778</span> ····my·$h·=·$self->GetMetadata;</div><div·class="line"><a·name="l02779"></a><span·class="lineno">·2779</span> ····<span·class="keywordflow">return</span>·$h->{DMD_MIMETYPE};</div><div·class="line"><a·name="l02780"></a><span·class="lineno">·2780</span> }</div><div·class="line"><a·name="l02781"></a><span·class="lineno">·2781</span> </div><div·class="line"><a·name="l02782"></a><span·class="lineno">·2782</span> <span·class="preprocessor">#**·@method·scalar·Name()</span></div><div·class="line"><a·name="l02783"></a><span·class="lineno">·2783</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02784"></a><span·class="lineno">·2784</span> <span·class="preprocessor">#·@return·The·short·name·of·the·driver.</span></div><div·class="line"><a·name="l02785"></a><span·class="lineno">·2785</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02786"></a><span·class="lineno">·2786</span> sub·Name·{</div><div·class="line"><a·name="l02787"></a><span·class="lineno">·2787</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02788"></a><span·class="lineno">·2788</span> ····<span·class="keywordflow">return</span>·$self->{ShortName};</div><div·class="line"><a·name="l02789"></a><span·class="lineno">·2789</span> }</div><div·class="line"><a·name="l02790"></a><span·class="lineno">·2790</span> </div><div·class="line"><a·name="l02791"></a><span·class="lineno">·2791</span> <span·class="preprocessor">#**·@method·Open()</span></div><div·class="line"><a·name="l02792"></a><span·class="lineno">·2792</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02793"></a><span·class="lineno">·2793</span> <span·class="preprocessor">#·The·same·as·Geo::GDAL::Open·except·that·only·this·driver·is·allowed.</span></div><div·class="line"><a·name="l02794"></a><span·class="lineno">·2794</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02795"></a><span·class="lineno">·2795</span> sub·Open·{</div><div·class="line"><a·name="l02796"></a><span·class="lineno">·2796</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02797"></a><span·class="lineno">·2797</span> ····my·@p·=·@_;·#·name,·update</div><div·class="line"><a·name="l02798"></a><span·class="lineno">·2798</span> ····my·@flags·=·qw/RASTER/;</div><div·class="line"><a·name="l02799"></a><span·class="lineno">·2799</span> ····push·@flags,·qw/READONLY/·<span·class="keywordflow">if</span>·$p[1]·eq·<span·class="stringliteral">'ReadOnly'</span>;</div><div·class="line"><a·name="l02800"></a><span·class="lineno">·2800</span> ····push·@flags,·qw/UPDATE/·<span·class="keywordflow">if</span>·$p[1]·eq·<span·class="stringliteral">'Update'</span>;</div><div·class="line"><a·name="l02801"></a><span·class="lineno">·2801</span> ····my·$dataset·=·OpenEx($p[0],·\@flags,·[$self->Name()]);</div><div·class="line"><a·name="l02802"></a><span·class="lineno">·2802</span> ····error(<span·class="stringliteral">"Failed·to·open·$p[0].·Is·it·a·raster·dataset?"</span>)·unless·$dataset;</div><div·class="line"><a·name="l02803"></a><span·class="lineno">·2803</span> ····<span·class="keywordflow">return</span>·$dataset;</div><div·class="line"><a·name="l02804"></a><span·class="lineno">·2804</span> }</div><div·class="line"><a·name="l02805"></a><span·class="lineno">·2805</span> </div><div·class="line"><a·name="l02806"></a><span·class="lineno">·2806</span> <span·class="preprocessor">#**·@method·Rename($NewName,·$OldName)</span></div><div·class="line"><a·name="l02807"></a><span·class="lineno">·2807</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02808"></a><span·class="lineno">·2808</span> <span·class="preprocessor">#·Rename·(move)·a·GDAL·dataset.</span></div><div·class="line"><a·name="l02809"></a><span·class="lineno">·2809</span> <span·class="preprocessor">#·@param·NewName·String.</span></div><div·class="line"><a·name="l02810"></a><span·class="lineno">·2810</span> <span·class="preprocessor">#·@param·OldName·String.</span></div><div·class="line"><a·name="l02811"></a><span·class="lineno">·2811</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02812"></a><span·class="lineno">·2812</span> sub·Rename·{</div><div·class="line"><a·name="l02813"></a><span·class="lineno">·2813</span> }</div><div·class="line"><a·name="l02814"></a><span·class="lineno">·2814</span> </div><div·class="line"><a·name="l02815"></a><span·class="lineno">·2815</span> <span·class="preprocessor">#**·@method·scalar·TestCapability($cap)</span></div><div·class="line"><a·name="l02816"></a><span·class="lineno">·2816</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l02817"></a><span·class="lineno">·2817</span> <span·class="preprocessor">#·Test·whether·the·driver·has·the·specified·capability.</span></div><div·class="line"><a·name="l02818"></a><span·class="lineno">·2818</span> <span·class="preprocessor">#·@param·cap·A·capability·string·(one·of·those·returned·by·Capabilities).</span></div><div·class="line"><a·name="l02819"></a><span·class="lineno">·2819</span> <span·class="preprocessor">#·@return·a·boolean·value.</span></div><div·class="line"><a·name="l02820"></a><span·class="lineno">·2820</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02821"></a><span·class="lineno">·2821</span> sub·TestCapability·{</div><div·class="line"><a·name="l02822"></a><span·class="lineno">·2822</span> ····my($self,·$cap)·=·@_;</div><div·class="line"><a·name="l02823"></a><span·class="lineno">·2823</span> ····my·$h·=·$self->GetMetadata->{<span·class="stringliteral">'DCAP_'</span>.uc($cap)};</div><div·class="line"><a·name="l02824"></a><span·class="lineno">·2824</span> ····<span·class="keywordflow">return</span>·(defined($h)·and·$h·eq·<span·class="stringliteral">'YES'</span>)·?·1·:·undef;</div><div·class="line"><a·name="l02825"></a><span·class="lineno">·2825</span> }</div><div·class="line"><a·name="l02826"></a><span·class="lineno">·2826</span> </div><div·class="line"><a·name="l02827"></a><span·class="lineno">·2827</span> <span·class="preprocessor">#**·@method·stdout_redirection_wrapper()</span></div><div·class="line"><a·name="l02828"></a><span·class="lineno">·2828</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02829"></a><span·class="lineno">·2829</span> sub·stdout_redirection_wrapper·{</div><div·class="line"><a·name="l02830"></a><span·class="lineno">·2830</span> ····my·($self,·$name,·$sub,·@params)·=·@_;</div><div·class="line"><a·name="l02831"></a><span·class="lineno">·2831</span> ····my·$object·=·0;</div><div·class="line"><a·name="l02832"></a><span·class="lineno">·2832</span> ····<span·class="keywordflow">if</span>·($name·&&·blessed·$name)·{</div><div·class="line"><a·name="l02833"></a><span·class="lineno">·2833</span> ········$object·=·$name;</div><div·class="line"><a·name="l02834"></a><span·class="lineno">·2834</span> ········my·$ref·=·$object->can(<span·class="stringliteral">'write'</span>);</div><div·class="line"><a·name="l02835"></a><span·class="lineno">·2835</span> ········VSIStdoutSetRedirection($ref);</div><div·class="line"><a·name="l02836"></a><span·class="lineno">·2836</span> ········$name·=·<span·class="stringliteral">'/vsistdout/'</span>;</div><div·class="line"><a·name="l02837"></a><span·class="lineno">·2837</span> ····}</div><div·class="line"><a·name="l02838"></a><span·class="lineno">·2838</span> ····my·$ds;</div><div·class="line"><a·name="l02839"></a><span·class="lineno">·2839</span> ····eval·{</div><div·class="line"><a·name="l02840"></a><span·class="lineno">·2840</span> ········$ds·=·$sub->($self,·$name,·@params);</div><div·class="line"><a·name="l02841"></a><span·class="lineno">·2841</span> ····};</div><div·class="line"><a·name="l02842"></a><span·class="lineno">·2842</span> ····<span·class="keywordflow">if</span>·($object)·{</div><div·class="line"><a·name="l02843"></a><span·class="lineno">·2843</span> ········<span·class="keywordflow">if</span>·($ds)·{</div><div·class="line"><a·name="l02844"></a><span·class="lineno">·2844</span> ············$Geo::GDAL::stdout_redirection{tied(%$ds)}·=·$object;</div><div·class="line"><a·name="l02845"></a><span·class="lineno">·2845</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l02846"></a><span·class="lineno">·2846</span> ············VSIStdoutUnsetRedirection();</div><div·class="line"><a·name="l02847"></a><span·class="lineno">·2847</span> ············$object->close;</div><div·class="line"><a·name="l02848"></a><span·class="lineno">·2848</span> ········}</div><div·class="line"><a·name="l02849"></a><span·class="lineno">·2849</span> ····}</div><div·class="line"><a·name="l02850"></a><span·class="lineno">·2850</span> ····confess(last_error())·<span·class="keywordflow">if</span>·$@;</div><div·class="line"><a·name="l02851"></a><span·class="lineno">·2851</span> ····confess(<span·class="stringliteral">"Failed.·Use·Geo::OGR::Driver·for·vector·drivers."</span>)·unless·$ds;</div><div·class="line"><a·name="l02852"></a><span·class="lineno">·2852</span> ····<span·class="keywordflow">return</span>·$ds;</div><div·class="line"><a·name="l02853"></a><span·class="lineno">·2853</span> }</div><div·class="line"><a·name="l02854"></a><span·class="lineno">·2854</span> </div><div·class="line"><a·name="l02855"></a><span·class="lineno">·2855</span> <span·class="preprocessor">#**·@class·Geo::GDAL::Extent</span></div><div·class="line"><a·name="l02856"></a><span·class="lineno">·2856</span> <span·class="preprocessor">#·@brief·A·rectangular·area·in·projection·coordinates:·xmin,·ymin,·xmax,·ymax.</span></div><div·class="line"><a·name="l02857"></a><span·class="lineno">·2857</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02858"></a><span·class="lineno">·2858</span> <span·class="keyword">package·</span>Geo::GDAL::Extent;</div><div·class="line"><a·name="l02859"></a><span·class="lineno">·2859</span> </div><div·class="line"><a·name="l02860"></a><span·class="lineno">·2860</span> <span·class="preprocessor">#**·@method·ExpandToInclude($extent)</span></div><div·class="line"><a·name="l02861"></a><span·class="lineno">·2861</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l02862"></a><span·class="lineno">·2862</span> <span·class="preprocessor">#·Extends·this·extent·to·include·the·other·extent.</span></div><div·class="line"><a·name="l02863"></a><span·class="lineno">·2863</span> <span·class="preprocessor">#·@param·extent·Another·Geo::GDAL::Extent·object.</span></div><div·class="line"><a·name="l02864"></a><span·class="lineno">·2864</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02865"></a><span·class="lineno">·2865</span> sub·ExpandToInclude·{</div><div·class="line"><a·name="l02866"></a><span·class="lineno">·2866</span> ····my·($self,·$e)·=·@_;</div><div·class="line"><a·name="l02867"></a><span·class="lineno">·2867</span> ····<span·class="keywordflow">return</span>·<span·class="keywordflow">if</span>·$e->IsEmpty;</div><div·class="line"><a·name="l02868"></a><span·class="lineno">·2868</span> ····<span·class="keywordflow">if</span>·($self->IsEmpty)·{</div><div·class="line"><a·name="l02869"></a><span·class="lineno">·2869</span> ········@$self·=·@$e;</div><div·class="line"><a·name="l02870"></a><span·class="lineno">·2870</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l02871"></a><span·class="lineno">·2871</span> ········$self->[0]·=·$e->[0]·<span·class="keywordflow">if</span>·$e->[0]·<·$self->[0];</div><div·class="line"><a·name="l02872"></a><span·class="lineno">·2872</span> ········$self->[1]·=·$e->[1]·<span·class="keywordflow">if</span>·$e->[1]·<·$self->[1];</div><div·class="line"><a·name="l02873"></a><span·class="lineno">·2873</span> ········$self->[2]·=·$e->[2]·<span·class="keywordflow">if</span>·$e->[2]·>·$self->[2];</div><div·class="line"><a·name="l02874"></a><span·class="lineno">·2874</span> ········$self->[3]·=·$e->[3]·<span·class="keywordflow">if</span>·$e->[3]·>·$self->[3];</div><div·class="line"><a·name="l02875"></a><span·class="lineno">·2875</span> ····}</div><div·class="line"><a·name="l02876"></a><span·class="lineno">·2876</span> }</div><div·class="line"><a·name="l02877"></a><span·class="lineno">·2877</span> </div><div·class="line"><a·name="l02878"></a><span·class="lineno">·2878</span> <span·class="preprocessor">#**·@method·IsEmpty()</span></div><div·class="line"><a·name="l02879"></a><span·class="lineno">·2879</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02880"></a><span·class="lineno">·2880</span> sub·IsEmpty·{</div><div·class="line"><a·name="l02881"></a><span·class="lineno">·2881</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02882"></a><span·class="lineno">·2882</span> ····<span·class="keywordflow">return</span>·$self->[2]·<·$self->[0];</div><div·class="line"><a·name="l02883"></a><span·class="lineno">·2883</span> }</div><div·class="line"><a·name="l02884"></a><span·class="lineno">·2884</span> </div><div·class="line"><a·name="l02885"></a><span·class="lineno">·2885</span> <span·class="preprocessor">#**·@method·scalar·Overlap($extent)</span></div><div·class="line"><a·name="l02886"></a><span·class="lineno">·2886</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l02887"></a><span·class="lineno">·2887</span> <span·class="preprocessor">#·@param·extent·Another·Geo::GDAL::Extent·object.</span></div><div·class="line"><a·name="l02888"></a><span·class="lineno">·2888</span> <span·class="preprocessor">#·@return·A·new,·possibly·empty,·Geo::GDAL::Extent·object,·which</span></div><div·class="line"><a·name="l02889"></a><span·class="lineno">·2889</span> <span·class="preprocessor">#·represents·the·joint·area·of·the·two·extents.</span></div><div·class="line"><a·name="l02890"></a><span·class="lineno">·2890</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02891"></a><span·class="lineno">·2891</span> sub·Overlap·{</div><div·class="line"><a·name="l02892"></a><span·class="lineno">·2892</span> ····my·($self,·$e)·=·@_;</div><div·class="line"><a·name="l02893"></a><span·class="lineno">·2893</span> ····<span·class="keywordflow">return</span>·<a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html">Geo::GDAL::Extent</a>-><a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html#aaa908458e9aaa398762601ae2b466e9a">new</a>()·unless·$self-><a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html#a1e5050fbe9a954a8256530bbde05a44b">Overlaps</a>($e);</div><div·class="line"><a·name="l02894"></a><span·class="lineno">·2894</span> ····my·$ret·=·<a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html">Geo::GDAL::Extent</a>-><a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html#aaa908458e9aaa398762601ae2b466e9a">new</a>($self);</div><div·class="line"><a·name="l02895"></a><span·class="lineno">·2895</span> ····$ret->[0]·=·$e->[0]·<span·class="keywordflow">if</span>·$self->[0]·<·$e->[0];</div><div·class="line"><a·name="l02896"></a><span·class="lineno">·2896</span> ····$ret->[1]·=·$e->[1]·<span·class="keywordflow">if</span>·$self->[1]·<·$e->[1];</div><div·class="line"><a·name="l02897"></a><span·class="lineno">·2897</span> ····$ret->[2]·=·$e->[2]·<span·class="keywordflow">if</span>·$self->[2]·>·$e->[2];</div><div·class="line"><a·name="l02898"></a><span·class="lineno">·2898</span> ····$ret->[3]·=·$e->[3]·<span·class="keywordflow">if</span>·$self->[3]·>·$e->[3];</div><div·class="line"><a·name="l02899"></a><span·class="lineno">·2899</span> ····<span·class="keywordflow">return</span>·$ret;</div><div·class="line"><a·name="l02900"></a><span·class="lineno">·2900</span> }</div><div·class="line"><a·name="l02901"></a><span·class="lineno">·2901</span> </div><div·class="line"><a·name="l02902"></a><span·class="lineno">·2902</span> <span·class="preprocessor">#**·@method·scalar·Overlaps($extent)</span></div><div·class="line"><a·name="l02903"></a><span·class="lineno">·2903</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l02904"></a><span·class="lineno">·2904</span> <span·class="preprocessor">#·@param·extent·Another·Geo::GDAL::Extent·object.</span></div><div·class="line"><a·name="l02905"></a><span·class="lineno">·2905</span> <span·class="preprocessor">#·@return·True·if·this·extent·overlaps·the·other·extent,·false·otherwise.</span></div><div·class="line"><a·name="l02906"></a><span·class="lineno">·2906</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02907"></a><span·class="lineno">·2907</span> sub·Overlaps·{</div><div·class="line"><a·name="l02908"></a><span·class="lineno">·2908</span> ····my·($self,·$e)·=·@_;</div><div·class="line"><a·name="l02909"></a><span·class="lineno">·2909</span> ····<span·class="keywordflow">return</span>·$self->[0]·<·$e->[2]·&&·$self->[2]·>·$e->[0]·&&·$self->[1]·<·$e->[3]·&&·$self->[3]·>·$e->[1];</div><div·class="line"><a·name="l02910"></a><span·class="lineno">·2910</span> }</div><div·class="line"><a·name="l02911"></a><span·class="lineno">·2911</span> </div><div·class="line"><a·name="l02912"></a><span·class="lineno">·2912</span> <span·class="preprocessor">#**·@method·list·Size()</span></div><div·class="line"><a·name="l02913"></a><span·class="lineno">·2913</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l02914"></a><span·class="lineno">·2914</span> <span·class="preprocessor">#·@return·A·list·($width,·$height).</span></div><div·class="line"><a·name="l02915"></a><span·class="lineno">·2915</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02916"></a><span·class="lineno">·2916</span> sub·Size·{</div><div·class="line"><a·name="l02917"></a><span·class="lineno">·2917</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l02918"></a><span·class="lineno">·2918</span> ····<span·class="keywordflow">return</span>·(0,0)·<span·class="keywordflow">if</span>·$self-><a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html#aa942cb038cedd3cc105cba53c332bdf9">IsEmpty</a>;</div><div·class="line"><a·name="l02919"></a><span·class="lineno">·2919</span> ····<span·class="keywordflow">return</span>·($self->[2]·-·$self->[0],·$self->[3]·-·$self->[1]);</div><div·class="line"><a·name="l02920"></a><span·class="lineno">·2920</span> }</div><div·class="line"><a·name="l02921"></a><span·class="lineno">·2921</span> </div><div·class="line"><a·name="l02922"></a><span·class="lineno">·2922</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Extent·new(@params)</span></div><div·class="line"><a·name="l02923"></a><span·class="lineno">·2923</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l02924"></a><span·class="lineno">·2924</span> <span·class="preprocessor">#·@param·params·nothing,·a·list·($xmin,·$ymin,·$xmax,·$ymax),·or·an·Extent·object</span></div><div·class="line"><a·name="l02925"></a><span·class="lineno">·2925</span> <span·class="preprocessor">#·@return·A·new·Extent·object·(empty·if·no·parameters,·a·copy·of·the·parameter·if·it·is·an·Extent·object).</span></div><div·class="line"><a·name="l02926"></a><span·class="lineno">·2926</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02927"></a><span·class="lineno">·2927</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l02928"></a><span·class="lineno">·2928</span> ····my·$class·=·shift;</div><div·class="line"><a·name="l02929"></a><span·class="lineno">·2929</span> ····my·$self;</div><div·class="line"><a·name="l02930"></a><span·class="lineno">·2930</span> ····<span·class="keywordflow">if</span>·(@_·==·0)·{</div><div·class="line"><a·name="l02931"></a><span·class="lineno">·2931</span> ········$self·=·[0,0,-1,0];</div><div·class="line"><a·name="l02932"></a><span·class="lineno">·2932</span> ····}·elsif·(ref·$_[0])·{</div><div·class="line"><a·name="l02933"></a><span·class="lineno">·2933</span> ········@$self·=·@{$_[0]};</div><div·class="line"><a·name="l02934"></a><span·class="lineno">·2934</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l02935"></a><span·class="lineno">·2935</span> ········@$self·=·@_;</div><div·class="line"><a·name="l02936"></a><span·class="lineno">·2936</span> ····}</div><div·class="line"><a·name="l02937"></a><span·class="lineno">·2937</span> ····bless·$self,·$class;</div><div·class="line"><a·name="l02938"></a><span·class="lineno">·2938</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l02939"></a><span·class="lineno">·2939</span> }</div><div·class="line"><a·name="l02940"></a><span·class="lineno">·2940</span> </div><div·class="line"><a·name="l02941"></a><span·class="lineno">·2941</span> <span·class="preprocessor">#**·@class·Geo::GDAL::GCP</span></div><div·class="line"><a·name="l02942"></a><span·class="lineno">·2942</span> <span·class="preprocessor">#·@brief·A·ground·control·point·for·georeferencing·rasters.</span></div><div·class="line"><a·name="l02943"></a><span·class="lineno">·2943</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l02944"></a><span·class="lineno">·2944</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02945"></a><span·class="lineno">·2945</span> <span·class="keyword">package·</span>Geo::GDAL::GCP;</div><div·class="line"><a·name="l02946"></a><span·class="lineno">·2946</span> </div><div·class="line"><a·name="l02947"></a><span·class="lineno">·2947</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1GDAL.html">Geo::GDAL</a>)</div><div·class="line"><a·name="l02948"></a><span·class="lineno">·2948</span> </div><div·class="line"><a·name="l02949"></a><span·class="lineno">·2949</span> <span·class="preprocessor">#**·@attr·$Column·</span></div><div·class="line"><a·name="l02950"></a><span·class="lineno">·2950</span> <span·class="preprocessor">#·cell·x·coordinate·(access·as·$gcp->{Column})</span></div><div·class="line"><a·name="l02951"></a><span·class="lineno">·2951</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02952"></a><span·class="lineno">·2952</span> </div><div·class="line"><a·name="l02953"></a><span·class="lineno">·2953</span> <span·class="preprocessor">#**·@attr·$Id·</span></div><div·class="line"><a·name="l02954"></a><span·class="lineno">·2954</span> <span·class="preprocessor">#·unique·identifier·(string)·(access·as·$gcp->{Id})</span></div><div·class="line"><a·name="l02955"></a><span·class="lineno">·2955</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02956"></a><span·class="lineno">·2956</span> </div><div·class="line"><a·name="l02957"></a><span·class="lineno">·2957</span> <span·class="preprocessor">#**·@attr·$Info·</span></div><div·class="line"><a·name="l02958"></a><span·class="lineno">·2958</span> <span·class="preprocessor">#·informational·message·(access·as·$gcp->{Info})</span></div><div·class="line"><a·name="l02959"></a><span·class="lineno">·2959</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02960"></a><span·class="lineno">·2960</span> </div><div·class="line"><a·name="l02961"></a><span·class="lineno">·2961</span> <span·class="preprocessor">#**·@attr·$Row·</span></div><div·class="line"><a·name="l02962"></a><span·class="lineno">·2962</span> <span·class="preprocessor">#·cell·y·coordinate·(access·as·$gcp->{Row})</span></div><div·class="line"><a·name="l02963"></a><span·class="lineno">·2963</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02964"></a><span·class="lineno">·2964</span> </div><div·class="line"><a·name="l02965"></a><span·class="lineno">·2965</span> <span·class="preprocessor">#**·@attr·$X·</span></div><div·class="line"><a·name="l02966"></a><span·class="lineno">·2966</span> <span·class="preprocessor">#·projection·coordinate·(access·as·$gcp->{X})</span></div><div·class="line"><a·name="l02967"></a><span·class="lineno">·2967</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02968"></a><span·class="lineno">·2968</span> </div><div·class="line"><a·name="l02969"></a><span·class="lineno">·2969</span> <span·class="preprocessor">#**·@attr·$Y·</span></div><div·class="line"><a·name="l02970"></a><span·class="lineno">·2970</span> <span·class="preprocessor">#·projection·coordinate·(access·as·$gcp->{Y})</span></div><div·class="line"><a·name="l02971"></a><span·class="lineno">·2971</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02972"></a><span·class="lineno">·2972</span> </div><div·class="line"><a·name="l02973"></a><span·class="lineno">·2973</span> <span·class="preprocessor">#**·@attr·$Z·</span></div><div·class="line"><a·name="l02974"></a><span·class="lineno">·2974</span> <span·class="preprocessor">#·projection·coordinate·(access·as·$gcp->{Z})</span></div><div·class="line"><a·name="l02975"></a><span·class="lineno">·2975</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02976"></a><span·class="lineno">·2976</span> </div><div·class="line"><a·name="l02977"></a><span·class="lineno">·2977</span> <span·class="preprocessor">#**·@method·scalar·new($x·=·0.0,·$y·=·0.0,·$z·=·0.0,·$column·=·0.0,·$row·=·0.0,·$info·=·"",·$id·=·"")</span></div><div·class="line"><a·name="l02978"></a><span·class="lineno">·2978</span> <span·class="preprocessor">#·Class·method.</span></div><div·class="line"><a·name="l02979"></a><span·class="lineno">·2979</span> <span·class="preprocessor">#·@param·x·projection·coordinate</span></div><div·class="line"><a·name="l02980"></a><span·class="lineno">·2980</span> <span·class="preprocessor">#·@param·y·projection·coordinate</span></div><div·class="line"><a·name="l02981"></a><span·class="lineno">·2981</span> <span·class="preprocessor">#·@param·z·projection·coordinate</span></div><div·class="line"><a·name="l02982"></a><span·class="lineno">·2982</span> <span·class="preprocessor">#·@param·column·cell·x·coordinate</span></div><div·class="line"><a·name="l02983"></a><span·class="lineno">·2983</span> <span·class="preprocessor">#·@param·row·cell·y·coordinate</span></div><div·class="line"><a·name="l02984"></a><span·class="lineno">·2984</span> <span·class="preprocessor">#·@param·info·informational·message</span></div><div·class="line"><a·name="l02985"></a><span·class="lineno">·2985</span> <span·class="preprocessor">#·@param·id·unique·identifier·(string)</span></div><div·class="line"><a·name="l02986"></a><span·class="lineno">·2986</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::GCP·object</span></div><div·class="line"><a·name="l02987"></a><span·class="lineno">·2987</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l02988"></a><span·class="lineno">·2988</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l02989"></a><span·class="lineno">·2989</span> ····my·$pkg·=·shift;</div><div·class="line"><a·name="l02990"></a><span·class="lineno">·2990</span> ····my·$self·=·Geo::GDALc::new_GCP(@_);</div><div·class="line"><a·name="l02991"></a><span·class="lineno">·2991</span> ····bless·$self,·$pkg·<span·class="keywordflow">if</span>·defined($self);</div><div·class="line"><a·name="l02992"></a><span·class="lineno">·2992</span> }</div><div·class="line"><a·name="l02993"></a><span·class="lineno">·2993</span> </div><div·class="line"><a·name="l02994"></a><span·class="lineno">·2994</span> <span·class="preprocessor">#**·@class·Geo::GDAL::GeoTransform</span></div><div·class="line"><a·name="l02995"></a><span·class="lineno">·2995</span> <span·class="preprocessor">#·@brief·An·array·of·affine·transformation·coefficients.</span></div><div·class="line"><a·name="l02996"></a><span·class="lineno">·2996</span> <span·class="preprocessor">#·@details·The·geo·transformation·has·the·form</span></div><div·class="line"><a·name="l02997"></a><span·class="lineno">·2997</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l02998"></a><span·class="lineno">·2998</span> <span·class="preprocessor">#·x·=·a·+·column·*·b·+·row·*·c</span></div><div·class="line"><a·name="l02999"></a><span·class="lineno">·2999</span> <span·class="preprocessor">#·y·=·d·+·column·*·e·+·row·*·f</span></div><div·class="line"><a·name="l03000"></a><span·class="lineno">·3000</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l03001"></a><span·class="lineno">·3001</span> <span·class="preprocessor">#·where</span></div><div·class="line"><a·name="l03002"></a><span·class="lineno">·3002</span> <span·class="preprocessor">#·(column,row)·is·the·location·in·cell·coordinates,·and</span></div><div·class="line"><a·name="l03003"></a><span·class="lineno">·3003</span> <span·class="preprocessor">#·(x,y)·is·the·location·in·projection·coordinates,·or·vice·versa.</span></div><div·class="line"><a·name="l03004"></a><span·class="lineno">·3004</span> <span·class="preprocessor">#·A·Geo::GDAL::GeoTransform·object·is·a·reference·to·an·anonymous·array·[a,b,c,d,e,f].</span></div><div·class="line"><a·name="l03005"></a><span·class="lineno">·3005</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03006"></a><span·class="lineno">·3006</span> <span·class="keyword">package·</span>Geo::GDAL::GeoTransform;</div><div·class="line"><a·name="l03007"></a><span·class="lineno">·3007</span> </div><div·class="line"><a·name="l03008"></a><span·class="lineno">·3008</span> <span·class="preprocessor">#**·@method·Apply($x,·$y)</span></div><div·class="line"><a·name="l03009"></a><span·class="lineno">·3009</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03010"></a><span·class="lineno">·3010</span> <span·class="preprocessor">#·@param·x·Column·or·x,·or·a·reference·to·an·array·of·columns·or·x's</span></div><div·class="line"><a·name="l03011"></a><span·class="lineno">·3011</span> <span·class="preprocessor">#·@param·y·Row·or·y,·or·a·reference·to·an·array·of·rows·or·y's</span></div><div·class="line"><a·name="l03012"></a><span·class="lineno">·3012</span> <span·class="preprocessor">#·@return·a·list·(x,·y),·where·x·and·y·are·the·transformed·coordinates</span></div><div·class="line"><a·name="l03013"></a><span·class="lineno">·3013</span> <span·class="preprocessor">#·or·references·to·arrays·of·transformed·coordinates.</span></div><div·class="line"><a·name="l03014"></a><span·class="lineno">·3014</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03015"></a><span·class="lineno">·3015</span> sub·Apply·{</div><div·class="line"><a·name="l03016"></a><span·class="lineno">·3016</span> ····my·($self,·$columns,·$rows)·=·@_;</div><div·class="line"><a·name="l03017"></a><span·class="lineno">·3017</span> ····<span·class="keywordflow">return</span>·Geo::GDAL::ApplyGeoTransform($self,·$columns,·$rows)·unless·ref($columns)·eq·<span·class="stringliteral">'ARRAY'</span>;</div><div·class="line"><a·name="l03018"></a><span·class="lineno">·3018</span> ····my·(@x,·@y);</div><div·class="line"><a·name="l03019"></a><span·class="lineno">·3019</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$#$columns)·{</div><div·class="line"><a·name="l03020"></a><span·class="lineno">·3020</span> ········($x[$i],·$y[$i])·=</div><div·class="line"><a·name="l03021"></a><span·class="lineno">·3021</span> ············Geo::GDAL::ApplyGeoTransform($self,·$columns->[$i],·$rows->[$i]);</div><div·class="line"><a·name="l03022"></a><span·class="lineno">·3022</span> ····}</div><div·class="line"><a·name="l03023"></a><span·class="lineno">·3023</span> ····<span·class="keywordflow">return</span>·(\@x,·\@y);</div><div·class="line"><a·name="l03024"></a><span·class="lineno">·3024</span> }</div><div·class="line"><a·name="l03025"></a><span·class="lineno">·3025</span> </div><div·class="line"><a·name="l03026"></a><span·class="lineno">·3026</span> <span·class="preprocessor">#**·@method·Inv()</span></div><div·class="line"><a·name="l03027"></a><span·class="lineno">·3027</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03028"></a><span·class="lineno">·3028</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::GeoTransform·object,·which·is·the·inverse</span></div><div·class="line"><a·name="l03029"></a><span·class="lineno">·3029</span> <span·class="preprocessor">#·of·this·one·(in·void·context·changes·this·object).</span></div><div·class="line"><a·name="l03030"></a><span·class="lineno">·3030</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03031"></a><span·class="lineno">·3031</span> sub·Inv·{</div><div·class="line"><a·name="l03032"></a><span·class="lineno">·3032</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l03033"></a><span·class="lineno">·3033</span> ····my·@inv·=·Geo::GDAL::InvGeoTransform($self);</div><div·class="line"><a·name="l03034"></a><span·class="lineno">·3034</span> ····<span·class="keywordflow">return</span>·<a·class="code"·href="classGeo_1_1GDAL_1_1GeoTransform.html">Geo::GDAL::GeoTransform</a>-><a·class="code"·href="classGeo_1_1GDAL_1_1GeoTransform.html#a47df3828bccbfe26899b47f87a8e65b4">new</a>(@inv)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l03035"></a><span·class="lineno">·3035</span> ····@$self·=·@inv;</div><div·class="line"><a·name="l03036"></a><span·class="lineno">·3036</span> }</div><div·class="line"><a·name="l03037"></a><span·class="lineno">·3037</span> </div><div·class="line"><a·name="l03038"></a><span·class="lineno">·3038</span> <span·class="preprocessor">#**·@method·NorthUp()</span></div><div·class="line"><a·name="l03039"></a><span·class="lineno">·3039</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03040"></a><span·class="lineno">·3040</span> sub·NorthUp·{</div><div·class="line"><a·name="l03041"></a><span·class="lineno">·3041</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l03042"></a><span·class="lineno">·3042</span> ····<span·class="keywordflow">return</span>·$self->[2]·==·0·&&·$self->[4]·==·0;</div><div·class="line"><a·name="l03043"></a><span·class="lineno">·3043</span> }</div><div·class="line"><a·name="l03044"></a><span·class="lineno">·3044</span> </div><div·class="line"><a·name="l03045"></a><span·class="lineno">·3045</span> <span·class="preprocessor">#**·@method·new(@params)</span></div><div·class="line"><a·name="l03046"></a><span·class="lineno">·3046</span> <span·class="preprocessor">#·Class·method.</span></div><div·class="line"><a·name="l03047"></a><span·class="lineno">·3047</span> <span·class="preprocessor">#·@param·params·nothing,·a·reference·to·an·array·[a,b,c,d,e,f],·a·list</span></div><div·class="line"><a·name="l03048"></a><span·class="lineno">·3048</span> <span·class="preprocessor">#·(a,b,c,d,e,f),·or·named·parameters</span></div><div·class="line"><a·name="l03049"></a><span·class="lineno">·3049</span> <span·class="preprocessor">#·-·\a·GCPs·A·reference·to·an·array·of·Geo::GDAL::GCP·objects.</span></div><div·class="line"><a·name="l03050"></a><span·class="lineno">·3050</span> <span·class="preprocessor">#·-·\a·ApproxOK·Minimize·the·error·in·the·coefficients·(integer,·default·is·1·(true),·used·with·GCPs).</span></div><div·class="line"><a·name="l03051"></a><span·class="lineno">·3051</span> <span·class="preprocessor">#·-·\a·Extent·A·Geo::GDAL::Extent·object·used·to·obtain·the·coordinates·of·the·up·left·corner·position.</span></div><div·class="line"><a·name="l03052"></a><span·class="lineno">·3052</span> <span·class="preprocessor">#·-·\a·CellSize·The·cell·size·(width·and·height)·(default·is·1,·used·with·Extent).</span></div><div·class="line"><a·name="l03053"></a><span·class="lineno">·3053</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l03054"></a><span·class="lineno">·3054</span> <span·class="preprocessor">#·@note·When·Extent·is·specifid,·the·created·geo·transform·will·be</span></div><div·class="line"><a·name="l03055"></a><span·class="lineno">·3055</span> <span·class="preprocessor">#·north·up,·have·square·cells,·and·coefficient·f·will·be·-1·times·the</span></div><div·class="line"><a·name="l03056"></a><span·class="lineno">·3056</span> <span·class="preprocessor">#·cell·size·(image·y·-·row·-·will·increase·downwards·and·projection·y</span></div><div·class="line"><a·name="l03057"></a><span·class="lineno">·3057</span> <span·class="preprocessor">#·will·increase·upwards).</span></div><div·class="line"><a·name="l03058"></a><span·class="lineno">·3058</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::GeoTransform·object.</span></div><div·class="line"><a·name="l03059"></a><span·class="lineno">·3059</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03060"></a><span·class="lineno">·3060</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l03061"></a><span·class="lineno">·3061</span> ····my·$class·=·shift;</div><div·class="line"><a·name="l03062"></a><span·class="lineno">·3062</span> ····my·$self;</div><div·class="line"><a·name="l03063"></a><span·class="lineno">·3063</span> ····<span·class="keywordflow">if</span>·(@_·==·0)·{</div><div·class="line"><a·name="l03064"></a><span·class="lineno">·3064</span> ········$self·=·[0,1,0,0,0,1];</div><div·class="line"><a·name="l03065"></a><span·class="lineno">·3065</span> ····}·elsif·(ref·$_[0])·{</div><div·class="line"><a·name="l03066"></a><span·class="lineno">·3066</span> ········@$self·=·@{$_[0]};</div><div·class="line"><a·name="l03067"></a><span·class="lineno">·3067</span> ····}·elsif·($_[0]·=~·/^[a-zA-Z]/i)·{</div><div·class="line"><a·name="l03068"></a><span·class="lineno">·3068</span> ········my·$p·=·named_parameters(\@_,·GCPs·=>·undef,·ApproxOK·=>·1,·<a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html">Extent</a>·=>·undef,·CellSize·=>·1);</div><div·class="line"><a·name="l03069"></a><span·class="lineno">·3069</span> ········<span·class="keywordflow">if</span>·($p->{gcps})·{</div><div·class="line"><a·name="l03070"></a><span·class="lineno">·3070</span> ············$self·=·Geo::GDAL::GCPsToGeoTransform($p->{gcps},·$p->{approxok});</div><div·class="line"><a·name="l03071"></a><span·class="lineno">·3071</span> ········}·elsif·($p->{extent})·{</div><div·class="line"><a·name="l03072"></a><span·class="lineno">·3072</span> ············$self·=·<a·class="code"·href="classGeo_1_1GDAL_1_1GeoTransform.html">Geo::GDAL::GeoTransform</a>-><a·class="code"·href="classGeo_1_1GDAL_1_1GeoTransform.html#a47df3828bccbfe26899b47f87a8e65b4">new</a>($p->{extent}[0],·$p->{cellsize},·0,·$p->{extent}[2],·0,·-$p->{cellsize});</div><div·class="line"><a·name="l03073"></a><span·class="lineno">·3073</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l03074"></a><span·class="lineno">·3074</span> ············error(<span·class="stringliteral">"Missing·GCPs·or·Extent"</span>);</div><div·class="line"><a·name="l03075"></a><span·class="lineno">·3075</span> ········}</div><div·class="line"><a·name="l03076"></a><span·class="lineno">·3076</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l03077"></a><span·class="lineno">·3077</span> ········my·@a·=·@_;</div><div·class="line"><a·name="l03078"></a><span·class="lineno">·3078</span> ········$self·=·\@a;</div><div·class="line"><a·name="l03079"></a><span·class="lineno">·3079</span> ····}</div><div·class="line"><a·name="l03080"></a><span·class="lineno">·3080</span> ····bless·$self,·$class;</div><div·class="line"><a·name="l03081"></a><span·class="lineno">·3081</span> }</div><div·class="line"><a·name="l03082"></a><span·class="lineno">·3082</span> </div><div·class="line"><a·name="l03083"></a><span·class="lineno">·3083</span> <span·class="preprocessor">#**·@class·Geo::GDAL::MajorObject</span></div><div·class="line"><a·name="l03084"></a><span·class="lineno">·3084</span> <span·class="preprocessor">#·@brief·An·object,·which·holds·meta·data.</span></div><div·class="line"><a·name="l03085"></a><span·class="lineno">·3085</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l03086"></a><span·class="lineno">·3086</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03087"></a><span·class="lineno">·3087</span> <span·class="keyword">package·</span>Geo::GDAL::MajorObject;</div><div·class="line"><a·name="l03088"></a><span·class="lineno">·3088</span> </div><div·class="line"><a·name="l03089"></a><span·class="lineno">·3089</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1GDAL.html">Geo::GDAL</a>)</div><div·class="line"><a·name="l03090"></a><span·class="lineno">·3090</span> </div><div·class="line"><a·name="l03091"></a><span·class="lineno">·3091</span> <span·class="preprocessor">#**·@method·scalar·Description($description)</span></div><div·class="line"><a·name="l03092"></a><span·class="lineno">·3092</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03093"></a><span·class="lineno">·3093</span> <span·class="preprocessor">#·@param·description·[optional]</span></div><div·class="line"><a·name="l03094"></a><span·class="lineno">·3094</span> <span·class="preprocessor">#·@return·the·description·in·a·non-void·context.</span></div><div·class="line"><a·name="l03095"></a><span·class="lineno">·3095</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03096"></a><span·class="lineno">·3096</span> sub·Description·{</div><div·class="line"><a·name="l03097"></a><span·class="lineno">·3097</span> ····my($self,·$desc)·=·@_;</div><div·class="line"><a·name="l03098"></a><span·class="lineno">·3098</span> ····SetDescription($self,·$desc)·<span·class="keywordflow">if</span>·defined·$desc;</div><div·class="line"><a·name="l03099"></a><span·class="lineno">·3099</span> ····GetDescription($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l03100"></a><span·class="lineno">·3100</span> }</div><div·class="line"><a·name="l03101"></a><span·class="lineno">·3101</span> </div><div·class="line"><a·name="l03102"></a><span·class="lineno">·3102</span> <span·class="preprocessor">#**·@method·Domains()</span></div><div·class="line"><a·name="l03103"></a><span·class="lineno">·3103</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03104"></a><span·class="lineno">·3104</span> <span·class="preprocessor">#·@return·the·class·specific·DOMAINS·list</span></div><div·class="line"><a·name="l03105"></a><span·class="lineno">·3105</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03106"></a><span·class="lineno">·3106</span> sub·Domains·{</div><div·class="line"><a·name="l03107"></a><span·class="lineno">·3107</span> ····<span·class="keywordflow">return</span>·@DOMAINS;</div><div·class="line"><a·name="l03108"></a><span·class="lineno">·3108</span> }</div><div·class="line"><a·name="l03109"></a><span·class="lineno">·3109</span> </div><div·class="line"><a·name="l03110"></a><span·class="lineno">·3110</span> <span·class="preprocessor">#**·@method·scalar·GetDescription()</span></div><div·class="line"><a·name="l03111"></a><span·class="lineno">·3111</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03112"></a><span·class="lineno">·3112</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03113"></a><span·class="lineno">·3113</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03114"></a><span·class="lineno">·3114</span> sub·GetDescription·{</div><div·class="line"><a·name="l03115"></a><span·class="lineno">·3115</span> }</div><div·class="line"><a·name="l03116"></a><span·class="lineno">·3116</span> </div><div·class="line"><a·name="l03117"></a><span·class="lineno">·3117</span> <span·class="preprocessor">#**·@method·hash·reference·GetMetadata($domain·=·"")</span></div><div·class="line"><a·name="l03118"></a><span·class="lineno">·3118</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03119"></a><span·class="lineno">·3119</span> <span·class="preprocessor">#·@note·see·Metadata</span></div><div·class="line"><a·name="l03120"></a><span·class="lineno">·3120</span> <span·class="preprocessor">#·@param·domain</span></div><div·class="line"><a·name="l03121"></a><span·class="lineno">·3121</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03122"></a><span·class="lineno">·3122</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03123"></a><span·class="lineno">·3123</span> sub·GetMetadata·{</div><div·class="line"><a·name="l03124"></a><span·class="lineno">·3124</span> }</div><div·class="line"><a·name="l03125"></a><span·class="lineno">·3125</span> </div><div·class="line"><a·name="l03126"></a><span·class="lineno">·3126</span> <span·class="preprocessor">#**·@method·GetMetadataDomainList()</span></div><div·class="line"><a·name="l03127"></a><span·class="lineno">·3127</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03128"></a><span·class="lineno">·3128</span> sub·GetMetadataDomainList·{</div><div·class="line"><a·name="l03129"></a><span·class="lineno">·3129</span> }</div><div·class="line"><a·name="l03130"></a><span·class="lineno">·3130</span> </div><div·class="line"><a·name="l03131"></a><span·class="lineno">·3131</span> <span·class="preprocessor">#**·@method·hash·reference·Metadata(hashref·metadata·=·undef,·$domain·=·'')</span></div><div·class="line"><a·name="l03132"></a><span·class="lineno">·3132</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03133"></a><span·class="lineno">·3133</span> <span·class="preprocessor">#·@param·metadata</span></div><div·class="line"><a·name="l03134"></a><span·class="lineno">·3134</span> <span·class="preprocessor">#·@param·domain</span></div><div·class="line"><a·name="l03135"></a><span·class="lineno">·3135</span> <span·class="preprocessor">#·@return·the·metadata·in·a·non-void·context.</span></div><div·class="line"><a·name="l03136"></a><span·class="lineno">·3136</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03137"></a><span·class="lineno">·3137</span> sub·Metadata·{</div><div·class="line"><a·name="l03138"></a><span·class="lineno">·3138</span> ····my·$self·=·shift,</div><div·class="line"><a·name="l03139"></a><span·class="lineno">·3139</span> ····my·$metadata·=·ref·$_[0]·?·shift·:·undef;</div><div·class="line"><a·name="l03140"></a><span·class="lineno">·3140</span> ····my·$domain·=·shift·<span·class="comment">//·'';</span></div><div·class="line"><a·name="l03141"></a><span·class="lineno">·3141</span> ····SetMetadata($self,·$metadata,·$domain)·<span·class="keywordflow">if</span>·defined·$metadata;</div><div·class="line"><a·name="l03142"></a><span·class="lineno">·3142</span> ····GetMetadata($self,·$domain)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l03143"></a><span·class="lineno">·3143</span> }</div><div·class="line"><a·name="l03144"></a><span·class="lineno">·3144</span> </div><div·class="line"><a·name="l03145"></a><span·class="lineno">·3145</span> <span·class="preprocessor">#**·@method·SetDescription($NewDesc)</span></div><div·class="line"><a·name="l03146"></a><span·class="lineno">·3146</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03147"></a><span·class="lineno">·3147</span> <span·class="preprocessor">#·@param·NewDesc</span></div><div·class="line"><a·name="l03148"></a><span·class="lineno">·3148</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l03149"></a><span·class="lineno">·3149</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03150"></a><span·class="lineno">·3150</span> sub·SetDescription·{</div><div·class="line"><a·name="l03151"></a><span·class="lineno">·3151</span> }</div><div·class="line"><a·name="l03152"></a><span·class="lineno">·3152</span> </div><div·class="line"><a·name="l03153"></a><span·class="lineno">·3153</span> <span·class="preprocessor">#**·@method·SetMetadata(hashref·metadata,·$domain·=·"")</span></div><div·class="line"><a·name="l03154"></a><span·class="lineno">·3154</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03155"></a><span·class="lineno">·3155</span> <span·class="preprocessor">#·@note·see·Metadata</span></div><div·class="line"><a·name="l03156"></a><span·class="lineno">·3156</span> <span·class="preprocessor">#·@param·metadata</span></div><div·class="line"><a·name="l03157"></a><span·class="lineno">·3157</span> <span·class="preprocessor">#·@param·domain</span></div><div·class="line"><a·name="l03158"></a><span·class="lineno">·3158</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l03159"></a><span·class="lineno">·3159</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03160"></a><span·class="lineno">·3160</span> sub·SetMetadata·{</div><div·class="line"><a·name="l03161"></a><span·class="lineno">·3161</span> }</div><div·class="line"><a·name="l03162"></a><span·class="lineno">·3162</span> </div><div·class="line"><a·name="l03163"></a><span·class="lineno">·3163</span> <span·class="preprocessor">#**·@class·Geo::GDAL::RasterAttributeTable</span></div><div·class="line"><a·name="l03164"></a><span·class="lineno">·3164</span> <span·class="preprocessor">#·@brief·An·attribute·table·in·a·raster·band.</span></div><div·class="line"><a·name="l03165"></a><span·class="lineno">·3165</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l03166"></a><span·class="lineno">·3166</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03167"></a><span·class="lineno">·3167</span> <span·class="keyword">package·</span>Geo::GDAL::RasterAttributeTable;</div><div·class="line"><a·name="l03168"></a><span·class="lineno">·3168</span> </div><div·class="line"><a·name="l03169"></a><span·class="lineno">·3169</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1GDAL.html">Geo::GDAL</a>)</div><div·class="line"><a·name="l03170"></a><span·class="lineno">·3170</span> </div><div·class="line"><a·name="l03171"></a><span·class="lineno">·3171</span> <span·class="preprocessor">#**·@method·Band()</span></div><div·class="line"><a·name="l03172"></a><span·class="lineno">·3172</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03173"></a><span·class="lineno">·3173</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1Band.html">Band</a>·{</div><div·class="line"><a·name="l03174"></a><span·class="lineno">·3174</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l03175"></a><span·class="lineno">·3175</span> ····parent($self);</div><div·class="line"><a·name="l03176"></a><span·class="lineno">·3176</span> }</div><div·class="line"><a·name="l03177"></a><span·class="lineno">·3177</span> </div><div·class="line"><a·name="l03178"></a><span·class="lineno">·3178</span> <span·class="preprocessor">#**·@method·ChangesAreWrittenToFile()</span></div><div·class="line"><a·name="l03179"></a><span·class="lineno">·3179</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03180"></a><span·class="lineno">·3180</span> sub·ChangesAreWrittenToFile·{</div><div·class="line"><a·name="l03181"></a><span·class="lineno">·3181</span> }</div><div·class="line"><a·name="l03182"></a><span·class="lineno">·3182</span> </div><div·class="line"><a·name="l03183"></a><span·class="lineno">·3183</span> <span·class="preprocessor">#**·@method·Geo::GDAL::RasterAttributeTable·Clone()</span></div><div·class="line"><a·name="l03184"></a><span·class="lineno">·3184</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03185"></a><span·class="lineno">·3185</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::RasterAttributeTable·object</span></div><div·class="line"><a·name="l03186"></a><span·class="lineno">·3186</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03187"></a><span·class="lineno">·3187</span> sub·Clone·{</div><div·class="line"><a·name="l03188"></a><span·class="lineno">·3188</span> }</div><div·class="line"><a·name="l03189"></a><span·class="lineno">·3189</span> </div><div·class="line"><a·name="l03190"></a><span·class="lineno">·3190</span> <span·class="preprocessor">#**·@method·hash·Columns(%columns)</span></div><div·class="line"><a·name="l03191"></a><span·class="lineno">·3191</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03192"></a><span·class="lineno">·3192</span> <span·class="preprocessor">#·A·get/set·method·for·the·columns·of·the·RAT</span></div><div·class="line"><a·name="l03193"></a><span·class="lineno">·3193</span> <span·class="preprocessor">#·@param·columns·optional,·a·the·keys·are·column·names·and·the·values·are·anonymous</span></div><div·class="line"><a·name="l03194"></a><span·class="lineno">·3194</span> <span·class="preprocessor">#·hashes·with·keys·Type·and·Usage</span></div><div·class="line"><a·name="l03195"></a><span·class="lineno">·3195</span> <span·class="preprocessor">#·@return·a·hash·similar·to·the·optional·input·parameter</span></div><div·class="line"><a·name="l03196"></a><span·class="lineno">·3196</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03197"></a><span·class="lineno">·3197</span> sub·Columns·{</div><div·class="line"><a·name="l03198"></a><span·class="lineno">·3198</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l03199"></a><span·class="lineno">·3199</span> ····my·%columns;</div><div·class="line"><a·name="l03200"></a><span·class="lineno">·3200</span> ····<span·class="keywordflow">if</span>·(@_)·{·#·create·columns</div><div·class="line"><a·name="l03201"></a><span·class="lineno">·3201</span> ········%columns·=·@_;</div><div·class="line"><a·name="l03202"></a><span·class="lineno">·3202</span> ········<span·class="keywordflow">for</span>·my·$name·(keys·%columns)·{</div><div·class="line"><a·name="l03203"></a><span·class="lineno">·3203</span> ············$self->CreateColumn($name,·$columns{$name}{Type},·$columns{$name}{Usage});</div><div·class="line"><a·name="l03204"></a><span·class="lineno">·3204</span> ········}</div><div·class="line"><a·name="l03205"></a><span·class="lineno">·3205</span> ····}</div><div·class="line"><a·name="l03206"></a><span·class="lineno">·3206</span> ····%columns·=·();</div><div·class="line"><a·name="l03207"></a><span·class="lineno">·3207</span> ····<span·class="keywordflow">for</span>·my·$c·(0..$self->GetColumnCount-1)·{</div><div·class="line"><a·name="l03208"></a><span·class="lineno">·3208</span> ········my·$name·=·$self->GetNameOfCol($c);</div><div·class="line"><a·name="l03209"></a><span·class="lineno">·3209</span> ········$columns{$name}{Type}·=·$self->GetTypeOfCol($c);</div><div·class="line"><a·name="l03210"></a><span·class="lineno">·3210</span> ········$columns{$name}{Usage}·=·$self->GetUsageOfCol($c);</div><div·class="line"><a·name="l03211"></a><span·class="lineno">·3211</span> ····}</div><div·class="line"><a·name="l03212"></a><span·class="lineno">·3212</span> ····<span·class="keywordflow">return</span>·%columns;</div><div·class="line"><a·name="l03213"></a><span·class="lineno">·3213</span> }</div><div·class="line"><a·name="l03214"></a><span·class="lineno">·3214</span> </div><div·class="line"><a·name="l03215"></a><span·class="lineno">·3215</span> <span·class="preprocessor">#**·@method·CreateColumn($name,·$type,·$usage)</span></div><div·class="line"><a·name="l03216"></a><span·class="lineno">·3216</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03217"></a><span·class="lineno">·3217</span> <span·class="preprocessor">#·@param·name</span></div><div·class="line"><a·name="l03218"></a><span·class="lineno">·3218</span> <span·class="preprocessor">#·@param·type·one·of·FieldTypes</span></div><div·class="line"><a·name="l03219"></a><span·class="lineno">·3219</span> <span·class="preprocessor">#·@param·usage·one·of·FieldUsages</span></div><div·class="line"><a·name="l03220"></a><span·class="lineno">·3220</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03221"></a><span·class="lineno">·3221</span> sub·CreateColumn·{</div><div·class="line"><a·name="l03222"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1ColorTable.html">·3222</a></span> ····my($self,·$name,·$type,·$usage)·=·@_;</div><div·class="line"><a·name="l03223"></a><span·class="lineno">·3223</span> ····<span·class="keywordflow">for</span>·my·$color·(qw/Red·Green·Blue·Alpha/)·{</div><div·class="line"><a·name="l03224"></a><span·class="lineno">·3224</span> ········carp·<span·class="stringliteral">"RAT·column·type·will·be·'Integer'·for·usage·'$color'."</span>·<span·class="keywordflow">if</span>·$usage·eq·$color·and·$type·ne·<span·class="stringliteral">'Integer'</span>;</div><div·class="line"><a·name="l03225"></a><span·class="lineno">·3225</span> ····}</div><div·class="line"><a·name="l03226"></a><span·class="lineno">·3226</span> ····$type·=·s2i(rat_field_type·=>·$type);</div><div·class="line"><a·name="l03227"></a><span·class="lineno">·3227</span> ····$usage·=·s2i(rat_field_usage·=>·$usage);</div><div·class="line"><a·name="l03228"></a><span·class="lineno">·3228</span> ····_CreateColumn($self,·$name,·$type,·$usage);</div><div·class="line"><a·name="l03229"></a><span·class="lineno">·3229</span> }</div><div·class="line"><a·name="l03230"></a><span·class="lineno">·3230</span> </div><div·class="line"><a·name="l03231"></a><span·class="lineno">·3231</span> <span·class="preprocessor">#**·@method·DumpReadable()</span></div><div·class="line"><a·name="l03232"></a><span·class="lineno">·3232</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03233"></a><span·class="lineno">·3233</span> sub·DumpReadable·{</div><div·class="line"><a·name="l03234"></a><span·class="lineno">·3234</span> }</div><div·class="line"><a·name="l03235"></a><span·class="lineno">·3235</span> </div><div·class="line"><a·name="l03236"></a><span·class="lineno">·3236</span> <span·class="preprocessor">#**·@method·list·FieldTypes()</span></div><div·class="line"><a·name="l03237"></a><span·class="lineno">·3237</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03238"></a><span·class="lineno">·3238</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03239"></a><span·class="lineno">·3239</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03240"></a><span·class="lineno">·3240</span> sub·FieldTypes·{</div><div·class="line"><a·name="l03241"></a><span·class="lineno">·3241</span> ····<span·class="keywordflow">return</span>·@FIELD_TYPES;</div><div·class="line"><a·name="l03242"></a><span·class="lineno">·3242</span> }</div><div·class="line"><a·name="l03243"></a><span·class="lineno">·3243</span> </div><div·class="line"><a·name="l03244"></a><span·class="lineno">·3244</span> <span·class="preprocessor">#**·@method·list·FieldUsages()</span></div><div·class="line"><a·name="l03245"></a><span·class="lineno">·3245</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03246"></a><span·class="lineno">·3246</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03247"></a><span·class="lineno">·3247</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03248"></a><span·class="lineno">·3248</span> sub·FieldUsages·{</div><div·class="line"><a·name="l03249"></a><span·class="lineno">·3249</span> ····<span·class="keywordflow">return</span>·@FIELD_USAGES;</div><div·class="line"><a·name="l03250"></a><span·class="lineno">·3250</span> }</div><div·class="line"><a·name="l03251"></a><span·class="lineno">·3251</span> </div><div·class="line"><a·name="l03252"></a><span·class="lineno">·3252</span> <span·class="preprocessor">#**·@method·scalar·GetColOfUsage($usage)</span></div><div·class="line"><a·name="l03253"></a><span·class="lineno">·3253</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03254"></a><span·class="lineno">·3254</span> <span·class="preprocessor">#·@param·usage</span></div><div·class="line"><a·name="l03255"></a><span·class="lineno">·3255</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03256"></a><span·class="lineno">·3256</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03257"></a><span·class="lineno">·3257</span> sub·GetColOfUsage·{</div><div·class="line"><a·name="l03258"></a><span·class="lineno">·3258</span> ····my($self,·$usage)·=·@_;</div><div·class="line"><a·name="l03259"></a><span·class="lineno">·3259</span> ····_GetColOfUsage($self,·s2i(rat_field_usage·=>·$usage));</div><div·class="line"><a·name="l03260"></a><span·class="lineno">·3260</span> }</div><div·class="line"><a·name="l03261"></a><span·class="lineno">·3261</span> </div><div·class="line"><a·name="l03262"></a><span·class="lineno">·3262</span> <span·class="preprocessor">#**·@method·scalar·GetColumnCount()</span></div><div·class="line"><a·name="l03263"></a><span·class="lineno">·3263</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03264"></a><span·class="lineno">·3264</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03265"></a><span·class="lineno">·3265</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03266"></a><span·class="lineno">·3266</span> sub·GetColumnCount·{</div><div·class="line"><a·name="l03267"></a><span·class="lineno">·3267</span> }</div><div·class="line"><a·name="l03268"></a><span·class="lineno">·3268</span> </div><div·class="line"><a·name="l03269"></a><span·class="lineno">·3269</span> <span·class="preprocessor">#**·@method·scalar·GetNameOfCol($column)</span></div><div·class="line"><a·name="l03270"></a><span·class="lineno">·3270</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03271"></a><span·class="lineno">·3271</span> <span·class="preprocessor">#·@param·column</span></div><div·class="line"><a·name="l03272"></a><span·class="lineno">·3272</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03273"></a><span·class="lineno">·3273</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03274"></a><span·class="lineno">·3274</span> sub·GetNameOfCol·{</div><div·class="line"><a·name="l03275"></a><span·class="lineno">·3275</span> }</div><div·class="line"><a·name="l03276"></a><span·class="lineno">·3276</span> </div><div·class="line"><a·name="l03277"></a><span·class="lineno">·3277</span> <span·class="preprocessor">#**·@method·scalar·GetRowCount()</span></div><div·class="line"><a·name="l03278"></a><span·class="lineno">·3278</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03279"></a><span·class="lineno">·3279</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03280"></a><span·class="lineno">·3280</span> sub·GetRowCount·{</div><div·class="line"><a·name="l03281"></a><span·class="lineno">·3281</span> }</div><div·class="line"><a·name="l03282"></a><span·class="lineno">·3282</span> </div><div·class="line"><a·name="l03283"></a><span·class="lineno">·3283</span> <span·class="preprocessor">#**·@method·scalar·GetRowOfValue($value)</span></div><div·class="line"><a·name="l03284"></a><span·class="lineno">·3284</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03285"></a><span·class="lineno">·3285</span> <span·class="preprocessor">#·@param·value·a·cell·value</span></div><div·class="line"><a·name="l03286"></a><span·class="lineno">·3286</span> <span·class="preprocessor">#·@return·row·index·or·-1</span></div><div·class="line"><a·name="l03287"></a><span·class="lineno">·3287</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03288"></a><span·class="lineno">·3288</span> sub·GetRowOfValue·{</div><div·class="line"><a·name="l03289"></a><span·class="lineno">·3289</span> }</div><div·class="line"><a·name="l03290"></a><span·class="lineno">·3290</span> </div><div·class="line"><a·name="l03291"></a><span·class="lineno">·3291</span> <span·class="preprocessor">#**·@method·GetTableType()</span></div><div·class="line"><a·name="l03292"></a><span·class="lineno">·3292</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03293"></a><span·class="lineno">·3293</span> sub·GetTableType·{</div><div·class="line"><a·name="l03294"></a><span·class="lineno">·3294</span> }</div><div·class="line"><a·name="l03295"></a><span·class="lineno">·3295</span> </div><div·class="line"><a·name="l03296"></a><span·class="lineno">·3296</span> <span·class="preprocessor">#**·@method·scalar·GetTypeOfCol($column)</span></div><div·class="line"><a·name="l03297"></a><span·class="lineno">·3297</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03298"></a><span·class="lineno">·3298</span> <span·class="preprocessor">#·@param·column</span></div><div·class="line"><a·name="l03299"></a><span·class="lineno">·3299</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03300"></a><span·class="lineno">·3300</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03301"></a><span·class="lineno">·3301</span> sub·GetTypeOfCol·{</div><div·class="line"><a·name="l03302"></a><span·class="lineno">·3302</span> ····my($self,·$col)·=·@_;</div><div·class="line"><a·name="l03303"></a><span·class="lineno">·3303</span> ····i2s(rat_field_type·=>·_GetTypeOfCol($self,·$col));</div><div·class="line"><a·name="l03304"></a><span·class="lineno">·3304</span> }</div><div·class="line"><a·name="l03305"></a><span·class="lineno">·3305</span> </div><div·class="line"><a·name="l03306"></a><span·class="lineno">·3306</span> <span·class="preprocessor">#**·@method·scalar·GetUsageOfCol($column)</span></div><div·class="line"><a·name="l03307"></a><span·class="lineno">·3307</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03308"></a><span·class="lineno">·3308</span> <span·class="preprocessor">#·@param·column</span></div><div·class="line"><a·name="l03309"></a><span·class="lineno">·3309</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03310"></a><span·class="lineno">·3310</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03311"></a><span·class="lineno">·3311</span> sub·GetUsageOfCol·{</div><div·class="line"><a·name="l03312"></a><span·class="lineno">·3312</span> ····my($self,·$col)·=·@_;</div><div·class="line"><a·name="l03313"></a><span·class="lineno">·3313</span> ····i2s(rat_field_usage·=>·_GetUsageOfCol($self,·$col));</div><div·class="line"><a·name="l03314"></a><span·class="lineno">·3314</span> }</div><div·class="line"><a·name="l03315"></a><span·class="lineno">·3315</span> </div><div·class="line"><a·name="l03316"></a><span·class="lineno">·3316</span> <span·class="preprocessor">#**·@method·scalar·GetValueAsDouble($row,·$column)</span></div><div·class="line"><a·name="l03317"></a><span·class="lineno">·3317</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03318"></a><span·class="lineno">·3318</span> <span·class="preprocessor">#·@param·row</span></div><div·class="line"><a·name="l03319"></a><span·class="lineno">·3319</span> <span·class="preprocessor">#·@param·column</span></div><div·class="line"><a·name="l03320"></a><span·class="lineno">·3320</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03321"></a><span·class="lineno">·3321</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03322"></a><span·class="lineno">·3322</span> sub·GetValueAsDouble·{</div><div·class="line"><a·name="l03323"></a><span·class="lineno">·3323</span> }</div><div·class="line"><a·name="l03324"></a><span·class="lineno">·3324</span> </div><div·class="line"><a·name="l03325"></a><span·class="lineno">·3325</span> <span·class="preprocessor">#**·@method·scalar·GetValueAsInt($row,·$column)</span></div><div·class="line"><a·name="l03326"></a><span·class="lineno">·3326</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03327"></a><span·class="lineno">·3327</span> <span·class="preprocessor">#·@param·row</span></div><div·class="line"><a·name="l03328"></a><span·class="lineno">·3328</span> <span·class="preprocessor">#·@param·column</span></div><div·class="line"><a·name="l03329"></a><span·class="lineno">·3329</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03330"></a><span·class="lineno">·3330</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03331"></a><span·class="lineno">·3331</span> sub·GetValueAsInt·{</div><div·class="line"><a·name="l03332"></a><span·class="lineno">·3332</span> }</div><div·class="line"><a·name="l03333"></a><span·class="lineno">·3333</span> </div><div·class="line"><a·name="l03334"></a><span·class="lineno">·3334</span> <span·class="preprocessor">#**·@method·scalar·GetValueAsString($row,·$column)</span></div><div·class="line"><a·name="l03335"></a><span·class="lineno">·3335</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03336"></a><span·class="lineno">·3336</span> <span·class="preprocessor">#·@param·row</span></div><div·class="line"><a·name="l03337"></a><span·class="lineno">·3337</span> <span·class="preprocessor">#·@param·column</span></div><div·class="line"><a·name="l03338"></a><span·class="lineno">·3338</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03339"></a><span·class="lineno">·3339</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03340"></a><span·class="lineno">·3340</span> sub·GetValueAsString·{</div><div·class="line"><a·name="l03341"></a><span·class="lineno">·3341</span> }</div><div·class="line"><a·name="l03342"></a><span·class="lineno">·3342</span> </div><div·class="line"><a·name="l03343"></a><span·class="lineno">·3343</span> <span·class="preprocessor">#**·@method·LinearBinning($Row0MinIn,·$BinSizeIn)</span></div><div·class="line"><a·name="l03344"></a><span·class="lineno">·3344</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03345"></a><span·class="lineno">·3345</span> <span·class="preprocessor">#·@param·Row0MinIn·[optional]·the·lower·bound·(cell·value)·of·the·first·category.</span></div><div·class="line"><a·name="l03346"></a><span·class="lineno">·3346</span> <span·class="preprocessor">#·@param·BinSizeIn·[optional]·the·width·of·each·category·(in·cell·value·units).</span></div><div·class="line"><a·name="l03347"></a><span·class="lineno">·3347</span> <span·class="preprocessor">#·@return·($Row0MinIn,·$BinSizeIn)·or·an·empty·list·if·LinearBinning·is·not·set.</span></div><div·class="line"><a·name="l03348"></a><span·class="lineno">·3348</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03349"></a><span·class="lineno">·3349</span> sub·LinearBinning·{</div><div·class="line"><a·name="l03350"></a><span·class="lineno">·3350</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l03351"></a><span·class="lineno">·3351</span> ····SetLinearBinning($self,·@_)·<span·class="keywordflow">if</span>·@_·>·0;</div><div·class="line"><a·name="l03352"></a><span·class="lineno">·3352</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l03353"></a><span·class="lineno">·3353</span> ····my·@a·=·GetLinearBinning($self);</div><div·class="line"><a·name="l03354"></a><span·class="lineno">·3354</span> ····<span·class="keywordflow">return</span>·$a[0]·?·($a[1],·$a[2])·:·();</div><div·class="line"><a·name="l03355"></a><span·class="lineno">·3355</span> }</div><div·class="line"><a·name="l03356"></a><span·class="lineno">·3356</span> </div><div·class="line"><a·name="l03357"></a><span·class="lineno">·3357</span> <span·class="preprocessor">#**·@method·SetRowCount($count)</span></div><div·class="line"><a·name="l03358"></a><span·class="lineno">·3358</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03359"></a><span·class="lineno">·3359</span> <span·class="preprocessor">#·@param·count</span></div><div·class="line"><a·name="l03360"></a><span·class="lineno">·3360</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l03361"></a><span·class="lineno">·3361</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03362"></a><span·class="lineno">·3362</span> sub·SetRowCount·{</div><div·class="line"><a·name="l03363"></a><span·class="lineno">·3363</span> }</div><div·class="line"><a·name="l03364"></a><span·class="lineno">·3364</span> </div><div·class="line"><a·name="l03365"></a><span·class="lineno">·3365</span> <span·class="preprocessor">#**·@method·SetTableType()</span></div><div·class="line"><a·name="l03366"></a><span·class="lineno">·3366</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03367"></a><span·class="lineno">·3367</span> sub·SetTableType·{</div><div·class="line"><a·name="l03368"></a><span·class="lineno">·3368</span> }</div><div·class="line"><a·name="l03369"></a><span·class="lineno">·3369</span> </div><div·class="line"><a·name="l03370"></a><span·class="lineno">·3370</span> <span·class="preprocessor">#**·@method·SetValueAsDouble($row,·$column,·$value)</span></div><div·class="line"><a·name="l03371"></a><span·class="lineno">·3371</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03372"></a><span·class="lineno">·3372</span> <span·class="preprocessor">#·@param·row</span></div><div·class="line"><a·name="l03373"></a><span·class="lineno">·3373</span> <span·class="preprocessor">#·@param·column</span></div><div·class="line"><a·name="l03374"></a><span·class="lineno">·3374</span> <span·class="preprocessor">#·@param·value</span></div><div·class="line"><a·name="l03375"></a><span·class="lineno">·3375</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l03376"></a><span·class="lineno">·3376</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03377"></a><span·class="lineno">·3377</span> sub·SetValueAsDouble·{</div><div·class="line"><a·name="l03378"></a><span·class="lineno">·3378</span> }</div><div·class="line"><a·name="l03379"></a><span·class="lineno">·3379</span> </div><div·class="line"><a·name="l03380"></a><span·class="lineno">·3380</span> <span·class="preprocessor">#**·@method·SetValueAsInt($row,·$column,·$value)</span></div><div·class="line"><a·name="l03381"></a><span·class="lineno">·3381</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03382"></a><span·class="lineno">·3382</span> <span·class="preprocessor">#·@param·row</span></div><div·class="line"><a·name="l03383"></a><span·class="lineno">·3383</span> <span·class="preprocessor">#·@param·column</span></div><div·class="line"><a·name="l03384"></a><span·class="lineno">·3384</span> <span·class="preprocessor">#·@param·value</span></div><div·class="line"><a·name="l03385"></a><span·class="lineno">·3385</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l03386"></a><span·class="lineno">·3386</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03387"></a><span·class="lineno">·3387</span> sub·SetValueAsInt·{</div><div·class="line"><a·name="l03388"></a><span·class="lineno">·3388</span> }</div><div·class="line"><a·name="l03389"></a><span·class="lineno">·3389</span> </div><div·class="line"><a·name="l03390"></a><span·class="lineno">·3390</span> <span·class="preprocessor">#**·@method·SetValueAsString($row,·$column,·$value)</span></div><div·class="line"><a·name="l03391"></a><span·class="lineno">·3391</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03392"></a><span·class="lineno">·3392</span> <span·class="preprocessor">#·@param·row</span></div><div·class="line"><a·name="l03393"></a><span·class="lineno">·3393</span> <span·class="preprocessor">#·@param·column</span></div><div·class="line"><a·name="l03394"></a><span·class="lineno">·3394</span> <span·class="preprocessor">#·@param·value</span></div><div·class="line"><a·name="l03395"></a><span·class="lineno">·3395</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l03396"></a><span·class="lineno">·3396</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03397"></a><span·class="lineno">·3397</span> sub·SetValueAsString·{</div><div·class="line"><a·name="l03398"></a><span·class="lineno">·3398</span> }</div><div·class="line"><a·name="l03399"></a><span·class="lineno">·3399</span> </div><div·class="line"><a·name="l03400"></a><span·class="lineno">·3400</span> <span·class="preprocessor">#**·@method·scalar·Value($row,·$column,·$value)</span></div><div·class="line"><a·name="l03401"></a><span·class="lineno">·3401</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03402"></a><span·class="lineno">·3402</span> <span·class="preprocessor">#·@param·row</span></div><div·class="line"><a·name="l03403"></a><span·class="lineno">·3403</span> <span·class="preprocessor">#·@param·column</span></div><div·class="line"><a·name="l03404"></a><span·class="lineno">·3404</span> <span·class="preprocessor">#·@param·value·[optional]</span></div><div·class="line"><a·name="l03405"></a><span·class="lineno">·3405</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l03406"></a><span·class="lineno">·3406</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03407"></a><span·class="lineno">·3407</span> sub·Value·{</div><div·class="line"><a·name="l03408"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Dataset.html">·3408</a></span> ····my($self,·$row,·$column)·=·@_;</div><div·class="line"><a·name="l03409"></a><span·class="lineno">·3409</span> ····SetValueAsString($self,·$row,·$column,·$_[3])·<span·class="keywordflow">if</span>·defined·$_[3];</div><div·class="line"><a·name="l03410"></a><span·class="lineno">·3410</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l03411"></a><span·class="lineno">·3411</span> ····GetValueAsString($self,·$row,·$column);</div><div·class="line"><a·name="l03412"></a><span·class="lineno">·3412</span> }</div><div·class="line"><a·name="l03413"></a><span·class="lineno">·3413</span> </div><div·class="line"><a·name="l03414"></a><span·class="lineno">·3414</span> <span·class="preprocessor">#**·@method·Geo::GDAL::RasterAttributeTable·new()</span></div><div·class="line"><a·name="l03415"></a><span·class="lineno">·3415</span> <span·class="preprocessor">#·Class·method.</span></div><div·class="line"><a·name="l03416"></a><span·class="lineno">·3416</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::RasterAttributeTable·object</span></div><div·class="line"><a·name="l03417"></a><span·class="lineno">·3417</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03418"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Dataset.html#a5508e7a73757a8fa525310d99d02d383">·3418</a></span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l03419"></a><span·class="lineno">·3419</span> ····my·$pkg·=·shift;</div><div·class="line"><a·name="l03420"></a><span·class="lineno">·3420</span> ····my·$self·=·Geo::GDALc::new_RasterAttributeTable(@_);</div><div·class="line"><a·name="l03421"></a><span·class="lineno">·3421</span> ····bless·$self,·$pkg·<span·class="keywordflow">if</span>·defined($self);</div><div·class="line"><a·name="l03422"></a><span·class="lineno">·3422</span> }</div><div·class="line"><a·name="l03423"></a><span·class="lineno">·3423</span> </div><div·class="line"><a·name="l03424"></a><span·class="lineno">·3424</span> <span·class="preprocessor">#**·@class·Geo::GDAL::Transformer</span></div><div·class="line"><a·name="l03425"></a><span·class="lineno">·3425</span> <span·class="preprocessor">#·@brief</span></div><div·class="line"><a·name="l03426"></a><span·class="lineno">·3426</span> <span·class="preprocessor">#·@details·This·class·is·not·yet·documented·for·the·GDAL·Perl·bindings.</span></div><div·class="line"><a·name="l03427"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Dataset.html#a1d2ae8c5fb6f4d043789cefa6aa34f45">·3427</a></span> <span·class="preprocessor">#·@todo·Test·and·document.</span></div><div·class="line"><a·name="l03428"></a><span·class="lineno">·3428</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03429"></a><span·class="lineno">·3429</span> <span·class="keyword">package·</span>Geo::GDAL::Transformer;</div><div·class="line"><a·name="l03430"></a><span·class="lineno">·3430</span> </div><div·class="line"><a·name="l03431"></a><span·class="lineno">·3431</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1GDAL.html">Geo::GDAL</a>)</div><div·class="line"><a·name="l03432"></a><span·class="lineno">·3432</span> </div><div·class="line"><a·name="l03433"></a><span·class="lineno">·3433</span> <span·class="preprocessor">#**·@method·TransformGeolocations()</span></div><div·class="line"><a·name="l03434"></a><span·class="lineno">·3434</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03435"></a><span·class="lineno">·3435</span> sub·TransformGeolocations·{</div><div·class="line"><a·name="l03436"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Dataset.html#a89d86e77fa9fd40bdaaa9e590690f39b">·3436</a></span> }</div><div·class="line"><a·name="l03437"></a><span·class="lineno">·3437</span> </div><div·class="line"><a·name="l03438"></a><span·class="lineno">·3438</span> <span·class="preprocessor">#**·@method·TransformPoint()</span></div><div·class="line"><a·name="l03439"></a><span·class="lineno">·3439</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03440"></a><span·class="lineno">·3440</span> sub·TransformPoint·{</div><div·class="line"><a·name="l03441"></a><span·class="lineno">·3441</span> }</div><div·class="line"><a·name="l03442"></a><span·class="lineno">·3442</span> </div><div·class="line"><a·name="l03443"></a><span·class="lineno">·3443</span> <span·class="preprocessor">#**·@method·new()</span></div><div·class="line"><a·name="l03444"></a><span·class="lineno">·3444</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03445"></a><span·class="lineno">·3445</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l03446"></a><span·class="lineno">·3446</span> ····my·$pkg·=·shift;</div><div·class="line"><a·name="l03447"></a><span·class="lineno">·3447</span> ····my·$self·=·Geo::GDALc::new_Transformer(@_);</div><div·class="line"><a·name="l03448"></a><span·class="lineno">·3448</span> ····bless·$self,·$pkg·<span·class="keywordflow">if</span>·defined($self);</div><div·class="line"><a·name="l03449"></a><span·class="lineno">·3449</span> }</div><div·class="line"><a·name="l03450"></a><span·class="lineno">·3450</span> </div><div·class="line"><a·name="l03451"></a><span·class="lineno">·3451</span> <span·class="preprocessor">#**·@class·Geo::GDAL::VSIF</span></div><div·class="line"><a·name="l03452"></a><span·class="lineno">·3452</span> <span·class="preprocessor">#·@brief·A·GDAL·virtual·file·system.</span></div><div·class="line"><a·name="l03453"></a><span·class="lineno">·3453</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l03454"></a><span·class="lineno">·3454</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03455"></a><span·class="lineno">·3455</span> <span·class="keyword">package·</span>Geo::GDAL::VSIF;</div><div·class="line"><a·name="l03456"></a><span·class="lineno">·3456</span> </div><div·class="line"><a·name="l03457"></a><span·class="lineno">·3457</span> use·base·qw(Exporter)</div><div·class="line"><a·name="l03458"></a><span·class="lineno">·3458</span> </div><div·class="line"><a·name="l03459"></a><span·class="lineno">·3459</span> <span·class="preprocessor">#**·@method·Close()</span></div><div·class="line"><a·name="l03460"></a><span·class="lineno">·3460</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03461"></a><span·class="lineno">·3461</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03462"></a><span·class="lineno">·3462</span> sub·Close·{</div><div·class="line"><a·name="l03463"></a><span·class="lineno">·3463</span> ····my·($self)·=·@_;</div><div·class="line"><a·name="l03464"></a><span·class="lineno">·3464</span> ····Geo::GDAL::VSIFCloseL($self);</div><div·class="line"><a·name="l03465"></a><span·class="lineno">·3465</span> }</div><div·class="line"><a·name="l03466"></a><span·class="lineno">·3466</span> </div><div·class="line"><a·name="l03467"></a><span·class="lineno">·3467</span> <span·class="preprocessor">#**·@method·Flush()</span></div><div·class="line"><a·name="l03468"></a><span·class="lineno">·3468</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03469"></a><span·class="lineno">·3469</span> sub·Flush·{</div><div·class="line"><a·name="l03470"></a><span·class="lineno">·3470</span> ····my·($self)·=·@_;</div><div·class="line"><a·name="l03471"></a><span·class="lineno">·3471</span> ····<a·class="code"·href="classGeo_1_1GDAL.html#a0b280e449999887d9e76e4cb24bd6c25">Geo::GDAL::VSIFFlushL</a>($self);</div><div·class="line"><a·name="l03472"></a><span·class="lineno">·3472</span> }</div><div·class="line"><a·name="l03473"></a><span·class="lineno">·3473</span> </div><div·class="line"><a·name="l03474"></a><span·class="lineno">·3474</span> <span·class="preprocessor">#**·@method·MkDir($path)</span></div><div·class="line"><a·name="l03475"></a><span·class="lineno">·3475</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03476"></a><span·class="lineno">·3476</span> <span·class="preprocessor">#·Make·a·directory.</span></div><div·class="line"><a·name="l03477"></a><span·class="lineno">·3477</span> <span·class="preprocessor">#·@param·path·The·directory·to·make.</span></div><div·class="line"><a·name="l03478"></a><span·class="lineno">·3478</span> <span·class="preprocessor">#·@note·The·name·of·this·method·is·VSIMkdir·in·GDAL.</span></div><div·class="line"><a·name="l03479"></a><span·class="lineno">·3479</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03480"></a><span·class="lineno">·3480</span> sub·MkDir·{</div><div·class="line"><a·name="l03481"></a><span·class="lineno">·3481</span> ····my·($path)·=·@_;</div><div·class="line"><a·name="l03482"></a><span·class="lineno">·3482</span> <span·class="preprocessor">····#·mode·unused·in·CPL</span></div><div·class="line"><a·name="l03483"></a><span·class="lineno">·3483</span> ····Geo::GDAL::Mkdir($path,·0);</div><div·class="line"><a·name="l03484"></a><span·class="lineno">·3484</span> }</div><div·class="line"><a·name="l03485"></a><span·class="lineno">·3485</span> </div><div·class="line"><a·name="l03486"></a><span·class="lineno">·3486</span> <span·class="preprocessor">#**·@method·Geo::GDAL::VSIF·Open($filename,·$mode)</span></div><div·class="line"><a·name="l03487"></a><span·class="lineno">·3487</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03488"></a><span·class="lineno">·3488</span> <span·class="preprocessor">#·@param·filename·Name·of·the·file·to·open.·For·example·"/vsimem/x".</span></div><div·class="line"><a·name="l03489"></a><span·class="lineno">·3489</span> <span·class="preprocessor">#·@param·mode·Access·mode.·'r',·'r+',·'w',·etc.</span></div><div·class="line"><a·name="l03490"></a><span·class="lineno">·3490</span> <span·class="preprocessor">#·@return·A·file·handle·on·success.</span></div><div·class="line"><a·name="l03491"></a><span·class="lineno">·3491</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03492"></a><span·class="lineno">·3492</span> sub·Open·{</div><div·class="line"><a·name="l03493"></a><span·class="lineno">·3493</span> ····my·($path,·$mode)·=·@_;</div><div·class="line"><a·name="l03494"></a><span·class="lineno">·3494</span> ····my·$self·=·Geo::GDAL::VSIFOpenL($path,·$mode);</div><div·class="line"><a·name="l03495"></a><span·class="lineno">·3495</span> ····bless·$self,·<span·class="stringliteral">'Geo::GDAL::VSIF'</span>;</div><div·class="line"><a·name="l03496"></a><span·class="lineno">·3496</span> }</div><div·class="line"><a·name="l03497"></a><span·class="lineno">·3497</span> </div><div·class="line"><a·name="l03498"></a><span·class="lineno">·3498</span> <span·class="preprocessor">#**·@method·scalar·Read($count)</span></div><div·class="line"><a·name="l03499"></a><span·class="lineno">·3499</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03500"></a><span·class="lineno">·3500</span> <span·class="preprocessor">#·@param·count·The·number·of·bytes·to·read·from·the·file.</span></div><div·class="line"><a·name="l03501"></a><span·class="lineno">·3501</span> <span·class="preprocessor">#·@return·A·byte·string.</span></div><div·class="line"><a·name="l03502"></a><span·class="lineno">·3502</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03503"></a><span·class="lineno">·3503</span> sub·Read·{</div><div·class="line"><a·name="l03504"></a><span·class="lineno">·3504</span> ····my·($self,·$count)·=·@_;</div><div·class="line"><a·name="l03505"></a><span·class="lineno">·3505</span> ····Geo::GDAL::VSIFReadL($count,·$self);</div><div·class="line"><a·name="l03506"></a><span·class="lineno">·3506</span> }</div><div·class="line"><a·name="l03507"></a><span·class="lineno">·3507</span> </div><div·class="line"><a·name="l03508"></a><span·class="lineno">·3508</span> <span·class="preprocessor">#**·@method·list·ReadDir($dir)</span></div><div·class="line"><a·name="l03509"></a><span·class="lineno">·3509</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03510"></a><span·class="lineno">·3510</span> <span·class="preprocessor">#·@return·Contents·of·a·directory·in·an·anonymous·array·or·as·a·list.</span></div><div·class="line"><a·name="l03511"></a><span·class="lineno">·3511</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03512"></a><span·class="lineno">·3512</span> sub·ReadDir·{</div><div·class="line"><a·name="l03513"></a><span·class="lineno">·3513</span> ····my·($path)·=·@_;</div><div·class="line"><a·name="l03514"></a><span·class="lineno">·3514</span> ····Geo::GDAL::ReadDir($path);</div><div·class="line"><a·name="l03515"></a><span·class="lineno">·3515</span> }</div><div·class="line"><a·name="l03516"></a><span·class="lineno">·3516</span> </div><div·class="line"><a·name="l03517"></a><span·class="lineno">·3517</span> <span·class="preprocessor">#**·@method·scalar·ReadDirRecursive($dir)</span></div><div·class="line"><a·name="l03518"></a><span·class="lineno">·3518</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03519"></a><span·class="lineno">·3519</span> <span·class="preprocessor">#·@note·Give·the·directory·in·the·form·'/vsimem',·i.e.,·without·trailing·'/'.</span></div><div·class="line"><a·name="l03520"></a><span·class="lineno">·3520</span> <span·class="preprocessor">#·@return·Contents·of·a·directory·tree·in·an·anonymous·array.</span></div><div·class="line"><a·name="l03521"></a><span·class="lineno">·3521</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03522"></a><span·class="lineno">·3522</span> sub·ReadDirRecursive·{</div><div·class="line"><a·name="l03523"></a><span·class="lineno">·3523</span> ····my·($path)·=·@_;</div><div·class="line"><a·name="l03524"></a><span·class="lineno">·3524</span> ····Geo::GDAL::ReadDirRecursive($path);</div><div·class="line"><a·name="l03525"></a><span·class="lineno">·3525</span> }</div><div·class="line"><a·name="l03526"></a><span·class="lineno">·3526</span> </div><div·class="line"><a·name="l03527"></a><span·class="lineno">·3527</span> <span·class="preprocessor">#**·@method·Rename($old,·$new)</span></div><div·class="line"><a·name="l03528"></a><span·class="lineno">·3528</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03529"></a><span·class="lineno">·3529</span> <span·class="preprocessor">#·Rename·a·file.</span></div><div·class="line"><a·name="l03530"></a><span·class="lineno">·3530</span> <span·class="preprocessor">#·@note·The·name·of·this·method·is·VSIRename·in·GDAL.</span></div><div·class="line"><a·name="l03531"></a><span·class="lineno">·3531</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03532"></a><span·class="lineno">·3532</span> sub·Rename·{</div><div·class="line"><a·name="l03533"></a><span·class="lineno">·3533</span> ····my·($old,·$new)·=·@_;</div><div·class="line"><a·name="l03534"></a><span·class="lineno">·3534</span> ····Geo::GDAL::Rename($old,·$new);</div><div·class="line"><a·name="l03535"></a><span·class="lineno">·3535</span> }</div><div·class="line"><a·name="l03536"></a><span·class="lineno">·3536</span> </div><div·class="line"><a·name="l03537"></a><span·class="lineno">·3537</span> <span·class="preprocessor">#**·@method·RmDir($path)</span></div><div·class="line"><a·name="l03538"></a><span·class="lineno">·3538</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03539"></a><span·class="lineno">·3539</span> <span·class="preprocessor">#·Remove·a·directory.</span></div><div·class="line"><a·name="l03540"></a><span·class="lineno">·3540</span> <span·class="preprocessor">#·@note·The·name·of·this·method·is·VSIRmdir·in·GDAL.</span></div><div·class="line"><a·name="l03541"></a><span·class="lineno">·3541</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03542"></a><span·class="lineno">·3542</span> sub·RmDir·{</div><div·class="line"><a·name="l03543"></a><span·class="lineno">·3543</span> ····my·($dirname,·$recursive)·=·@_;</div><div·class="line"><a·name="l03544"></a><span·class="lineno">·3544</span> ····eval·{</div><div·class="line"><a·name="l03545"></a><span·class="lineno">·3545</span> ········<span·class="keywordflow">if</span>·(!$recursive)·{</div><div·class="line"><a·name="l03546"></a><span·class="lineno">·3546</span> ············Geo::GDAL::Rmdir($dirname);</div><div·class="line"><a·name="l03547"></a><span·class="lineno">·3547</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l03548"></a><span·class="lineno">·3548</span> ············<span·class="keywordflow">for</span>·my·$f·(ReadDir($dirname))·{</div><div·class="line"><a·name="l03549"></a><span·class="lineno">·3549</span> ················next·<span·class="keywordflow">if</span>·$f·eq·<span·class="stringliteral">'..'</span>·or·$f·eq·<span·class="charliteral">'.'</span>;</div><div·class="line"><a·name="l03550"></a><span·class="lineno">·3550</span> ················my·@s·=·Stat($dirname.<span·class="charliteral">'/'</span>.$f);</div><div·class="line"><a·name="l03551"></a><span·class="lineno">·3551</span> ················<span·class="keywordflow">if</span>·($s[0]·eq·<span·class="charliteral">'f'</span>)·{</div><div·class="line"><a·name="l03552"></a><span·class="lineno">·3552</span> ····················Unlink($dirname.<span·class="charliteral">'/'</span>.$f);</div><div·class="line"><a·name="l03553"></a><span·class="lineno">·3553</span> ················}·elsif·($s[0]·eq·<span·class="charliteral">'d'</span>)·{</div><div·class="line"><a·name="l03554"></a><span·class="lineno">·3554</span> ····················Rmdir($dirname.<span·class="charliteral">'/'</span>.$f,·1);</div><div·class="line"><a·name="l03555"></a><span·class="lineno">·3555</span> ····················Rmdir($dirname.<span·class="charliteral">'/'</span>.$f);</div><div·class="line"><a·name="l03556"></a><span·class="lineno">·3556</span> ················}</div><div·class="line"><a·name="l03557"></a><span·class="lineno">·3557</span> ············}</div><div·class="line"><a·name="l03558"></a><span·class="lineno">·3558</span> ············RmDir($dirname);</div><div·class="line"><a·name="l03559"></a><span·class="lineno">·3559</span> ········}</div><div·class="line"><a·name="l03560"></a><span·class="lineno">·3560</span> ····};</div><div·class="line"><a·name="l03561"></a><span·class="lineno">·3561</span> ····<span·class="keywordflow">if</span>·($@)·{</div><div·class="line"><a·name="l03562"></a><span·class="lineno">·3562</span> ········my·$r·=·$recursive·?·<span·class="stringliteral">'·recursively'</span>·:·<span·class="stringliteral">''</span>;</div><div·class="line"><a·name="l03563"></a><span·class="lineno">·3563</span> ········error(<span·class="stringliteral">"Cannot·remove·directory·\"$dirname\"$r."</span>);</div><div·class="line"><a·name="l03564"></a><span·class="lineno">·3564</span> ····}</div><div·class="line"><a·name="l03565"></a><span·class="lineno">·3565</span> }</div><div·class="line"><a·name="l03566"></a><span·class="lineno">·3566</span> </div><div·class="line"><a·name="l03567"></a><span·class="lineno">·3567</span> <span·class="preprocessor">#**·@method·Seek($offset,·$whence)</span></div><div·class="line"><a·name="l03568"></a><span·class="lineno">·3568</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03569"></a><span·class="lineno">·3569</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03570"></a><span·class="lineno">·3570</span> sub·Seek·{</div><div·class="line"><a·name="l03571"></a><span·class="lineno">·3571</span> ····my·($self,·$offset,·$whence)·=·@_;</div><div·class="line"><a·name="l03572"></a><span·class="lineno">·3572</span> ····Geo::GDAL::VSIFSeekL($self,·$offset,·$whence);</div><div·class="line"><a·name="l03573"></a><span·class="lineno">·3573</span> }</div><div·class="line"><a·name="l03574"></a><span·class="lineno">·3574</span> </div><div·class="line"><a·name="l03575"></a><span·class="lineno">·3575</span> <span·class="preprocessor">#**·@method·list·Stat($filename)</span></div><div·class="line"><a·name="l03576"></a><span·class="lineno">·3576</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03577"></a><span·class="lineno">·3577</span> <span·class="preprocessor">#·@return·($filemode,·$filesize).·filemode·is·f·for·a·plain·file,·d</span></div><div·class="line"><a·name="l03578"></a><span·class="lineno">·3578</span> <span·class="preprocessor">#·for·a·directory,·l·for·a·symbolic·link,·p·for·a·named·pipe·(FIFO),·S</span></div><div·class="line"><a·name="l03579"></a><span·class="lineno">·3579</span> <span·class="preprocessor">#·for·a·socket,·b·for·a·block·special·file,·and·c·for·a·character</span></div><div·class="line"><a·name="l03580"></a><span·class="lineno">·3580</span> <span·class="preprocessor">#·special·file.</span></div><div·class="line"><a·name="l03581"></a><span·class="lineno">·3581</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03582"></a><span·class="lineno">·3582</span> sub·Stat·{</div><div·class="line"><a·name="l03583"></a><span·class="lineno">·3583</span> ····my·($path)·=·@_;</div><div·class="line"><a·name="l03584"></a><span·class="lineno">·3584</span> ····Geo::GDAL::Stat($path);</div><div·class="line"><a·name="l03585"></a><span·class="lineno">·3585</span> }</div><div·class="line"><a·name="l03586"></a><span·class="lineno">·3586</span> </div><div·class="line"><a·name="l03587"></a><span·class="lineno">·3587</span> <span·class="preprocessor">#**·@method·scalar·Tell()</span></div><div·class="line"><a·name="l03588"></a><span·class="lineno">·3588</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03589"></a><span·class="lineno">·3589</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03590"></a><span·class="lineno">·3590</span> sub·Tell·{</div><div·class="line"><a·name="l03591"></a><span·class="lineno">·3591</span> ····my·($self)·=·@_;</div><div·class="line"><a·name="l03592"></a><span·class="lineno">·3592</span> ····Geo::GDAL::VSIFTellL($self);</div><div·class="line"><a·name="l03593"></a><span·class="lineno">·3593</span> }</div><div·class="line"><a·name="l03594"></a><span·class="lineno">·3594</span> </div><div·class="line"><a·name="l03595"></a><span·class="lineno">·3595</span> <span·class="preprocessor">#**·@method·Truncate($new_size)</span></div><div·class="line"><a·name="l03596"></a><span·class="lineno">·3596</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03597"></a><span·class="lineno">·3597</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03598"></a><span·class="lineno">·3598</span> sub·Truncate·{</div><div·class="line"><a·name="l03599"></a><span·class="lineno">·3599</span> ····my·($self,·$new_size)·=·@_;</div><div·class="line"><a·name="l03600"></a><span·class="lineno">·3600</span> ····Geo::GDAL::VSIFTruncateL($self,·$new_size);</div><div·class="line"><a·name="l03601"></a><span·class="lineno">·3601</span> }</div><div·class="line"><a·name="l03602"></a><span·class="lineno">·3602</span> </div><div·class="line"><a·name="l03603"></a><span·class="lineno">·3603</span> <span·class="preprocessor">#**·@method·Unlink($filename)</span></div><div·class="line"><a·name="l03604"></a><span·class="lineno">·3604</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03605"></a><span·class="lineno">·3605</span> <span·class="preprocessor">#·@param·filename·The·file·to·delete.</span></div><div·class="line"><a·name="l03606"></a><span·class="lineno">·3606</span> <span·class="preprocessor">#·@return·0·on·success·and·-1·on·an·error.</span></div><div·class="line"><a·name="l03607"></a><span·class="lineno">·3607</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03608"></a><span·class="lineno">·3608</span> sub·Unlink·{</div><div·class="line"><a·name="l03609"></a><span·class="lineno">·3609</span> ····my·($filename)·=·@_;</div><div·class="line"><a·name="l03610"></a><span·class="lineno">·3610</span> ····Geo::GDAL::Unlink($filename);</div><div·class="line"><a·name="l03611"></a><span·class="lineno">·3611</span> }</div><div·class="line"><a·name="l03612"></a><span·class="lineno">·3612</span> </div><div·class="line"><a·name="l03613"></a><span·class="lineno">·3613</span> <span·class="preprocessor">#**·@method·Write($scalar)</span></div><div·class="line"><a·name="l03614"></a><span·class="lineno">·3614</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03615"></a><span·class="lineno">·3615</span> <span·class="preprocessor">#·@param·scalar·The·byte·string·to·write·to·the·file.</span></div><div·class="line"><a·name="l03616"></a><span·class="lineno">·3616</span> <span·class="preprocessor">#·@return·Number·of·bytes·written·into·the·file.</span></div><div·class="line"><a·name="l03617"></a><span·class="lineno">·3617</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03618"></a><span·class="lineno">·3618</span> sub·Write·{</div><div·class="line"><a·name="l03619"></a><span·class="lineno">·3619</span> ····my·($self,·$data)·=·@_;</div><div·class="line"><a·name="l03620"></a><span·class="lineno">·3620</span> ····Geo::GDAL::VSIFWriteL($data,·$self);</div><div·class="line"><a·name="l03621"></a><span·class="lineno">·3621</span> }</div><div·class="line"><a·name="l03622"></a><span·class="lineno">·3622</span> </div><div·class="line"><a·name="l03623"></a><span·class="lineno">·3623</span> <span·class="preprocessor">#**·@class·Geo::GDAL::VSILFILE</span></div><div·class="line"><a·name="l03624"></a><span·class="lineno">·3624</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03625"></a><span·class="lineno">·3625</span> <span·class="keyword">package·</span>Geo::GDAL::VSILFILE;</div><div·class="line"><a·name="l03626"></a><span·class="lineno">·3626</span> </div><div·class="line"><a·name="l03627"></a><span·class="lineno">·3627</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1GDAL.html">Geo::GDAL</a>)</div><div·class="line"><a·name="l03628"></a><span·class="lineno">·3628</span> </div><div·class="line"><a·name="l03629"></a><span·class="lineno">·3629</span> <span·class="preprocessor">#**·@class·Geo::GDAL::XML</span></div><div·class="line"><a·name="l03630"></a><span·class="lineno">·3630</span> <span·class="preprocessor">#·@brief·A·simple·XML·parser</span></div><div·class="line"><a·name="l03631"></a><span·class="lineno">·3631</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l03632"></a><span·class="lineno">·3632</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03633"></a><span·class="lineno">·3633</span> <span·class="keyword">package·</span>Geo::GDAL::XML;</div><div·class="line"><a·name="l03634"></a><span·class="lineno">·3634</span> </div><div·class="line"><a·name="l03635"></a><span·class="lineno">·3635</span> <span·class="preprocessor">#**·@method·new($string)</span></div><div·class="line"><a·name="l03636"></a><span·class="lineno">·3636</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03637"></a><span·class="lineno">·3637</span> <span·class="preprocessor">#·@param·string·String·containing·XML.</span></div><div·class="line"><a·name="l03638"></a><span·class="lineno">·3638</span> <span·class="preprocessor">#·@return·A·new·Geo::GDAL::XML·object,·which·is·a·reference·to·an·anonymous·array.</span></div><div·class="line"><a·name="l03639"></a><span·class="lineno">·3639</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03640"></a><span·class="lineno">·3640</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l03641"></a><span·class="lineno">·3641</span> ····my·$class·=·shift;</div><div·class="line"><a·name="l03642"></a><span·class="lineno">·3642</span> ····my·$xml·=·shift·<span·class="comment">//·'';</span></div><div·class="line"><a·name="l03643"></a><span·class="lineno">·3643</span> ····my·$self·=·ParseXMLString($xml);</div><div·class="line"><a·name="l03644"></a><span·class="lineno">·3644</span> ····bless·$self,·$class;</div><div·class="line"><a·name="l03645"></a><span·class="lineno">·3645</span> ····$self->traverse(sub·{my·$node·=·shift;·bless·$node,·$class});</div><div·class="line"><a·name="l03646"></a><span·class="lineno">·3646</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l03647"></a><span·class="lineno">·3647</span> }</div><div·class="line"><a·name="l03648"></a><span·class="lineno">·3648</span> </div><div·class="line"><a·name="l03649"></a><span·class="lineno">·3649</span> <span·class="preprocessor">#**·@method·serialize()</span></div><div·class="line"><a·name="l03650"></a><span·class="lineno">·3650</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03651"></a><span·class="lineno">·3651</span> <span·class="preprocessor">#·@return·The·XML·serialized·into·a·string.</span></div><div·class="line"><a·name="l03652"></a><span·class="lineno">·3652</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03653"></a><span·class="lineno">·3653</span> sub·serialize·{</div><div·class="line"><a·name="l03654"></a><span·class="lineno">·3654</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l03655"></a><span·class="lineno">·3655</span> ····<span·class="keywordflow">return</span>·SerializeXMLTree($self);</div><div·class="line"><a·name="l03656"></a><span·class="lineno">·3656</span> }</div><div·class="line"><a·name="l03657"></a><span·class="lineno">·3657</span> 1;</div><div·class="line"><a·name="l03658"></a><span·class="lineno">·3658</span> <span·class="preprocessor">#·This·file·was·automatically·generated·by·SWIG·(http://www.swig.org).</span></div><div·class="line"><a·name="l03659"></a><span·class="lineno">·3659</span> <span·class="preprocessor">#·Version·2.0.12</span></div><div·class="line"><a·name="l03660"></a><span·class="lineno">·3660</span> <span·class="preprocessor">#</span></div><div·class="line"><a·name="l03661"></a><span·class="lineno">·3661</span> <span·class="preprocessor">#·Do·not·make·changes·to·this·file·unless·you·know·what·you·are·doing--modify</span></div><div·class="line"><a·name="l03662"></a><span·class="lineno">·3662</span> <span·class="preprocessor">#·the·SWIG·interface·file·instead.</span></div><div·class="line"><a·name="l03663"></a><span·class="lineno">·3663</span> }</div><div·class="line"><a·name="l03664"></a><span·class="lineno">·3664</span> </div><div·class="line"><a·name="l03665"></a><span·class="lineno">·3665</span> <span·class="preprocessor">#**·@method·traverse(coderef·subroutine)</span></div><div·class="line"><a·name="l03666"></a><span·class="lineno">·3666</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03667"></a><span·class="lineno">·3667</span> <span·class="preprocessor">#·@param·subroutine·Code·reference,·which·will·be·called·for·each·node·in·the·XML·with·parameters:·node,·node_type,·node_value.·Node·type·is·either·Attribute,·Comment,·Element,·Literal,·or·Text.</span></div><div·class="line"><a·name="l03668"></a><span·class="lineno">·3668</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03669"></a><span·class="lineno">·3669</span> sub·traverse·{</div><div·class="line"><a·name="l03670"></a><span·class="lineno">·3670</span> ····my·($self,·$sub)·=·@_;</div><div·class="line"><a·name="l03671"></a><span·class="lineno">·3671</span> ····my·$type·=·$self->[0];</div><div·class="line"><a·name="l03672"></a><span·class="lineno">·3672</span> ····my·$data·=·$self->[1];</div><div·class="line"><a·name="l03673"></a><span·class="lineno">·3673</span> ····$type·=·NodeType($type);</div><div·class="line"><a·name="l03674"></a><span·class="lineno">·3674</span> ····$sub->($self,·$type,·$data);</div><div·class="line"><a·name="l03675"></a><span·class="lineno">·3675</span> ····<span·class="keywordflow">for</span>·my·$child·(@{$self}[2..$#$self])·{</div><div·class="line"><a·name="l03676"></a><span·class="lineno">·3676</span> ········traverse($child,·$sub);</div><div·class="line"><a·name="l03677"></a><span·class="lineno">·3677</span> ····}</div><div·class="line"><a·name="l03678"></a><span·class="lineno">·3678</span> }</div><div·class="line"><a·name="l03679"></a><span·class="lineno">·3679</span> </div><div·class="line"><a·name="l03680"></a><span·class="lineno">·3680</span> <span·class="preprocessor">#**·@class·Geo::GNM</span></div><div·class="line"><a·name="l03681"></a><span·class="lineno">·3681</span> <span·class="preprocessor">#·@brief·Base·class·for·geographical·networks·in·GDAL.</span></div><div·class="line"><a·name="l03682"></a><span·class="lineno">·3682</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l03683"></a><span·class="lineno">·3683</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03684"></a><span·class="lineno">·3684</span> <span·class="keyword">package·</span>Geo::GNM;</div><div·class="line"><a·name="l03685"></a><span·class="lineno">·3685</span> </div><div·class="line"><a·name="l03686"></a><span·class="lineno">·3686</span> <span·class="preprocessor">#**·@method·CastToGenericNetwork()</span></div><div·class="line"><a·name="l03687"></a><span·class="lineno">·3687</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03688"></a><span·class="lineno">·3688</span> sub·CastToGenericNetwork·{</div><div·class="line"><a·name="l03689"></a><span·class="lineno">·3689</span> }</div><div·class="line"><a·name="l03690"></a><span·class="lineno">·3690</span> </div><div·class="line"><a·name="l03691"></a><span·class="lineno">·3691</span> <span·class="preprocessor">#**·@method·CastToNetwork()</span></div><div·class="line"><a·name="l03692"></a><span·class="lineno">·3692</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03693"></a><span·class="lineno">·3693</span> sub·CastToNetwork·{</div><div·class="line"><a·name="l03694"></a><span·class="lineno">·3694</span> }</div><div·class="line"><a·name="l03695"></a><span·class="lineno">·3695</span> </div><div·class="line"><a·name="l03696"></a><span·class="lineno">·3696</span> <span·class="preprocessor">#**·@method·GATConnectedComponents()</span></div><div·class="line"><a·name="l03697"></a><span·class="lineno">·3697</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03698"></a><span·class="lineno">·3698</span> sub·GATConnectedComponents·{</div><div·class="line"><a·name="l03699"></a><span·class="lineno">·3699</span> }</div><div·class="line"><a·name="l03700"></a><span·class="lineno">·3700</span> </div><div·class="line"><a·name="l03701"></a><span·class="lineno">·3701</span> <span·class="preprocessor">#**·@method·GATDijkstraShortestPath()</span></div><div·class="line"><a·name="l03702"></a><span·class="lineno">·3702</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03703"></a><span·class="lineno">·3703</span> sub·GATDijkstraShortestPath·{</div><div·class="line"><a·name="l03704"></a><span·class="lineno">·3704</span> }</div><div·class="line"><a·name="l03705"></a><span·class="lineno">·3705</span> </div><div·class="line"><a·name="l03706"></a><span·class="lineno">·3706</span> <span·class="preprocessor">#**·@method·GATKShortestPath()</span></div><div·class="line"><a·name="l03707"></a><span·class="lineno">·3707</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03708"></a><span·class="lineno">·3708</span> sub·GATKShortestPath·{</div><div·class="line"><a·name="l03709"></a><span·class="lineno">·3709</span> }</div><div·class="line"><a·name="l03710"></a><span·class="lineno">·3710</span> </div><div·class="line"><a·name="l03711"></a><span·class="lineno">·3711</span> <span·class="preprocessor">#**·@method·GNM_EDGE_DIR_BOTH()</span></div><div·class="line"><a·name="l03712"></a><span·class="lineno">·3712</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03713"></a><span·class="lineno">·3713</span> sub·GNM_EDGE_DIR_BOTH·{</div><div·class="line"><a·name="l03714"></a><span·class="lineno">·3714</span> }</div><div·class="line"><a·name="l03715"></a><span·class="lineno">·3715</span> </div><div·class="line"><a·name="l03716"></a><span·class="lineno">·3716</span> <span·class="preprocessor">#**·@method·GNM_EDGE_DIR_SRCTOTGT()</span></div><div·class="line"><a·name="l03717"></a><span·class="lineno">·3717</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03718"></a><span·class="lineno">·3718</span> sub·GNM_EDGE_DIR_SRCTOTGT·{</div><div·class="line"><a·name="l03719"></a><span·class="lineno">·3719</span> }</div><div·class="line"><a·name="l03720"></a><span·class="lineno">·3720</span> </div><div·class="line"><a·name="l03721"></a><span·class="lineno">·3721</span> <span·class="preprocessor">#**·@method·GNM_EDGE_DIR_TGTTOSRC()</span></div><div·class="line"><a·name="l03722"></a><span·class="lineno">·3722</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03723"></a><span·class="lineno">·3723</span> sub·GNM_EDGE_DIR_TGTTOSRC·{</div><div·class="line"><a·name="l03724"></a><span·class="lineno">·3724</span> ·····1;</div><div·class="line"><a·name="l03725"></a><span·class="lineno">·3725</span> }</div><div·class="line"><a·name="l03726"></a><span·class="lineno">·3726</span> </div><div·class="line"><a·name="l03727"></a><span·class="lineno">·3727</span> <span·class="preprocessor">#**·@class·Geo::GNM::GenericNetwork</span></div><div·class="line"><a·name="l03728"></a><span·class="lineno">·3728</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l03729"></a><span·class="lineno">·3729</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03730"></a><span·class="lineno">·3730</span> <span·class="keyword">package·</span>Geo::GNM::GenericNetwork;</div><div·class="line"><a·name="l03731"></a><span·class="lineno">·3731</span> </div><div·class="line"><a·name="l03732"></a><span·class="lineno">·3732</span> use·base·qw(<a·class="code"·href="classGeo_1_1GNM_1_1Network.html">Geo::GNM::Network</a>·<a·class="code"·href="namespaceGeo_1_1GNM.html">Geo::GNM</a>)</div><div·class="line"><a·name="l03733"></a><span·class="lineno">·3733</span> </div><div·class="line"><a·name="l03734"></a><span·class="lineno">·3734</span> <span·class="preprocessor">#**·@method·ChangeAllBlockState()</span></div><div·class="line"><a·name="l03735"></a><span·class="lineno">·3735</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03736"></a><span·class="lineno">·3736</span> sub·ChangeAllBlockState·{</div><div·class="line"><a·name="l03737"></a><span·class="lineno">·3737</span> }</div><div·class="line"><a·name="l03738"></a><span·class="lineno">·3738</span> </div><div·class="line"><a·name="l03739"></a><span·class="lineno">·3739</span> <span·class="preprocessor">#**·@method·ChangeBlockState()</span></div><div·class="line"><a·name="l03740"></a><span·class="lineno">·3740</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03741"></a><span·class="lineno">·3741</span> sub·ChangeBlockState·{</div><div·class="line"><a·name="l03742"></a><span·class="lineno">·3742</span> }</div><div·class="line"><a·name="l03743"></a><span·class="lineno">·3743</span> </div><div·class="line"><a·name="l03744"></a><span·class="lineno">·3744</span> <span·class="preprocessor">#**·@method·ConnectFeatures()</span></div><div·class="line"><a·name="l03745"></a><span·class="lineno">·3745</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03746"></a><span·class="lineno">·3746</span> sub·ConnectFeatures·{</div><div·class="line"><a·name="l03747"></a><span·class="lineno">·3747</span> }</div><div·class="line"><a·name="l03748"></a><span·class="lineno">·3748</span> </div><div·class="line"><a·name="l03749"></a><span·class="lineno">·3749</span> <span·class="preprocessor">#**·@method·ConnectPointsByLines()</span></div><div·class="line"><a·name="l03750"></a><span·class="lineno">·3750</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03751"></a><span·class="lineno">·3751</span> sub·ConnectPointsByLines·{</div><div·class="line"><a·name="l03752"></a><span·class="lineno">·3752</span> }</div><div·class="line"><a·name="l03753"></a><span·class="lineno">·3753</span> </div><div·class="line"><a·name="l03754"></a><span·class="lineno">·3754</span> <span·class="preprocessor">#**·@method·CreateRule()</span></div><div·class="line"><a·name="l03755"></a><span·class="lineno">·3755</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03756"></a><span·class="lineno">·3756</span> sub·CreateRule·{</div><div·class="line"><a·name="l03757"></a><span·class="lineno">·3757</span> }</div><div·class="line"><a·name="l03758"></a><span·class="lineno">·3758</span> </div><div·class="line"><a·name="l03759"></a><span·class="lineno">·3759</span> <span·class="preprocessor">#**·@method·DeleteAllRules()</span></div><div·class="line"><a·name="l03760"></a><span·class="lineno">·3760</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03761"></a><span·class="lineno">·3761</span> sub·DeleteAllRules·{</div><div·class="line"><a·name="l03762"></a><span·class="lineno">·3762</span> }</div><div·class="line"><a·name="l03763"></a><span·class="lineno">·3763</span> </div><div·class="line"><a·name="l03764"></a><span·class="lineno">·3764</span> <span·class="preprocessor">#**·@method·DeleteRule()</span></div><div·class="line"><a·name="l03765"></a><span·class="lineno">·3765</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03766"></a><span·class="lineno">·3766</span> sub·DeleteRule·{</div><div·class="line"><a·name="l03767"></a><span·class="lineno">·3767</span> }</div><div·class="line"><a·name="l03768"></a><span·class="lineno">·3768</span> </div><div·class="line"><a·name="l03769"></a><span·class="lineno">·3769</span> <span·class="preprocessor">#**·@method·DisconnectFeatures()</span></div><div·class="line"><a·name="l03770"></a><span·class="lineno">·3770</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03771"></a><span·class="lineno">·3771</span> sub·DisconnectFeatures·{</div><div·class="line"><a·name="l03772"></a><span·class="lineno">·3772</span> }</div><div·class="line"><a·name="l03773"></a><span·class="lineno">·3773</span> </div><div·class="line"><a·name="l03774"></a><span·class="lineno">·3774</span> <span·class="preprocessor">#**·@method·DisconnectFeaturesWithId()</span></div><div·class="line"><a·name="l03775"></a><span·class="lineno">·3775</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03776"></a><span·class="lineno">·3776</span> sub·DisconnectFeaturesWithId·{</div><div·class="line"><a·name="l03777"></a><span·class="lineno">·3777</span> }</div><div·class="line"><a·name="l03778"></a><span·class="lineno">·3778</span> </div><div·class="line"><a·name="l03779"></a><span·class="lineno">·3779</span> <span·class="preprocessor">#**·@method·GetRules()</span></div><div·class="line"><a·name="l03780"></a><span·class="lineno">·3780</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03781"></a><span·class="lineno">·3781</span> sub·GetRules·{</div><div·class="line"><a·name="l03782"></a><span·class="lineno">·3782</span> }</div><div·class="line"><a·name="l03783"></a><span·class="lineno">·3783</span> </div><div·class="line"><a·name="l03784"></a><span·class="lineno">·3784</span> <span·class="preprocessor">#**·@method·ReconnectFeatures()</span></div><div·class="line"><a·name="l03785"></a><span·class="lineno">·3785</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03786"></a><span·class="lineno">·3786</span> sub·ReconnectFeatures·{</div><div·class="line"><a·name="l03787"></a><span·class="lineno">·3787</span> }</div><div·class="line"><a·name="l03788"></a><span·class="lineno">·3788</span> </div><div·class="line"><a·name="l03789"></a><span·class="lineno">·3789</span> <span·class="preprocessor">#**·@class·Geo::GNM::MajorObject</span></div><div·class="line"><a·name="l03790"></a><span·class="lineno">·3790</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l03791"></a><span·class="lineno">·3791</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03792"></a><span·class="lineno">·3792</span> <span·class="keyword">package·</span>Geo::GNM::MajorObject;</div><div·class="line"><a·name="l03793"></a><span·class="lineno">·3793</span> </div><div·class="line"><a·name="l03794"></a><span·class="lineno">·3794</span> <span·class="preprocessor">#**·@class·Geo::GNM::Network</span></div><div·class="line"><a·name="l03795"></a><span·class="lineno">·3795</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l03796"></a><span·class="lineno">·3796</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03797"></a><span·class="lineno">·3797</span> <span·class="keyword">package·</span>Geo::GNM::Network;</div><div·class="line"><a·name="l03798"></a><span·class="lineno">·3798</span> </div><div·class="line"><a·name="l03799"></a><span·class="lineno">·3799</span> use·base·qw(<a·class="code"·href="classGeo_1_1GDAL_1_1MajorObject.html">Geo::GDAL::MajorObject</a>·Geo::GNM)</div><div·class="line"><a·name="l03800"></a><span·class="lineno">·3800</span> </div><div·class="line"><a·name="l03801"></a><span·class="lineno">·3801</span> <span·class="preprocessor">#**·@method·CommitTransaction()</span></div><div·class="line"><a·name="l03802"></a><span·class="lineno">·3802</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03803"></a><span·class="lineno">·3803</span> sub·CommitTransaction·{</div><div·class="line"><a·name="l03804"></a><span·class="lineno">·3804</span> }</div><div·class="line"><a·name="l03805"></a><span·class="lineno">·3805</span> </div><div·class="line"><a·name="l03806"></a><span·class="lineno">·3806</span> <span·class="preprocessor">#**·@method·CopyLayer()</span></div><div·class="line"><a·name="l03807"></a><span·class="lineno">·3807</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03808"></a><span·class="lineno">·3808</span> sub·CopyLayer·{</div><div·class="line"><a·name="l03809"></a><span·class="lineno">·3809</span> }</div><div·class="line"><a·name="l03810"></a><span·class="lineno">·3810</span> </div><div·class="line"><a·name="l03811"></a><span·class="lineno">·3811</span> <span·class="preprocessor">#**·@method·DisconnectAll()</span></div><div·class="line"><a·name="l03812"></a><span·class="lineno">·3812</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03813"></a><span·class="lineno">·3813</span> sub·DisconnectAll·{</div><div·class="line"><a·name="l03814"></a><span·class="lineno">·3814</span> }</div><div·class="line"><a·name="l03815"></a><span·class="lineno">·3815</span> </div><div·class="line"><a·name="l03816"></a><span·class="lineno">·3816</span> <span·class="preprocessor">#**·@method·GetFeatureByGlobalFID()</span></div><div·class="line"><a·name="l03817"></a><span·class="lineno">·3817</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03818"></a><span·class="lineno">·3818</span> sub·GetFeatureByGlobalFID·{</div><div·class="line"><a·name="l03819"></a><span·class="lineno">·3819</span> }</div><div·class="line"><a·name="l03820"></a><span·class="lineno">·3820</span> </div><div·class="line"><a·name="l03821"></a><span·class="lineno">·3821</span> <span·class="preprocessor">#**·@method·GetFileList()</span></div><div·class="line"><a·name="l03822"></a><span·class="lineno">·3822</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03823"></a><span·class="lineno">·3823</span> sub·GetFileList·{</div><div·class="line"><a·name="l03824"></a><span·class="lineno">·3824</span> }</div><div·class="line"><a·name="l03825"></a><span·class="lineno">·3825</span> </div><div·class="line"><a·name="l03826"></a><span·class="lineno">·3826</span> <span·class="preprocessor">#**·@method·GetLayerByIndex()</span></div><div·class="line"><a·name="l03827"></a><span·class="lineno">·3827</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03828"></a><span·class="lineno">·3828</span> sub·GetLayerByIndex·{</div><div·class="line"><a·name="l03829"></a><span·class="lineno">·3829</span> }</div><div·class="line"><a·name="l03830"></a><span·class="lineno">·3830</span> </div><div·class="line"><a·name="l03831"></a><span·class="lineno">·3831</span> <span·class="preprocessor">#**·@method·GetLayerByName()</span></div><div·class="line"><a·name="l03832"></a><span·class="lineno">·3832</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03833"></a><span·class="lineno">·3833</span> sub·GetLayerByName·{</div><div·class="line"><a·name="l03834"></a><span·class="lineno">·3834</span> }</div><div·class="line"><a·name="l03835"></a><span·class="lineno">·3835</span> </div><div·class="line"><a·name="l03836"></a><span·class="lineno">·3836</span> <span·class="preprocessor">#**·@method·GetLayerCount()</span></div><div·class="line"><a·name="l03837"></a><span·class="lineno">·3837</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03838"></a><span·class="lineno">·3838</span> sub·GetLayerCount·{</div><div·class="line"><a·name="l03839"></a><span·class="lineno">·3839</span> }</div><div·class="line"><a·name="l03840"></a><span·class="lineno">·3840</span> </div><div·class="line"><a·name="l03841"></a><span·class="lineno">·3841</span> <span·class="preprocessor">#**·@method·GetName()</span></div><div·class="line"><a·name="l03842"></a><span·class="lineno">·3842</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03843"></a><span·class="lineno">·3843</span> sub·GetName·{</div><div·class="line"><a·name="l03844"></a><span·class="lineno">·3844</span> }</div><div·class="line"><a·name="l03845"></a><span·class="lineno">·3845</span> </div><div·class="line"><a·name="l03846"></a><span·class="lineno">·3846</span> <span·class="preprocessor">#**·@method·GetPath()</span></div><div·class="line"><a·name="l03847"></a><span·class="lineno">·3847</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03848"></a><span·class="lineno">·3848</span> sub·GetPath·{</div><div·class="line"><a·name="l03849"></a><span·class="lineno">·3849</span> }</div><div·class="line"><a·name="l03850"></a><span·class="lineno">·3850</span> </div><div·class="line"><a·name="l03851"></a><span·class="lineno">·3851</span> <span·class="preprocessor">#**·@method·GetProjection()</span></div><div·class="line"><a·name="l03852"></a><span·class="lineno">·3852</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03853"></a><span·class="lineno">·3853</span> sub·GetProjection·{</div><div·class="line"><a·name="l03854"></a><span·class="lineno">·3854</span> }</div><div·class="line"><a·name="l03855"></a><span·class="lineno">·3855</span> </div><div·class="line"><a·name="l03856"></a><span·class="lineno">·3856</span> <span·class="preprocessor">#**·@method·GetProjectionRef()</span></div><div·class="line"><a·name="l03857"></a><span·class="lineno">·3857</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03858"></a><span·class="lineno">·3858</span> sub·GetProjectionRef·{</div><div·class="line"><a·name="l03859"></a><span·class="lineno">·3859</span> }</div><div·class="line"><a·name="l03860"></a><span·class="lineno">·3860</span> </div><div·class="line"><a·name="l03861"></a><span·class="lineno">·3861</span> <span·class="preprocessor">#**·@method·GetVersion()</span></div><div·class="line"><a·name="l03862"></a><span·class="lineno">·3862</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03863"></a><span·class="lineno">·3863</span> sub·GetVersion·{</div><div·class="line"><a·name="l03864"></a><span·class="lineno">·3864</span> }</div><div·class="line"><a·name="l03865"></a><span·class="lineno">·3865</span> </div><div·class="line"><a·name="l03866"></a><span·class="lineno">·3866</span> <span·class="preprocessor">#**·@method·RollbackTransaction()</span></div><div·class="line"><a·name="l03867"></a><span·class="lineno">·3867</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03868"></a><span·class="lineno">·3868</span> sub·RollbackTransaction·{</div><div·class="line"><a·name="l03869"></a><span·class="lineno">·3869</span> }</div><div·class="line"><a·name="l03870"></a><span·class="lineno">·3870</span> </div><div·class="line"><a·name="l03871"></a><span·class="lineno">·3871</span> <span·class="preprocessor">#**·@method·StartTransaction()</span></div><div·class="line"><a·name="l03872"></a><span·class="lineno">·3872</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03873"></a><span·class="lineno">·3873</span> sub·StartTransaction·{</div><div·class="line"><a·name="l03874"></a><span·class="lineno">·3874</span> }</div><div·class="line"><a·name="l03875"></a><span·class="lineno">·3875</span> </div><div·class="line"><a·name="l03876"></a><span·class="lineno">·3876</span> <span·class="preprocessor">#**·@class·Geo::OGR</span></div><div·class="line"><a·name="l03877"></a><span·class="lineno">·3877</span> <span·class="preprocessor">#·@brief·OGR·utility·functions.</span></div><div·class="line"><a·name="l03878"></a><span·class="lineno">·3878</span> <span·class="preprocessor">#·@details·A·wrapper·for·many·OGR·utility·functions·and·a·root·class·for·all</span></div><div·class="line"><a·name="l03879"></a><span·class="lineno">·3879</span> <span·class="preprocessor">#·OGR·classes.</span></div><div·class="line"><a·name="l03880"></a><span·class="lineno">·3880</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03881"></a><span·class="lineno">·3881</span> <span·class="keyword">package·</span>Geo::OGR;</div><div·class="line"><a·name="l03882"></a><span·class="lineno">·3882</span> </div><div·class="line"><a·name="l03883"></a><span·class="lineno">·3883</span> <span·class="preprocessor">#**·@method·list·ByteOrders()</span></div><div·class="line"><a·name="l03884"></a><span·class="lineno">·3884</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03885"></a><span·class="lineno">·3885</span> <span·class="preprocessor">#·@return·a·list·of·byte·order·types,·XDR·and·NDR.·XDR·denotes</span></div><div·class="line"><a·name="l03886"></a><span·class="lineno">·3886</span> <span·class="preprocessor">#·big-endian·and·NDR·denotes·little-endian.</span></div><div·class="line"><a·name="l03887"></a><span·class="lineno">·3887</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03888"></a><span·class="lineno">·3888</span> sub·ByteOrders·{</div><div·class="line"><a·name="l03889"></a><span·class="lineno">·3889</span> }</div><div·class="line"><a·name="l03890"></a><span·class="lineno">·3890</span> </div><div·class="line"><a·name="l03891"></a><span·class="lineno">·3891</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Driver·Driver($name)</span></div><div·class="line"><a·name="l03892"></a><span·class="lineno">·3892</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03893"></a><span·class="lineno">·3893</span> <span·class="preprocessor">#·A.k.a·GetDriver.</span></div><div·class="line"><a·name="l03894"></a><span·class="lineno">·3894</span> <span·class="preprocessor">#·@param·name·the·short·name·of·the·driver.</span></div><div·class="line"><a·name="l03895"></a><span·class="lineno">·3895</span> <span·class="preprocessor">#·@note·No·check·is·made·that·the·driver·is·actually·a·vector·driver.</span></div><div·class="line"><a·name="l03896"></a><span·class="lineno">·3896</span> <span·class="preprocessor">#·@return·a·Geo::GDAL::Driver·object.</span></div><div·class="line"><a·name="l03897"></a><span·class="lineno">·3897</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03898"></a><span·class="lineno">·3898</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1Driver.html">Driver</a>·{</div><div·class="line"><a·name="l03899"></a><span·class="lineno">·3899</span> ····<span·class="keywordflow">return</span>·<span·class="stringliteral">'Geo::GDAL::Driver'</span>·unless·@_;</div><div·class="line"><a·name="l03900"></a><span·class="lineno">·3900</span> ····bless·<a·class="code"·href="classGeo_1_1GDAL.html#ac6041428faeb7a6b21c380a2011cd25c">Geo::GDAL::Driver</a>(@_),·<span·class="stringliteral">'Geo::OGR::Driver'</span>;</div><div·class="line"><a·name="l03901"></a><span·class="lineno">·3901</span> }</div><div·class="line"><a·name="l03902"></a><span·class="lineno">·3902</span> </div><div·class="line"><a·name="l03903"></a><span·class="lineno">·3903</span> <span·class="preprocessor">#**·@method·list·DriverNames()</span></div><div·class="line"><a·name="l03904"></a><span·class="lineno">·3904</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03905"></a><span·class="lineno">·3905</span> <span·class="preprocessor">#·A.k.a·GetDriverNames</span></div><div·class="line"><a·name="l03906"></a><span·class="lineno">·3906</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l03907"></a><span·class="lineno">·3907</span> <span·class="preprocessor">#·perl·-MGeo::GDAL·-e·'@d=Geo::OGR::DriverNames;print·"@d\n"'</span></div><div·class="line"><a·name="l03908"></a><span·class="lineno">·3908</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l03909"></a><span·class="lineno">·3909</span> <span·class="preprocessor">#·@note·Use·Geo::GDAL::DriverNames·for·raster·drivers.</span></div><div·class="line"><a·name="l03910"></a><span·class="lineno">·3910</span> <span·class="preprocessor">#·@return·a·list·of·the·short·names·of·all·available·GDAL·vector·drivers.</span></div><div·class="line"><a·name="l03911"></a><span·class="lineno">·3911</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03912"></a><span·class="lineno">·3912</span> sub·DriverNames·{</div><div·class="line"><a·name="l03913"></a><span·class="lineno">·3913</span> }</div><div·class="line"><a·name="l03914"></a><span·class="lineno">·3914</span> </div><div·class="line"><a·name="l03915"></a><span·class="lineno">·3915</span> <span·class="preprocessor">#**·@method·list·Drivers()</span></div><div·class="line"><a·name="l03916"></a><span·class="lineno">·3916</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03917"></a><span·class="lineno">·3917</span> <span·class="preprocessor">#·@note·Use·Geo::GDAL::Drivers·for·raster·drivers.</span></div><div·class="line"><a·name="l03918"></a><span·class="lineno">·3918</span> <span·class="preprocessor">#·@return·a·list·of·all·available·GDAL·vector·drivers.</span></div><div·class="line"><a·name="l03919"></a><span·class="lineno">·3919</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03920"></a><span·class="lineno">·3920</span> sub·Drivers·{</div><div·class="line"><a·name="l03921"></a><span·class="lineno">·3921</span> ····my·@drivers;</div><div·class="line"><a·name="l03922"></a><span·class="lineno">·3922</span> ····<span·class="keywordflow">for</span>·my·$i·(0..GetDriverCount()-1)·{</div><div·class="line"><a·name="l03923"></a><span·class="lineno">·3923</span> ········my·$driver·=·Geo::GDAL::GetDriver($i);</div><div·class="line"><a·name="l03924"></a><span·class="lineno">·3924</span> ········push·@drivers,·$driver·<span·class="keywordflow">if</span>·$driver->TestCapability(<span·class="stringliteral">'VECTOR'</span>);</div><div·class="line"><a·name="l03925"></a><span·class="lineno">·3925</span> ····}</div><div·class="line"><a·name="l03926"></a><span·class="lineno">·3926</span> ····<span·class="keywordflow">return</span>·@drivers;</div><div·class="line"><a·name="l03927"></a><span·class="lineno">·3927</span> }</div><div·class="line"><a·name="l03928"></a><span·class="lineno">·3928</span> </div><div·class="line"><a·name="l03929"></a><span·class="lineno">·3929</span> <span·class="preprocessor">#**·@method·Flatten()</span></div><div·class="line"><a·name="l03930"></a><span·class="lineno">·3930</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03931"></a><span·class="lineno">·3931</span> sub·Flatten·{</div><div·class="line"><a·name="l03932"></a><span·class="lineno">·3932</span> }</div><div·class="line"><a·name="l03933"></a><span·class="lineno">·3933</span> </div><div·class="line"><a·name="l03934"></a><span·class="lineno">·3934</span> <span·class="preprocessor">#**·@method·scalar·GeometryTypeModify($type,·$modifier)</span></div><div·class="line"><a·name="l03935"></a><span·class="lineno">·3935</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03936"></a><span·class="lineno">·3936</span> <span·class="preprocessor">#·@param·type·a·geometry·type·(one·of·Geo::OGR::GeometryTypes).</span></div><div·class="line"><a·name="l03937"></a><span·class="lineno">·3937</span> <span·class="preprocessor">#·@param·modifier·one·of·'flatten',·'set_Z',·'make_collection',·'make_curve',·or·'make_linear'.</span></div><div·class="line"><a·name="l03938"></a><span·class="lineno">·3938</span> <span·class="preprocessor">#·@return·modified·geometry·type.</span></div><div·class="line"><a·name="l03939"></a><span·class="lineno">·3939</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03940"></a><span·class="lineno">·3940</span> sub·GeometryTypeModify·{</div><div·class="line"><a·name="l03941"></a><span·class="lineno">·3941</span> ····my($type,·$modifier)·=·@_;</div><div·class="line"><a·name="l03942"></a><span·class="lineno">·3942</span> ····$type·=·s2i(geometry_type·=>·$type);</div><div·class="line"><a·name="l03943"></a><span·class="lineno">·3943</span> ····<span·class="keywordflow">return</span>·i2s(geometry_type·=>·GT_Flatten($type))·<span·class="keywordflow">if</span>·$modifier·=~·/flat/i;</div><div·class="line"><a·name="l03944"></a><span·class="lineno">·3944</span> ····<span·class="keywordflow">return</span>·i2s(geometry_type·=>·GT_SetZ($type))·<span·class="keywordflow">if</span>·$modifier·=~·/z/i;</div><div·class="line"><a·name="l03945"></a><span·class="lineno">·3945</span> ····<span·class="keywordflow">return</span>·i2s(geometry_type·=>·GT_GetCollection($type))·<span·class="keywordflow">if</span>·$modifier·=~·/collection/i;</div><div·class="line"><a·name="l03946"></a><span·class="lineno">·3946</span> ····<span·class="keywordflow">return</span>·i2s(geometry_type·=>·GT_GetCurve($type))·<span·class="keywordflow">if</span>·$modifier·=~·/curve/i;</div><div·class="line"><a·name="l03947"></a><span·class="lineno">·3947</span> ····<span·class="keywordflow">return</span>·i2s(geometry_type·=>·GT_GetLinear($type))·<span·class="keywordflow">if</span>·$modifier·=~·/linear/i;</div><div·class="line"><a·name="l03948"></a><span·class="lineno">·3948</span> ····error(1,·$modifier,·{Flatten·=>·1,·SetZ·=>·1,·GetCollection·=>·1,·GetCurve·=>·1,·GetLinear·=>·1});</div><div·class="line"><a·name="l03949"></a><span·class="lineno">·3949</span> }</div><div·class="line"><a·name="l03950"></a><span·class="lineno">·3950</span> </div><div·class="line"><a·name="l03951"></a><span·class="lineno">·3951</span> <span·class="preprocessor">#**·@method·scalar·GeometryTypeTest($type,·$test,·$type2)</span></div><div·class="line"><a·name="l03952"></a><span·class="lineno">·3952</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l03953"></a><span·class="lineno">·3953</span> <span·class="preprocessor">#·@param·type·a·geometry·type·(one·of·Geo::OGR::GeometryTypes).</span></div><div·class="line"><a·name="l03954"></a><span·class="lineno">·3954</span> <span·class="preprocessor">#·@param·test·one·of·'has_z',·'is_subclass_of',·'is_curve',·'is_surface',·or·'is_non_linear'.</span></div><div·class="line"><a·name="l03955"></a><span·class="lineno">·3955</span> <span·class="preprocessor">#·@param·type2·a·geometry·type·(one·of·Geo::OGR::GeometryTypes).·Required·for·'is_subclass_of'·test.</span></div><div·class="line"><a·name="l03956"></a><span·class="lineno">·3956</span> <span·class="preprocessor">#·@return·result·of·the·test.</span></div><div·class="line"><a·name="l03957"></a><span·class="lineno">·3957</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03958"></a><span·class="lineno">·3958</span> sub·GeometryTypeTest·{</div><div·class="line"><a·name="l03959"></a><span·class="lineno">·3959</span> ····my($type,·$test,·$type2)·=·@_;</div><div·class="line"><a·name="l03960"></a><span·class="lineno">·3960</span> ····$type·=·s2i(geometry_type·=>·$type);</div><div·class="line"><a·name="l03961"></a><span·class="lineno">·3961</span> ····<span·class="keywordflow">if</span>·(defined·$type2)·{</div><div·class="line"><a·name="l03962"></a><span·class="lineno">·3962</span> ········$type·=·s2i(geometry_type·=>·$type);</div><div·class="line"><a·name="l03963"></a><span·class="lineno">·3963</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l03964"></a><span·class="lineno">·3964</span> ········error(<span·class="stringliteral">"Usage:·GeometryTypeTest(type1,·'is_subclass_of',·type2)."</span>)·<span·class="keywordflow">if</span>·$test·=~·/subclass/i;</div><div·class="line"><a·name="l03965"></a><span·class="lineno">·3965</span> ····}</div><div·class="line"><a·name="l03966"></a><span·class="lineno">·3966</span> ····<span·class="keywordflow">return</span>·GT_HasZ($type)·<span·class="keywordflow">if</span>·$test·=~·/z/i;</div><div·class="line"><a·name="l03967"></a><span·class="lineno">·3967</span> ····<span·class="keywordflow">return</span>·GT_IsSubClassOf($type,·$type2)·<span·class="keywordflow">if</span>·$test·=~·/subclass/i;</div><div·class="line"><a·name="l03968"></a><span·class="lineno">·3968</span> ····<span·class="keywordflow">return</span>·GT_IsCurve($type)·<span·class="keywordflow">if</span>·$test·=~·/curve/i;</div><div·class="line"><a·name="l03969"></a><span·class="lineno">·3969</span> ····<span·class="keywordflow">return</span>·GT_IsSurface($type)·<span·class="keywordflow">if</span>·$test·=~·/surface/i;</div><div·class="line"><a·name="l03970"></a><span·class="lineno">·3970</span> ····<span·class="keywordflow">return</span>·GT_IsNonLinear($type)·<span·class="keywordflow">if</span>·$test·=~·/linear/i;</div><div·class="line"><a·name="l03971"></a><span·class="lineno">·3971</span> ····error(1,·$test,·{HasZ·=>·1,·IsSubClassOf·=>·1,·IsCurve·=>·1,·IsSurface·=>·1,·IsNonLinear·=>·1});</div><div·class="line"><a·name="l03972"></a><span·class="lineno">·3972</span> }</div><div·class="line"><a·name="l03973"></a><span·class="lineno">·3973</span> </div><div·class="line"><a·name="l03974"></a><span·class="lineno">·3974</span> <span·class="preprocessor">#**·@method·list·GeometryTypes()</span></div><div·class="line"><a·name="l03975"></a><span·class="lineno">·3975</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l03976"></a><span·class="lineno">·3976</span> <span·class="preprocessor">#·@return·a·list·of·all·geometry·types,·currently:</span></div><div·class="line"><a·name="l03977"></a><span·class="lineno">·3977</span> <span·class="preprocessor">#·CircularString,·CircularStringM,·CircularStringZ,·CircularStringZM,·CompoundCurve,·CompoundCurveM,·CompoundCurveZ,·CompoundCurveZM,·Curve,·CurveM,·CurvePolygon,·CurvePolygonM,·CurvePolygonZ,·CurvePolygonZM,·CurveZ,·CurveZM,·GeometryCollection,·GeometryCollection25D,·GeometryCollectionM,·GeometryCollectionZM,·LineString,·LineString25D,·LineStringM,·LineStringZM,·LinearRing,·MultiCurve,·MultiCurveM,·MultiCurveZ,·MultiCurveZM,·MultiLineString,·MultiLineString25D,·MultiLineStringM,·MultiLineStringZM,·MultiPoint,·MultiPoint25D,·MultiPointM,·MultiPointZM,·MultiPolygon,·MultiPolygon25D,·MultiPolygonM,·MultiPolygonZM,·MultiSurface,·MultiSurfaceM,·MultiSurfaceZ,·MultiSurfaceZM,·None,·Point,·Point25D,·PointM,·PointZM,·Polygon,·Polygon25D,·PolygonM,·PolygonZM,·PolyhedralSurface,·PolyhedralSurfaceM,·PolyhedralSurfaceZ,·PolyhedralSurfaceZM,·Surface,·SurfaceM,·SurfaceZ,·SurfaceZM,·TIN,·TINM,·TINZ,·TINZM,·Triangle,·TriangleM,·TriangleZ,·TriangleZM,·and·Unknown.</span></div><div·class="line"><a·name="l03978"></a><span·class="lineno">·3978</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03979"></a><span·class="lineno">·3979</span> sub·GeometryTypes·{</div><div·class="line"><a·name="l03980"></a><span·class="lineno">·3980</span> ·····1;</div><div·class="line"><a·name="l03981"></a><span·class="lineno">·3981</span> <span·class="preprocessor">·····#·This·file·was·automatically·generated·by·SWIG·(http://www.swig.org).</span></div><div·class="line"><a·name="l03982"></a><span·class="lineno">·3982</span> <span·class="preprocessor">·····#·Version·2.0.12</span></div><div·class="line"><a·name="l03983"></a><span·class="lineno">·3983</span> <span·class="preprocessor">·····#</span></div><div·class="line"><a·name="l03984"></a><span·class="lineno">·3984</span> <span·class="preprocessor">·····#·Do·not·make·changes·to·this·file·unless·you·know·what·you·are·doing--modify</span></div><div·class="line"><a·name="l03985"></a><span·class="lineno">·3985</span> <span·class="preprocessor">·····#·the·SWIG·interface·file·instead.</span></div><div·class="line"><a·name="l03986"></a><span·class="lineno">·3986</span> }</div><div·class="line"><a·name="l03987"></a><span·class="lineno">·3987</span> </div><div·class="line"><a·name="l03988"></a><span·class="lineno">·3988</span> <span·class="preprocessor">#**·@method·GetNonLinearGeometriesEnabledFlag()</span></div><div·class="line"><a·name="l03989"></a><span·class="lineno">·3989</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03990"></a><span·class="lineno">·3990</span> sub·GetNonLinearGeometriesEnabledFlag·{</div><div·class="line"><a·name="l03991"></a><span·class="lineno">·3991</span> }</div><div·class="line"><a·name="l03992"></a><span·class="lineno">·3992</span> </div><div·class="line"><a·name="l03993"></a><span·class="lineno">·3993</span> <span·class="preprocessor">#**·@method·GetOpenDSCount()</span></div><div·class="line"><a·name="l03994"></a><span·class="lineno">·3994</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l03995"></a><span·class="lineno">·3995</span> sub·GetOpenDSCount·{</div><div·class="line"><a·name="l03996"></a><span·class="lineno">·3996</span> }</div><div·class="line"><a·name="l03997"></a><span·class="lineno">·3997</span> </div><div·class="line"><a·name="l03998"></a><span·class="lineno">·3998</span> <span·class="preprocessor">#**·@method·HasM()</span></div><div·class="line"><a·name="l03999"></a><span·class="lineno">·3999</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04000"></a><span·class="lineno">·4000</span> sub·HasM·{</div><div·class="line"><a·name="l04001"></a><span·class="lineno">·4001</span> }</div><div·class="line"><a·name="l04002"></a><span·class="lineno">·4002</span> </div><div·class="line"><a·name="l04003"></a><span·class="lineno">·4003</span> <span·class="preprocessor">#**·@method·HasZ()</span></div><div·class="line"><a·name="l04004"></a><span·class="lineno">·4004</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04005"></a><span·class="lineno">·4005</span> sub·HasZ·{</div><div·class="line"><a·name="l04006"></a><span·class="lineno">·4006</span> }</div><div·class="line"><a·name="l04007"></a><span·class="lineno">·4007</span> </div><div·class="line"><a·name="l04008"></a><span·class="lineno">·4008</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Open($name,·$update·=·0)</span></div><div·class="line"><a·name="l04009"></a><span·class="lineno">·4009</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04010"></a><span·class="lineno">·4010</span> <span·class="preprocessor">#·Open·a·vector·data·source.</span></div><div·class="line"><a·name="l04011"></a><span·class="lineno">·4011</span> <span·class="preprocessor">#·@param·name·The·data·source·string·(directory,·filename,·etc.).</span></div><div·class="line"><a·name="l04012"></a><span·class="lineno">·4012</span> <span·class="preprocessor">#·@param·update·Whether·to·open·the·data·source·in·update·mode·(default·is·not).</span></div><div·class="line"><a·name="l04013"></a><span·class="lineno">·4013</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::Dataset·object.</span></div><div·class="line"><a·name="l04014"></a><span·class="lineno">·4014</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04015"></a><span·class="lineno">·4015</span> sub·Open·{</div><div·class="line"><a·name="l04016"></a><span·class="lineno">·4016</span> ····my·@p·=·@_;·#·name,·update</div><div·class="line"><a·name="l04017"></a><span·class="lineno">·4017</span> ····my·@flags·=·qw/VECTOR/;</div><div·class="line"><a·name="l04018"></a><span·class="lineno">·4018</span> ····push·@flags,·qw/UPDATE/·<span·class="keywordflow">if</span>·$p[1];</div><div·class="line"><a·name="l04019"></a><span·class="lineno">·4019</span> ····my·$dataset·=·<a·class="code"·href="classGeo_1_1GDAL.html#a5d0de6aa75caf703436d2a720b654bb6">Geo::GDAL::OpenEx</a>($p[0],·\@flags);</div><div·class="line"><a·name="l04020"></a><span·class="lineno">·4020</span> ····error(<span·class="stringliteral">"Failed·to·open·$p[0].·Is·it·a·vector·dataset?"</span>)·unless·$dataset;</div><div·class="line"><a·name="l04021"></a><span·class="lineno">·4021</span> ····<span·class="keywordflow">return</span>·$dataset;</div><div·class="line"><a·name="l04022"></a><span·class="lineno">·4022</span> }</div><div·class="line"><a·name="l04023"></a><span·class="lineno">·4023</span> </div><div·class="line"><a·name="l04024"></a><span·class="lineno">·4024</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·OpenShared($name,·$update·=·0)</span></div><div·class="line"><a·name="l04025"></a><span·class="lineno">·4025</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04026"></a><span·class="lineno">·4026</span> <span·class="preprocessor">#·Open·a·vector·data·source·in·shared·mode.</span></div><div·class="line"><a·name="l04027"></a><span·class="lineno">·4027</span> <span·class="preprocessor">#·@param·name·The·data·source·string·(directory,·filename,·etc.).</span></div><div·class="line"><a·name="l04028"></a><span·class="lineno">·4028</span> <span·class="preprocessor">#·@param·update·Whether·to·open·the·data·source·in·update·mode.</span></div><div·class="line"><a·name="l04029"></a><span·class="lineno">·4029</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::Dataset·object.</span></div><div·class="line"><a·name="l04030"></a><span·class="lineno">·4030</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04031"></a><span·class="lineno">·4031</span> sub·OpenShared·{</div><div·class="line"><a·name="l04032"></a><span·class="lineno">·4032</span> ····my·@p·=·@_;·#·name,·update</div><div·class="line"><a·name="l04033"></a><span·class="lineno">·4033</span> ····my·@flags·=·qw/VECTOR·SHARED/;</div><div·class="line"><a·name="l04034"></a><span·class="lineno">·4034</span> ····push·@flags,·qw/UPDATE/·<span·class="keywordflow">if</span>·$p[1];</div><div·class="line"><a·name="l04035"></a><span·class="lineno">·4035</span> ····my·$dataset·=·<a·class="code"·href="classGeo_1_1GDAL.html#a5d0de6aa75caf703436d2a720b654bb6">Geo::GDAL::OpenEx</a>($p[0],·\@flags);</div><div·class="line"><a·name="l04036"></a><span·class="lineno">·4036</span> ····error(<span·class="stringliteral">"Failed·to·open·$p[0].·Is·it·a·vector·dataset?"</span>)·unless·$dataset;</div><div·class="line"><a·name="l04037"></a><span·class="lineno">·4037</span> ····<span·class="keywordflow">return</span>·$dataset;</div><div·class="line"><a·name="l04038"></a><span·class="lineno">·4038</span> }</div><div·class="line"><a·name="l04039"></a><span·class="lineno">·4039</span> </div><div·class="line"><a·name="l04040"></a><span·class="lineno">·4040</span> <span·class="preprocessor">#**·@method·SetGenerate_DB2_V72_BYTE_ORDER($Generate_DB2_V72_BYTE_ORDER)</span></div><div·class="line"><a·name="l04041"></a><span·class="lineno">·4041</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04042"></a><span·class="lineno">·4042</span> <span·class="preprocessor">#·Needed·only·on·IBM·DB2.</span></div><div·class="line"><a·name="l04043"></a><span·class="lineno">·4043</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04044"></a><span·class="lineno">·4044</span> sub·SetGenerate_DB2_V72_BYTE_ORDER·{</div><div·class="line"><a·name="l04045"></a><span·class="lineno">·4045</span> }</div><div·class="line"><a·name="l04046"></a><span·class="lineno">·4046</span> </div><div·class="line"><a·name="l04047"></a><span·class="lineno">·4047</span> <span·class="preprocessor">#**·@method·SetNonLinearGeometriesEnabledFlag()</span></div><div·class="line"><a·name="l04048"></a><span·class="lineno">·4048</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04049"></a><span·class="lineno">·4049</span> sub·SetNonLinearGeometriesEnabledFlag·{</div><div·class="line"><a·name="l04050"></a><span·class="lineno">·4050</span> }</div><div·class="line"><a·name="l04051"></a><span·class="lineno">·4051</span> </div><div·class="line"><a·name="l04052"></a><span·class="lineno">·4052</span> <span·class="preprocessor">#**·@class·Geo::OGR::DataSource</span></div><div·class="line"><a·name="l04053"></a><span·class="lineno">·4053</span> <span·class="preprocessor">#·@brief·A·vector·dataset.</span></div><div·class="line"><a·name="l04054"></a><span·class="lineno">·4054</span> <span·class="preprocessor">#·@details·This·is·a·legacy·class·which·should·not·be</span></div><div·class="line"><a·name="l04055"></a><span·class="lineno">·4055</span> <span·class="preprocessor">#·used·in·new·code.·Use·Geo::GDAL::Dataset.</span></div><div·class="line"><a·name="l04056"></a><span·class="lineno">·4056</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04057"></a><span·class="lineno">·4057</span> <span·class="keyword">package·</span>Geo::OGR::DataSource;</div><div·class="line"><a·name="l04058"></a><span·class="lineno">·4058</span> </div><div·class="line"><a·name="l04059"></a><span·class="lineno">·4059</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Open()</span></div><div·class="line"><a·name="l04060"></a><span·class="lineno">·4060</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l04061"></a><span·class="lineno">·4061</span> <span·class="preprocessor">#·The·same·as·Geo::OGR::Open</span></div><div·class="line"><a·name="l04062"></a><span·class="lineno">·4062</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04063"></a><span·class="lineno">·4063</span> sub·Open·{</div><div·class="line"><a·name="l04064"></a><span·class="lineno">·4064</span> }</div><div·class="line"><a·name="l04065"></a><span·class="lineno">·4065</span> </div><div·class="line"><a·name="l04066"></a><span·class="lineno">·4066</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·OpenShared()</span></div><div·class="line"><a·name="l04067"></a><span·class="lineno">·4067</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l04068"></a><span·class="lineno">·4068</span> <span·class="preprocessor">#·The·same·as·Geo::OGR::OpenShared</span></div><div·class="line"><a·name="l04069"></a><span·class="lineno">·4069</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04070"></a><span·class="lineno">·4070</span> sub·OpenShared·{</div><div·class="line"><a·name="l04071"></a><span·class="lineno">·4071</span> }</div><div·class="line"><a·name="l04072"></a><span·class="lineno">·4072</span> </div><div·class="line"><a·name="l04073"></a><span·class="lineno">·4073</span> <span·class="preprocessor">#**·@class·Geo::OGR::Driver</span></div><div·class="line"><a·name="l04074"></a><span·class="lineno">·4074</span> <span·class="preprocessor">#·@brief·A·vector·format·driver.</span></div><div·class="line"><a·name="l04075"></a><span·class="lineno">·4075</span> <span·class="preprocessor">#·@details·This·is·a·legacy·class·which</span></div><div·class="line"><a·name="l04076"></a><span·class="lineno">·4076</span> <span·class="preprocessor">#·should·not·be·used·in·new·code.·Use·Geo::GDAL::Driver.</span></div><div·class="line"><a·name="l04077"></a><span·class="lineno">·4077</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04078"></a><span·class="lineno">·4078</span> <span·class="keyword">package·</span>Geo::OGR::Driver;</div><div·class="line"><a·name="l04079"></a><span·class="lineno">·4079</span> </div><div·class="line"><a·name="l04080"></a><span·class="lineno">·4080</span> use·base·qw(<a·class="code"·href="classGeo_1_1GDAL_1_1Driver.html">Geo::GDAL::Driver</a>)</div><div·class="line"><a·name="l04081"></a><span·class="lineno">·4081</span> </div><div·class="line"><a·name="l04082"></a><span·class="lineno">·4082</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Copy(Geo::GDAL::Dataset·source,·$name,·arrayref·options·=·undef)</span></div><div·class="line"><a·name="l04083"></a><span·class="lineno">·4083</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04084"></a><span·class="lineno">·4084</span> <span·class="preprocessor">#·Copy·a·vector·data·source·into·a·new·data·source·with·this·driver.</span></div><div·class="line"><a·name="l04085"></a><span·class="lineno">·4085</span> <span·class="preprocessor">#·@param·source·The·Geo::GDAL::Dataset·object·to·be·copied.</span></div><div·class="line"><a·name="l04086"></a><span·class="lineno">·4086</span> <span·class="preprocessor">#·@param·name·The·name·for·the·new·data·source.</span></div><div·class="line"><a·name="l04087"></a><span·class="lineno">·4087</span> <span·class="preprocessor">#·@param·options·Driver·specific·options.·In·addition·to·options</span></div><div·class="line"><a·name="l04088"></a><span·class="lineno">·4088</span> <span·class="preprocessor">#·specified·in·GDAL·documentation·the·option·STRICT·can·be·set·to·'NO'</span></div><div·class="line"><a·name="l04089"></a><span·class="lineno">·4089</span> <span·class="preprocessor">#·for·a·more·relaxed·copy.·Otherwise·the·STRICT·is·'YES'.</span></div><div·class="line"><a·name="l04090"></a><span·class="lineno">·4090</span> <span·class="preprocessor">#·@note·The·order·of·the·first·two·parameters·is·different·from·that·in·Geo::GDAL::Driver::Copy.</span></div><div·class="line"><a·name="l04091"></a><span·class="lineno">·4091</span> <span·class="preprocessor">#·@return·a·new·Geo::GDAL::Dataset·object.</span></div><div·class="line"><a·name="l04092"></a><span·class="lineno">·4092</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04093"></a><span·class="lineno">·4093</span> sub·Copy·{</div><div·class="line"><a·name="l04094"></a><span·class="lineno">·4094</span> ····my·($self,·@p)·=·@_;·#·src,·name,·options</div><div·class="line"><a·name="l04095"></a><span·class="lineno">·4095</span> ····my·$strict·=·1;·#·the·<span·class="keywordflow">default</span>·in·bindings</div><div·class="line"><a·name="l04096"></a><span·class="lineno">·4096</span> ····$strict·=·0·<span·class="keywordflow">if</span>·$p[2]·&&·$p[2]->{STRICT}·eq·<span·class="stringliteral">'NO'</span>;</div><div·class="line"><a·name="l04097"></a><span·class="lineno">·4097</span> ····$self->SUPER::Copy($p[1],·$p[0],·$strict,·@{$p[2..4]});·#·path,·src,·strict,·options,·cb,·cb_data</div><div·class="line"><a·name="l04098"></a><span·class="lineno">·4098</span> }</div><div·class="line"><a·name="l04099"></a><span·class="lineno">·4099</span> </div><div·class="line"><a·name="l04100"></a><span·class="lineno">·4100</span> <span·class="preprocessor">#**·@method·Geo::GDAL::Dataset·Create($name,·hashref·options·=·undef·)</span></div><div·class="line"><a·name="l04101"></a><span·class="lineno">·4101</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04102"></a><span·class="lineno">·4102</span> <span·class="preprocessor">#·Create·a·new·vector·data·source·using·this·driver.</span></div><div·class="line"><a·name="l04103"></a><span·class="lineno">·4103</span> <span·class="preprocessor">#·@param·name·The·data·source·name.</span></div><div·class="line"><a·name="l04104"></a><span·class="lineno">·4104</span> <span·class="preprocessor">#·@param·options·Driver·specific·dataset·creation·options.</span></div><div·class="line"><a·name="l04105"></a><span·class="lineno">·4105</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04106"></a><span·class="lineno">·4106</span> sub·Create·{</div><div·class="line"><a·name="l04107"></a><span·class="lineno">·4107</span> ····my·($self,·$name,·$options)·=·@_;·#·name,·options</div><div·class="line"><a·name="l04108"></a><span·class="lineno">·4108</span> ····$options·<span·class="comment">//=·{};</span></div><div·class="line"><a·name="l04109"></a><span·class="lineno">·4109</span> ····$self->SUPER::Create(Name·=>·$name,·Width·=>·0,·Height·=>·0,·Bands·=>·0,·Type·=>·<span·class="stringliteral">'Byte'</span>,·Options·=>·$options);</div><div·class="line"><a·name="l04110"></a><span·class="lineno">·4110</span> }</div><div·class="line"><a·name="l04111"></a><span·class="lineno">·4111</span> </div><div·class="line"><a·name="l04112"></a><span·class="lineno">·4112</span> <span·class="preprocessor">#**·@method·Open()</span></div><div·class="line"><a·name="l04113"></a><span·class="lineno">·4113</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04114"></a><span·class="lineno">·4114</span> <span·class="preprocessor">#·The·same·as·Geo::OGR::Open·except·that·only·this·driver·is·allowed.</span></div><div·class="line"><a·name="l04115"></a><span·class="lineno">·4115</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04116"></a><span·class="lineno">·4116</span> sub·Open·{</div><div·class="line"><a·name="l04117"></a><span·class="lineno">·4117</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04118"></a><span·class="lineno">·4118</span> ····my·@p·=·@_;·#·name,·update</div><div·class="line"><a·name="l04119"></a><span·class="lineno">·4119</span> ····my·@flags·=·qw/VECTOR/;</div><div·class="line"><a·name="l04120"></a><span·class="lineno">·4120</span> ····push·@flags,·qw/UPDATE/·<span·class="keywordflow">if</span>·$p[1];</div><div·class="line"><a·name="l04121"></a><span·class="lineno">·4121</span> ····my·$dataset·=·<a·class="code"·href="classGeo_1_1GDAL.html#a5d0de6aa75caf703436d2a720b654bb6">Geo::GDAL::OpenEx</a>($p[0],·\@flags,·[$self->Name()]);</div><div·class="line"><a·name="l04122"></a><span·class="lineno">·4122</span> ····error(<span·class="stringliteral">"Failed·to·open·$p[0].·Is·it·a·vector·dataset?"</span>)·unless·$dataset;</div><div·class="line"><a·name="l04123"></a><span·class="lineno">·4123</span> ····<span·class="keywordflow">return</span>·$dataset;</div><div·class="line"><a·name="l04124"></a><span·class="lineno">·4124</span> }</div><div·class="line"><a·name="l04125"></a><span·class="lineno">·4125</span> </div><div·class="line"><a·name="l04126"></a><span·class="lineno">·4126</span> <span·class="preprocessor">#**·@class·Geo::OGR::Feature</span></div><div·class="line"><a·name="l04127"></a><span·class="lineno">·4127</span> <span·class="preprocessor">#·@brief·A·collection·of·non-spatial·and·spatial·attributes.</span></div><div·class="line"><a·name="l04128"></a><span·class="lineno">·4128</span> <span·class="preprocessor">#·@details·A·feature·is·a·collection·of·non-spatial·and·spatial·attributes·and</span></div><div·class="line"><a·name="l04129"></a><span·class="lineno">·4129</span> <span·class="preprocessor">#·an·id,·which·is·a·special·attribute,·and·data·records·according·to</span></div><div·class="line"><a·name="l04130"></a><span·class="lineno">·4130</span> <span·class="preprocessor">#·this·data·model.·Attributes·are·called·fields·and·some·fields·are</span></div><div·class="line"><a·name="l04131"></a><span·class="lineno">·4131</span> <span·class="preprocessor">#·spatial,·i.e.,·their·value·is·a·geometry.·Fields·have·at·least·a</span></div><div·class="line"><a·name="l04132"></a><span·class="lineno">·4132</span> <span·class="preprocessor">#·name·and·a·type.·Features·may·exist·within·a·layer·or</span></div><div·class="line"><a·name="l04133"></a><span·class="lineno">·4133</span> <span·class="preprocessor">#·separetely.·The·data·model·of·a·feature·is·a·definition·object.</span></div><div·class="line"><a·name="l04134"></a><span·class="lineno">·4134</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04135"></a><span·class="lineno">·4135</span> <span·class="keyword">package·</span>Geo::OGR::Feature;</div><div·class="line"><a·name="l04136"></a><span·class="lineno">·4136</span> </div><div·class="line"><a·name="l04137"></a><span·class="lineno">·4137</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1OGR.html">Geo::OGR</a>)</div><div·class="line"><a·name="l04138"></a><span·class="lineno">·4138</span> </div><div·class="line"><a·name="l04139"></a><span·class="lineno">·4139</span> <span·class="preprocessor">#**·@method·Geo::OGR::Feature·Clone()</span></div><div·class="line"><a·name="l04140"></a><span·class="lineno">·4140</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04141"></a><span·class="lineno">·4141</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Feature·object</span></div><div·class="line"><a·name="l04142"></a><span·class="lineno">·4142</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04143"></a><span·class="lineno">·4143</span> sub·Clone·{</div><div·class="line"><a·name="l04144"></a><span·class="lineno">·4144</span> }</div><div·class="line"><a·name="l04145"></a><span·class="lineno">·4145</span> </div><div·class="line"><a·name="l04146"></a><span·class="lineno">·4146</span> <span·class="preprocessor">#**·@method·DumpReadable()</span></div><div·class="line"><a·name="l04147"></a><span·class="lineno">·4147</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04148"></a><span·class="lineno">·4148</span> <span·class="preprocessor">#·Write·the·contents·of·this·feature·to·stdout.</span></div><div·class="line"><a·name="l04149"></a><span·class="lineno">·4149</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04150"></a><span·class="lineno">·4150</span> sub·DumpReadable·{</div><div·class="line"><a·name="l04151"></a><span·class="lineno">·4151</span> }</div><div·class="line"><a·name="l04152"></a><span·class="lineno">·4152</span> </div><div·class="line"><a·name="l04153"></a><span·class="lineno">·4153</span> <span·class="preprocessor">#**·@method·scalar·Equal($feature)</span></div><div·class="line"><a·name="l04154"></a><span·class="lineno">·4154</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04155"></a><span·class="lineno">·4155</span> <span·class="preprocessor">#·@param·feature·a·Geo::OGR::Feature·object·for·comparison</span></div><div·class="line"><a·name="l04156"></a><span·class="lineno">·4156</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l04157"></a><span·class="lineno">·4157</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04158"></a><span·class="lineno">·4158</span> sub·Equal·{</div><div·class="line"><a·name="l04159"></a><span·class="lineno">·4159</span> }</div><div·class="line"><a·name="l04160"></a><span·class="lineno">·4160</span> </div><div·class="line"><a·name="l04161"></a><span·class="lineno">·4161</span> <span·class="preprocessor">#**·@method·scalar·FID($id)</span></div><div·class="line"><a·name="l04162"></a><span·class="lineno">·4162</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04163"></a><span·class="lineno">·4163</span> <span·class="preprocessor">#·@brief·Get·or·set·the·id·of·this·feature.</span></div><div·class="line"><a·name="l04164"></a><span·class="lineno">·4164</span> <span·class="preprocessor">#·@param·id·[optional]·the·id·to·set·for·this·feature.</span></div><div·class="line"><a·name="l04165"></a><span·class="lineno">·4165</span> <span·class="preprocessor">#·@return·integer·the·id·of·this·feature.</span></div><div·class="line"><a·name="l04166"></a><span·class="lineno">·4166</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04167"></a><span·class="lineno">·4167</span> sub·FID·{</div><div·class="line"><a·name="l04168"></a><span·class="lineno">·4168</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04169"></a><span·class="lineno">·4169</span> ····$self->SetFID($_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l04170"></a><span·class="lineno">·4170</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l04171"></a><span·class="lineno">·4171</span> ····$self->GetFID;</div><div·class="line"><a·name="l04172"></a><span·class="lineno">·4172</span> }</div><div·class="line"><a·name="l04173"></a><span·class="lineno">·4173</span> </div><div·class="line"><a·name="l04174"></a><span·class="lineno">·4174</span> <span·class="preprocessor">#**·@method·Field($name,·$value,·...)</span></div><div·class="line"><a·name="l04175"></a><span·class="lineno">·4175</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04176"></a><span·class="lineno">·4176</span> <span·class="preprocessor">#·@brief·Get,·set,·or·unset·the·field·value.</span></div><div·class="line"><a·name="l04177"></a><span·class="lineno">·4177</span> <span·class="preprocessor">#·@param·name·the·name·(or·the·index)·of·the·field.</span></div><div·class="line"><a·name="l04178"></a><span·class="lineno">·4178</span> <span·class="preprocessor">#·@param·value·a·scalar,·a·list·of·scalars·or·a·reference·to·a</span></div><div·class="line"><a·name="l04179"></a><span·class="lineno">·4179</span> <span·class="preprocessor">#·list.·If·undef,·the·field·is·unset.·If·a·scalar·or·a·list·of</span></div><div·class="line"><a·name="l04180"></a><span·class="lineno">·4180</span> <span·class="preprocessor">#·scalars,·the·field·is·set·from·them.</span></div><div·class="line"><a·name="l04181"></a><span·class="lineno">·4181</span> <span·class="preprocessor">#·@note·Non-scalar·fields·(for·example·Date)·can·be·set·either·from·a</span></div><div·class="line"><a·name="l04182"></a><span·class="lineno">·4182</span> <span·class="preprocessor">#·scalar,·which·is·then·assumed·to·be·a·string·and·parsed,·or·from·a</span></div><div·class="line"><a·name="l04183"></a><span·class="lineno">·4183</span> <span·class="preprocessor">#·list·of·values·(for·example·year,·month,·day·for·Date).</span></div><div·class="line"><a·name="l04184"></a><span·class="lineno">·4184</span> <span·class="preprocessor">#·@note·Setting·and·getting·Integer64·fields·requires·'use·bigint'·if</span></div><div·class="line"><a·name="l04185"></a><span·class="lineno">·4185</span> <span·class="preprocessor">#·\$Config{ivsize}·is·smaller·than·8,·i.e.,·in·a·32·bit·machine.</span></div><div·class="line"><a·name="l04186"></a><span·class="lineno">·4186</span> <span·class="preprocessor">#·@return·in·non-void·context·the·value·of·the·field,·which·may·be·a</span></div><div·class="line"><a·name="l04187"></a><span·class="lineno">·4187</span> <span·class="preprocessor">#·scalar·or·a·list,·depending·on·the·field·type.·For·unset·fields·the</span></div><div·class="line"><a·name="l04188"></a><span·class="lineno">·4188</span> <span·class="preprocessor">#·undef·value·is·returned.</span></div><div·class="line"><a·name="l04189"></a><span·class="lineno">·4189</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04190"></a><span·class="lineno">·4190</span> sub·Field·{</div><div·class="line"><a·name="l04191"></a><span·class="lineno">·4191</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04192"></a><span·class="lineno">·4192</span> ····my·$field·=·$self->GetFieldIndex(shift·<span·class="comment">//·0);</span></div><div·class="line"><a·name="l04193"></a><span·class="lineno">·4193</span> ····$self->SetField($field,·@_)·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l04194"></a><span·class="lineno">·4194</span> ····$self->GetField($field)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l04195"></a><span·class="lineno">·4195</span> }</div><div·class="line"><a·name="l04196"></a><span·class="lineno">·4196</span> </div><div·class="line"><a·name="l04197"></a><span·class="lineno">·4197</span> <span·class="preprocessor">#**·@method·FillUnsetWithDefault()</span></div><div·class="line"><a·name="l04198"></a><span·class="lineno">·4198</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04199"></a><span·class="lineno">·4199</span> sub·FillUnsetWithDefault·{</div><div·class="line"><a·name="l04200"></a><span·class="lineno">·4200</span> }</div><div·class="line"><a·name="l04201"></a><span·class="lineno">·4201</span> </div><div·class="line"><a·name="l04202"></a><span·class="lineno">·4202</span> <span·class="preprocessor">#**·@method·Geometry($name,·$geometry)</span></div><div·class="line"><a·name="l04203"></a><span·class="lineno">·4203</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04204"></a><span·class="lineno">·4204</span> <span·class="preprocessor">#·@brief·Get·or·set·the·value·of·a·geometry·field.</span></div><div·class="line"><a·name="l04205"></a><span·class="lineno">·4205</span> <span·class="preprocessor">#·@note·This·method·delivers·the·functionality·of·undocumented·methods</span></div><div·class="line"><a·name="l04206"></a><span·class="lineno">·4206</span> <span·class="preprocessor">#·SetGeometry($geometry),·SetGeometryDirectly,·SetGeomField,</span></div><div·class="line"><a·name="l04207"></a><span·class="lineno">·4207</span> <span·class="preprocessor">#·SetGeomFieldDirectly,·GetGeometry,·GetGeometryRef.</span></div><div·class="line"><a·name="l04208"></a><span·class="lineno">·4208</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l04209"></a><span·class="lineno">·4209</span> <span·class="preprocessor">#·Set·or·get·the·geometry·in·the·feature.·When·setting,·does·a·check</span></div><div·class="line"><a·name="l04210"></a><span·class="lineno">·4210</span> <span·class="preprocessor">#·against·the·schema·(GeometryType)·of·the·feature.·If·the·parameter</span></div><div·class="line"><a·name="l04211"></a><span·class="lineno">·4211</span> <span·class="preprocessor">#·is·a·geometry·object,·it·is·cloned.</span></div><div·class="line"><a·name="l04212"></a><span·class="lineno">·4212</span> <span·class="preprocessor">#·@param·name·[optional]·the·name·of·the·spatial·field,</span></div><div·class="line"><a·name="l04213"></a><span·class="lineno">·4213</span> <span·class="preprocessor">#·whose·geometry·is·to·be·set.·If·not·given,·sets·or·gets·the·geometry</span></div><div·class="line"><a·name="l04214"></a><span·class="lineno">·4214</span> <span·class="preprocessor">#·of·the·first·(or·the·single)·spatial·field.</span></div><div·class="line"><a·name="l04215"></a><span·class="lineno">·4215</span> <span·class="preprocessor">#·@param·geometry·[optional]·a·Geo::OGR::Geometry·object·or·a</span></div><div·class="line"><a·name="l04216"></a><span·class="lineno">·4216</span> <span·class="preprocessor">#·reference·to·a·hash·from·which·such·can·be·created·(using</span></div><div·class="line"><a·name="l04217"></a><span·class="lineno">·4217</span> <span·class="preprocessor">#·Geo::OGR::Geometry::new).</span></div><div·class="line"><a·name="l04218"></a><span·class="lineno">·4218</span> <span·class="preprocessor">#·@return·in·a·non-void·context·the·indicated·geometry·in·the·feature</span></div><div·class="line"><a·name="l04219"></a><span·class="lineno">·4219</span> <span·class="preprocessor">#·as·a·Geo::OGR::Geometry·object.·The·returned·object·contains·a</span></div><div·class="line"><a·name="l04220"></a><span·class="lineno">·4220</span> <span·class="preprocessor">#·reference·to·the·actual·geometry·data·in·the·feature·(the·geometry</span></div><div·class="line"><a·name="l04221"></a><span·class="lineno">·4221</span> <span·class="preprocessor">#·is·not·cloned)·and·to·the·feature·object,·thus·keeping·the·feature</span></div><div·class="line"><a·name="l04222"></a><span·class="lineno">·4222</span> <span·class="preprocessor">#·object·from·being·destroyed·while·the·geometry·object·exists.</span></div><div·class="line"><a·name="l04223"></a><span·class="lineno">·4223</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04224"></a><span·class="lineno">·4224</span> sub·Geometry·{</div><div·class="line"><a·name="l04225"></a><span·class="lineno">·4225</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04226"></a><span·class="lineno">·4226</span> ····my·$field·=·((@_·>·0·and·ref($_[0])·eq·<span·class="stringliteral">''</span>)·or·(@_·>·2·and·@_·%·2·==·1))·?·shift·:·0;</div><div·class="line"><a·name="l04227"></a><span·class="lineno">·4227</span> ····$field·=·$self->GetGeomFieldIndex($field);</div><div·class="line"><a·name="l04228"></a><span·class="lineno">·4228</span> ····my·$geometry;</div><div·class="line"><a·name="l04229"></a><span·class="lineno">·4229</span> ····<span·class="keywordflow">if</span>·(@_·and·@_·%·2·==·0)·{</div><div·class="line"><a·name="l04230"></a><span·class="lineno">·4230</span> ········%$geometry·=·@_;</div><div·class="line"><a·name="l04231"></a><span·class="lineno">·4231</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l04232"></a><span·class="lineno">·4232</span> ········$geometry·=·shift;</div><div·class="line"><a·name="l04233"></a><span·class="lineno">·4233</span> ····}</div><div·class="line"><a·name="l04234"></a><span·class="lineno">·4234</span> ····<span·class="keywordflow">if</span>·($geometry)·{</div><div·class="line"><a·name="l04235"></a><span·class="lineno">·4235</span> ········my·$type·=·$self->GetDefn->GetGeomFieldDefn($field)->Type;</div><div·class="line"><a·name="l04236"></a><span·class="lineno">·4236</span> ········<span·class="keywordflow">if</span>·(blessed($geometry)·and·$geometry->isa(<span·class="stringliteral">'Geo::OGR::Geometry'</span>))·{</div><div·class="line"><a·name="l04237"></a><span·class="lineno">·4237</span> ············my·$gtype·=·$geometry->GeometryType;</div><div·class="line"><a·name="l04238"></a><span·class="lineno">·4238</span> ············error(<span·class="stringliteral">"The·type·of·the·inserted·geometry·('$gtype')·is·not·the·same·as·the·type·of·the·field·('$type')."</span>)</div><div·class="line"><a·name="l04239"></a><span·class="lineno">·4239</span> ················<span·class="keywordflow">if</span>·$type·ne·<span·class="stringliteral">'Unknown'</span>·and·$type·ne·$gtype;</div><div·class="line"><a·name="l04240"></a><span·class="lineno">·4240</span> ············eval·{</div><div·class="line"><a·name="l04241"></a><span·class="lineno">·4241</span> ················$self->SetGeomFieldDirectly($field,·$geometry->Clone);</div><div·class="line"><a·name="l04242"></a><span·class="lineno">·4242</span> ············};</div><div·class="line"><a·name="l04243"></a><span·class="lineno">·4243</span> ············confess·last_error()·<span·class="keywordflow">if</span>·$@;</div><div·class="line"><a·name="l04244"></a><span·class="lineno">·4244</span> ········}·elsif·(ref($geometry)·eq·<span·class="stringliteral">'HASH'</span>)·{</div><div·class="line"><a·name="l04245"></a><span·class="lineno">·4245</span> ············$geometry->{GeometryType}·<span·class="comment">//=·$type;</span></div><div·class="line"><a·name="l04246"></a><span·class="lineno">·4246</span> ············eval·{</div><div·class="line"><a·name="l04247"></a><span·class="lineno">·4247</span> ················$geometry·=·<a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html">Geo::OGR::Geometry</a>-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a95c4be922b97e1067d68340871a617c8">new</a>($geometry);</div><div·class="line"><a·name="l04248"></a><span·class="lineno">·4248</span> ············};</div><div·class="line"><a·name="l04249"></a><span·class="lineno">·4249</span> ············confess·last_error()·<span·class="keywordflow">if</span>·$@;</div><div·class="line"><a·name="l04250"></a><span·class="lineno">·4250</span> ············my·$gtype·=·$geometry-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a6bf531f121a61b5d4897845b05321a75">GeometryType</a>;</div><div·class="line"><a·name="l04251"></a><span·class="lineno">·4251</span> ············error(<span·class="stringliteral">"The·type·of·the·inserted·geometry·('$gtype')·is·not·the·same·as·the·type·of·the·field·('$type')."</span>)</div><div·class="line"><a·name="l04252"></a><span·class="lineno">·4252</span> ················<span·class="keywordflow">if</span>·$type·ne·<span·class="stringliteral">'Unknown'</span>·and·$type·ne·$gtype;</div><div·class="line"><a·name="l04253"></a><span·class="lineno">·4253</span> ············eval·{</div><div·class="line"><a·name="l04254"></a><span·class="lineno">·4254</span> ················$self->SetGeomFieldDirectly($field,·$geometry);</div><div·class="line"><a·name="l04255"></a><span·class="lineno">·4255</span> ············};</div><div·class="line"><a·name="l04256"></a><span·class="lineno">·4256</span> ············confess·last_error()·<span·class="keywordflow">if</span>·$@;</div><div·class="line"><a·name="l04257"></a><span·class="lineno">·4257</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l04258"></a><span·class="lineno">·4258</span> ············error(<span·class="stringliteral">"Usage:·\$feature->Geometry([field],[geometry])"</span>);</div><div·class="line"><a·name="l04259"></a><span·class="lineno">·4259</span> ········}</div><div·class="line"><a·name="l04260"></a><span·class="lineno">·4260</span> ····}</div><div·class="line"><a·name="l04261"></a><span·class="lineno">·4261</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l04262"></a><span·class="lineno">·4262</span> ····$geometry·=·$self->GetGeomFieldRef($field);</div><div·class="line"><a·name="l04263"></a><span·class="lineno">·4263</span> ····<span·class="keywordflow">return</span>·unless·$geometry;</div><div·class="line"><a·name="l04264"></a><span·class="lineno">·4264</span> ····keep($geometry,·$self);</div><div·class="line"><a·name="l04265"></a><span·class="lineno">·4265</span> }</div><div·class="line"><a·name="l04266"></a><span·class="lineno">·4266</span> </div><div·class="line"><a·name="l04267"></a><span·class="lineno">·4267</span> <span·class="preprocessor">#**·@method·Geo::OGR::FeatureDefn·GetDefn()</span></div><div·class="line"><a·name="l04268"></a><span·class="lineno">·4268</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04269"></a><span·class="lineno">·4269</span> <span·class="preprocessor">#·@note·A.k.a·GetDefnRef.</span></div><div·class="line"><a·name="l04270"></a><span·class="lineno">·4270</span> <span·class="preprocessor">#·@return·a·Geo::OGR::FeatureDefn·object,·which·represents·the·definition·of·this·feature.</span></div><div·class="line"><a·name="l04271"></a><span·class="lineno">·4271</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04272"></a><span·class="lineno">·4272</span> sub·GetDefn·{</div><div·class="line"><a·name="l04273"></a><span·class="lineno">·4273</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04274"></a><span·class="lineno">·4274</span> ····my·$defn·=·$self->GetDefnRef;</div><div·class="line"><a·name="l04275"></a><span·class="lineno">·4275</span> ····keep($defn,·$self);</div><div·class="line"><a·name="l04276"></a><span·class="lineno">·4276</span> }</div><div·class="line"><a·name="l04277"></a><span·class="lineno">·4277</span> </div><div·class="line"><a·name="l04278"></a><span·class="lineno">·4278</span> <span·class="preprocessor">#**·@method·scalar·GetFID()</span></div><div·class="line"><a·name="l04279"></a><span·class="lineno">·4279</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04280"></a><span·class="lineno">·4280</span> <span·class="preprocessor">#·@return·the·feature·id·(an·integer).</span></div><div·class="line"><a·name="l04281"></a><span·class="lineno">·4281</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04282"></a><span·class="lineno">·4282</span> sub·GetFID·{</div><div·class="line"><a·name="l04283"></a><span·class="lineno">·4283</span> }</div><div·class="line"><a·name="l04284"></a><span·class="lineno">·4284</span> </div><div·class="line"><a·name="l04285"></a><span·class="lineno">·4285</span> <span·class="preprocessor">#**·@method·list·GetField($name)</span></div><div·class="line"><a·name="l04286"></a><span·class="lineno">·4286</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04287"></a><span·class="lineno">·4287</span> <span·class="preprocessor">#·See·Field().</span></div><div·class="line"><a·name="l04288"></a><span·class="lineno">·4288</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04289"></a><span·class="lineno">·4289</span> sub·GetField·{</div><div·class="line"><a·name="l04290"></a><span·class="lineno">·4290</span> ····my·($self,·$field)·=·@_;</div><div·class="line"><a·name="l04291"></a><span·class="lineno">·4291</span> ····$field·=·$self->GetFieldIndex($field);</div><div·class="line"><a·name="l04292"></a><span·class="lineno">·4292</span> ····<span·class="keywordflow">return</span>·unless·IsFieldSet($self,·$field);</div><div·class="line"><a·name="l04293"></a><span·class="lineno">·4293</span> ····my·$type·=·GetFieldType($self,·$field);</div><div·class="line"><a·name="l04294"></a><span·class="lineno">·4294</span> ····<span·class="keywordflow">return</span>·GetFieldAsInteger($self,·$field)·<span·class="keywordflow">if</span>·$type·==·$Geo::OGR::OFTInteger;</div><div·class="line"><a·name="l04295"></a><span·class="lineno">·4295</span> ····<span·class="keywordflow">return</span>·GetFieldAsInteger64($self,·$field)·<span·class="keywordflow">if</span>·$type·==·$Geo::OGR::OFTInteger64;</div><div·class="line"><a·name="l04296"></a><span·class="lineno">·4296</span> ····<span·class="keywordflow">return</span>·GetFieldAsDouble($self,·$field)·<span·class="keywordflow">if</span>·$type·==·$Geo::OGR::OFTReal;</div><div·class="line"><a·name="l04297"></a><span·class="lineno">·4297</span> ····<span·class="keywordflow">return</span>·GetFieldAsString($self,·$field)·<span·class="keywordflow">if</span>·$type·==·$Geo::OGR::OFTString;</div><div·class="line"><a·name="l04298"></a><span·class="lineno">·4298</span> ····<span·class="keywordflow">if</span>·($type·==·$Geo::OGR::OFTIntegerList)·{</div><div·class="line"><a·name="l04299"></a><span·class="lineno">·4299</span> ········my·$ret·=·GetFieldAsIntegerList($self,·$field);</div><div·class="line"><a·name="l04300"></a><span·class="lineno">·4300</span> ········<span·class="keywordflow">return</span>·wantarray·?·@$ret·:·$ret;</div><div·class="line"><a·name="l04301"></a><span·class="lineno">·4301</span> ····}</div><div·class="line"><a·name="l04302"></a><span·class="lineno">·4302</span> ····<span·class="keywordflow">if</span>·($type·==·$Geo::OGR::OFTInteger64List)·{</div><div·class="line"><a·name="l04303"></a><span·class="lineno">·4303</span> ········my·$ret·=·GetFieldAsInteger64List($self,·$field);</div><div·class="line"><a·name="l04304"></a><span·class="lineno">·4304</span> ········<span·class="keywordflow">return</span>·wantarray·?·@$ret·:·$ret;</div><div·class="line"><a·name="l04305"></a><span·class="lineno">·4305</span> ····}</div><div·class="line"><a·name="l04306"></a><span·class="lineno">·4306</span> ····<span·class="keywordflow">if</span>·($type·==·$Geo::OGR::OFTRealList)·{</div><div·class="line"><a·name="l04307"></a><span·class="lineno">·4307</span> ········my·$ret·=·GetFieldAsDoubleList($self,·$field);</div><div·class="line"><a·name="l04308"></a><span·class="lineno">·4308</span> ········<span·class="keywordflow">return</span>·wantarray·?·@$ret·:·$ret;</div><div·class="line"><a·name="l04309"></a><span·class="lineno">·4309</span> ····}</div><div·class="line"><a·name="l04310"></a><span·class="lineno">·4310</span> ····<span·class="keywordflow">if</span>·($type·==·$Geo::OGR::OFTStringList)·{</div><div·class="line"><a·name="l04311"></a><span·class="lineno">·4311</span> ········my·$ret·=·GetFieldAsStringList($self,·$field);</div><div·class="line"><a·name="l04312"></a><span·class="lineno">·4312</span> ········<span·class="keywordflow">return</span>·wantarray·?·@$ret·:·$ret;</div><div·class="line"><a·name="l04313"></a><span·class="lineno">·4313</span> ····}</div><div·class="line"><a·name="l04314"></a><span·class="lineno">·4314</span> ····<span·class="keywordflow">if</span>·($type·==·$Geo::OGR::OFTBinary)·{</div><div·class="line"><a·name="l04315"></a><span·class="lineno">·4315</span> ········<span·class="keywordflow">return</span>·GetFieldAsBinary($self,·$field);</div><div·class="line"><a·name="l04316"></a><span·class="lineno">·4316</span> ····}</div><div·class="line"><a·name="l04317"></a><span·class="lineno">·4317</span> ····<span·class="keywordflow">if</span>·($type·==·$Geo::OGR::OFTDate)·{</div><div·class="line"><a·name="l04318"></a><span·class="lineno">·4318</span> ········my·@ret·=·GetFieldAsDateTime($self,·$field);</div><div·class="line"><a·name="l04319"></a><span·class="lineno">·4319</span> <span·class="preprocessor">········#·year,·month,·day,·hour,·minute,·second,·timezone</span></div><div·class="line"><a·name="l04320"></a><span·class="lineno">·4320</span> ········<span·class="keywordflow">return</span>·wantarray·?·@ret[0..2]·:·[@ret[0..2]];</div><div·class="line"><a·name="l04321"></a><span·class="lineno">·4321</span> ····}</div><div·class="line"><a·name="l04322"></a><span·class="lineno">·4322</span> ····<span·class="keywordflow">if</span>·($type·==·$Geo::OGR::OFTTime)·{</div><div·class="line"><a·name="l04323"></a><span·class="lineno">·4323</span> ········my·@ret·=·GetFieldAsDateTime($self,·$field);</div><div·class="line"><a·name="l04324"></a><span·class="lineno">·4324</span> ········<span·class="keywordflow">return</span>·wantarray·?·@ret[3..6]·:·[@ret[3..6]];</div><div·class="line"><a·name="l04325"></a><span·class="lineno">·4325</span> ····}</div><div·class="line"><a·name="l04326"></a><span·class="lineno">·4326</span> ····<span·class="keywordflow">if</span>·($type·==·$Geo::OGR::OFTDateTime)·{</div><div·class="line"><a·name="l04327"></a><span·class="lineno">·4327</span> ········my·@ret·=·GetFieldAsDateTime($self,·$field);</div><div·class="line"><a·name="l04328"></a><span·class="lineno">·4328</span> ········<span·class="keywordflow">return</span>·wantarray·?·@ret·:·[@ret];</div><div·class="line"><a·name="l04329"></a><span·class="lineno">·4329</span> ····}</div><div·class="line"><a·name="l04330"></a><span·class="lineno">·4330</span> ····error(<span·class="stringliteral">"Perl·bindings·do·not·support·the·field·type·'"</span>.i2s(field_type·=>·$type).<span·class="stringliteral">"'."</span>);</div><div·class="line"><a·name="l04331"></a><span·class="lineno">·4331</span> }</div><div·class="line"><a·name="l04332"></a><span·class="lineno">·4332</span> </div><div·class="line"><a·name="l04333"></a><span·class="lineno">·4333</span> <span·class="preprocessor">#**·@method·scalar·GetFieldDefn($name)</span></div><div·class="line"><a·name="l04334"></a><span·class="lineno">·4334</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04335"></a><span·class="lineno">·4335</span> <span·class="preprocessor">#·Get·the·definition·of·a·field.</span></div><div·class="line"><a·name="l04336"></a><span·class="lineno">·4336</span> <span·class="preprocessor">#·@param·name·the·name·of·the·field.</span></div><div·class="line"><a·name="l04337"></a><span·class="lineno">·4337</span> <span·class="preprocessor">#·@return·a·Geo::OGR::FieldDefn·object.</span></div><div·class="line"><a·name="l04338"></a><span·class="lineno">·4338</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04339"></a><span·class="lineno">·4339</span> sub·GetFieldDefn·{</div><div·class="line"><a·name="l04340"></a><span·class="lineno">·4340</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04341"></a><span·class="lineno">·4341</span> ····my·$field·=·$self->GetFieldIndex(shift);</div><div·class="line"><a·name="l04342"></a><span·class="lineno">·4342</span> ····<span·class="keywordflow">return</span>·$self->GetFieldDefnRef($field);</div><div·class="line"><a·name="l04343"></a><span·class="lineno">·4343</span> }</div><div·class="line"><a·name="l04344"></a><span·class="lineno">·4344</span> </div><div·class="line"><a·name="l04345"></a><span·class="lineno">·4345</span> <span·class="preprocessor">#**·@method·list·GetFieldNames()</span></div><div·class="line"><a·name="l04346"></a><span·class="lineno">·4346</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04347"></a><span·class="lineno">·4347</span> <span·class="preprocessor">#·Get·the·names·of·the·fields·in·this·feature.</span></div><div·class="line"><a·name="l04348"></a><span·class="lineno">·4348</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04349"></a><span·class="lineno">·4349</span> sub·GetFieldNames·{</div><div·class="line"><a·name="l04350"></a><span·class="lineno">·4350</span> }</div><div·class="line"><a·name="l04351"></a><span·class="lineno">·4351</span> </div><div·class="line"><a·name="l04352"></a><span·class="lineno">·4352</span> <span·class="preprocessor">#**·@method·scalar·GetGeomFieldDefn($name)</span></div><div·class="line"><a·name="l04353"></a><span·class="lineno">·4353</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04354"></a><span·class="lineno">·4354</span> <span·class="preprocessor">#·Get·the·definition·of·a·spatial·field.</span></div><div·class="line"><a·name="l04355"></a><span·class="lineno">·4355</span> <span·class="preprocessor">#·@param·name·the·name·of·the·spatial·field.</span></div><div·class="line"><a·name="l04356"></a><span·class="lineno">·4356</span> <span·class="preprocessor">#·@return·a·Geo::OGR::GeomFieldDefn·object.</span></div><div·class="line"><a·name="l04357"></a><span·class="lineno">·4357</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04358"></a><span·class="lineno">·4358</span> sub·GetGeomFieldDefn·{</div><div·class="line"><a·name="l04359"></a><span·class="lineno">·4359</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04360"></a><span·class="lineno">·4360</span> ····my·$field·=·$self->GetGeomFieldIndex(shift);</div><div·class="line"><a·name="l04361"></a><span·class="lineno">·4361</span> ····<span·class="keywordflow">return</span>·$self->GetGeomFieldDefnRef($field);</div><div·class="line"><a·name="l04362"></a><span·class="lineno">·4362</span> }</div><div·class="line"><a·name="l04363"></a><span·class="lineno">·4363</span> </div><div·class="line"><a·name="l04364"></a><span·class="lineno">·4364</span> <span·class="preprocessor">#**·@method·GetNativeData()</span></div><div·class="line"><a·name="l04365"></a><span·class="lineno">·4365</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04366"></a><span·class="lineno">·4366</span> sub·GetNativeData·{</div><div·class="line"><a·name="l04367"></a><span·class="lineno">·4367</span> }</div><div·class="line"><a·name="l04368"></a><span·class="lineno">·4368</span> </div><div·class="line"><a·name="l04369"></a><span·class="lineno">·4369</span> <span·class="preprocessor">#**·@method·GetNativeMediaType()</span></div><div·class="line"><a·name="l04370"></a><span·class="lineno">·4370</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04371"></a><span·class="lineno">·4371</span> sub·GetNativeMediaType·{</div><div·class="line"><a·name="l04372"></a><span·class="lineno">·4372</span> }</div><div·class="line"><a·name="l04373"></a><span·class="lineno">·4373</span> </div><div·class="line"><a·name="l04374"></a><span·class="lineno">·4374</span> <span·class="preprocessor">#**·@method·hash·reference·GetSchema()</span></div><div·class="line"><a·name="l04375"></a><span·class="lineno">·4375</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04376"></a><span·class="lineno">·4376</span> <span·class="preprocessor">#·@brief·Get·the·schema·of·this·feature.</span></div><div·class="line"><a·name="l04377"></a><span·class="lineno">·4377</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l04378"></a><span·class="lineno">·4378</span> <span·class="preprocessor">#·@return·the·schema·as·a·hash·whose·keywords·are·Name,·StyleIgnored</span></div><div·class="line"><a·name="l04379"></a><span·class="lineno">·4379</span> <span·class="preprocessor">#·and·Fields.·Fields·is·an·anonymous·array·of·first·non-spatial·and</span></div><div·class="line"><a·name="l04380"></a><span·class="lineno">·4380</span> <span·class="preprocessor">#·then·spatial·field·schemas·as·in·Geo::OGR::FieldDefn::Schema()·and</span></div><div·class="line"><a·name="l04381"></a><span·class="lineno">·4381</span> <span·class="preprocessor">#·Geo::OGR::GeomFieldDefn::Schema().</span></div><div·class="line"><a·name="l04382"></a><span·class="lineno">·4382</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04383"></a><span·class="lineno">·4383</span> sub·GetSchema·{</div><div·class="line"><a·name="l04384"></a><span·class="lineno">·4384</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04385"></a><span·class="lineno">·4385</span> ····error(<span·class="stringliteral">"Schema·of·a·feature·cannot·be·set·directly."</span>)·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l04386"></a><span·class="lineno">·4386</span> ····<span·class="keywordflow">return</span>·$self->GetDefnRef->Schema;</div><div·class="line"><a·name="l04387"></a><span·class="lineno">·4387</span> }</div><div·class="line"><a·name="l04388"></a><span·class="lineno">·4388</span> </div><div·class="line"><a·name="l04389"></a><span·class="lineno">·4389</span> <span·class="preprocessor">#**·@method·scalar·GetStyleString()</span></div><div·class="line"><a·name="l04390"></a><span·class="lineno">·4390</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04391"></a><span·class="lineno">·4391</span> <span·class="preprocessor">#·@return·a·string</span></div><div·class="line"><a·name="l04392"></a><span·class="lineno">·4392</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04393"></a><span·class="lineno">·4393</span> sub·GetStyleString·{</div><div·class="line"><a·name="l04394"></a><span·class="lineno">·4394</span> }</div><div·class="line"><a·name="l04395"></a><span·class="lineno">·4395</span> </div><div·class="line"><a·name="l04396"></a><span·class="lineno">·4396</span> <span·class="preprocessor">#**·@method·IsFieldNull()</span></div><div·class="line"><a·name="l04397"></a><span·class="lineno">·4397</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04398"></a><span·class="lineno">·4398</span> sub·IsFieldNull·{</div><div·class="line"><a·name="l04399"></a><span·class="lineno">·4399</span> }</div><div·class="line"><a·name="l04400"></a><span·class="lineno">·4400</span> </div><div·class="line"><a·name="l04401"></a><span·class="lineno">·4401</span> <span·class="preprocessor">#**·@method·IsFieldSetAndNotNull()</span></div><div·class="line"><a·name="l04402"></a><span·class="lineno">·4402</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04403"></a><span·class="lineno">·4403</span> sub·IsFieldSetAndNotNull·{</div><div·class="line"><a·name="l04404"></a><span·class="lineno">·4404</span> }</div><div·class="line"><a·name="l04405"></a><span·class="lineno">·4405</span> </div><div·class="line"><a·name="l04406"></a><span·class="lineno">·4406</span> <span·class="preprocessor">#**·@method·Geo::OGR::Layer·Layer()</span></div><div·class="line"><a·name="l04407"></a><span·class="lineno">·4407</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04408"></a><span·class="lineno">·4408</span> <span·class="preprocessor">#·@return·the·layer·to·which·this·feature·belongs·to·or·undef.</span></div><div·class="line"><a·name="l04409"></a><span·class="lineno">·4409</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04410"></a><span·class="lineno">·4410</span> sub·Layer·{</div><div·class="line"><a·name="l04411"></a><span·class="lineno">·4411</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04412"></a><span·class="lineno">·4412</span> ····parent($self);</div><div·class="line"><a·name="l04413"></a><span·class="lineno">·4413</span> }</div><div·class="line"><a·name="l04414"></a><span·class="lineno">·4414</span> </div><div·class="line"><a·name="l04415"></a><span·class="lineno">·4415</span> <span·class="preprocessor">#**·@method·hash·reference·Row(%row)</span></div><div·class="line"><a·name="l04416"></a><span·class="lineno">·4416</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04417"></a><span·class="lineno">·4417</span> <span·class="preprocessor">#·@note·This·method·discards·the·data·the·destination·feature·(or</span></div><div·class="line"><a·name="l04418"></a><span·class="lineno">·4418</span> <span·class="preprocessor">#·layer)·does·not·support.·Changes·in·data·due·to·differences·between</span></div><div·class="line"><a·name="l04419"></a><span·class="lineno">·4419</span> <span·class="preprocessor">#·field·types·may·also·occur.</span></div><div·class="line"><a·name="l04420"></a><span·class="lineno">·4420</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l04421"></a><span·class="lineno">·4421</span> <span·class="preprocessor">#·Get·and/or·set·the·data·of·the·feature.·The·key·of·the·(key,value)</span></div><div·class="line"><a·name="l04422"></a><span·class="lineno">·4422</span> <span·class="preprocessor">#·pairs·of·the·row·is·the·field·name.·Special·field·names·FID·and</span></div><div·class="line"><a·name="l04423"></a><span·class="lineno">·4423</span> <span·class="preprocessor">#·Geometry·are·used·for·feature·id·and·(single)·geometry</span></div><div·class="line"><a·name="l04424"></a><span·class="lineno">·4424</span> <span·class="preprocessor">#·respectively.·The·geometry/ies·is/are·set·and·get·using·the</span></div><div·class="line"><a·name="l04425"></a><span·class="lineno">·4425</span> <span·class="preprocessor">#·Geo::OGR::Feature::Geometry·method.·Field·values·are·set·using·the</span></div><div·class="line"><a·name="l04426"></a><span·class="lineno">·4426</span> <span·class="preprocessor">#·Geo::OGR::Feature::Field·method.</span></div><div·class="line"><a·name="l04427"></a><span·class="lineno">·4427</span> <span·class="preprocessor">#·@param·row·[optional]·feature·data·in·a·hash.</span></div><div·class="line"><a·name="l04428"></a><span·class="lineno">·4428</span> <span·class="preprocessor">#·@return·a·reference·to·feature·data·in·a·hash.·Spatial·fields·are</span></div><div·class="line"><a·name="l04429"></a><span·class="lineno">·4429</span> <span·class="preprocessor">#·returned·as·Geo::OGR::Geometry·objects.</span></div><div·class="line"><a·name="l04430"></a><span·class="lineno">·4430</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04431"></a><span·class="lineno">·4431</span> sub·Row·{</div><div·class="line"><a·name="l04432"></a><span·class="lineno">·4432</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04433"></a><span·class="lineno">·4433</span> ····my·$nf·=·$self->GetFieldCount;</div><div·class="line"><a·name="l04434"></a><span·class="lineno">·4434</span> ····my·$ngf·=·$self->GetGeomFieldCount;</div><div·class="line"><a·name="l04435"></a><span·class="lineno">·4435</span> ····<span·class="keywordflow">if</span>·(@_)·{·#·update</div><div·class="line"><a·name="l04436"></a><span·class="lineno">·4436</span> ········my·%row;</div><div·class="line"><a·name="l04437"></a><span·class="lineno">·4437</span> ········<span·class="keywordflow">if</span>·(@_·==·1·and·ref($_[0])·eq·<span·class="stringliteral">'HASH'</span>)·{</div><div·class="line"><a·name="l04438"></a><span·class="lineno">·4438</span> ············%row·=·%{$_[0]};</div><div·class="line"><a·name="l04439"></a><span·class="lineno">·4439</span> ········}·elsif·(@_·and·@_·%·2·==·0)·{</div><div·class="line"><a·name="l04440"></a><span·class="lineno">·4440</span> ············%row·=·@_;</div><div·class="line"><a·name="l04441"></a><span·class="lineno">·4441</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l04442"></a><span·class="lineno">·4442</span> ············error(<span·class="stringliteral">'Usage:·$feature->Row(%FeatureData).'</span>);</div><div·class="line"><a·name="l04443"></a><span·class="lineno">·4443</span> ········}</div><div·class="line"><a·name="l04444"></a><span·class="lineno">·4444</span> ········$self->SetFID($row{FID})·<span·class="keywordflow">if</span>·defined·$row{FID};</div><div·class="line"><a·name="l04445"></a><span·class="lineno">·4445</span> <span·class="preprocessor">········#$self->Geometry($schema,·$row{Geometry})·if·$row{Geometry};</span></div><div·class="line"><a·name="l04446"></a><span·class="lineno">·4446</span> ········<span·class="keywordflow">for</span>·my·$name·(keys·%row)·{</div><div·class="line"><a·name="l04447"></a><span·class="lineno">·4447</span> ············next·<span·class="keywordflow">if</span>·$name·eq·<span·class="stringliteral">'FID'</span>;</div><div·class="line"><a·name="l04448"></a><span·class="lineno">·4448</span> ············<span·class="keywordflow">if</span>·($name·eq·<span·class="stringliteral">'Geometry'</span>)·{</div><div·class="line"><a·name="l04449"></a><span·class="lineno">·4449</span> ················$self->Geometry(0,·$row{$name});</div><div·class="line"><a·name="l04450"></a><span·class="lineno">·4450</span> ················next;</div><div·class="line"><a·name="l04451"></a><span·class="lineno">·4451</span> ············}</div><div·class="line"><a·name="l04452"></a><span·class="lineno">·4452</span> ············my·$f·=·0;</div><div·class="line"><a·name="l04453"></a><span·class="lineno">·4453</span> ············<span·class="keywordflow">for</span>·my·$i·(0..$nf-1)·{</div><div·class="line"><a·name="l04454"></a><span·class="lineno">·4454</span> ················<span·class="keywordflow">if</span>·($self->GetFieldDefnRef($i)->Name·eq·$name)·{</div><div·class="line"><a·name="l04455"></a><span·class="lineno">·4455</span> ····················$self->SetField($i,·$row{$name});</div><div·class="line"><a·name="l04456"></a><span·class="lineno">·4456</span> ····················$f·=·1;</div><div·class="line"><a·name="l04457"></a><span·class="lineno">·4457</span> ····················last;</div><div·class="line"><a·name="l04458"></a><span·class="lineno">·4458</span> ················}</div><div·class="line"><a·name="l04459"></a><span·class="lineno">·4459</span> ············}</div><div·class="line"><a·name="l04460"></a><span·class="lineno">·4460</span> ············next·<span·class="keywordflow">if</span>·$f;</div><div·class="line"><a·name="l04461"></a><span·class="lineno">·4461</span> ············<span·class="keywordflow">for</span>·my·$i·(0..$ngf-1)·{</div><div·class="line"><a·name="l04462"></a><span·class="lineno">·4462</span> ················<span·class="keywordflow">if</span>·($self->GetGeomFieldDefnRef($i)->Name·eq·$name)·{</div><div·class="line"><a·name="l04463"></a><span·class="lineno">·4463</span> ····················$self->Geometry($i,·$row{$name});</div><div·class="line"><a·name="l04464"></a><span·class="lineno">·4464</span> ····················$f·=·1;</div><div·class="line"><a·name="l04465"></a><span·class="lineno">·4465</span> ····················last;</div><div·class="line"><a·name="l04466"></a><span·class="lineno">·4466</span> ················}</div><div·class="line"><a·name="l04467"></a><span·class="lineno">·4467</span> ············}</div><div·class="line"><a·name="l04468"></a><span·class="lineno">·4468</span> ············next·<span·class="keywordflow">if</span>·$f;</div><div·class="line"><a·name="l04469"></a><span·class="lineno">·4469</span> ············carp·<span·class="stringliteral">"Unknown·field:·'$name'."</span>;</div><div·class="line"><a·name="l04470"></a><span·class="lineno">·4470</span> ········}</div><div·class="line"><a·name="l04471"></a><span·class="lineno">·4471</span> ····}</div><div·class="line"><a·name="l04472"></a><span·class="lineno">·4472</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l04473"></a><span·class="lineno">·4473</span> ····my·%row·=·();</div><div·class="line"><a·name="l04474"></a><span·class="lineno">·4474</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$nf-1)·{</div><div·class="line"><a·name="l04475"></a><span·class="lineno">·4475</span> ········my·$name·=·$self->GetFieldDefnRef($i)->Name;</div><div·class="line"><a·name="l04476"></a><span·class="lineno">·4476</span> ········$row{$name}·=·$self->GetField($i);</div><div·class="line"><a·name="l04477"></a><span·class="lineno">·4477</span> ····}</div><div·class="line"><a·name="l04478"></a><span·class="lineno">·4478</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$ngf-1)·{</div><div·class="line"><a·name="l04479"></a><span·class="lineno">·4479</span> ········my·$name·=·$self->GetGeomFieldDefnRef($i)->Name·||·<span·class="stringliteral">'Geometry'</span>;</div><div·class="line"><a·name="l04480"></a><span·class="lineno">·4480</span> ········$row{$name}·=·$self->GetGeometry($i);</div><div·class="line"><a·name="l04481"></a><span·class="lineno">·4481</span> ····}</div><div·class="line"><a·name="l04482"></a><span·class="lineno">·4482</span> ····$row{FID}·=·$self->GetFID;</div><div·class="line"><a·name="l04483"></a><span·class="lineno">·4483</span> ····<span·class="keywordflow">return</span>·\%row;</div><div·class="line"><a·name="l04484"></a><span·class="lineno">·4484</span> }</div><div·class="line"><a·name="l04485"></a><span·class="lineno">·4485</span> </div><div·class="line"><a·name="l04486"></a><span·class="lineno">·4486</span> <span·class="preprocessor">#**·@method·SetFID($id)</span></div><div·class="line"><a·name="l04487"></a><span·class="lineno">·4487</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04488"></a><span·class="lineno">·4488</span> <span·class="preprocessor">#·@param·id·the·feature·id.</span></div><div·class="line"><a·name="l04489"></a><span·class="lineno">·4489</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04490"></a><span·class="lineno">·4490</span> sub·SetFID·{</div><div·class="line"><a·name="l04491"></a><span·class="lineno">·4491</span> }</div><div·class="line"><a·name="l04492"></a><span·class="lineno">·4492</span> </div><div·class="line"><a·name="l04493"></a><span·class="lineno">·4493</span> <span·class="preprocessor">#**·@method·SetField($name,·@Value)</span></div><div·class="line"><a·name="l04494"></a><span·class="lineno">·4494</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04495"></a><span·class="lineno">·4495</span> <span·class="preprocessor">#·See·Field().</span></div><div·class="line"><a·name="l04496"></a><span·class="lineno">·4496</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04497"></a><span·class="lineno">·4497</span> sub·SetField·{</div><div·class="line"><a·name="l04498"></a><span·class="lineno">·4498</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04499"></a><span·class="lineno">·4499</span> ····my·$field·=·$self->GetFieldIndex(shift);</div><div·class="line"><a·name="l04500"></a><span·class="lineno">·4500</span> ····my·$arg·=·$_[0];</div><div·class="line"><a·name="l04501"></a><span·class="lineno">·4501</span> ····<span·class="keywordflow">if</span>·(@_·==·0·or·!defined($arg))·{</div><div·class="line"><a·name="l04502"></a><span·class="lineno">·4502</span> ········_UnsetField($self,·$field);</div><div·class="line"><a·name="l04503"></a><span·class="lineno">·4503</span> ········<span·class="keywordflow">return</span>;</div><div·class="line"><a·name="l04504"></a><span·class="lineno">·4504</span> ····}</div><div·class="line"><a·name="l04505"></a><span·class="lineno">·4505</span> ····$arg·=·[@_]·<span·class="keywordflow">if</span>·@_·>·1;</div><div·class="line"><a·name="l04506"></a><span·class="lineno">·4506</span> ····my·$type·=·$self->GetFieldType($field);</div><div·class="line"><a·name="l04507"></a><span·class="lineno">·4507</span> ····<span·class="keywordflow">if</span>·(ref($arg))·{</div><div·class="line"><a·name="l04508"></a><span·class="lineno">·4508</span> ········<span·class="keywordflow">if</span>·($type·==·$Geo::OGR::OFTIntegerList)·{</div><div·class="line"><a·name="l04509"></a><span·class="lineno">·4509</span> ············SetFieldIntegerList($self,·$field,·$arg);</div><div·class="line"><a·name="l04510"></a><span·class="lineno">·4510</span> ········}</div><div·class="line"><a·name="l04511"></a><span·class="lineno">·4511</span> ········elsif·($type·==·$Geo::OGR::OFTInteger64List)·{</div><div·class="line"><a·name="l04512"></a><span·class="lineno">·4512</span> ············SetFieldInteger64List($self,·$field,·$arg);</div><div·class="line"><a·name="l04513"></a><span·class="lineno">·4513</span> ········}</div><div·class="line"><a·name="l04514"></a><span·class="lineno">·4514</span> ········elsif·($type·==·$Geo::OGR::OFTRealList)·{</div><div·class="line"><a·name="l04515"></a><span·class="lineno">·4515</span> ············SetFieldDoubleList($self,·$field,·$arg);</div><div·class="line"><a·name="l04516"></a><span·class="lineno">·4516</span> ········}</div><div·class="line"><a·name="l04517"></a><span·class="lineno">·4517</span> ········elsif·($type·==·$Geo::OGR::OFTStringList)·{</div><div·class="line"><a·name="l04518"></a><span·class="lineno">·4518</span> ············SetFieldStringList($self,·$field,·$arg);</div><div·class="line"><a·name="l04519"></a><span·class="lineno">·4519</span> ········}</div><div·class="line"><a·name="l04520"></a><span·class="lineno">·4520</span> ········elsif·($type·==·$Geo::OGR::OFTDate)·{</div><div·class="line"><a·name="l04521"></a><span·class="lineno">·4521</span> ············_SetField($self,·$field,·@$arg[0..2],·0,·0,·0,·0);</div><div·class="line"><a·name="l04522"></a><span·class="lineno">·4522</span> ········}</div><div·class="line"><a·name="l04523"></a><span·class="lineno">·4523</span> ········elsif·($type·==·$Geo::OGR::OFTTime)·{</div><div·class="line"><a·name="l04524"></a><span·class="lineno">·4524</span> ············$arg->[3]·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l04525"></a><span·class="lineno">·4525</span> ············_SetField($self,·$field,·0,·0,·0,·@$arg[0..3]);</div><div·class="line"><a·name="l04526"></a><span·class="lineno">·4526</span> ········}</div><div·class="line"><a·name="l04527"></a><span·class="lineno">·4527</span> ········elsif·($type·==·$Geo::OGR::OFTDateTime)·{</div><div·class="line"><a·name="l04528"></a><span·class="lineno">·4528</span> ············$arg->[6]·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l04529"></a><span·class="lineno">·4529</span> ············_SetField($self,·$field,·@$arg[0..6]);</div><div·class="line"><a·name="l04530"></a><span·class="lineno">·4530</span> ········}</div><div·class="line"><a·name="l04531"></a><span·class="lineno">·4531</span> ········elsif·($type·==·$Geo::OGR::OFTInteger64)</div><div·class="line"><a·name="l04532"></a><span·class="lineno">·4532</span> ········{</div><div·class="line"><a·name="l04533"></a><span·class="lineno">·4533</span> ············SetFieldInteger64($self,·$field,·$arg);</div><div·class="line"><a·name="l04534"></a><span·class="lineno">·4534</span> ········}</div><div·class="line"><a·name="l04535"></a><span·class="lineno">·4535</span> ········<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l04536"></a><span·class="lineno">·4536</span> ············$type·=·i2s(field_type·=>·$type);</div><div·class="line"><a·name="l04537"></a><span·class="lineno">·4537</span> ············my·$name·=·$self->GetFieldDefnRef($field)->Name;</div><div·class="line"><a·name="l04538"></a><span·class="lineno">·4538</span> ············error(<span·class="stringliteral">"'$arg'·is·not·a·suitable·value·for·field·$name($type)."</span>);</div><div·class="line"><a·name="l04539"></a><span·class="lineno">·4539</span> ········}</div><div·class="line"><a·name="l04540"></a><span·class="lineno">·4540</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l04541"></a><span·class="lineno">·4541</span> ········<span·class="keywordflow">if</span>·($type·==·$Geo::OGR::OFTBinary)·{</div><div·class="line"><a·name="l04542"></a><span·class="lineno">·4542</span> <span·class="preprocessor">············#$arg·=·unpack('H*',·$arg);·#·remove·when·SetFieldBinary·is·available</span></div><div·class="line"><a·name="l04543"></a><span·class="lineno">·4543</span> ············$self->SetFieldBinary($field,·$arg);</div><div·class="line"><a·name="l04544"></a><span·class="lineno">·4544</span> ········}</div><div·class="line"><a·name="l04545"></a><span·class="lineno">·4545</span> ········elsif·($type·==·$Geo::OGR::OFTInteger64)</div><div·class="line"><a·name="l04546"></a><span·class="lineno">·4546</span> ········{</div><div·class="line"><a·name="l04547"></a><span·class="lineno">·4547</span> ············SetFieldInteger64($self,·$field,·$arg);</div><div·class="line"><a·name="l04548"></a><span·class="lineno">·4548</span> ········}</div><div·class="line"><a·name="l04549"></a><span·class="lineno">·4549</span> ········elsif·($type·==·$Geo::OGR::OFTInteger·or·$type·==·$Geo::OGR::OFTReal·or·$type·==·$Geo::OGR::OFTString)</div><div·class="line"><a·name="l04550"></a><span·class="lineno">·4550</span> ········{</div><div·class="line"><a·name="l04551"></a><span·class="lineno">·4551</span> ············_SetField($self,·$field,·$arg);</div><div·class="line"><a·name="l04552"></a><span·class="lineno">·4552</span> ········}</div><div·class="line"><a·name="l04553"></a><span·class="lineno">·4553</span> ········<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l04554"></a><span·class="lineno">·4554</span> ············$type·=·i2s(field_type·=>·$type);</div><div·class="line"><a·name="l04555"></a><span·class="lineno">·4555</span> ············my·$name·=·$self->GetFieldDefnRef($field)->Name;</div><div·class="line"><a·name="l04556"></a><span·class="lineno">·4556</span> ············error(<span·class="stringliteral">"'$arg'·is·not·a·suitable·value·for·field·$name($type)."</span>);</div><div·class="line"><a·name="l04557"></a><span·class="lineno">·4557</span> ········}</div><div·class="line"><a·name="l04558"></a><span·class="lineno">·4558</span> ····}</div><div·class="line"><a·name="l04559"></a><span·class="lineno">·4559</span> }</div><div·class="line"><a·name="l04560"></a><span·class="lineno">·4560</span> </div><div·class="line"><a·name="l04561"></a><span·class="lineno">·4561</span> <span·class="preprocessor">#**·@method·SetFieldNull()</span></div><div·class="line"><a·name="l04562"></a><span·class="lineno">·4562</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04563"></a><span·class="lineno">·4563</span> sub·SetFieldNull·{</div><div·class="line"><a·name="l04564"></a><span·class="lineno">·4564</span> }</div><div·class="line"><a·name="l04565"></a><span·class="lineno">·4565</span> </div><div·class="line"><a·name="l04566"></a><span·class="lineno">·4566</span> <span·class="preprocessor">#**·@method·SetFrom($other,·$forgiving·=·1,·hashref·map)</span></div><div·class="line"><a·name="l04567"></a><span·class="lineno">·4567</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04568"></a><span·class="lineno">·4568</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Feature·object</span></div><div·class="line"><a·name="l04569"></a><span·class="lineno">·4569</span> <span·class="preprocessor">#·@param·forgiving·[optional]·set·to·false·if·the·operation·should·not</span></div><div·class="line"><a·name="l04570"></a><span·class="lineno">·4570</span> <span·class="preprocessor">#·continue·if·output·fields·do·not·match·some·of·the·source·fields</span></div><div·class="line"><a·name="l04571"></a><span·class="lineno">·4571</span> <span·class="preprocessor">#·@param·map·[optional]·a·mapping·from·output·field·indexes·to·source</span></div><div·class="line"><a·name="l04572"></a><span·class="lineno">·4572</span> <span·class="preprocessor">#·fields,·include·into·the·hash·all·field·indexes·of·this·feature</span></div><div·class="line"><a·name="l04573"></a><span·class="lineno">·4573</span> <span·class="preprocessor">#·which·should·be·set</span></div><div·class="line"><a·name="l04574"></a><span·class="lineno">·4574</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04575"></a><span·class="lineno">·4575</span> sub·SetFrom·{</div><div·class="line"><a·name="l04576"></a><span·class="lineno">·4576</span> ····my($self,·$other)·=·@_;</div><div·class="line"><a·name="l04577"></a><span·class="lineno">·4577</span> ····_SetFrom($self,·$other),·<span·class="keywordflow">return</span>·<span·class="keywordflow">if</span>·@_·<=·2;</div><div·class="line"><a·name="l04578"></a><span·class="lineno">·4578</span> ····my·$forgiving·=·$_[2];</div><div·class="line"><a·name="l04579"></a><span·class="lineno">·4579</span> ····_SetFrom($self,·$other,·$forgiving),·<span·class="keywordflow">return</span>·<span·class="keywordflow">if</span>·@_·<=·3;</div><div·class="line"><a·name="l04580"></a><span·class="lineno">·4580</span> ····my·$map·=·$_[3];</div><div·class="line"><a·name="l04581"></a><span·class="lineno">·4581</span> ····my·@list;</div><div·class="line"><a·name="l04582"></a><span·class="lineno">·4582</span> ····<span·class="keywordflow">for</span>·my·$i·(1..GetFieldCount($self))·{</div><div·class="line"><a·name="l04583"></a><span·class="lineno">·4583</span> ········push·@list,·($map->{$i}·||·-1);</div><div·class="line"><a·name="l04584"></a><span·class="lineno">·4584</span> ····}</div><div·class="line"><a·name="l04585"></a><span·class="lineno">·4585</span> ····SetFromWithMap($self,·$other,·1,·\@list);</div><div·class="line"><a·name="l04586"></a><span·class="lineno">·4586</span> }</div><div·class="line"><a·name="l04587"></a><span·class="lineno">·4587</span> </div><div·class="line"><a·name="l04588"></a><span·class="lineno">·4588</span> <span·class="preprocessor">#**·@method·SetNativeData()</span></div><div·class="line"><a·name="l04589"></a><span·class="lineno">·4589</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04590"></a><span·class="lineno">·4590</span> sub·SetNativeData·{</div><div·class="line"><a·name="l04591"></a><span·class="lineno">·4591</span> }</div><div·class="line"><a·name="l04592"></a><span·class="lineno">·4592</span> </div><div·class="line"><a·name="l04593"></a><span·class="lineno">·4593</span> <span·class="preprocessor">#**·@method·SetNativeMediaType()</span></div><div·class="line"><a·name="l04594"></a><span·class="lineno">·4594</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04595"></a><span·class="lineno">·4595</span> sub·SetNativeMediaType·{</div><div·class="line"><a·name="l04596"></a><span·class="lineno">·4596</span> }</div><div·class="line"><a·name="l04597"></a><span·class="lineno">·4597</span> </div><div·class="line"><a·name="l04598"></a><span·class="lineno">·4598</span> <span·class="preprocessor">#**·@method·SetStyleString($string)</span></div><div·class="line"><a·name="l04599"></a><span·class="lineno">·4599</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04600"></a><span·class="lineno">·4600</span> <span·class="preprocessor">#·@param·string</span></div><div·class="line"><a·name="l04601"></a><span·class="lineno">·4601</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04602"></a><span·class="lineno">·4602</span> sub·SetStyleString·{</div><div·class="line"><a·name="l04603"></a><span·class="lineno">·4603</span> }</div><div·class="line"><a·name="l04604"></a><span·class="lineno">·4604</span> </div><div·class="line"><a·name="l04605"></a><span·class="lineno">·4605</span> <span·class="preprocessor">#**·@method·list·Tuple(@tuple)</span></div><div·class="line"><a·name="l04606"></a><span·class="lineno">·4606</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04607"></a><span·class="lineno">·4607</span> <span·class="preprocessor">#·@note·This·method·discards·the·data·the·destination·feature·(or</span></div><div·class="line"><a·name="l04608"></a><span·class="lineno">·4608</span> <span·class="preprocessor">#·layer)·does·not·support.·Changes·in·data·due·to·differences·between</span></div><div·class="line"><a·name="l04609"></a><span·class="lineno">·4609</span> <span·class="preprocessor">#·field·types·may·also·occur.</span></div><div·class="line"><a·name="l04610"></a><span·class="lineno">·4610</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l04611"></a><span·class="lineno">·4611</span> <span·class="preprocessor">#·@note·The·schema·of·the·tuple·needs·to·be·the·same·as·that·of·the</span></div><div·class="line"><a·name="l04612"></a><span·class="lineno">·4612</span> <span·class="preprocessor">#·feature.</span></div><div·class="line"><a·name="l04613"></a><span·class="lineno">·4613</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l04614"></a><span·class="lineno">·4614</span> <span·class="preprocessor">#·Get·and/set·the·data·of·the·feature.·The·expected·data·in·the·tuple</span></div><div·class="line"><a·name="l04615"></a><span·class="lineno">·4615</span> <span·class="preprocessor">#·is·([feature_id,]·non-spatial·fields,·spatial·fields).·The·fields·in</span></div><div·class="line"><a·name="l04616"></a><span·class="lineno">·4616</span> <span·class="preprocessor">#·the·tuple·are·in·the·order·they·are·in·the·schema.·Field·values·are</span></div><div·class="line"><a·name="l04617"></a><span·class="lineno">·4617</span> <span·class="preprocessor">#·set·using·the·Geo::OGR::Feature::Field·method.·Geometries·are·set</span></div><div·class="line"><a·name="l04618"></a><span·class="lineno">·4618</span> <span·class="preprocessor">#·and·get·using·the·Geo::OGR::Feature::Geometry·method.</span></div><div·class="line"><a·name="l04619"></a><span·class="lineno">·4619</span> <span·class="preprocessor">#·@param·tuple·[optional]·feature·data·in·an·array</span></div><div·class="line"><a·name="l04620"></a><span·class="lineno">·4620</span> <span·class="preprocessor">#·@return·feature·data·in·an·array</span></div><div·class="line"><a·name="l04621"></a><span·class="lineno">·4621</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04622"></a><span·class="lineno">·4622</span> sub·Tuple·{</div><div·class="line"><a·name="l04623"></a><span·class="lineno">·4623</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04624"></a><span·class="lineno">·4624</span> ····my·$nf·=·$self->GetFieldCount;</div><div·class="line"><a·name="l04625"></a><span·class="lineno">·4625</span> ····my·$ngf·=·$self->GetGeomFieldCount;</div><div·class="line"><a·name="l04626"></a><span·class="lineno">·4626</span> ····<span·class="keywordflow">if</span>·(@_)·{</div><div·class="line"><a·name="l04627"></a><span·class="lineno">·4627</span> ········my·$values·=·ref·$_[0]·?·$_[0]·:·\@_;</div><div·class="line"><a·name="l04628"></a><span·class="lineno">·4628</span> ········my·$FID;</div><div·class="line"><a·name="l04629"></a><span·class="lineno">·4629</span> ········$FID·=·shift·@$values·<span·class="keywordflow">if</span>·@$values·==·$nf·+·$ngf·+·1;</div><div·class="line"><a·name="l04630"></a><span·class="lineno">·4630</span> ········$self->SetFID($FID)·<span·class="keywordflow">if</span>·defined·$FID;</div><div·class="line"><a·name="l04631"></a><span·class="lineno">·4631</span> ········<span·class="keywordflow">if</span>·(@$values·!=·$nf·+·$ngf)·{</div><div·class="line"><a·name="l04632"></a><span·class="lineno">·4632</span> ············my·$n·=·$nf·+·$ngf;</div><div·class="line"><a·name="l04633"></a><span·class="lineno">·4633</span> ············error(<span·class="stringliteral">"Too·many·or·too·few·attribute·values·for·a·feature·(need·$n)."</span>);</div><div·class="line"><a·name="l04634"></a><span·class="lineno">·4634</span> ········}</div><div·class="line"><a·name="l04635"></a><span·class="lineno">·4635</span> ········my·$index·=·0;·#·index·to·non-geometry·and·geometry·fields</div><div·class="line"><a·name="l04636"></a><span·class="lineno">·4636</span> ········<span·class="keywordflow">for</span>·my·$i·(0..$nf-1)·{</div><div·class="line"><a·name="l04637"></a><span·class="lineno">·4637</span> ············$self->SetField($i,·$values->[$i]);</div><div·class="line"><a·name="l04638"></a><span·class="lineno">·4638</span> ········}</div><div·class="line"><a·name="l04639"></a><span·class="lineno">·4639</span> ········<span·class="keywordflow">for</span>·my·$i·(0..$ngf-1)·{</div><div·class="line"><a·name="l04640"></a><span·class="lineno">·4640</span> ············$self->Geometry($i,·$values->[$nf+$i]);</div><div·class="line"><a·name="l04641"></a><span·class="lineno">·4641</span> ········}</div><div·class="line"><a·name="l04642"></a><span·class="lineno">·4642</span> ····}</div><div·class="line"><a·name="l04643"></a><span·class="lineno">·4643</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l04644"></a><span·class="lineno">·4644</span> ····my·@ret·=·($self->GetFID);</div><div·class="line"><a·name="l04645"></a><span·class="lineno">·4645</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$nf-1)·{</div><div·class="line"><a·name="l04646"></a><span·class="lineno">·4646</span> ········my·$v·=·$self->GetField($i);</div><div·class="line"><a·name="l04647"></a><span·class="lineno">·4647</span> ········push·@ret,·$v;</div><div·class="line"><a·name="l04648"></a><span·class="lineno">·4648</span> ····}</div><div·class="line"><a·name="l04649"></a><span·class="lineno">·4649</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$ngf-1)·{</div><div·class="line"><a·name="l04650"></a><span·class="lineno">·4650</span> ········my·$v·=·$self->GetGeometry($i);</div><div·class="line"><a·name="l04651"></a><span·class="lineno">·4651</span> ········push·@ret,·$v;</div><div·class="line"><a·name="l04652"></a><span·class="lineno">·4652</span> ····}</div><div·class="line"><a·name="l04653"></a><span·class="lineno">·4653</span> ····<span·class="keywordflow">return</span>·@ret;</div><div·class="line"><a·name="l04654"></a><span·class="lineno">·4654</span> }</div><div·class="line"><a·name="l04655"></a><span·class="lineno">·4655</span> </div><div·class="line"><a·name="l04656"></a><span·class="lineno">·4656</span> <span·class="preprocessor">#**·@method·scalar·Validate(list·flags)</span></div><div·class="line"><a·name="l04657"></a><span·class="lineno">·4657</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04658"></a><span·class="lineno">·4658</span> <span·class="preprocessor">#·@param·flags·one·of·more·of·null,·geom_type,·width,</span></div><div·class="line"><a·name="l04659"></a><span·class="lineno">·4659</span> <span·class="preprocessor">#·allow_null_when_default,·or·all.</span></div><div·class="line"><a·name="l04660"></a><span·class="lineno">·4660</span> <span·class="preprocessor">#·@exception·croaks·with·an·error·message·if·the·feature·is·not·valid.</span></div><div·class="line"><a·name="l04661"></a><span·class="lineno">·4661</span> <span·class="preprocessor">#·@return·integer·denoting·the·validity·of·the·feature·object.</span></div><div·class="line"><a·name="l04662"></a><span·class="lineno">·4662</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04663"></a><span·class="lineno">·4663</span> sub·Validate·{</div><div·class="line"><a·name="l04664"></a><span·class="lineno">·4664</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04665"></a><span·class="lineno">·4665</span> ····my·$flags·=·0;</div><div·class="line"><a·name="l04666"></a><span·class="lineno">·4666</span> ····<span·class="keywordflow">for</span>·my·$flag·(@_)·{</div><div·class="line"><a·name="l04667"></a><span·class="lineno">·4667</span> ········my·$f·=·eval·<span·class="stringliteral">'$Geo::OGR::'</span>.uc($flag);</div><div·class="line"><a·name="l04668"></a><span·class="lineno">·4668</span> ········$flags·|=·$f;</div><div·class="line"><a·name="l04669"></a><span·class="lineno">·4669</span> ····}</div><div·class="line"><a·name="l04670"></a><span·class="lineno">·4670</span> ····_Validate($self,·$flags);</div><div·class="line"><a·name="l04671"></a><span·class="lineno">·4671</span> }</div><div·class="line"><a·name="l04672"></a><span·class="lineno">·4672</span> </div><div·class="line"><a·name="l04673"></a><span·class="lineno">·4673</span> <span·class="preprocessor">#**·@method·Geo::OGR::Feature·new(%schema)</span></div><div·class="line"><a·name="l04674"></a><span·class="lineno">·4674</span> <span·class="preprocessor">#·Class·method.</span></div><div·class="line"><a·name="l04675"></a><span·class="lineno">·4675</span> <span·class="preprocessor">#·@brief·Create·a·new·feature.</span></div><div·class="line"><a·name="l04676"></a><span·class="lineno">·4676</span> <span·class="preprocessor">#·@param·Named·parameters:</span></div><div·class="line"><a·name="l04677"></a><span·class="lineno">·4677</span> <span·class="preprocessor">#·-·\a·Schema·a·reference·to·a·schema·hash,·or·a·Geo::OGR::Layer,</span></div><div·class="line"><a·name="l04678"></a><span·class="lineno">·4678</span> <span·class="preprocessor">#······Geo::OGR::Feature,·or·Geo::OGR::FeatureDefn·object.</span></div><div·class="line"><a·name="l04679"></a><span·class="lineno">·4679</span> <span·class="preprocessor">#·-·\a·Values·values·for·the·feature·attributes.</span></div><div·class="line"><a·name="l04680"></a><span·class="lineno">·4680</span> <span·class="preprocessor">#·-·\a·StyleIgnored·whether·the·style·can·be·omitted·when·fetching</span></div><div·class="line"><a·name="l04681"></a><span·class="lineno">·4681</span> <span·class="preprocessor">#······features.·(default·is·false)</span></div><div·class="line"><a·name="l04682"></a><span·class="lineno">·4682</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l04683"></a><span·class="lineno">·4683</span> <span·class="preprocessor">#·Schema·is·a·hash·with·the·following·keys:</span></div><div·class="line"><a·name="l04684"></a><span·class="lineno">·4684</span> <span·class="preprocessor">#·-·\a·Name·name·of·the·schema·(not·used).</span></div><div·class="line"><a·name="l04685"></a><span·class="lineno">·4685</span> <span·class="preprocessor">#·-·\a·Fields·a·list·of·Geo::OGR::FieldDefn·or·Geo::OGR::GeomFieldDefn</span></div><div·class="line"><a·name="l04686"></a><span·class="lineno">·4686</span> <span·class="preprocessor">#·objects·or·references·to·hashes·from·which·fields·can·be·created.</span></div><div·class="line"><a·name="l04687"></a><span·class="lineno">·4687</span> <span·class="preprocessor">#·-·\a·GeometryType·the·geometry·type·if·the·feature·has·only·one·spatial·field.</span></div><div·class="line"><a·name="l04688"></a><span·class="lineno">·4688</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l04689"></a><span·class="lineno">·4689</span> <span·class="preprocessor">#·@note·Do·not·mix·GeometryType·and·geometry·fields·in·Fields·list.</span></div><div·class="line"><a·name="l04690"></a><span·class="lineno">·4690</span> <span·class="preprocessor">#·@note·Old·syntax·where·the·argument·is·a·Geo::OGR::FeatureDefn</span></div><div·class="line"><a·name="l04691"></a><span·class="lineno">·4691</span> <span·class="preprocessor">#·object·or·Schema·hash·is·supported.</span></div><div·class="line"><a·name="l04692"></a><span·class="lineno">·4692</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l04693"></a><span·class="lineno">·4693</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Feature·object.</span></div><div·class="line"><a·name="l04694"></a><span·class="lineno">·4694</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04695"></a><span·class="lineno">·4695</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l04696"></a><span·class="lineno">·4696</span> ····my·$pkg·=·shift;</div><div·class="line"><a·name="l04697"></a><span·class="lineno">·4697</span> ····my·$arg;</div><div·class="line"><a·name="l04698"></a><span·class="lineno">·4698</span> ····<span·class="keywordflow">if</span>·(ref·$_[0])·{</div><div·class="line"><a·name="l04699"></a><span·class="lineno">·4699</span> ········<span·class="keywordflow">if</span>·(ref·$_[0]·eq·<span·class="stringliteral">'HASH'</span>·&&·$_[0]->{Schema})·{</div><div·class="line"><a·name="l04700"></a><span·class="lineno">·4700</span> ············$arg·=·$_[0];</div><div·class="line"><a·name="l04701"></a><span·class="lineno">·4701</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l04702"></a><span·class="lineno">·4702</span> ············$arg·=·{Schema·=>·$_[0]};</div><div·class="line"><a·name="l04703"></a><span·class="lineno">·4703</span> ········}</div><div·class="line"><a·name="l04704"></a><span·class="lineno">·4704</span> ····}·elsif·(@_·and·@_·%·2·==·0)·{</div><div·class="line"><a·name="l04705"></a><span·class="lineno">·4705</span> ········%$arg·=·@_;</div><div·class="line"><a·name="l04706"></a><span·class="lineno">·4706</span> ········unless·($arg->{Schema})·{</div><div·class="line"><a·name="l04707"></a><span·class="lineno">·4707</span> ············my·%tmp·=·@_;</div><div·class="line"><a·name="l04708"></a><span·class="lineno">·4708</span> ············$arg->{Schema}·=·\%tmp;</div><div·class="line"><a·name="l04709"></a><span·class="lineno">·4709</span> ········}</div><div·class="line"><a·name="l04710"></a><span·class="lineno">·4710</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l04711"></a><span·class="lineno">·4711</span> ········error(<span·class="stringliteral">"The·argument·must·be·either·a·schema·or·a·hash."</span>);</div><div·class="line"><a·name="l04712"></a><span·class="lineno">·4712</span> ····}</div><div·class="line"><a·name="l04713"></a><span·class="lineno">·4713</span> ····error(<span·class="stringliteral">"Missing·schema."</span>)·unless·$arg->{Schema};</div><div·class="line"><a·name="l04714"></a><span·class="lineno">·4714</span> ····my·$defn;</div><div·class="line"><a·name="l04715"></a><span·class="lineno">·4715</span> ····<span·class="keywordflow">for</span>·(ref·$arg->{Schema})·{</div><div·class="line"><a·name="l04716"></a><span·class="lineno">·4716</span> ········(/<a·class="code"·href="classGeo_1_1OGR_1_1Layer.html">Geo::OGR::Layer</a>$/·||·/<a·class="code"·href="classGeo_1_1OGR_1_1Feature.html">Geo::OGR::Feature</a>$/)·&&·<span·class="keywordflow">do</span>·{</div><div·class="line"><a·name="l04717"></a><span·class="lineno">·4717</span> ············$defn·=·$arg->{Schema}->GetDefn;</div><div·class="line"><a·name="l04718"></a><span·class="lineno">·4718</span> ············last;</div><div·class="line"><a·name="l04719"></a><span·class="lineno">·4719</span> ········};</div><div·class="line"><a·name="l04720"></a><span·class="lineno">·4720</span> ········/<a·class="code"·href="classGeo_1_1OGR_1_1FeatureDefn.html">Geo::OGR::FeatureDefn</a>$/·&&·<span·class="keywordflow">do</span>·{</div><div·class="line"><a·name="l04721"></a><span·class="lineno">·4721</span> ············$defn·=·$arg->{Schema};</div><div·class="line"><a·name="l04722"></a><span·class="lineno">·4722</span> ············last;</div><div·class="line"><a·name="l04723"></a><span·class="lineno">·4723</span> ········};</div><div·class="line"><a·name="l04724"></a><span·class="lineno">·4724</span> ········$defn·=·<a·class="code"·href="classGeo_1_1OGR_1_1FeatureDefn.html">Geo::OGR::FeatureDefn</a>-><a·class="code"·href="classGeo_1_1OGR_1_1FeatureDefn.html#a95ae03e96b953ab6178b66d7eb838b7f">new</a>($arg->{Schema});</div><div·class="line"><a·name="l04725"></a><span·class="lineno">·4725</span> ····}</div><div·class="line"><a·name="l04726"></a><span·class="lineno">·4726</span> ····my·$self·=·Geo::OGRc::new_Feature($defn);</div><div·class="line"><a·name="l04727"></a><span·class="lineno">·4727</span> ····error(<span·class="stringliteral">"Feature·creation·failed."</span>)·unless·$self;</div><div·class="line"><a·name="l04728"></a><span·class="lineno">·4728</span> ····bless·$self,·$pkg;</div><div·class="line"><a·name="l04729"></a><span·class="lineno">·4729</span> ····<span·class="keywordflow">for</span>·(ref·$arg->{Values})·{</div><div·class="line"><a·name="l04730"></a><span·class="lineno">·4730</span> ········/ARRAY/··&&·<span·class="keywordflow">do</span>·{</div><div·class="line"><a·name="l04731"></a><span·class="lineno">·4731</span> ············$self->Tuple($arg->{Values});</div><div·class="line"><a·name="l04732"></a><span·class="lineno">·4732</span> ············last;</div><div·class="line"><a·name="l04733"></a><span·class="lineno">·4733</span> ········};</div><div·class="line"><a·name="l04734"></a><span·class="lineno">·4734</span> ········/HASH/·&&·<span·class="keywordflow">do</span>·{</div><div·class="line"><a·name="l04735"></a><span·class="lineno">·4735</span> ············$self->Row($arg->{Values});</div><div·class="line"><a·name="l04736"></a><span·class="lineno">·4736</span> ············last;</div><div·class="line"><a·name="l04737"></a><span·class="lineno">·4737</span> ········};</div><div·class="line"><a·name="l04738"></a><span·class="lineno">·4738</span> ········/<a·class="code"·href="classGeo_1_1OGR_1_1Feature.html">Geo::OGR::Feature</a>$/·&&·<span·class="keywordflow">do</span>·{</div><div·class="line"><a·name="l04739"></a><span·class="lineno">·4739</span> ············$self-><a·class="code"·href="classGeo_1_1OGR_1_1Feature.html#ab7a2ef8d842ec3974ba3b96cf2bd2a3e">Tuple</a>($arg->{Values}->Tuple);</div><div·class="line"><a·name="l04740"></a><span·class="lineno">·4740</span> ············last;</div><div·class="line"><a·name="l04741"></a><span·class="lineno">·4741</span> ········};</div><div·class="line"><a·name="l04742"></a><span·class="lineno">·4742</span> ········/^$/·&&·<span·class="keywordflow">do</span>·{</div><div·class="line"><a·name="l04743"></a><span·class="lineno">·4743</span> ············last;</div><div·class="line"><a·name="l04744"></a><span·class="lineno">·4744</span> ········};</div><div·class="line"><a·name="l04745"></a><span·class="lineno">·4745</span> ········error(<span·class="stringliteral">"Value·parameter·must·be·an·array,·hash,·or·another·feature.·Not·$_."</span>);</div><div·class="line"><a·name="l04746"></a><span·class="lineno">·4746</span> ····}</div><div·class="line"><a·name="l04747"></a><span·class="lineno">·4747</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l04748"></a><span·class="lineno">·4748</span> }</div><div·class="line"><a·name="l04749"></a><span·class="lineno">·4749</span> </div><div·class="line"><a·name="l04750"></a><span·class="lineno">·4750</span> <span·class="preprocessor">#**·@class·Geo::OGR::FeatureDefn</span></div><div·class="line"><a·name="l04751"></a><span·class="lineno">·4751</span> <span·class="preprocessor">#·@brief·The·schema·of·a·feature·or·a·layer.</span></div><div·class="line"><a·name="l04752"></a><span·class="lineno">·4752</span> <span·class="preprocessor">#·@details·A·FeatureDefn·object·is·a·collection·of·field·definition·objects.·A</span></div><div·class="line"><a·name="l04753"></a><span·class="lineno">·4753</span> <span·class="preprocessor">#·read-only·FeatureDefn·object·can·be·obtained·from·a·layer</span></div><div·class="line"><a·name="l04754"></a><span·class="lineno">·4754</span> <span·class="preprocessor">#·(Geo::OGR::Layer::GetDefn())·or·a·feature</span></div><div·class="line"><a·name="l04755"></a><span·class="lineno">·4755</span> <span·class="preprocessor">#·(Geo::OGR::Feature::GetDefn()).</span></div><div·class="line"><a·name="l04756"></a><span·class="lineno">·4756</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04757"></a><span·class="lineno">·4757</span> <span·class="keyword">package·</span>Geo::OGR::FeatureDefn;</div><div·class="line"><a·name="l04758"></a><span·class="lineno">·4758</span> </div><div·class="line"><a·name="l04759"></a><span·class="lineno">·4759</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1OGR.html">Geo::OGR</a>)</div><div·class="line"><a·name="l04760"></a><span·class="lineno">·4760</span> </div><div·class="line"><a·name="l04761"></a><span·class="lineno">·4761</span> <span·class="preprocessor">#**·@method·AddField(%params)</span></div><div·class="line"><a·name="l04762"></a><span·class="lineno">·4762</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04763"></a><span·class="lineno">·4763</span> <span·class="preprocessor">#·@param·params·Named·parameters·to·create·a·new·Geo::OGR::FieldDefn</span></div><div·class="line"><a·name="l04764"></a><span·class="lineno">·4764</span> <span·class="preprocessor">#·or·Geo::OGR::GeomFieldDefn·object.</span></div><div·class="line"><a·name="l04765"></a><span·class="lineno">·4765</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04766"></a><span·class="lineno">·4766</span> sub·AddField·{</div><div·class="line"><a·name="l04767"></a><span·class="lineno">·4767</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04768"></a><span·class="lineno">·4768</span> ····error(<span·class="stringliteral">"Read-only·definition."</span>)·<span·class="keywordflow">if</span>·parent($self);</div><div·class="line"><a·name="l04769"></a><span·class="lineno">·4769</span> ····my·%params;</div><div·class="line"><a·name="l04770"></a><span·class="lineno">·4770</span> ····<span·class="keywordflow">if</span>·(@_·==·0)·{</div><div·class="line"><a·name="l04771"></a><span·class="lineno">·4771</span> ····}·elsif·(ref($_[0])·eq·<span·class="stringliteral">'HASH'</span>)·{</div><div·class="line"><a·name="l04772"></a><span·class="lineno">·4772</span> ········%params·=·%{$_[0]};</div><div·class="line"><a·name="l04773"></a><span·class="lineno">·4773</span> ····}·elsif·(@_·%·2·==·0)·{</div><div·class="line"><a·name="l04774"></a><span·class="lineno">·4774</span> ········%params·=·@_;</div><div·class="line"><a·name="l04775"></a><span·class="lineno">·4775</span> ····}</div><div·class="line"><a·name="l04776"></a><span·class="lineno">·4776</span> ····$params{Type}·<span·class="comment">//=·'';</span></div><div·class="line"><a·name="l04777"></a><span·class="lineno">·4777</span> ····<span·class="keywordflow">if</span>·(s_exists(field_type·=>·$params{Type}))·{</div><div·class="line"><a·name="l04778"></a><span·class="lineno">·4778</span> ········my·$fd·=·<a·class="code"·href="classGeo_1_1OGR_1_1FieldDefn.html">Geo::OGR::FieldDefn</a>-><a·class="code"·href="classGeo_1_1OGR_1_1FieldDefn.html#a02f94b3023e631aad8574caf0eff8491">new</a>(%params);</div><div·class="line"><a·name="l04779"></a><span·class="lineno">·4779</span> ········$self->AddFieldDefn($fd);</div><div·class="line"><a·name="l04780"></a><span·class="lineno">·4780</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l04781"></a><span·class="lineno">·4781</span> ········my·$fd·=·<a·class="code"·href="classGeo_1_1OGR_1_1GeomFieldDefn.html">Geo::OGR::GeomFieldDefn</a>-><a·class="code"·href="classGeo_1_1OGR_1_1GeomFieldDefn.html#a390438ea74069f3ed6cc79935c986830">new</a>(%params);</div><div·class="line"><a·name="l04782"></a><span·class="lineno">·4782</span> ········$self->AddGeomFieldDefn($fd);</div><div·class="line"><a·name="l04783"></a><span·class="lineno">·4783</span> ····}</div><div·class="line"><a·name="l04784"></a><span·class="lineno">·4784</span> }</div><div·class="line"><a·name="l04785"></a><span·class="lineno">·4785</span> </div><div·class="line"><a·name="l04786"></a><span·class="lineno">·4786</span> <span·class="preprocessor">#**·@method·DeleteField($name)</span></div><div·class="line"><a·name="l04787"></a><span·class="lineno">·4787</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04788"></a><span·class="lineno">·4788</span> <span·class="preprocessor">#·@note·Currently·only·geometry·fields·can·be·deleted.</span></div><div·class="line"><a·name="l04789"></a><span·class="lineno">·4789</span> <span·class="preprocessor">#·@param·index·the·index·of·the·geometry·field·to·be·deleted.</span></div><div·class="line"><a·name="l04790"></a><span·class="lineno">·4790</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04791"></a><span·class="lineno">·4791</span> sub·DeleteField·{</div><div·class="line"><a·name="l04792"></a><span·class="lineno">·4792</span> ····my·($self,·$name)·=·@_;</div><div·class="line"><a·name="l04793"></a><span·class="lineno">·4793</span> ····error(<span·class="stringliteral">"Read-only·definition."</span>)·<span·class="keywordflow">if</span>·parent($self);</div><div·class="line"><a·name="l04794"></a><span·class="lineno">·4794</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$self->GetFieldCount-1)·{</div><div·class="line"><a·name="l04795"></a><span·class="lineno">·4795</span> ········error(<span·class="stringliteral">"Non-spatial·fields·cannot·be·deleted."</span>)·<span·class="keywordflow">if</span>·$self->_GetFieldDefn($i)->Name·eq·$name;</div><div·class="line"><a·name="l04796"></a><span·class="lineno">·4796</span> ····}</div><div·class="line"><a·name="l04797"></a><span·class="lineno">·4797</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$self->GetGeomFieldCount-1)·{</div><div·class="line"><a·name="l04798"></a><span·class="lineno">·4798</span> ········$self->DeleteGeomFieldDefn($i)·<span·class="keywordflow">if</span>·$self->_GetGeomFieldDefn($i)->Name·eq·$name;</div><div·class="line"><a·name="l04799"></a><span·class="lineno">·4799</span> ····}</div><div·class="line"><a·name="l04800"></a><span·class="lineno">·4800</span> ····error(2,·$name,·<span·class="stringliteral">'Field'</span>);</div><div·class="line"><a·name="l04801"></a><span·class="lineno">·4801</span> }</div><div·class="line"><a·name="l04802"></a><span·class="lineno">·4802</span> </div><div·class="line"><a·name="l04803"></a><span·class="lineno">·4803</span> <span·class="preprocessor">#**·@method·Feature()</span></div><div·class="line"><a·name="l04804"></a><span·class="lineno">·4804</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04805"></a><span·class="lineno">·4805</span> sub·Feature·{</div><div·class="line"><a·name="l04806"></a><span·class="lineno">·4806</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04807"></a><span·class="lineno">·4807</span> ····<span·class="keywordflow">return</span>·parent($self);</div><div·class="line"><a·name="l04808"></a><span·class="lineno">·4808</span> }</div><div·class="line"><a·name="l04809"></a><span·class="lineno">·4809</span> </div><div·class="line"><a·name="l04810"></a><span·class="lineno">·4810</span> <span·class="preprocessor">#**·@method·scalar·GetFieldDefn($name)</span></div><div·class="line"><a·name="l04811"></a><span·class="lineno">·4811</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04812"></a><span·class="lineno">·4812</span> <span·class="preprocessor">#·Get·the·definition·of·a·field.</span></div><div·class="line"><a·name="l04813"></a><span·class="lineno">·4813</span> <span·class="preprocessor">#·@param·name·the·name·of·the·field.</span></div><div·class="line"><a·name="l04814"></a><span·class="lineno">·4814</span> <span·class="preprocessor">#·@return·a·Geo::OGR::FieldDefn·object.</span></div><div·class="line"><a·name="l04815"></a><span·class="lineno">·4815</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04816"></a><span·class="lineno">·4816</span> sub·GetFieldDefn·{</div><div·class="line"><a·name="l04817"></a><span·class="lineno">·4817</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04818"></a><span·class="lineno">·4818</span> ····my·$field·=·$self->GetFieldIndex(shift);</div><div·class="line"><a·name="l04819"></a><span·class="lineno">·4819</span> ····<span·class="keywordflow">return</span>·$self->_GetFieldDefn($field);</div><div·class="line"><a·name="l04820"></a><span·class="lineno">·4820</span> }</div><div·class="line"><a·name="l04821"></a><span·class="lineno">·4821</span> </div><div·class="line"><a·name="l04822"></a><span·class="lineno">·4822</span> <span·class="preprocessor">#**·@method·list·GetFieldNames()</span></div><div·class="line"><a·name="l04823"></a><span·class="lineno">·4823</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04824"></a><span·class="lineno">·4824</span> <span·class="preprocessor">#·The·names·of·the·fields·in·this·layer·or·feature·definition.</span></div><div·class="line"><a·name="l04825"></a><span·class="lineno">·4825</span> <span·class="preprocessor">#·@return·the·list·of·field·names.</span></div><div·class="line"><a·name="l04826"></a><span·class="lineno">·4826</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04827"></a><span·class="lineno">·4827</span> sub·GetFieldNames·{</div><div·class="line"><a·name="l04828"></a><span·class="lineno">·4828</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04829"></a><span·class="lineno">·4829</span> ····my·@names·=·();</div><div·class="line"><a·name="l04830"></a><span·class="lineno">·4830</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$self->GetFieldCount-1)·{</div><div·class="line"><a·name="l04831"></a><span·class="lineno">·4831</span> ········push·@names,·$self->_GetFieldDefn($i)->Name;</div><div·class="line"><a·name="l04832"></a><span·class="lineno">·4832</span> ····}</div><div·class="line"><a·name="l04833"></a><span·class="lineno">·4833</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$self->GetGeomFieldCount-1)·{</div><div·class="line"><a·name="l04834"></a><span·class="lineno">·4834</span> ········push·@names,·$self->_GetGeomFieldDefn($i)->Name;</div><div·class="line"><a·name="l04835"></a><span·class="lineno">·4835</span> ····}</div><div·class="line"><a·name="l04836"></a><span·class="lineno">·4836</span> ····<span·class="keywordflow">return</span>·@names;</div><div·class="line"><a·name="l04837"></a><span·class="lineno">·4837</span> }</div><div·class="line"><a·name="l04838"></a><span·class="lineno">·4838</span> </div><div·class="line"><a·name="l04839"></a><span·class="lineno">·4839</span> <span·class="preprocessor">#**·@method·scalar·GetGeomFieldDefn($name)</span></div><div·class="line"><a·name="l04840"></a><span·class="lineno">·4840</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04841"></a><span·class="lineno">·4841</span> <span·class="preprocessor">#·Get·the·definition·of·a·spatial·field.</span></div><div·class="line"><a·name="l04842"></a><span·class="lineno">·4842</span> <span·class="preprocessor">#·@param·name·the·name·of·the·spatial·field.</span></div><div·class="line"><a·name="l04843"></a><span·class="lineno">·4843</span> <span·class="preprocessor">#·@return·a·Geo::OGR::GeomFieldDefn·object.</span></div><div·class="line"><a·name="l04844"></a><span·class="lineno">·4844</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04845"></a><span·class="lineno">·4845</span> sub·GetGeomFieldDefn·{</div><div·class="line"><a·name="l04846"></a><span·class="lineno">·4846</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04847"></a><span·class="lineno">·4847</span> ····my·$field·=·$self->GetGeomFieldIndex(shift);</div><div·class="line"><a·name="l04848"></a><span·class="lineno">·4848</span> ····<span·class="keywordflow">return</span>·$self->_GetGeomFieldDefn($field);</div><div·class="line"><a·name="l04849"></a><span·class="lineno">·4849</span> }</div><div·class="line"><a·name="l04850"></a><span·class="lineno">·4850</span> </div><div·class="line"><a·name="l04851"></a><span·class="lineno">·4851</span> <span·class="preprocessor">#**·@method·scalar·GetName()</span></div><div·class="line"><a·name="l04852"></a><span·class="lineno">·4852</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04853"></a><span·class="lineno">·4853</span> <span·class="preprocessor">#·@return·the·name·of·this·layer·or·feature·definition.</span></div><div·class="line"><a·name="l04854"></a><span·class="lineno">·4854</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04855"></a><span·class="lineno">·4855</span> sub·GetName·{</div><div·class="line"><a·name="l04856"></a><span·class="lineno">·4856</span> }</div><div·class="line"><a·name="l04857"></a><span·class="lineno">·4857</span> </div><div·class="line"><a·name="l04858"></a><span·class="lineno">·4858</span> <span·class="preprocessor">#**·@method·hash·reference·GetSchema()</span></div><div·class="line"><a·name="l04859"></a><span·class="lineno">·4859</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04860"></a><span·class="lineno">·4860</span> <span·class="preprocessor">#·@brief·Get·the·schema·of·this·feature·or·layer·definition.</span></div><div·class="line"><a·name="l04861"></a><span·class="lineno">·4861</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l04862"></a><span·class="lineno">·4862</span> <span·class="preprocessor">#·@return·the·schema·as·a·hash·whose·keywords·are·Name,·StyleIgnored</span></div><div·class="line"><a·name="l04863"></a><span·class="lineno">·4863</span> <span·class="preprocessor">#·and·Fields.·Fields·is·an·anonymous·array·of·first·non-spatial·and</span></div><div·class="line"><a·name="l04864"></a><span·class="lineno">·4864</span> <span·class="preprocessor">#·then·spatial·field·schemas·as·in·Geo::OGR::FieldDefn::Schema()·and</span></div><div·class="line"><a·name="l04865"></a><span·class="lineno">·4865</span> <span·class="preprocessor">#·Geo::OGR::GeomFieldDefn::Schema().</span></div><div·class="line"><a·name="l04866"></a><span·class="lineno">·4866</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04867"></a><span·class="lineno">·4867</span> sub·GetSchema·{</div><div·class="line"><a·name="l04868"></a><span·class="lineno">·4868</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l04869"></a><span·class="lineno">·4869</span> ····carp·<span·class="stringliteral">"Schema·of·a·feature·definition·should·not·be·set·directly."</span>·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l04870"></a><span·class="lineno">·4870</span> ····<span·class="keywordflow">if</span>·(@_·and·@_·%·2·==·0)·{</div><div·class="line"><a·name="l04871"></a><span·class="lineno">·4871</span> ········my·%schema·=·@_;</div><div·class="line"><a·name="l04872"></a><span·class="lineno">·4872</span> ········<span·class="keywordflow">if</span>·($schema{Fields})·{</div><div·class="line"><a·name="l04873"></a><span·class="lineno">·4873</span> ············<span·class="keywordflow">for</span>·my·$field·(@{$schema{Fields}})·{</div><div·class="line"><a·name="l04874"></a><span·class="lineno">·4874</span> ················$self->AddField($field);</div><div·class="line"><a·name="l04875"></a><span·class="lineno">·4875</span> ············}</div><div·class="line"><a·name="l04876"></a><span·class="lineno">·4876</span> ········}</div><div·class="line"><a·name="l04877"></a><span·class="lineno">·4877</span> ····}</div><div·class="line"><a·name="l04878"></a><span·class="lineno">·4878</span> ····my·%schema;</div><div·class="line"><a·name="l04879"></a><span·class="lineno">·4879</span> ····$schema{Name}·=·$self->Name();</div><div·class="line"><a·name="l04880"></a><span·class="lineno">·4880</span> ····$schema{StyleIgnored}·=·$self->StyleIgnored();</div><div·class="line"><a·name="l04881"></a><span·class="lineno">·4881</span> ····$schema{Fields}·=·[];</div><div·class="line"><a·name="l04882"></a><span·class="lineno">·4882</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$self->GetFieldCount-1)·{</div><div·class="line"><a·name="l04883"></a><span·class="lineno">·4883</span> ········my·$s·=·$self->_GetFieldDefn($i)->Schema;</div><div·class="line"><a·name="l04884"></a><span·class="lineno">·4884</span> ········push·@{$schema{Fields}},·$s;</div><div·class="line"><a·name="l04885"></a><span·class="lineno">·4885</span> ····}</div><div·class="line"><a·name="l04886"></a><span·class="lineno">·4886</span> ····<span·class="keywordflow">for</span>·my·$i·(0..$self->GetGeomFieldCount-1)·{</div><div·class="line"><a·name="l04887"></a><span·class="lineno">·4887</span> ········my·$s·=·$self->_GetGeomFieldDefn($i)->Schema;</div><div·class="line"><a·name="l04888"></a><span·class="lineno">·4888</span> ········push·@{$schema{Fields}},·$s;</div><div·class="line"><a·name="l04889"></a><span·class="lineno">·4889</span> ····}</div><div·class="line"><a·name="l04890"></a><span·class="lineno">·4890</span> ····<span·class="keywordflow">return</span>·wantarray·?·%schema·:·\%schema;</div><div·class="line"><a·name="l04891"></a><span·class="lineno">·4891</span> }</div><div·class="line"><a·name="l04892"></a><span·class="lineno">·4892</span> </div><div·class="line"><a·name="l04893"></a><span·class="lineno">·4893</span> <span·class="preprocessor">#**·@method·IsSame(Geo::OGR::FeatureDefn·defn)</span></div><div·class="line"><a·name="l04894"></a><span·class="lineno">·4894</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04895"></a><span·class="lineno">·4895</span> <span·class="preprocessor">#·@return·true·if·this·definition·is·similar·to·the·other·definition,</span></div><div·class="line"><a·name="l04896"></a><span·class="lineno">·4896</span> <span·class="preprocessor">#·false·otherwise.</span></div><div·class="line"><a·name="l04897"></a><span·class="lineno">·4897</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04898"></a><span·class="lineno">·4898</span> sub·IsSame·{</div><div·class="line"><a·name="l04899"></a><span·class="lineno">·4899</span> }</div><div·class="line"><a·name="l04900"></a><span·class="lineno">·4900</span> </div><div·class="line"><a·name="l04901"></a><span·class="lineno">·4901</span> <span·class="preprocessor">#**·@method·scalar·IsStyleIgnored()</span></div><div·class="line"><a·name="l04902"></a><span·class="lineno">·4902</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04903"></a><span·class="lineno">·4903</span> <span·class="preprocessor">#·Get·the·ignore·status·of·style·information·when·fetching·features.</span></div><div·class="line"><a·name="l04904"></a><span·class="lineno">·4904</span> <span·class="preprocessor">#·@return·the·ignore·status·of·style·information</span></div><div·class="line"><a·name="l04905"></a><span·class="lineno">·4905</span> <span·class="preprocessor">#·@since·1.9.0</span></div><div·class="line"><a·name="l04906"></a><span·class="lineno">·4906</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04907"></a><span·class="lineno">·4907</span> sub·IsStyleIgnored·{</div><div·class="line"><a·name="l04908"></a><span·class="lineno">·4908</span> }</div><div·class="line"><a·name="l04909"></a><span·class="lineno">·4909</span> </div><div·class="line"><a·name="l04910"></a><span·class="lineno">·4910</span> <span·class="preprocessor">#**·@method·SetStyleIgnored($IgnoreState)</span></div><div·class="line"><a·name="l04911"></a><span·class="lineno">·4911</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l04912"></a><span·class="lineno">·4912</span> <span·class="preprocessor">#·Set·the·ignore·status·of·style·information·when·fetching·features.</span></div><div·class="line"><a·name="l04913"></a><span·class="lineno">·4913</span> <span·class="preprocessor">#·@since·1.9.0</span></div><div·class="line"><a·name="l04914"></a><span·class="lineno">·4914</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04915"></a><span·class="lineno">·4915</span> sub·SetStyleIgnored·{</div><div·class="line"><a·name="l04916"></a><span·class="lineno">·4916</span> }</div><div·class="line"><a·name="l04917"></a><span·class="lineno">·4917</span> </div><div·class="line"><a·name="l04918"></a><span·class="lineno">·4918</span> <span·class="preprocessor">#**·@method·Geo::OGR::FeatureDefn·new(%schema)</span></div><div·class="line"><a·name="l04919"></a><span·class="lineno">·4919</span> <span·class="preprocessor">#·Class·method.</span></div><div·class="line"><a·name="l04920"></a><span·class="lineno">·4920</span> <span·class="preprocessor">#·Creates·a·new·layer·or·feature·definition.·The·new·definition·is</span></div><div·class="line"><a·name="l04921"></a><span·class="lineno">·4921</span> <span·class="preprocessor">#·either·initialized·to·the·given·schema·or·it·will·contain·no</span></div><div·class="line"><a·name="l04922"></a><span·class="lineno">·4922</span> <span·class="preprocessor">#·non-spatial·fields·and·one·spatial·field,·whose·Name·is·''·and</span></div><div·class="line"><a·name="l04923"></a><span·class="lineno">·4923</span> <span·class="preprocessor">#·GeometryType·is·'Unknown'·or·the·value·of·the·named·parameter</span></div><div·class="line"><a·name="l04924"></a><span·class="lineno">·4924</span> <span·class="preprocessor">#·GeometryType.</span></div><div·class="line"><a·name="l04925"></a><span·class="lineno">·4925</span> <span·class="preprocessor">#·@param·schema·[optional]·The·schema·for·the·new·feature·definition,</span></div><div·class="line"><a·name="l04926"></a><span·class="lineno">·4926</span> <span·class="preprocessor">#·as·in·Geo::OGR::FeatureDefn::Schema().</span></div><div·class="line"><a·name="l04927"></a><span·class="lineno">·4927</span> <span·class="preprocessor">#·@return·a·Geo::OGR::FeatureDefn·object</span></div><div·class="line"><a·name="l04928"></a><span·class="lineno">·4928</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l04929"></a><span·class="lineno">·4929</span> <span·class="preprocessor">#·Example·usage:</span></div><div·class="line"><a·name="l04930"></a><span·class="lineno">·4930</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l04931"></a><span·class="lineno">·4931</span> <span·class="preprocessor">#·$fd·=·Geo::OGR::FeatureDefn->new(</span></div><div·class="line"><a·name="l04932"></a><span·class="lineno">·4932</span> <span·class="preprocessor">#·····Name·=>·"name",</span></div><div·class="line"><a·name="l04933"></a><span·class="lineno">·4933</span> <span·class="preprocessor">#·····Fields·=>·[{·Name·=>·'field1',·Type·=>·'String'·},</span></div><div·class="line"><a·name="l04934"></a><span·class="lineno">·4934</span> <span·class="preprocessor">#················{·Name·=>·'geom',·GeometryType·=>·'Point'·}]·);</span></div><div·class="line"><a·name="l04935"></a><span·class="lineno">·4935</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l04936"></a><span·class="lineno">·4936</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04937"></a><span·class="lineno">·4937</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l04938"></a><span·class="lineno">·4938</span> ····my·$pkg·=·shift;</div><div·class="line"><a·name="l04939"></a><span·class="lineno">·4939</span> ····my·%schema;</div><div·class="line"><a·name="l04940"></a><span·class="lineno">·4940</span> ····<span·class="keywordflow">if</span>·(@_·==·1·and·ref($_[0])·eq·<span·class="stringliteral">'HASH'</span>)·{</div><div·class="line"><a·name="l04941"></a><span·class="lineno">·4941</span> ········%schema·=·%{$_[0]};</div><div·class="line"><a·name="l04942"></a><span·class="lineno">·4942</span> ····}·elsif·(@_·and·@_·%·2·==·0)·{</div><div·class="line"><a·name="l04943"></a><span·class="lineno">·4943</span> ········%schema·=·@_;</div><div·class="line"><a·name="l04944"></a><span·class="lineno">·4944</span> ····}</div><div·class="line"><a·name="l04945"></a><span·class="lineno">·4945</span> ····my·$fields·=·$schema{Fields};</div><div·class="line"><a·name="l04946"></a><span·class="lineno">·4946</span> ····error(<span·class="stringliteral">"The·'Fields'·argument·must·be·an·array·reference."</span>)·<span·class="keywordflow">if</span>·$fields·and·ref($fields)·ne·<span·class="stringliteral">'ARRAY'</span>;</div><div·class="line"><a·name="l04947"></a><span·class="lineno">·4947</span> ····$schema{Name}·<span·class="comment">//=·'';</span></div><div·class="line"><a·name="l04948"></a><span·class="lineno">·4948</span> ····my·$self·=·Geo::OGRc::new_FeatureDefn($schema{Name});</div><div·class="line"><a·name="l04949"></a><span·class="lineno">·4949</span> ····bless·$self,·$pkg;</div><div·class="line"><a·name="l04950"></a><span·class="lineno">·4950</span> ····my·$gt·=·$schema{GeometryType};</div><div·class="line"><a·name="l04951"></a><span·class="lineno">·4951</span> ····<span·class="keywordflow">if</span>·($gt)·{</div><div·class="line"><a·name="l04952"></a><span·class="lineno">·4952</span> ········$self->GeometryType($gt);</div><div·class="line"><a·name="l04953"></a><span·class="lineno">·4953</span> ····}·elsif·($fields)·{</div><div·class="line"><a·name="l04954"></a><span·class="lineno">·4954</span> ········$self->DeleteGeomFieldDefn(0);</div><div·class="line"><a·name="l04955"></a><span·class="lineno">·4955</span> ····}</div><div·class="line"><a·name="l04956"></a><span·class="lineno">·4956</span> ····$self->StyleIgnored($schema{StyleIgnored})·<span·class="keywordflow">if</span>·exists·$schema{StyleIgnored};</div><div·class="line"><a·name="l04957"></a><span·class="lineno">·4957</span> ····<span·class="keywordflow">for</span>·my·$fd·(@{$fields})·{</div><div·class="line"><a·name="l04958"></a><span·class="lineno">·4958</span> ········my·$d·=·$fd;</div><div·class="line"><a·name="l04959"></a><span·class="lineno">·4959</span> ········<span·class="keywordflow">if</span>·(ref($fd)·eq·<span·class="stringliteral">'HASH'</span>)·{</div><div·class="line"><a·name="l04960"></a><span·class="lineno">·4960</span> <span·class="preprocessor">············#·if·Name·and·Type·are·missing,·assume·Name·=>·Type</span></div><div·class="line"><a·name="l04961"></a><span·class="lineno">·4961</span> ············<span·class="keywordflow">if</span>·(!(exists·$fd->{Name}·&&·exists·$fd->{Type}))·{</div><div·class="line"><a·name="l04962"></a><span·class="lineno">·4962</span> ················<span·class="keywordflow">for</span>·my·$key·(sort·keys·%$fd)·{</div><div·class="line"><a·name="l04963"></a><span·class="lineno">·4963</span> ····················<span·class="keywordflow">if</span>·(s_exists(field_type·=>·$fd->{$key})·||</div><div·class="line"><a·name="l04964"></a><span·class="lineno">·4964</span> ························s_exists(geometry_type·=>·$fd->{$key}))</div><div·class="line"><a·name="l04965"></a><span·class="lineno">·4965</span> ····················{</div><div·class="line"><a·name="l04966"></a><span·class="lineno">·4966</span> ························$fd->{Name}·=·$key;</div><div·class="line"><a·name="l04967"></a><span·class="lineno">·4967</span> ························$fd->{Type}·=·$fd->{$key};</div><div·class="line"><a·name="l04968"></a><span·class="lineno">·4968</span> ························<span·class="keyword">delete</span>·$fd->{$key};</div><div·class="line"><a·name="l04969"></a><span·class="lineno">·4969</span> ························last;</div><div·class="line"><a·name="l04970"></a><span·class="lineno">·4970</span> ····················}</div><div·class="line"><a·name="l04971"></a><span·class="lineno">·4971</span> ················}</div><div·class="line"><a·name="l04972"></a><span·class="lineno">·4972</span> ············}</div><div·class="line"><a·name="l04973"></a><span·class="lineno">·4973</span> ············<span·class="keywordflow">if</span>·($fd->{GeometryType}·or·($fd->{Type}·&&·s_exists(geometry_type·=>·$fd->{Type})))·{</div><div·class="line"><a·name="l04974"></a><span·class="lineno">·4974</span> ················$d·=·<a·class="code"·href="classGeo_1_1OGR_1_1GeomFieldDefn.html">Geo::OGR::GeomFieldDefn</a>-><a·class="code"·href="classGeo_1_1OGR_1_1GeomFieldDefn.html#a390438ea74069f3ed6cc79935c986830">new</a>(%$fd);</div><div·class="line"><a·name="l04975"></a><span·class="lineno">·4975</span> ············}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l04976"></a><span·class="lineno">·4976</span> ················$d·=·<a·class="code"·href="classGeo_1_1OGR_1_1FieldDefn.html">Geo::OGR::FieldDefn</a>-><a·class="code"·href="classGeo_1_1OGR_1_1FieldDefn.html#a02f94b3023e631aad8574caf0eff8491">new</a>(%$fd);</div><div·class="line"><a·name="l04977"></a><span·class="lineno">·4977</span> ············}</div><div·class="line"><a·name="l04978"></a><span·class="lineno">·4978</span> ········}</div><div·class="line"><a·name="l04979"></a><span·class="lineno">·4979</span> ········<span·class="keywordflow">if</span>·(blessed($d)·and·$d->isa(<span·class="stringliteral">'Geo::OGR::FieldDefn'</span>))·{</div><div·class="line"><a·name="l04980"></a><span·class="lineno">·4980</span> ············AddFieldDefn($self,·$d);</div><div·class="line"><a·name="l04981"></a><span·class="lineno">·4981</span> ········}·elsif·(blessed($d)·and·$d->isa(<span·class="stringliteral">'Geo::OGR::GeomFieldDefn'</span>))·{</div><div·class="line"><a·name="l04982"></a><span·class="lineno">·4982</span> ············error(<span·class="stringliteral">"Do·not·mix·GeometryType·and·geometry·fields·in·Fields."</span>)·<span·class="keywordflow">if</span>·$gt;</div><div·class="line"><a·name="l04983"></a><span·class="lineno">·4983</span> ············AddGeomFieldDefn($self,·$d);</div><div·class="line"><a·name="l04984"></a><span·class="lineno">·4984</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l04985"></a><span·class="lineno">·4985</span> ············error(<span·class="stringliteral">"Item·in·field·list·does·not·define·a·field."</span>);</div><div·class="line"><a·name="l04986"></a><span·class="lineno">·4986</span> ········}</div><div·class="line"><a·name="l04987"></a><span·class="lineno">·4987</span> ····}</div><div·class="line"><a·name="l04988"></a><span·class="lineno">·4988</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l04989"></a><span·class="lineno">·4989</span> }</div><div·class="line"><a·name="l04990"></a><span·class="lineno">·4990</span> </div><div·class="line"><a·name="l04991"></a><span·class="lineno">·4991</span> <span·class="preprocessor">#**·@class·Geo::OGR::FieldDefn</span></div><div·class="line"><a·name="l04992"></a><span·class="lineno">·4992</span> <span·class="preprocessor">#·@brief·A·definition·of·a·non-spatial·attribute.</span></div><div·class="line"><a·name="l04993"></a><span·class="lineno">·4993</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l04994"></a><span·class="lineno">·4994</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l04995"></a><span·class="lineno">·4995</span> <span·class="keyword">package·</span>Geo::OGR::FieldDefn;</div><div·class="line"><a·name="l04996"></a><span·class="lineno">·4996</span> </div><div·class="line"><a·name="l04997"></a><span·class="lineno">·4997</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1OGR.html">Geo::OGR</a>)</div><div·class="line"><a·name="l04998"></a><span·class="lineno">·4998</span> </div><div·class="line"><a·name="l04999"></a><span·class="lineno">·4999</span> <span·class="preprocessor">#**·@method·scalar·Default($value)</span></div><div·class="line"><a·name="l05000"></a><span·class="lineno">·5000</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05001"></a><span·class="lineno">·5001</span> <span·class="preprocessor">#·Get·or·set·the·default·value·for·this·field.</span></div><div·class="line"><a·name="l05002"></a><span·class="lineno">·5002</span> <span·class="preprocessor">#·@note·a.k.a.·GetDefault·and·SetDefault</span></div><div·class="line"><a·name="l05003"></a><span·class="lineno">·5003</span> <span·class="preprocessor">#·@param·value·[optional]</span></div><div·class="line"><a·name="l05004"></a><span·class="lineno">·5004</span> <span·class="preprocessor">#·@return·the·default·value·of·this·field·in·non-void·context.</span></div><div·class="line"><a·name="l05005"></a><span·class="lineno">·5005</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05006"></a><span·class="lineno">·5006</span> sub·Default·{</div><div·class="line"><a·name="l05007"></a><span·class="lineno">·5007</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05008"></a><span·class="lineno">·5008</span> ····SetDefault($self,·$_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l05009"></a><span·class="lineno">·5009</span> ····GetDefault($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05010"></a><span·class="lineno">·5010</span> }</div><div·class="line"><a·name="l05011"></a><span·class="lineno">·5011</span> </div><div·class="line"><a·name="l05012"></a><span·class="lineno">·5012</span> <span·class="preprocessor">#**·@method·GetSchema()</span></div><div·class="line"><a·name="l05013"></a><span·class="lineno">·5013</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05014"></a><span·class="lineno">·5014</span> sub·GetSchema·{</div><div·class="line"><a·name="l05015"></a><span·class="lineno">·5015</span> }</div><div·class="line"><a·name="l05016"></a><span·class="lineno">·5016</span> </div><div·class="line"><a·name="l05017"></a><span·class="lineno">·5017</span> <span·class="preprocessor">#**·@method·scalar·Ignored($ignore)</span></div><div·class="line"><a·name="l05018"></a><span·class="lineno">·5018</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05019"></a><span·class="lineno">·5019</span> <span·class="preprocessor">#·Get·and/or·set·the·ignore·status·(whether·this·field·should·be</span></div><div·class="line"><a·name="l05020"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Driver.html">·5020</a></span> <span·class="preprocessor">#·omitted·when·fetching·features)·of·this·field.</span></div><div·class="line"><a·name="l05021"></a><span·class="lineno">·5021</span> <span·class="preprocessor">#·@note·a.k.a.·IsIgnored,·SetIgnored</span></div><div·class="line"><a·name="l05022"></a><span·class="lineno">·5022</span> <span·class="preprocessor">#·@param·ignore·[optional]</span></div><div·class="line"><a·name="l05023"></a><span·class="lineno">·5023</span> <span·class="preprocessor">#·@return·the·ignore·status·of·this·field·in·non-void·context.</span></div><div·class="line"><a·name="l05024"></a><span·class="lineno">·5024</span> <span·class="preprocessor">#·@since·1.9.0</span></div><div·class="line"><a·name="l05025"></a><span·class="lineno">·5025</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05026"></a><span·class="lineno">·5026</span> sub·Ignored·{</div><div·class="line"><a·name="l05027"></a><span·class="lineno">·5027</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05028"></a><span·class="lineno">·5028</span> ····SetIgnored($self,·$_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l05029"></a><span·class="lineno">·5029</span> ····IsIgnored($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05030"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Driver.html#a70cc3f50741869d9e7fc29de47241266">·5030</a></span> }</div><div·class="line"><a·name="l05031"></a><span·class="lineno">·5031</span> </div><div·class="line"><a·name="l05032"></a><span·class="lineno">·5032</span> <span·class="preprocessor">#**·@method·IsDefaultDriverSpecific()</span></div><div·class="line"><a·name="l05033"></a><span·class="lineno">·5033</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05034"></a><span·class="lineno">·5034</span> sub·IsDefaultDriverSpecific·{</div><div·class="line"><a·name="l05035"></a><span·class="lineno">·5035</span> }</div><div·class="line"><a·name="l05036"></a><span·class="lineno">·5036</span> </div><div·class="line"><a·name="l05037"></a><span·class="lineno">·5037</span> <span·class="preprocessor">#**·@method·scalar·Justify($justify)</span></div><div·class="line"><a·name="l05038"></a><span·class="lineno">·5038</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05039"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Driver.html#a064b502d82c0c54d9116ef9227521fac">·5039</a></span> <span·class="preprocessor">#·Get·and/or·set·the·justification·of·this·field.</span></div><div·class="line"><a·name="l05040"></a><span·class="lineno">·5040</span> <span·class="preprocessor">#·@note·a.k.a.·GetJustify,·SetJustify</span></div><div·class="line"><a·name="l05041"></a><span·class="lineno">·5041</span> <span·class="preprocessor">#·@param·justify·[optional]·One·of·field·justify·types·(Geo::OGR::FieldDefn::JustifyValues).</span></div><div·class="line"><a·name="l05042"></a><span·class="lineno">·5042</span> <span·class="preprocessor">#·@return·the·justify·value·of·this·field·in·non-void·context.</span></div><div·class="line"><a·name="l05043"></a><span·class="lineno">·5043</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05044"></a><span·class="lineno">·5044</span> sub·Justify·{</div><div·class="line"><a·name="l05045"></a><span·class="lineno">·5045</span> ····my($self,·$justify)·=·@_;</div><div·class="line"><a·name="l05046"></a><span·class="lineno">·5046</span> ····<span·class="keywordflow">if</span>·(defined·$justify)·{</div><div·class="line"><a·name="l05047"></a><span·class="lineno">·5047</span> ········$justify·=·s2i(justify·=>·$justify);</div><div·class="line"><a·name="l05048"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Driver.html#a1e0df413ac79deb042fa0c4d7dc11815">·5048</a></span> ········SetJustify($self,·$justify);</div><div·class="line"><a·name="l05049"></a><span·class="lineno">·5049</span> ····}</div><div·class="line"><a·name="l05050"></a><span·class="lineno">·5050</span> ····<span·class="keywordflow">return</span>·i2s(justify·=>·GetJustify($self))·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05051"></a><span·class="lineno">·5051</span> }</div><div·class="line"><a·name="l05052"></a><span·class="lineno">·5052</span> </div><div·class="line"><a·name="l05053"></a><span·class="lineno">·5053</span> <span·class="preprocessor">#**·@method·list·JustifyValues()</span></div><div·class="line"><a·name="l05054"></a><span·class="lineno">·5054</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l05055"></a><span·class="lineno">·5055</span> <span·class="preprocessor">#·Justify·values·supported·by·GDAL.·Current·list·is</span></div><div·class="line"><a·name="l05056"></a><span·class="lineno">·5056</span> <span·class="preprocessor">#·Left,·Right,·and·Undefined.</span></div><div·class="line"><a·name="l05057"></a><span·class="lineno">·5057</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05058"></a><span·class="lineno">·5058</span> sub·JustifyValues·{</div><div·class="line"><a·name="l05059"></a><span·class="lineno">·5059</span> ····<span·class="keywordflow">return</span>·@JUSTIFY;</div><div·class="line"><a·name="l05060"></a><span·class="lineno">·5060</span> }</div><div·class="line"><a·name="l05061"></a><span·class="lineno">·5061</span> </div><div·class="line"><a·name="l05062"></a><span·class="lineno">·5062</span> <span·class="preprocessor">#**·@method·scalar·Name($name)</span></div><div·class="line"><a·name="l05063"></a><span·class="lineno">·5063</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05064"></a><span·class="lineno">·5064</span> <span·class="preprocessor">#·Get·and/or·set·the·name·of·the·field.</span></div><div·class="line"><a·name="l05065"></a><span·class="lineno">·5065</span> <span·class="preprocessor">#·@note·a.k.a.·GetName,·GetNameRef,·SetName</span></div><div·class="line"><a·name="l05066"></a><span·class="lineno">·5066</span> <span·class="preprocessor">#·@param·name·[optional]</span></div><div·class="line"><a·name="l05067"></a><span·class="lineno">·5067</span> <span·class="preprocessor">#·@return·the·name·in·non-void·context</span></div><div·class="line"><a·name="l05068"></a><span·class="lineno">·5068</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05069"></a><span·class="lineno">·5069</span> sub·Name·{</div><div·class="line"><a·name="l05070"></a><span·class="lineno">·5070</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05071"></a><span·class="lineno">·5071</span> ····SetName($self,·$_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l05072"></a><span·class="lineno">·5072</span> ····GetName($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05073"></a><span·class="lineno">·5073</span> }</div><div·class="line"><a·name="l05074"></a><span·class="lineno">·5074</span> </div><div·class="line"><a·name="l05075"></a><span·class="lineno">·5075</span> <span·class="preprocessor">#**·@method·scalar·Nullable($nullable)</span></div><div·class="line"><a·name="l05076"></a><span·class="lineno">·5076</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05077"></a><span·class="lineno">·5077</span> <span·class="preprocessor">#·Get·or·set·the·nullable·constraint·for·this·field.</span></div><div·class="line"><a·name="l05078"></a><span·class="lineno">·5078</span> <span·class="preprocessor">#·@note·a.k.a.·IsNullable·and·SetNullable</span></div><div·class="line"><a·name="l05079"></a><span·class="lineno">·5079</span> <span·class="preprocessor">#·@param·nullable·[optional]</span></div><div·class="line"><a·name="l05080"></a><span·class="lineno">·5080</span> <span·class="preprocessor">#·@return·the·nullable·value·of·this·field·in·non-void·context.</span></div><div·class="line"><a·name="l05081"></a><span·class="lineno">·5081</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05082"></a><span·class="lineno">·5082</span> sub·Nullable·{</div><div·class="line"><a·name="l05083"></a><span·class="lineno">·5083</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05084"></a><span·class="lineno">·5084</span> ····SetNullable($self,·$_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l05085"></a><span·class="lineno">·5085</span> ····IsNullable($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05086"></a><span·class="lineno">·5086</span> }</div><div·class="line"><a·name="l05087"></a><span·class="lineno">·5087</span> </div><div·class="line"><a·name="l05088"></a><span·class="lineno">·5088</span> <span·class="preprocessor">#**·@method·scalar·Precision($precision)</span></div><div·class="line"><a·name="l05089"></a><span·class="lineno">·5089</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05090"></a><span·class="lineno">·5090</span> <span·class="preprocessor">#·Get·and/or·set·the·precision·of·this·field.</span></div><div·class="line"><a·name="l05091"></a><span·class="lineno">·5091</span> <span·class="preprocessor">#·@note·a.k.a.·GetPrecision,·SetPrecision</span></div><div·class="line"><a·name="l05092"></a><span·class="lineno">·5092</span> <span·class="preprocessor">#·@param·precision·[optional]</span></div><div·class="line"><a·name="l05093"></a><span·class="lineno">·5093</span> <span·class="preprocessor">#·@return·the·precision·of·this·field·in·non-void·context.</span></div><div·class="line"><a·name="l05094"></a><span·class="lineno">·5094</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05095"></a><span·class="lineno">·5095</span> sub·Precision·{</div><div·class="line"><a·name="l05096"></a><span·class="lineno">·5096</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05097"></a><span·class="lineno">·5097</span> ····SetPrecision($self,·$_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l05098"></a><span·class="lineno">·5098</span> ····GetPrecision($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05099"></a><span·class="lineno">·5099</span> }</div><div·class="line"><a·name="l05100"></a><span·class="lineno">·5100</span> </div><div·class="line"><a·name="l05101"></a><span·class="lineno">·5101</span> <span·class="preprocessor">#**·@method·hash·reference·Schema(%params)</span></div><div·class="line"><a·name="l05102"></a><span·class="lineno">·5102</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05103"></a><span·class="lineno">·5103</span> <span·class="preprocessor">#·Get·the·schema·or·set·parts·of·the·schema</span></div><div·class="line"><a·name="l05104"></a><span·class="lineno">·5104</span> <span·class="preprocessor">#·@param·params·[optional]·as·those·in·Geo::OGR::FieldDefn::new.</span></div><div·class="line"><a·name="l05105"></a><span·class="lineno">·5105</span> <span·class="preprocessor">#·@return·a·reference·to·a·hash·whose·keys·are·as·those·in·Geo::OGR::FieldDefn::new.</span></div><div·class="line"><a·name="l05106"></a><span·class="lineno">·5106</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05107"></a><span·class="lineno">·5107</span> sub·Schema·{</div><div·class="line"><a·name="l05108"></a><span·class="lineno">·5108</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05109"></a><span·class="lineno">·5109</span> ····<span·class="keywordflow">if</span>·(@_)·{</div><div·class="line"><a·name="l05110"></a><span·class="lineno">·5110</span> ········my·$params·=·@_·%·2·==·0·?·{@_}·:·shift;</div><div·class="line"><a·name="l05111"></a><span·class="lineno">·5111</span> ········<span·class="keywordflow">for</span>·my·$key·(keys·%SCHEMA_KEYS)·{</div><div·class="line"><a·name="l05112"></a><span·class="lineno">·5112</span> ············next·unless·exists·$params->{$key};</div><div·class="line"><a·name="l05113"></a><span·class="lineno">·5113</span> ············eval·<span·class="stringliteral">"\$self->$key(\$params->{$key})"</span>;</div><div·class="line"><a·name="l05114"></a><span·class="lineno">·5114</span> ············confess(last_error())·if·$@;</div><div·class="line"><a·name="l05115"></a><span·class="lineno">·5115</span> ········}</div><div·class="line"><a·name="l05116"></a><span·class="lineno">·5116</span> ····}</div><div·class="line"><a·name="l05117"></a><span·class="lineno">·5117</span> ····return·unless·defined·wantarray;</div><div·class="line"><a·name="l05118"></a><span·class="lineno">·5118</span> ····my·%schema·=·();</div><div·class="line"><a·name="l05119"></a><span·class="lineno">·5119</span> ····for·my·$key·(keys·%SCHEMA_KEYS)·{</div><div·class="line"><a·name="l05120"></a><span·class="lineno">·5120</span> ········$schema{$key}·=·eval·<span·class="stringliteral">'$self->'</span>.$key;</div><div·class="line"><a·name="l05121"></a><span·class="lineno">·5121</span> ····}</div><div·class="line"><a·name="l05122"></a><span·class="lineno">·5122</span> ····<span·class="keywordflow">return</span>·wantarray·?·%schema·:·\%schema;</div><div·class="line"><a·name="l05123"></a><span·class="lineno">·5123</span> }</div><div·class="line"><a·name="l05124"></a><span·class="lineno">·5124</span> </div><div·class="line"><a·name="l05125"></a><span·class="lineno">·5125</span> <span·class="preprocessor">#**·@method·SetSchema()</span></div><div·class="line"><a·name="l05126"></a><span·class="lineno">·5126</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05127"></a><span·class="lineno">·5127</span> sub·SetSchema·{</div><div·class="line"><a·name="l05128"></a><span·class="lineno">·5128</span> }</div><div·class="line"><a·name="l05129"></a><span·class="lineno">·5129</span> </div><div·class="line"><a·name="l05130"></a><span·class="lineno">·5130</span> <span·class="preprocessor">#**·@method·scalar·SubType($SubType)</span></div><div·class="line"><a·name="l05131"></a><span·class="lineno">·5131</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05132"></a><span·class="lineno">·5132</span> <span·class="preprocessor">#·@note·a.k.a.·GetSubType,·SetSubType</span></div><div·class="line"><a·name="l05133"></a><span·class="lineno">·5133</span> <span·class="preprocessor">#·@param·SubType·[optional]·One·of·field·sub·types·(Geo::OGR::FieldDefn::SubTypes).</span></div><div·class="line"><a·name="l05134"></a><span·class="lineno">·5134</span> <span·class="preprocessor">#·@return·the·sub·type·of·this·field·in·non-void·context.</span></div><div·class="line"><a·name="l05135"></a><span·class="lineno">·5135</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05136"></a><span·class="lineno">·5136</span> sub·SubType·{</div><div·class="line"><a·name="l05137"></a><span·class="lineno">·5137</span> ····my($self,·$subtype)·=·@_;</div><div·class="line"><a·name="l05138"></a><span·class="lineno">·5138</span> ····<span·class="keywordflow">if</span>·(defined·$subtype)·{</div><div·class="line"><a·name="l05139"></a><span·class="lineno">·5139</span> ········$subtype·=·s2i(field_subtype·=>·$subtype);</div><div·class="line"><a·name="l05140"></a><span·class="lineno">·5140</span> ········SetSubType($self,·$subtype);</div><div·class="line"><a·name="l05141"></a><span·class="lineno">·5141</span> ····}</div><div·class="line"><a·name="l05142"></a><span·class="lineno">·5142</span> ····<span·class="keywordflow">return</span>·i2s(field_subtype·=>·GetSubType($self))·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05143"></a><span·class="lineno">·5143</span> }</div><div·class="line"><a·name="l05144"></a><span·class="lineno">·5144</span> </div><div·class="line"><a·name="l05145"></a><span·class="lineno">·5145</span> <span·class="preprocessor">#**·@method·SubTypes()</span></div><div·class="line"><a·name="l05146"></a><span·class="lineno">·5146</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05147"></a><span·class="lineno">·5147</span> sub·SubTypes·{</div><div·class="line"><a·name="l05148"></a><span·class="lineno">·5148</span> ····<span·class="keywordflow">return</span>·@SUBTYPES;</div><div·class="line"><a·name="l05149"></a><span·class="lineno">·5149</span> }</div><div·class="line"><a·name="l05150"></a><span·class="lineno">·5150</span> </div><div·class="line"><a·name="l05151"></a><span·class="lineno">·5151</span> <span·class="preprocessor">#**·@method·scalar·Type($type)</span></div><div·class="line"><a·name="l05152"></a><span·class="lineno">·5152</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05153"></a><span·class="lineno">·5153</span> <span·class="preprocessor">#·Get·and/or·set·the·type·of·the·field.</span></div><div·class="line"><a·name="l05154"></a><span·class="lineno">·5154</span> <span·class="preprocessor">#·@note·a.k.a.·GetFieldTypeName,·GetTypeName,·GetType,·SetType</span></div><div·class="line"><a·name="l05155"></a><span·class="lineno">·5155</span> <span·class="preprocessor">#·@param·type·[optional]·One·of·field·types·(Geo::OGR::FieldDefn::Types).</span></div><div·class="line"><a·name="l05156"></a><span·class="lineno">·5156</span> <span·class="preprocessor">#·@return·one·of·field·types·in·non-void·context.</span></div><div·class="line"><a·name="l05157"></a><span·class="lineno">·5157</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05158"></a><span·class="lineno">·5158</span> sub·Type·{</div><div·class="line"><a·name="l05159"></a><span·class="lineno">·5159</span> ····my($self,·$type)·=·@_;</div><div·class="line"><a·name="l05160"></a><span·class="lineno">·5160</span> ····<span·class="keywordflow">if</span>·(defined·$type)·{</div><div·class="line"><a·name="l05161"></a><span·class="lineno">·5161</span> ········$type·=·s2i(field_type·=>·$type);</div><div·class="line"><a·name="l05162"></a><span·class="lineno">·5162</span> ········SetType($self,·$type);</div><div·class="line"><a·name="l05163"></a><span·class="lineno">·5163</span> ····}</div><div·class="line"><a·name="l05164"></a><span·class="lineno">·5164</span> ····<span·class="keywordflow">return</span>·i2s(field_type·=>·GetType($self))·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05165"></a><span·class="lineno">·5165</span> }</div><div·class="line"><a·name="l05166"></a><span·class="lineno">·5166</span> </div><div·class="line"><a·name="l05167"></a><span·class="lineno">·5167</span> <span·class="preprocessor">#**·@method·list·Types()</span></div><div·class="line"><a·name="l05168"></a><span·class="lineno">·5168</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l05169"></a><span·class="lineno">·5169</span> <span·class="preprocessor">#·Field·types·supported·by·GDAL.·Current·list·is</span></div><div·class="line"><a·name="l05170"></a><span·class="lineno">·5170</span> <span·class="preprocessor">#·Binary,·Date,·DateTime,·Integer,·Integer64,·Integer64List,·IntegerList,·Real,·RealList,·String,·StringList,·Time,·WideString,·and·WideStringList.</span></div><div·class="line"><a·name="l05171"></a><span·class="lineno">·5171</span> <span·class="preprocessor">#·(However,·WideString·is·not·supported.)</span></div><div·class="line"><a·name="l05172"></a><span·class="lineno">·5172</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05173"></a><span·class="lineno">·5173</span> sub·Types·{</div><div·class="line"><a·name="l05174"></a><span·class="lineno">·5174</span> ····<span·class="keywordflow">return</span>·@TYPES;</div><div·class="line"><a·name="l05175"></a><span·class="lineno">·5175</span> }</div><div·class="line"><a·name="l05176"></a><span·class="lineno">·5176</span> </div><div·class="line"><a·name="l05177"></a><span·class="lineno">·5177</span> <span·class="preprocessor">#**·@method·scalar·Width($width)</span></div><div·class="line"><a·name="l05178"></a><span·class="lineno">·5178</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05179"></a><span·class="lineno">·5179</span> <span·class="preprocessor">#·Get·and/or·set·the·field·width.</span></div><div·class="line"><a·name="l05180"></a><span·class="lineno">·5180</span> <span·class="preprocessor">#·@note·a.k.a.·GetWidth,·SetWidth</span></div><div·class="line"><a·name="l05181"></a><span·class="lineno">·5181</span> <span·class="preprocessor">#·@param·width·[optional]</span></div><div·class="line"><a·name="l05182"></a><span·class="lineno">·5182</span> <span·class="preprocessor">#·@return·the·width·of·this·field·in·non-void·context.</span></div><div·class="line"><a·name="l05183"></a><span·class="lineno">·5183</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05184"></a><span·class="lineno">·5184</span> sub·Width·{</div><div·class="line"><a·name="l05185"></a><span·class="lineno">·5185</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05186"></a><span·class="lineno">·5186</span> ····SetWidth($self,·$_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l05187"></a><span·class="lineno">·5187</span> ····GetWidth($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05188"></a><span·class="lineno">·5188</span> }</div><div·class="line"><a·name="l05189"></a><span·class="lineno">·5189</span> </div><div·class="line"><a·name="l05190"></a><span·class="lineno">·5190</span> <span·class="preprocessor">#**·@method·Geo::OGR::FieldDefn·new(%params)</span></div><div·class="line"><a·name="l05191"></a><span·class="lineno">·5191</span> <span·class="preprocessor">#·Class·method.</span></div><div·class="line"><a·name="l05192"></a><span·class="lineno">·5192</span> <span·class="preprocessor">#·@brief·Create·a·new·field·definition.</span></div><div·class="line"><a·name="l05193"></a><span·class="lineno">·5193</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l05194"></a><span·class="lineno">·5194</span> <span·class="preprocessor">#·@param·Named·parameters:</span></div><div·class="line"><a·name="l05195"></a><span·class="lineno">·5195</span> <span·class="preprocessor">#·-·\a·Name·Field·name·(default·is·'unnamed').</span></div><div·class="line"><a·name="l05196"></a><span·class="lineno">·5196</span> <span·class="preprocessor">#·-·\a·Type·Field·type,·one·of·Geo::OGR::FieldDefn::Types·(default·is·'String').</span></div><div·class="line"><a·name="l05197"></a><span·class="lineno">·5197</span> <span·class="preprocessor">#·-·\a·SubType·Field·sub·type,·one·of·Geo::OGR::FieldDefn::SubTypes.</span></div><div·class="line"><a·name="l05198"></a><span·class="lineno">·5198</span> <span·class="preprocessor">#·-·\a·Justify·Justify·value,·one·of·Geo::OGR::FieldDefn::JustifyValues</span></div><div·class="line"><a·name="l05199"></a><span·class="lineno">·5199</span> <span·class="preprocessor">#·-·\a·Width</span></div><div·class="line"><a·name="l05200"></a><span·class="lineno">·5200</span> <span·class="preprocessor">#·-·\a·Precision</span></div><div·class="line"><a·name="l05201"></a><span·class="lineno">·5201</span> <span·class="preprocessor">#·-·\a·Nullable·(default·is·true)</span></div><div·class="line"><a·name="l05202"></a><span·class="lineno">·5202</span> <span·class="preprocessor">#·-·\a·Default</span></div><div·class="line"><a·name="l05203"></a><span·class="lineno">·5203</span> <span·class="preprocessor">#·-·\a·Ignored·(default·is·false)</span></div><div·class="line"><a·name="l05204"></a><span·class="lineno">·5204</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l05205"></a><span·class="lineno">·5205</span> <span·class="preprocessor">#·@note·Simplified·parameters·Name·=>·'Type'·are·also·supported.</span></div><div·class="line"><a·name="l05206"></a><span·class="lineno">·5206</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l05207"></a><span·class="lineno">·5207</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::FieldDefn·object</span></div><div·class="line"><a·name="l05208"></a><span·class="lineno">·5208</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05209"></a><span·class="lineno">·5209</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l05210"></a><span·class="lineno">·5210</span> ····my·$pkg·=·shift;</div><div·class="line"><a·name="l05211"></a><span·class="lineno">·5211</span> ····my·$params·=·{Name·=>·<span·class="stringliteral">'unnamed'</span>,·Type·=>·<span·class="stringliteral">'String'</span>};</div><div·class="line"><a·name="l05212"></a><span·class="lineno">·5212</span> ····<span·class="keywordflow">if</span>·(@_·==·0)·{</div><div·class="line"><a·name="l05213"></a><span·class="lineno">·5213</span> ····}·elsif·(@_·==·1·and·not·ref·$_[0])·{</div><div·class="line"><a·name="l05214"></a><span·class="lineno">·5214</span> ········$params->{Name}·=·shift;</div><div·class="line"><a·name="l05215"></a><span·class="lineno">·5215</span> ····}·elsif·(@_·==·2·and·not·$Geo::OGR::FieldDefn::SCHEMA_KEYS{$_[0]})·{</div><div·class="line"><a·name="l05216"></a><span·class="lineno">·5216</span> ········$params->{Name}·=·shift;</div><div·class="line"><a·name="l05217"></a><span·class="lineno">·5217</span> ········$params->{Type}·=·shift;</div><div·class="line"><a·name="l05218"></a><span·class="lineno">·5218</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l05219"></a><span·class="lineno">·5219</span> ········my·$tmp·=·@_·%·2·==·0·?·{@_}·:·shift;</div><div·class="line"><a·name="l05220"></a><span·class="lineno">·5220</span> ········<span·class="keywordflow">for</span>·my·$key·(keys·%$tmp)·{</div><div·class="line"><a·name="l05221"></a><span·class="lineno">·5221</span> ············<span·class="keywordflow">if</span>·($Geo::OGR::FieldDefn::SCHEMA_KEYS{$key})·{</div><div·class="line"><a·name="l05222"></a><span·class="lineno">·5222</span> ················$params->{$key}·=·$tmp->{$key};</div><div·class="line"><a·name="l05223"></a><span·class="lineno">·5223</span> ············}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l05224"></a><span·class="lineno">·5224</span> ················carp·<span·class="stringliteral">"Unknown·parameter:·'$key'."</span>·<span·class="keywordflow">if</span>·$key·ne·<span·class="stringliteral">'Index'</span>;</div><div·class="line"><a·name="l05225"></a><span·class="lineno">·5225</span> ············}</div><div·class="line"><a·name="l05226"></a><span·class="lineno">·5226</span> ········}</div><div·class="line"><a·name="l05227"></a><span·class="lineno">·5227</span> ····}</div><div·class="line"><a·name="l05228"></a><span·class="lineno">·5228</span> ····$params->{Type}·=·s2i(field_type·=>·$params->{Type});</div><div·class="line"><a·name="l05229"></a><span·class="lineno">·5229</span> ····my·$self·=·Geo::OGRc::new_FieldDefn($params->{Name},·$params->{Type});</div><div·class="line"><a·name="l05230"></a><span·class="lineno">·5230</span> ····bless·$self,·$pkg;</div><div·class="line"><a·name="l05231"></a><span·class="lineno">·5231</span> ····<span·class="keyword">delete</span>·$params->{Name};</div><div·class="line"><a·name="l05232"></a><span·class="lineno">·5232</span> ····<span·class="keyword">delete</span>·$params->{Type};</div><div·class="line"><a·name="l05233"></a><span·class="lineno">·5233</span> ····$self->Schema($params);</div><div·class="line"><a·name="l05234"></a><span·class="lineno">·5234</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l05235"></a><span·class="lineno">·5235</span> }</div><div·class="line"><a·name="l05236"></a><span·class="lineno">·5236</span> </div><div·class="line"><a·name="l05237"></a><span·class="lineno">·5237</span> <span·class="preprocessor">#**·@class·Geo::OGR::GeomFieldDefn</span></div><div·class="line"><a·name="l05238"></a><span·class="lineno">·5238</span> <span·class="preprocessor">#·@brief·A·definition·of·a·spatial·attribute.</span></div><div·class="line"><a·name="l05239"></a><span·class="lineno">·5239</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l05240"></a><span·class="lineno">·5240</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05241"></a><span·class="lineno">·5241</span> <span·class="keyword">package·</span>Geo::OGR::GeomFieldDefn;</div><div·class="line"><a·name="l05242"></a><span·class="lineno">·5242</span> </div><div·class="line"><a·name="l05243"></a><span·class="lineno">·5243</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1OGR.html">Geo::OGR</a>)</div><div·class="line"><a·name="l05244"></a><span·class="lineno">·5244</span> </div><div·class="line"><a·name="l05245"></a><span·class="lineno">·5245</span> <span·class="preprocessor">#**·@method·scalar·GeometryType($type)</span></div><div·class="line"><a·name="l05246"></a><span·class="lineno">·5246</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05247"></a><span·class="lineno">·5247</span> <span·class="preprocessor">#·@note·a.k.a.·GetType,·SetType</span></div><div·class="line"><a·name="l05248"></a><span·class="lineno">·5248</span> <span·class="preprocessor">#·@return·the·geometry·type·of·the·field.</span></div><div·class="line"><a·name="l05249"></a><span·class="lineno">·5249</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05250"></a><span·class="lineno">·5250</span> sub·GeometryType·{</div><div·class="line"><a·name="l05251"></a><span·class="lineno">·5251</span> }</div><div·class="line"><a·name="l05252"></a><span·class="lineno">·5252</span> </div><div·class="line"><a·name="l05253"></a><span·class="lineno">·5253</span> <span·class="preprocessor">#**·@method·GetSchema()</span></div><div·class="line"><a·name="l05254"></a><span·class="lineno">·5254</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05255"></a><span·class="lineno">·5255</span> sub·GetSchema·{</div><div·class="line"><a·name="l05256"></a><span·class="lineno">·5256</span> }</div><div·class="line"><a·name="l05257"></a><span·class="lineno">·5257</span> </div><div·class="line"><a·name="l05258"></a><span·class="lineno">·5258</span> <span·class="preprocessor">#**·@method·scalar·Ignored($ignore)</span></div><div·class="line"><a·name="l05259"></a><span·class="lineno">·5259</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05260"></a><span·class="lineno">·5260</span> <span·class="preprocessor">#·@note·a.k.a.·IsIgnored,·SetIgnored</span></div><div·class="line"><a·name="l05261"></a><span·class="lineno">·5261</span> <span·class="preprocessor">#·@return·the·ignore·status·of·the·field.</span></div><div·class="line"><a·name="l05262"></a><span·class="lineno">·5262</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05263"></a><span·class="lineno">·5263</span> sub·Ignored·{</div><div·class="line"><a·name="l05264"></a><span·class="lineno">·5264</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05265"></a><span·class="lineno">·5265</span> ····SetIgnored($self,·$_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l05266"></a><span·class="lineno">·5266</span> ····IsIgnored($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05267"></a><span·class="lineno">·5267</span> }</div><div·class="line"><a·name="l05268"></a><span·class="lineno">·5268</span> </div><div·class="line"><a·name="l05269"></a><span·class="lineno">·5269</span> <span·class="preprocessor">#**·@method·scalar·Name($name)</span></div><div·class="line"><a·name="l05270"></a><span·class="lineno">·5270</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05271"></a><span·class="lineno">·5271</span> <span·class="preprocessor">#·@note·a.k.a.·GetName,·GetNameRef,·SetName</span></div><div·class="line"><a·name="l05272"></a><span·class="lineno">·5272</span> <span·class="preprocessor">#·@return·the·name·of·the·field.</span></div><div·class="line"><a·name="l05273"></a><span·class="lineno">·5273</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05274"></a><span·class="lineno">·5274</span> sub·Name·{</div><div·class="line"><a·name="l05275"></a><span·class="lineno">·5275</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05276"></a><span·class="lineno">·5276</span> ····SetName($self,·$_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l05277"></a><span·class="lineno">·5277</span> ····GetName($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05278"></a><span·class="lineno">·5278</span> }</div><div·class="line"><a·name="l05279"></a><span·class="lineno">·5279</span> </div><div·class="line"><a·name="l05280"></a><span·class="lineno">·5280</span> <span·class="preprocessor">#**·@method·scalar·Nullable($nullable)</span></div><div·class="line"><a·name="l05281"></a><span·class="lineno">·5281</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05282"></a><span·class="lineno">·5282</span> <span·class="preprocessor">#·@note·a.k.a.·IsNullable,·SetNullable</span></div><div·class="line"><a·name="l05283"></a><span·class="lineno">·5283</span> <span·class="preprocessor">#·@return·the·nullable·status·of·the·field.</span></div><div·class="line"><a·name="l05284"></a><span·class="lineno">·5284</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05285"></a><span·class="lineno">·5285</span> sub·Nullable·{</div><div·class="line"><a·name="l05286"></a><span·class="lineno">·5286</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05287"></a><span·class="lineno">·5287</span> ····SetNullable($self,·$_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l05288"></a><span·class="lineno">·5288</span> ····IsNullable($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05289"></a><span·class="lineno">·5289</span> }</div><div·class="line"><a·name="l05290"></a><span·class="lineno">·5290</span> </div><div·class="line"><a·name="l05291"></a><span·class="lineno">·5291</span> <span·class="preprocessor">#**·@method·hash·reference·Schema(%params)</span></div><div·class="line"><a·name="l05292"></a><span·class="lineno">·5292</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05293"></a><span·class="lineno">·5293</span> <span·class="preprocessor">#·Get·the·schema·or·set·parts·of·the·schema.</span></div><div·class="line"><a·name="l05294"></a><span·class="lineno">·5294</span> <span·class="preprocessor">#·@param·params·[optional]·as·those·in·Geo::OGR::GeomFieldDefn::new.</span></div><div·class="line"><a·name="l05295"></a><span·class="lineno">·5295</span> <span·class="preprocessor">#·@return·a·reference·to·a·hash·whose·keys·are·as·those·in·Geo::OGR::GeomFieldDefn::new.</span></div><div·class="line"><a·name="l05296"></a><span·class="lineno">·5296</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05297"></a><span·class="lineno">·5297</span> sub·Schema·{</div><div·class="line"><a·name="l05298"></a><span·class="lineno">·5298</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05299"></a><span·class="lineno">·5299</span> ····<span·class="keywordflow">if</span>·(@_)·{</div><div·class="line"><a·name="l05300"></a><span·class="lineno">·5300</span> ········my·$params·=·@_·%·2·==·0·?·{@_}·:·shift;</div><div·class="line"><a·name="l05301"></a><span·class="lineno">·5301</span> ········<span·class="keywordflow">for</span>·my·$key·(keys·%SCHEMA_KEYS)·{</div><div·class="line"><a·name="l05302"></a><span·class="lineno">·5302</span> ············next·unless·exists·$params->{$key};</div><div·class="line"><a·name="l05303"></a><span·class="lineno">·5303</span> ············eval·<span·class="stringliteral">"\$self->$key(\$params->{$key})"</span>;</div><div·class="line"><a·name="l05304"></a><span·class="lineno">·5304</span> ············confess·last_error()·if·$@;</div><div·class="line"><a·name="l05305"></a><span·class="lineno">·5305</span> ········}</div><div·class="line"><a·name="l05306"></a><span·class="lineno">·5306</span> ····}</div><div·class="line"><a·name="l05307"></a><span·class="lineno">·5307</span> ····return·unless·defined·wantarray;</div><div·class="line"><a·name="l05308"></a><span·class="lineno">·5308</span> ····my·%schema·=·();</div><div·class="line"><a·name="l05309"></a><span·class="lineno">·5309</span> ····for·my·$key·(keys·%SCHEMA_KEYS)·{</div><div·class="line"><a·name="l05310"></a><span·class="lineno">·5310</span> ········$schema{$key}·=·eval·<span·class="stringliteral">'$self->'</span>.$key;</div><div·class="line"><a·name="l05311"></a><span·class="lineno">·5311</span> ····}</div><div·class="line"><a·name="l05312"></a><span·class="lineno">·5312</span> ····<span·class="keywordflow">return</span>·wantarray·?·%schema·:·\%schema;</div><div·class="line"><a·name="l05313"></a><span·class="lineno">·5313</span> }</div><div·class="line"><a·name="l05314"></a><span·class="lineno">·5314</span> </div><div·class="line"><a·name="l05315"></a><span·class="lineno">·5315</span> <span·class="preprocessor">#**·@method·SetSchema()</span></div><div·class="line"><a·name="l05316"></a><span·class="lineno">·5316</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05317"></a><span·class="lineno">·5317</span> sub·SetSchema·{</div><div·class="line"><a·name="l05318"></a><span·class="lineno">·5318</span> }</div><div·class="line"><a·name="l05319"></a><span·class="lineno">·5319</span> </div><div·class="line"><a·name="l05320"></a><span·class="lineno">·5320</span> <span·class="preprocessor">#**·@method·scalar·SpatialReference($sr)</span></div><div·class="line"><a·name="l05321"></a><span·class="lineno">·5321</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05322"></a><span·class="lineno">·5322</span> <span·class="preprocessor">#·@note·a.k.a.·GetSpatialRef,·SetSpatialRef</span></div><div·class="line"><a·name="l05323"></a><span·class="lineno">·5323</span> <span·class="preprocessor">#·@return·the·spatial·reference·of·the·field·as·a·Geo::OSR::SpatialReference·object.</span></div><div·class="line"><a·name="l05324"></a><span·class="lineno">·5324</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05325"></a><span·class="lineno">·5325</span> sub·SpatialReference·{</div><div·class="line"><a·name="l05326"></a><span·class="lineno">·5326</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05327"></a><span·class="lineno">·5327</span> ····SetSpatialRef($self,·$_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l05328"></a><span·class="lineno">·5328</span> ····GetSpatialRef($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05329"></a><span·class="lineno">·5329</span> }</div><div·class="line"><a·name="l05330"></a><span·class="lineno">·5330</span> </div><div·class="line"><a·name="l05331"></a><span·class="lineno">·5331</span> <span·class="preprocessor">#**·@method·Type()</span></div><div·class="line"><a·name="l05332"></a><span·class="lineno">·5332</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05333"></a><span·class="lineno">·5333</span> <span·class="preprocessor">#·@return·the·type·of·this·geometry·field.·One·of·Geo::OGR::GeomFieldDefn::Types</span></div><div·class="line"><a·name="l05334"></a><span·class="lineno">·5334</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05335"></a><span·class="lineno">·5335</span> sub·Type·{</div><div·class="line"><a·name="l05336"></a><span·class="lineno">·5336</span> ····my($self,·$type)·=·@_;</div><div·class="line"><a·name="l05337"></a><span·class="lineno">·5337</span> ····<span·class="keywordflow">if</span>·(defined·$type)·{</div><div·class="line"><a·name="l05338"></a><span·class="lineno">·5338</span> ········$type·=·s2i(geometry_type·=>·$type);</div><div·class="line"><a·name="l05339"></a><span·class="lineno">·5339</span> ········SetType($self,·$type);</div><div·class="line"><a·name="l05340"></a><span·class="lineno">·5340</span> ····}</div><div·class="line"><a·name="l05341"></a><span·class="lineno">·5341</span> ····i2s(geometry_type·=>·GetType($self))·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05342"></a><span·class="lineno">·5342</span> }</div><div·class="line"><a·name="l05343"></a><span·class="lineno">·5343</span> </div><div·class="line"><a·name="l05344"></a><span·class="lineno">·5344</span> <span·class="preprocessor">#**·@method·Types()</span></div><div·class="line"><a·name="l05345"></a><span·class="lineno">·5345</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l05346"></a><span·class="lineno">·5346</span> <span·class="preprocessor">#·@return·a·list·of·all·geometry·types,·currently:</span></div><div·class="line"><a·name="l05347"></a><span·class="lineno">·5347</span> <span·class="preprocessor">#·CircularString,·CircularStringM,·CircularStringZ,·CircularStringZM,·CompoundCurve,·CompoundCurveM,·CompoundCurveZ,·CompoundCurveZM,·Curve,·CurveM,·CurvePolygon,·CurvePolygonM,·CurvePolygonZ,·CurvePolygonZM,·CurveZ,·CurveZM,·GeometryCollection,·GeometryCollection25D,·GeometryCollectionM,·GeometryCollectionZM,·LineString,·LineString25D,·LineStringM,·LineStringZM,·LinearRing,·MultiCurve,·MultiCurveM,·MultiCurveZ,·MultiCurveZM,·MultiLineString,·MultiLineString25D,·MultiLineStringM,·MultiLineStringZM,·MultiPoint,·MultiPoint25D,·MultiPointM,·MultiPointZM,·MultiPolygon,·MultiPolygon25D,·MultiPolygonM,·MultiPolygonZM,·MultiSurface,·MultiSurfaceM,·MultiSurfaceZ,·MultiSurfaceZM,·None,·Point,·Point25D,·PointM,·PointZM,·Polygon,·Polygon25D,·PolygonM,·PolygonZM,·PolyhedralSurface,·PolyhedralSurfaceM,·PolyhedralSurfaceZ,·PolyhedralSurfaceZM,·Surface,·SurfaceM,·SurfaceZ,·SurfaceZM,·TIN,·TINM,·TINZ,·TINZM,·Triangle,·TriangleM,·TriangleZ,·TriangleZM,·and·Unknown.</span></div><div·class="line"><a·name="l05348"></a><span·class="lineno">·5348</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05349"></a><span·class="lineno">·5349</span> sub·Types·{</div><div·class="line"><a·name="l05350"></a><span·class="lineno">·5350</span> ····<span·class="keywordflow">return</span>·<a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a2ec865a500a31aa099f7d7606bd060c0">Geo::OGR::Geometry::GeometryTypes</a>();</div><div·class="line"><a·name="l05351"></a><span·class="lineno">·5351</span> }</div><div·class="line"><a·name="l05352"></a><span·class="lineno">·5352</span> </div><div·class="line"><a·name="l05353"></a><span·class="lineno">·5353</span> <span·class="preprocessor">#**·@method·Geo::OGR::GeomFieldDefn·new(%params)</span></div><div·class="line"><a·name="l05354"></a><span·class="lineno">·5354</span> <span·class="preprocessor">#·Class·method.</span></div><div·class="line"><a·name="l05355"></a><span·class="lineno">·5355</span> <span·class="preprocessor">#·@brief·Create·a·new·spatial·field·definition.</span></div><div·class="line"><a·name="l05356"></a><span·class="lineno">·5356</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l05357"></a><span·class="lineno">·5357</span> <span·class="preprocessor">#·@param·params·one·or·more·of:</span></div><div·class="line"><a·name="l05358"></a><span·class="lineno">·5358</span> <span·class="preprocessor">#·-·\a·Name·name·for·the·field·(default·is·'geom').</span></div><div·class="line"><a·name="l05359"></a><span·class="lineno">·5359</span> <span·class="preprocessor">#·-·\a·GeometryType·type·for·the·field·type,·one·of·Geo::OGR::GeomFieldDefn::Types·(default·is·'Unknown').</span></div><div·class="line"><a·name="l05360"></a><span·class="lineno">·5360</span> <span·class="preprocessor">#·-·\a·SpatialReference·a·Geo::OSR::SpatialReference·object.</span></div><div·class="line"><a·name="l05361"></a><span·class="lineno">·5361</span> <span·class="preprocessor">#·-·\a·Nullable·(default·is·true)</span></div><div·class="line"><a·name="l05362"></a><span·class="lineno">·5362</span> <span·class="preprocessor">#·-·\a·Ignored·(default·is·false)</span></div><div·class="line"><a·name="l05363"></a><span·class="lineno">·5363</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l05364"></a><span·class="lineno">·5364</span> <span·class="preprocessor">#·@note·Simplified·parameters·<name>·=>·<type>·is·also·supported.</span></div><div·class="line"><a·name="l05365"></a><span·class="lineno">·5365</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l05366"></a><span·class="lineno">·5366</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::GeomFieldDefn·object</span></div><div·class="line"><a·name="l05367"></a><span·class="lineno">·5367</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05368"></a><span·class="lineno">·5368</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l05369"></a><span·class="lineno">·5369</span> ····my·$pkg·=·shift;</div><div·class="line"><a·name="l05370"></a><span·class="lineno">·5370</span> ····my·$params·=·{Name·=>·<span·class="stringliteral">'geom'</span>,·Type·=>·<span·class="stringliteral">'Unknown'</span>};</div><div·class="line"><a·name="l05371"></a><span·class="lineno">·5371</span> ····<span·class="keywordflow">if</span>·(@_·==·0)·{</div><div·class="line"><a·name="l05372"></a><span·class="lineno">·5372</span> ····}·elsif·(@_·==·1)·{</div><div·class="line"><a·name="l05373"></a><span·class="lineno">·5373</span> ········$params->{Name}·=·shift;</div><div·class="line"><a·name="l05374"></a><span·class="lineno">·5374</span> ····}·elsif·(@_·==·2·and·not·$Geo::OGR::GeomFieldDefn::SCHEMA_KEYS{$_[0]})·{</div><div·class="line"><a·name="l05375"></a><span·class="lineno">·5375</span> ········$params->{Name}·=·shift;</div><div·class="line"><a·name="l05376"></a><span·class="lineno">·5376</span> ········$params->{Type}·=·shift;</div><div·class="line"><a·name="l05377"></a><span·class="lineno">·5377</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l05378"></a><span·class="lineno">·5378</span> ········my·$tmp·=·@_·%·2·==·0·?·{@_}·:·shift;</div><div·class="line"><a·name="l05379"></a><span·class="lineno">·5379</span> ········<span·class="keywordflow">for</span>·my·$key·(keys·%$tmp)·{</div><div·class="line"><a·name="l05380"></a><span·class="lineno">·5380</span> ············<span·class="keywordflow">if</span>·($Geo::OGR::GeomFieldDefn::SCHEMA_KEYS{$key})·{</div><div·class="line"><a·name="l05381"></a><span·class="lineno">·5381</span> ················$params->{$key}·=·$tmp->{$key};</div><div·class="line"><a·name="l05382"></a><span·class="lineno">·5382</span> ············}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l05383"></a><span·class="lineno">·5383</span> ················carp·<span·class="stringliteral">"Unknown·parameter:·'$key'."</span>·<span·class="keywordflow">if</span>·$key·ne·<span·class="stringliteral">'Index'</span>·&&·$key·ne·<span·class="stringliteral">'GeometryType'</span>;</div><div·class="line"><a·name="l05384"></a><span·class="lineno">·5384</span> ············}</div><div·class="line"><a·name="l05385"></a><span·class="lineno">·5385</span> ········}</div><div·class="line"><a·name="l05386"></a><span·class="lineno">·5386</span> ········$params->{Type}·<span·class="comment">//=·$tmp->{GeometryType};</span></div><div·class="line"><a·name="l05387"></a><span·class="lineno">·5387</span> ····}</div><div·class="line"><a·name="l05388"></a><span·class="lineno">·5388</span> ····$params->{Type}·=·s2i(geometry_type·=>·$params->{Type});</div><div·class="line"><a·name="l05389"></a><span·class="lineno">·5389</span> ····my·$self·=·Geo::OGRc::new_GeomFieldDefn($params->{Name},·$params->{Type});</div><div·class="line"><a·name="l05390"></a><span·class="lineno">·5390</span> ····bless·$self,·$pkg;</div><div·class="line"><a·name="l05391"></a><span·class="lineno">·5391</span> ····<span·class="keyword">delete</span>·$params->{Name};</div><div·class="line"><a·name="l05392"></a><span·class="lineno">·5392</span> ····<span·class="keyword">delete</span>·$params->{Type};</div><div·class="line"><a·name="l05393"></a><span·class="lineno">·5393</span> ····$self->Schema($params);</div><div·class="line"><a·name="l05394"></a><span·class="lineno">·5394</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l05395"></a><span·class="lineno">·5395</span> }</div><div·class="line"><a·name="l05396"></a><span·class="lineno">·5396</span> </div><div·class="line"><a·name="l05397"></a><span·class="lineno">·5397</span> <span·class="preprocessor">#**·@class·Geo::OGR::Geometry</span></div><div·class="line"><a·name="l05398"></a><span·class="lineno">·5398</span> <span·class="preprocessor">#·@brief·Spatial·data.</span></div><div·class="line"><a·name="l05399"></a><span·class="lineno">·5399</span> <span·class="preprocessor">#·@details·A·geometry·is·spatial·data·(coordinate·values,·and·a·reference·to·a</span></div><div·class="line"><a·name="l05400"></a><span·class="lineno">·5400</span> <span·class="preprocessor">#·spatial·reference·system)·organized·into·one·of·the·geometry</span></div><div·class="line"><a·name="l05401"></a><span·class="lineno">·5401</span> <span·class="preprocessor">#·types.·Geometries·can·be·created·from·several·type·of·data·including</span></div><div·class="line"><a·name="l05402"></a><span·class="lineno">·5402</span> <span·class="preprocessor">#·a·Perl·data·structure.·There·are·several·methods,·which·modify,</span></div><div·class="line"><a·name="l05403"></a><span·class="lineno">·5403</span> <span·class="preprocessor">#·compare,·test,·or·compute·values·from·geometries.</span></div><div·class="line"><a·name="l05404"></a><span·class="lineno">·5404</span> <span·class="preprocessor">#·@note·Most·spatial·analysis·methods·require·<a</span></div><div·class="line"><a·name="l05405"></a><span·class="lineno">·5405</span> <span·class="preprocessor">#·href="http://geos.osgeo.org/doxygen/">GEOS</a>·to·work·rigorously.</span></div><div·class="line"><a·name="l05406"></a><span·class="lineno">·5406</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05407"></a><span·class="lineno">·5407</span> <span·class="keyword">package·</span>Geo::OGR::Geometry;</div><div·class="line"><a·name="l05408"></a><span·class="lineno">·5408</span> </div><div·class="line"><a·name="l05409"></a><span·class="lineno">·5409</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1OGR.html">Geo::OGR</a>)</div><div·class="line"><a·name="l05410"></a><span·class="lineno">·5410</span> </div><div·class="line"><a·name="l05411"></a><span·class="lineno">·5411</span> <span·class="preprocessor">#**·@method·AddGeometry($other)</span></div><div·class="line"><a·name="l05412"></a><span·class="lineno">·5412</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05413"></a><span·class="lineno">·5413</span> <span·class="preprocessor">#·Add·a·copy·of·another·geometry·to·a·geometry·collection</span></div><div·class="line"><a·name="l05414"></a><span·class="lineno">·5414</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05415"></a><span·class="lineno">·5415</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05416"></a><span·class="lineno">·5416</span> sub·AddGeometry·{</div><div·class="line"><a·name="l05417"></a><span·class="lineno">·5417</span> }</div><div·class="line"><a·name="l05418"></a><span·class="lineno">·5418</span> </div><div·class="line"><a·name="l05419"></a><span·class="lineno">·5419</span> <span·class="preprocessor">#**·@method·AddGeometryDirectly($other)</span></div><div·class="line"><a·name="l05420"></a><span·class="lineno">·5420</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05421"></a><span·class="lineno">·5421</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05422"></a><span·class="lineno">·5422</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05423"></a><span·class="lineno">·5423</span> sub·AddGeometryDirectly·{</div><div·class="line"><a·name="l05424"></a><span·class="lineno">·5424</span> }</div><div·class="line"><a·name="l05425"></a><span·class="lineno">·5425</span> </div><div·class="line"><a·name="l05426"></a><span·class="lineno">·5426</span> <span·class="preprocessor">#**·@method·AddPoint($x,·$y,·$z)</span></div><div·class="line"><a·name="l05427"></a><span·class="lineno">·5427</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05428"></a><span·class="lineno">·5428</span> <span·class="preprocessor">#·Set·the·data·of·a·point·or·add·a·point·to·a·line·string.·Consider</span></div><div·class="line"><a·name="l05429"></a><span·class="lineno">·5429</span> <span·class="preprocessor">#·using·Geo::OGR::Geometry::Points.··Note·that·the·coordinate</span></div><div·class="line"><a·name="l05430"></a><span·class="lineno">·5430</span> <span·class="preprocessor">#·dimension·is·automatically·upgraded·to·25D·(3)·if·z·is·given.</span></div><div·class="line"><a·name="l05431"></a><span·class="lineno">·5431</span> <span·class="preprocessor">#·@param·x</span></div><div·class="line"><a·name="l05432"></a><span·class="lineno">·5432</span> <span·class="preprocessor">#·@param·y</span></div><div·class="line"><a·name="l05433"></a><span·class="lineno">·5433</span> <span·class="preprocessor">#·@param·z·[optional]</span></div><div·class="line"><a·name="l05434"></a><span·class="lineno">·5434</span> <span·class="preprocessor">#·Calls·internally·the·2D·or·3D·version·depending·on·the·number·of·parameters.</span></div><div·class="line"><a·name="l05435"></a><span·class="lineno">·5435</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05436"></a><span·class="lineno">·5436</span> sub·AddPoint·{</div><div·class="line"><a·name="l05437"></a><span·class="lineno">·5437</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05438"></a><span·class="lineno">·5438</span> ····my·$t·=·$self->GetGeometryType;</div><div·class="line"><a·name="l05439"></a><span·class="lineno">·5439</span> ····my·$has_z·=·HasZ($t);</div><div·class="line"><a·name="l05440"></a><span·class="lineno">·5440</span> ····my·$has_m·=·HasM($t);</div><div·class="line"><a·name="l05441"></a><span·class="lineno">·5441</span> ····<span·class="keywordflow">if</span>·(!$has_z·&&·!$has_m)·{</div><div·class="line"><a·name="l05442"></a><span·class="lineno">·5442</span> ········$self->AddPoint_2D(@_[0..1]);</div><div·class="line"><a·name="l05443"></a><span·class="lineno">·5443</span> ····}·elsif·($has_z·&&·!$has_m)·{</div><div·class="line"><a·name="l05444"></a><span·class="lineno">·5444</span> ········$self->AddPoint_3D(@_[0..2]);</div><div·class="line"><a·name="l05445"></a><span·class="lineno">·5445</span> ····}·elsif·(!$has_z·&&·$has_m)·{</div><div·class="line"><a·name="l05446"></a><span·class="lineno">·5446</span> ········$self->AddPointM(@_[0..2]);</div><div·class="line"><a·name="l05447"></a><span·class="lineno">·5447</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l05448"></a><span·class="lineno">·5448</span> ········$self->AddPointZM(@_[0..3]);</div><div·class="line"><a·name="l05449"></a><span·class="lineno">·5449</span> ····}</div><div·class="line"><a·name="l05450"></a><span·class="lineno">·5450</span> }</div><div·class="line"><a·name="l05451"></a><span·class="lineno">·5451</span> </div><div·class="line"><a·name="l05452"></a><span·class="lineno">·5452</span> <span·class="preprocessor">#**·@method·AddPointM()</span></div><div·class="line"><a·name="l05453"></a><span·class="lineno">·5453</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05454"></a><span·class="lineno">·5454</span> sub·AddPointM·{</div><div·class="line"><a·name="l05455"></a><span·class="lineno">·5455</span> }</div><div·class="line"><a·name="l05456"></a><span·class="lineno">·5456</span> </div><div·class="line"><a·name="l05457"></a><span·class="lineno">·5457</span> <span·class="preprocessor">#**·@method·AddPointZM()</span></div><div·class="line"><a·name="l05458"></a><span·class="lineno">·5458</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05459"></a><span·class="lineno">·5459</span> sub·AddPointZM·{</div><div·class="line"><a·name="l05460"></a><span·class="lineno">·5460</span> }</div><div·class="line"><a·name="l05461"></a><span·class="lineno">·5461</span> </div><div·class="line"><a·name="l05462"></a><span·class="lineno">·5462</span> <span·class="preprocessor">#**·@method·AddPoint_2D($x,·$y)</span></div><div·class="line"><a·name="l05463"></a><span·class="lineno">·5463</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05464"></a><span·class="lineno">·5464</span> <span·class="preprocessor">#·Set·the·data·of·a·point·or·add·a·point·to·a·line·string.·Consider</span></div><div·class="line"><a·name="l05465"></a><span·class="lineno">·5465</span> <span·class="preprocessor">#·using·Geo::OGR::Geometry::Points.</span></div><div·class="line"><a·name="l05466"></a><span·class="lineno">·5466</span> <span·class="preprocessor">#·@param·x</span></div><div·class="line"><a·name="l05467"></a><span·class="lineno">·5467</span> <span·class="preprocessor">#·@param·y</span></div><div·class="line"><a·name="l05468"></a><span·class="lineno">·5468</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05469"></a><span·class="lineno">·5469</span> sub·AddPoint_2D·{</div><div·class="line"><a·name="l05470"></a><span·class="lineno">·5470</span> }</div><div·class="line"><a·name="l05471"></a><span·class="lineno">·5471</span> </div><div·class="line"><a·name="l05472"></a><span·class="lineno">·5472</span> <span·class="preprocessor">#**·@method·AddPoint_3D($x,·$y,·$z)</span></div><div·class="line"><a·name="l05473"></a><span·class="lineno">·5473</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05474"></a><span·class="lineno">·5474</span> <span·class="preprocessor">#·Set·the·data·of·a·point·or·add·a·point·to·a·line·string.·Note·that</span></div><div·class="line"><a·name="l05475"></a><span·class="lineno">·5475</span> <span·class="preprocessor">#·the·coordinate·dimension·is·automatically·upgraded·to·25D·(3).·Consider</span></div><div·class="line"><a·name="l05476"></a><span·class="lineno">·5476</span> <span·class="preprocessor">#·using·Geo::OGR::Geometry::Points.</span></div><div·class="line"><a·name="l05477"></a><span·class="lineno">·5477</span> <span·class="preprocessor">#·@param·x</span></div><div·class="line"><a·name="l05478"></a><span·class="lineno">·5478</span> <span·class="preprocessor">#·@param·y</span></div><div·class="line"><a·name="l05479"></a><span·class="lineno">·5479</span> <span·class="preprocessor">#·@param·z</span></div><div·class="line"><a·name="l05480"></a><span·class="lineno">·5480</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05481"></a><span·class="lineno">·5481</span> sub·AddPoint_3D·{</div><div·class="line"><a·name="l05482"></a><span·class="lineno">·5482</span> }</div><div·class="line"><a·name="l05483"></a><span·class="lineno">·5483</span> </div><div·class="line"><a·name="l05484"></a><span·class="lineno">·5484</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·ApproximateArcAngles(%params)</span></div><div·class="line"><a·name="l05485"></a><span·class="lineno">·5485</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l05486"></a><span·class="lineno">·5486</span> <span·class="preprocessor">#·Create·a·line·string,·which·approximates·an·arc.</span></div><div·class="line"><a·name="l05487"></a><span·class="lineno">·5487</span> <span·class="preprocessor">#·@note·All·angles·are·in·degrees.</span></div><div·class="line"><a·name="l05488"></a><span·class="lineno">·5488</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l05489"></a><span·class="lineno">·5489</span> <span·class="preprocessor">#·@param·%params·Named·parameters:</span></div><div·class="line"><a·name="l05490"></a><span·class="lineno">·5490</span> <span·class="preprocessor">#·-·\a·Center·center·point·(default·is·[0,·0,·0])</span></div><div·class="line"><a·name="l05491"></a><span·class="lineno">·5491</span> <span·class="preprocessor">#·-·\a·PrimaryRadius·default·is·1.</span></div><div·class="line"><a·name="l05492"></a><span·class="lineno">·5492</span> <span·class="preprocessor">#·-·\a·SecondaryAxis·default·is·1.</span></div><div·class="line"><a·name="l05493"></a><span·class="lineno">·5493</span> <span·class="preprocessor">#·-·\a·Rotation·default·is·0.</span></div><div·class="line"><a·name="l05494"></a><span·class="lineno">·5494</span> <span·class="preprocessor">#·-·\a·StartAngle·default·is·0.</span></div><div·class="line"><a·name="l05495"></a><span·class="lineno">·5495</span> <span·class="preprocessor">#·-·\a·EndAngle·default·is·360.</span></div><div·class="line"><a·name="l05496"></a><span·class="lineno">·5496</span> <span·class="preprocessor">#·-·\a·MaxAngleStepSizeDegrees·default·is·4.</span></div><div·class="line"><a·name="l05497"></a><span·class="lineno">·5497</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object.</span></div><div·class="line"><a·name="l05498"></a><span·class="lineno">·5498</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05499"></a><span·class="lineno">·5499</span> sub·ApproximateArcAngles·{</div><div·class="line"><a·name="l05500"></a><span·class="lineno">·5500</span> ····my·%p·=·@_;</div><div·class="line"><a·name="l05501"></a><span·class="lineno">·5501</span> ····my·%<span·class="keywordflow">default</span>·=·(·Center·=>·[0,0,0],</div><div·class="line"><a·name="l05502"></a><span·class="lineno">·5502</span> ····················PrimaryRadius·=>·1,</div><div·class="line"><a·name="l05503"></a><span·class="lineno">·5503</span> ····················SecondaryAxis·=>·1,</div><div·class="line"><a·name="l05504"></a><span·class="lineno">·5504</span> ····················Rotation·=>·0,</div><div·class="line"><a·name="l05505"></a><span·class="lineno">·5505</span> ····················StartAngle·=>·0,</div><div·class="line"><a·name="l05506"></a><span·class="lineno">·5506</span> ····················EndAngle·=>·360,</div><div·class="line"><a·name="l05507"></a><span·class="lineno">·5507</span> ····················MaxAngleStepSizeDegrees·=>·4</div><div·class="line"><a·name="l05508"></a><span·class="lineno">·5508</span> ········);</div><div·class="line"><a·name="l05509"></a><span·class="lineno">·5509</span> ····<span·class="keywordflow">for</span>·my·$p·(keys·%p)·{</div><div·class="line"><a·name="l05510"></a><span·class="lineno">·5510</span> ········<span·class="keywordflow">if</span>·(exists·$default{$p})·{</div><div·class="line"><a·name="l05511"></a><span·class="lineno">·5511</span> ············$p{$p}·<span·class="comment">//=·$default{$p};</span></div><div·class="line"><a·name="l05512"></a><span·class="lineno">·5512</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l05513"></a><span·class="lineno">·5513</span> ············carp·<span·class="stringliteral">"Unknown·parameter:·'$p'."</span>;</div><div·class="line"><a·name="l05514"></a><span·class="lineno">·5514</span> ········}</div><div·class="line"><a·name="l05515"></a><span·class="lineno">·5515</span> ····}</div><div·class="line"><a·name="l05516"></a><span·class="lineno">·5516</span> ····<span·class="keywordflow">for</span>·my·$p·(keys·%<span·class="keywordflow">default</span>)·{</div><div·class="line"><a·name="l05517"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Extent.html">·5517</a></span> ········$p{$p}·<span·class="comment">//=·$default{$p};</span></div><div·class="line"><a·name="l05518"></a><span·class="lineno">·5518</span> ····}</div><div·class="line"><a·name="l05519"></a><span·class="lineno">·5519</span> ····error(<span·class="stringliteral">"Usage:·Center·=>·[x,y,z]."</span>)·unless·ref($p{Center})·eq·<span·class="stringliteral">'ARRAY'</span>;</div><div·class="line"><a·name="l05520"></a><span·class="lineno">·5520</span> ····<span·class="keywordflow">for</span>·my·$i·(0..2)·{</div><div·class="line"><a·name="l05521"></a><span·class="lineno">·5521</span> ········$p{Center}->[$i]·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l05522"></a><span·class="lineno">·5522</span> ····}</div><div·class="line"><a·name="l05523"></a><span·class="lineno">·5523</span> ····<span·class="keywordflow">return</span>·Geo::OGR::ApproximateArcAngles($p{Center}->[0],·$p{Center}->[1],·$p{Center}->[2],·$p{PrimaryRadius},·$p{SecondaryAxis},·$p{Rotation},·$p{StartAngle},·$p{EndAngle},·$p{MaxAngleStepSizeDegrees});</div><div·class="line"><a·name="l05524"></a><span·class="lineno">·5524</span> }</div><div·class="line"><a·name="l05525"></a><span·class="lineno">·5525</span> </div><div·class="line"><a·name="l05526"></a><span·class="lineno">·5526</span> <span·class="preprocessor">#**·@method·scalar·Area()</span></div><div·class="line"><a·name="l05527"></a><span·class="lineno">·5527</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05528"></a><span·class="lineno">·5528</span> <span·class="preprocessor">#·@note·a.k.a.·GetArea</span></div><div·class="line"><a·name="l05529"></a><span·class="lineno">·5529</span> <span·class="preprocessor">#·@return·the·area·of·the·polygon·or·multipolygon</span></div><div·class="line"><a·name="l05530"></a><span·class="lineno">·5530</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05531"></a><span·class="lineno">·5531</span> sub·Area·{</div><div·class="line"><a·name="l05532"></a><span·class="lineno">·5532</span> }</div><div·class="line"><a·name="l05533"></a><span·class="lineno">·5533</span> </div><div·class="line"><a·name="l05534"></a><span·class="lineno">·5534</span> <span·class="preprocessor">#**·@method·scalar·As(%params)</span></div><div·class="line"><a·name="l05535"></a><span·class="lineno">·5535</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05536"></a><span·class="lineno">·5536</span> <span·class="preprocessor">#·Export·the·geometry·into·a·known·format.</span></div><div·class="line"><a·name="l05537"></a><span·class="lineno">·5537</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l05538"></a><span·class="lineno">·5538</span> <span·class="preprocessor">#·@param·params·Named·parameters:</span></div><div·class="line"><a·name="l05539"></a><span·class="lineno">·5539</span> <span·class="preprocessor">#·-·\a·Format·One·of</span></div><div·class="line"><a·name="l05540"></a><span·class="lineno">·5540</span> <span·class="preprocessor">#·····-·\a·WKT·Well·Known·Text.</span></div><div·class="line"><a·name="l05541"></a><span·class="lineno">·5541</span> <span·class="preprocessor">#·····-·<em>ISO·WKT</em></span></div><div·class="line"><a·name="l05542"></a><span·class="lineno">·5542</span> <span·class="preprocessor">#·····-·\a·Text·Same·as·WKT.</span></div><div·class="line"><a·name="l05543"></a><span·class="lineno">·5543</span> <span·class="preprocessor">#·····-·\a·WKB·Well·Known·Binary.</span></div><div·class="line"><a·name="l05544"></a><span·class="lineno">·5544</span> <span·class="preprocessor">#·····-·<em>ISO·WKB</em></span></div><div·class="line"><a·name="l05545"></a><span·class="lineno">·5545</span> <span·class="preprocessor">#·····-·\a·Binary·Same·as·WKB.</span></div><div·class="line"><a·name="l05546"></a><span·class="lineno">·5546</span> <span·class="preprocessor">#·····-·\a·HEXWKB</span></div><div·class="line"><a·name="l05547"></a><span·class="lineno">·5547</span> <span·class="preprocessor">#·····-·\a·HEXEWKB</span></div><div·class="line"><a·name="l05548"></a><span·class="lineno">·5548</span> <span·class="preprocessor">#·····-·\a·GML</span></div><div·class="line"><a·name="l05549"></a><span·class="lineno">·5549</span> <span·class="preprocessor">#·····-·\a·GeoJSON</span></div><div·class="line"><a·name="l05550"></a><span·class="lineno">·5550</span> <span·class="preprocessor">#·-·\a·ByteOrder·Byte·order·for·binary·formats.·Default·is·'XDR'.</span></div><div·class="line"><a·name="l05551"></a><span·class="lineno">·5551</span> <span·class="preprocessor">#·-·\a·SRID·Spatial·reference·id·for·HEXEWKB.</span></div><div·class="line"><a·name="l05552"></a><span·class="lineno">·5552</span> <span·class="preprocessor">#·-·\a·Options·GML·generation·options.</span></div><div·class="line"><a·name="l05553"></a><span·class="lineno">·5553</span> <span·class="preprocessor">#·-·\a·AltitudeMode·For·KML.</span></div><div·class="line"><a·name="l05554"></a><span·class="lineno">·5554</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l05555"></a><span·class="lineno">·5555</span> <span·class="preprocessor">#·@return·the·geometry·in·a·given·format.</span></div><div·class="line"><a·name="l05556"></a><span·class="lineno">·5556</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05557"></a><span·class="lineno">·5557</span> sub·As·{</div><div·class="line"><a·name="l05558"></a><span·class="lineno">·5558</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05559"></a><span·class="lineno">·5559</span> ····my·$p·=·named_parameters(\@_,·Format·=>·undef,·ByteOrder·=>·<span·class="stringliteral">'XDR'</span>,·SRID·=>·undef,·Options·=>·undef,·AltitudeMode·=>·undef);</div><div·class="line"><a·name="l05560"></a><span·class="lineno">·5560</span> ····my·$f·=·$p->{format};</div><div·class="line"><a·name="l05561"></a><span·class="lineno">·5561</span> ····<span·class="keywordflow">if</span>·($f·=~·/text/i)·{</div><div·class="line"><a·name="l05562"></a><span·class="lineno">·5562</span> ········<span·class="keywordflow">return</span>·$self->AsText;</div><div·class="line"><a·name="l05563"></a><span·class="lineno">·5563</span> ····}·elsif·($f·=~·/wkt/i)·{</div><div·class="line"><a·name="l05564"></a><span·class="lineno">·5564</span> ········<span·class="keywordflow">if</span>·($f·=~·/iso/i)·{</div><div·class="line"><a·name="l05565"></a><span·class="lineno">·5565</span> ············<span·class="keywordflow">return</span>·$self->ExportToIsoWkt;</div><div·class="line"><a·name="l05566"></a><span·class="lineno">·5566</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l05567"></a><span·class="lineno">·5567</span> ············<span·class="keywordflow">return</span>·$self->AsText;</div><div·class="line"><a·name="l05568"></a><span·class="lineno">·5568</span> ········}</div><div·class="line"><a·name="l05569"></a><span·class="lineno">·5569</span> ····}·elsif·($f·=~·/binary/i)·{</div><div·class="line"><a·name="l05570"></a><span·class="lineno">·5570</span> ········<span·class="keywordflow">return</span>·$self->ExportToWkb($p->{byteorder});</div><div·class="line"><a·name="l05571"></a><span·class="lineno">·5571</span> ····}·elsif·($f·=~·/wkb/i)·{</div><div·class="line"><a·name="l05572"></a><span·class="lineno">·5572</span> ········<span·class="keywordflow">if</span>·($f·=~·/iso/i)·{</div><div·class="line"><a·name="l05573"></a><span·class="lineno">·5573</span> ············$p->{byteorder}·=·s2i(byte_order·=>·$p->{byteorder});</div><div·class="line"><a·name="l05574"></a><span·class="lineno">·5574</span> ············<span·class="keywordflow">return</span>·$self->ExportToIsoWkb($p->{byteorder});</div><div·class="line"><a·name="l05575"></a><span·class="lineno">·5575</span> ········}·elsif·($f·=~·/ewkb/i)·{</div><div·class="line"><a·name="l05576"></a><span·class="lineno">·5576</span> ············<span·class="keywordflow">return</span>·$self->AsHEXEWKB($p->{srid});</div><div·class="line"><a·name="l05577"></a><span·class="lineno">·5577</span> ········}·elsif·($f·=~·/hex/i)·{</div><div·class="line"><a·name="l05578"></a><span·class="lineno">·5578</span> ············<span·class="keywordflow">return</span>·$self->AsHEXWKB;</div><div·class="line"><a·name="l05579"></a><span·class="lineno">·5579</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l05580"></a><span·class="lineno">·5580</span> ············<span·class="keywordflow">return</span>·$self->ExportToWkb($p->{byteorder});</div><div·class="line"><a·name="l05581"></a><span·class="lineno">·5581</span> ········}</div><div·class="line"><a·name="l05582"></a><span·class="lineno">·5582</span> ····}·elsif·($f·=~·/gml/i)·{</div><div·class="line"><a·name="l05583"></a><span·class="lineno">·5583</span> ········<span·class="keywordflow">return</span>·$self->ExportToGML($p->{options});</div><div·class="line"><a·name="l05584"></a><span·class="lineno">·5584</span> ····}·elsif·($f·=~·/kml/i)·{</div><div·class="line"><a·name="l05585"></a><span·class="lineno">·5585</span> ········<span·class="keywordflow">return</span>·$self->ExportToKML($p->{altitudemode});</div><div·class="line"><a·name="l05586"></a><span·class="lineno">·5586</span> ····}·elsif·($f·=~·/json/i)·{</div><div·class="line"><a·name="l05587"></a><span·class="lineno">·5587</span> ········<span·class="keywordflow">return</span>·$self->AsJSON;</div><div·class="line"><a·name="l05588"></a><span·class="lineno">·5588</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l05589"></a><span·class="lineno">·5589</span> ········error(1,·$f,·map·{$_=>1}·qw/Text·WKT·ISO_WKT·ISO_WKB·HEX_WKB·HEX_EWKB·Binary·GML·KML·JSON/);</div><div·class="line"><a·name="l05590"></a><span·class="lineno">·5590</span> ····}</div><div·class="line"><a·name="l05591"></a><span·class="lineno">·5591</span> }</div><div·class="line"><a·name="l05592"></a><span·class="lineno">·5592</span> </div><div·class="line"><a·name="l05593"></a><span·class="lineno">·5593</span> <span·class="preprocessor">#**·@method·scalar·AsBinary()</span></div><div·class="line"><a·name="l05594"></a><span·class="lineno">·5594</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05595"></a><span·class="lineno">·5595</span> <span·class="preprocessor">#·Export·the·geometry·into·WKB.</span></div><div·class="line"><a·name="l05596"></a><span·class="lineno">·5596</span> <span·class="preprocessor">#·@sa·Geo::OGR::Geometry::As</span></div><div·class="line"><a·name="l05597"></a><span·class="lineno">·5597</span> <span·class="preprocessor">#·@return·the·geometry·as·WKB.</span></div><div·class="line"><a·name="l05598"></a><span·class="lineno">·5598</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05599"></a><span·class="lineno">·5599</span> sub·AsBinary·{</div><div·class="line"><a·name="l05600"></a><span·class="lineno">·5600</span> }</div><div·class="line"><a·name="l05601"></a><span·class="lineno">·5601</span> </div><div·class="line"><a·name="l05602"></a><span·class="lineno">·5602</span> <span·class="preprocessor">#**·@method·scalar·AsText()</span></div><div·class="line"><a·name="l05603"></a><span·class="lineno">·5603</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05604"></a><span·class="lineno">·5604</span> <span·class="preprocessor">#·Export·the·geometry·into·WKT.</span></div><div·class="line"><a·name="l05605"></a><span·class="lineno">·5605</span> <span·class="preprocessor">#·@sa·Geo::OGR::Geometry::As</span></div><div·class="line"><a·name="l05606"></a><span·class="lineno">·5606</span> <span·class="preprocessor">#·@return·the·geometry·as·WKT.</span></div><div·class="line"><a·name="l05607"></a><span·class="lineno">·5607</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05608"></a><span·class="lineno">·5608</span> sub·AsText·{</div><div·class="line"><a·name="l05609"></a><span·class="lineno">·5609</span> }</div><div·class="line"><a·name="l05610"></a><span·class="lineno">·5610</span> </div><div·class="line"><a·name="l05611"></a><span·class="lineno">·5611</span> <span·class="preprocessor">#**·@method·AssignSpatialReference($srs)</span></div><div·class="line"><a·name="l05612"></a><span·class="lineno">·5612</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05613"></a><span·class="lineno">·5613</span> <span·class="preprocessor">#·@param·srs·a·Geo::OSR::SpatialReference·object</span></div><div·class="line"><a·name="l05614"></a><span·class="lineno">·5614</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05615"></a><span·class="lineno">·5615</span> sub·AssignSpatialReference·{</div><div·class="line"><a·name="l05616"></a><span·class="lineno">·5616</span> }</div><div·class="line"><a·name="l05617"></a><span·class="lineno">·5617</span> </div><div·class="line"><a·name="l05618"></a><span·class="lineno">·5618</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·Boundary()</span></div><div·class="line"><a·name="l05619"></a><span·class="lineno">·5619</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05620"></a><span·class="lineno">·5620</span> <span·class="preprocessor">#·@note·a.k.a.·GetBoundary</span></div><div·class="line"><a·name="l05621"></a><span·class="lineno">·5621</span> <span·class="preprocessor">#·@return·the·boundary·of·this·geometry·as·a·geometry</span></div><div·class="line"><a·name="l05622"></a><span·class="lineno">·5622</span> <span·class="preprocessor">#·@since·1.8.0</span></div><div·class="line"><a·name="l05623"></a><span·class="lineno">·5623</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05624"></a><span·class="lineno">·5624</span> sub·Boundary·{</div><div·class="line"><a·name="l05625"></a><span·class="lineno">·5625</span> }</div><div·class="line"><a·name="l05626"></a><span·class="lineno">·5626</span> </div><div·class="line"><a·name="l05627"></a><span·class="lineno">·5627</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·Buffer($distance,·$quadsecs·=·30)</span></div><div·class="line"><a·name="l05628"></a><span·class="lineno">·5628</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05629"></a><span·class="lineno">·5629</span> <span·class="preprocessor">#·@param·distance</span></div><div·class="line"><a·name="l05630"></a><span·class="lineno">·5630</span> <span·class="preprocessor">#·@param·quadsecs</span></div><div·class="line"><a·name="l05631"></a><span·class="lineno">·5631</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05632"></a><span·class="lineno">·5632</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05633"></a><span·class="lineno">·5633</span> sub·Buffer·{</div><div·class="line"><a·name="l05634"></a><span·class="lineno">·5634</span> }</div><div·class="line"><a·name="l05635"></a><span·class="lineno">·5635</span> </div><div·class="line"><a·name="l05636"></a><span·class="lineno">·5636</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·BuildPolygonFromEdges($BestEffort·=·0,·$AutoClose·=·0,·$Tolerance·=·0)</span></div><div·class="line"><a·name="l05637"></a><span·class="lineno">·5637</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05638"></a><span·class="lineno">·5638</span> <span·class="preprocessor">#·Attempt·to·create·a·polygon·from·a·collection·of·lines·or·from·a·multilinestring.</span></div><div·class="line"><a·name="l05639"></a><span·class="lineno">·5639</span> <span·class="preprocessor">#·@param·BestEffort·For·future</span></div><div·class="line"><a·name="l05640"></a><span·class="lineno">·5640</span> <span·class="preprocessor">#·@param·AutoClose·Assure·the·first·and·last·points·of·rings·are·same.</span></div><div·class="line"><a·name="l05641"></a><span·class="lineno">·5641</span> <span·class="preprocessor">#·@param·Tolerance·Snap·distance.</span></div><div·class="line"><a·name="l05642"></a><span·class="lineno">·5642</span> <span·class="preprocessor">#·@exception·Several·possibilities,·some·are·reported,·some·are·general·errors.</span></div><div·class="line"><a·name="l05643"></a><span·class="lineno">·5643</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object·(Polygon)</span></div><div·class="line"><a·name="l05644"></a><span·class="lineno">·5644</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05645"></a><span·class="lineno">·5645</span> sub·BuildPolygonFromEdges·{</div><div·class="line"><a·name="l05646"></a><span·class="lineno">·5646</span> }</div><div·class="line"><a·name="l05647"></a><span·class="lineno">·5647</span> </div><div·class="line"><a·name="l05648"></a><span·class="lineno">·5648</span> <span·class="preprocessor">#**·@method·list·ByteOrders()</span></div><div·class="line"><a·name="l05649"></a><span·class="lineno">·5649</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l05650"></a><span·class="lineno">·5650</span> <span·class="preprocessor">#·Same·as·Geo::OGR::ByteOrders</span></div><div·class="line"><a·name="l05651"></a><span·class="lineno">·5651</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05652"></a><span·class="lineno">·5652</span> sub·ByteOrders·{</div><div·class="line"><a·name="l05653"></a><span·class="lineno">·5653</span> ····<span·class="keywordflow">return</span>·@BYTE_ORDER_TYPES;</div><div·class="line"><a·name="l05654"></a><span·class="lineno">·5654</span> }</div><div·class="line"><a·name="l05655"></a><span·class="lineno">·5655</span> </div><div·class="line"><a·name="l05656"></a><span·class="lineno">·5656</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·Centroid()</span></div><div·class="line"><a·name="l05657"></a><span·class="lineno">·5657</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05658"></a><span·class="lineno">·5658</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05659"></a><span·class="lineno">·5659</span> <span·class="preprocessor">#·@since·1.8.0</span></div><div·class="line"><a·name="l05660"></a><span·class="lineno">·5660</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05661"></a><span·class="lineno">·5661</span> sub·Centroid·{</div><div·class="line"><a·name="l05662"></a><span·class="lineno">·5662</span> }</div><div·class="line"><a·name="l05663"></a><span·class="lineno">·5663</span> </div><div·class="line"><a·name="l05664"></a><span·class="lineno">·5664</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·Clone()</span></div><div·class="line"><a·name="l05665"></a><span·class="lineno">·5665</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05666"></a><span·class="lineno">·5666</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05667"></a><span·class="lineno">·5667</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05668"></a><span·class="lineno">·5668</span> sub·Clone·{</div><div·class="line"><a·name="l05669"></a><span·class="lineno">·5669</span> }</div><div·class="line"><a·name="l05670"></a><span·class="lineno">·5670</span> </div><div·class="line"><a·name="l05671"></a><span·class="lineno">·5671</span> <span·class="preprocessor">#**·@method·CloseRings()</span></div><div·class="line"><a·name="l05672"></a><span·class="lineno">·5672</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05673"></a><span·class="lineno">·5673</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05674"></a><span·class="lineno">·5674</span> sub·CloseRings·{</div><div·class="line"><a·name="l05675"></a><span·class="lineno">·5675</span> }</div><div·class="line"><a·name="l05676"></a><span·class="lineno">·5676</span> </div><div·class="line"><a·name="l05677"></a><span·class="lineno">·5677</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·Collect(@geometries)</span></div><div·class="line"><a·name="l05678"></a><span·class="lineno">·5678</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05679"></a><span·class="lineno">·5679</span> <span·class="preprocessor">#·Create·a·geometrycollection·from·this·and·possibly·other·geometries.</span></div><div·class="line"><a·name="l05680"></a><span·class="lineno">·5680</span> <span·class="preprocessor">#·@param·geometries·[optional]·More·geometries·to·add·to·the·collection.</span></div><div·class="line"><a·name="l05681"></a><span·class="lineno">·5681</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object·of·type·geometrycollection.</span></div><div·class="line"><a·name="l05682"></a><span·class="lineno">·5682</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05683"></a><span·class="lineno">·5683</span> sub·Collect·{</div><div·class="line"><a·name="l05684"></a><span·class="lineno">·5684</span> }</div><div·class="line"><a·name="l05685"></a><span·class="lineno">·5685</span> </div><div·class="line"><a·name="l05686"></a><span·class="lineno">·5686</span> <span·class="preprocessor">#**·@method·scalar·Contains($other)</span></div><div·class="line"><a·name="l05687"></a><span·class="lineno">·5687</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05688"></a><span·class="lineno">·5688</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05689"></a><span·class="lineno">·5689</span> <span·class="preprocessor">#·@return·true·if·this·geometry·contains·the·other·geometry,·false·otherwise</span></div><div·class="line"><a·name="l05690"></a><span·class="lineno">·5690</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05691"></a><span·class="lineno">·5691</span> sub·Contains·{</div><div·class="line"><a·name="l05692"></a><span·class="lineno">·5692</span> }</div><div·class="line"><a·name="l05693"></a><span·class="lineno">·5693</span> </div><div·class="line"><a·name="l05694"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1GCP.html">·5694</a></span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·ConvexHull()</span></div><div·class="line"><a·name="l05695"></a><span·class="lineno">·5695</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05696"></a><span·class="lineno">·5696</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05697"></a><span·class="lineno">·5697</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05698"></a><span·class="lineno">·5698</span> sub·ConvexHull·{</div><div·class="line"><a·name="l05699"></a><span·class="lineno">·5699</span> }</div><div·class="line"><a·name="l05700"></a><span·class="lineno">·5700</span> </div><div·class="line"><a·name="l05701"></a><span·class="lineno">·5701</span> <span·class="preprocessor">#**·@method·scalar·CoordinateDimension($dimension)</span></div><div·class="line"><a·name="l05702"></a><span·class="lineno">·5702</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05703"></a><span·class="lineno">·5703</span> <span·class="preprocessor">#·@param·dimension·[optional]</span></div><div·class="line"><a·name="l05704"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1GCP.html#a0b95311de3ae704ec6b32979b548bb4e">·5704</a></span> <span·class="preprocessor">#·@return·2·or·3</span></div><div·class="line"><a·name="l05705"></a><span·class="lineno">·5705</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05706"></a><span·class="lineno">·5706</span> sub·CoordinateDimension·{</div><div·class="line"><a·name="l05707"></a><span·class="lineno">·5707</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05708"></a><span·class="lineno">·5708</span> ····SetCoordinateDimension($self,·$_[0])·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l05709"></a><span·class="lineno">·5709</span> ····GetCoordinateDimension($self)·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l05710"></a><span·class="lineno">·5710</span> }</div><div·class="line"><a·name="l05711"></a><span·class="lineno">·5711</span> </div><div·class="line"><a·name="l05712"></a><span·class="lineno">·5712</span> <span·class="preprocessor">#**·@method·scalar·Crosses($other)</span></div><div·class="line"><a·name="l05713"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1GCP.html#a45080e3dc1ea5b3598e1819f2127ff03">·5713</a></span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05714"></a><span·class="lineno">·5714</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05715"></a><span·class="lineno">·5715</span> <span·class="preprocessor">#·@return·true·if·this·geometry·crosses·the·other·geometry,·false·otherwise</span></div><div·class="line"><a·name="l05716"></a><span·class="lineno">·5716</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05717"></a><span·class="lineno">·5717</span> sub·Crosses·{</div><div·class="line"><a·name="l05718"></a><span·class="lineno">·5718</span> }</div><div·class="line"><a·name="l05719"></a><span·class="lineno">·5719</span> </div><div·class="line"><a·name="l05720"></a><span·class="lineno">·5720</span> <span·class="preprocessor">#**·@method·DelaunayTriangulation()</span></div><div·class="line"><a·name="l05721"></a><span·class="lineno">·5721</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05722"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1GCP.html#ab1398d2d9e77ced02ca259d44a16dc05">·5722</a></span> sub·DelaunayTriangulation·{</div><div·class="line"><a·name="l05723"></a><span·class="lineno">·5723</span> }</div><div·class="line"><a·name="l05724"></a><span·class="lineno">·5724</span> </div><div·class="line"><a·name="l05725"></a><span·class="lineno">·5725</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·Difference($other)</span></div><div·class="line"><a·name="l05726"></a><span·class="lineno">·5726</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05727"></a><span·class="lineno">·5727</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05728"></a><span·class="lineno">·5728</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05729"></a><span·class="lineno">·5729</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05730"></a><span·class="lineno">·5730</span> sub·Difference·{</div><div·class="line"><a·name="l05731"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1GCP.html#a8cbdd2dffb8be1ec948adc82e27c73d8">·5731</a></span> }</div><div·class="line"><a·name="l05732"></a><span·class="lineno">·5732</span> </div><div·class="line"><a·name="l05733"></a><span·class="lineno">·5733</span> <span·class="preprocessor">#**·@method·scalar·Disjoint($other)</span></div><div·class="line"><a·name="l05734"></a><span·class="lineno">·5734</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05735"></a><span·class="lineno">·5735</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05736"></a><span·class="lineno">·5736</span> <span·class="preprocessor">#·@return·true·if·this·geometry·is·disjoint·from·the·other·geometry,·false·otherwise</span></div><div·class="line"><a·name="l05737"></a><span·class="lineno">·5737</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05738"></a><span·class="lineno">·5738</span> sub·Disjoint·{</div><div·class="line"><a·name="l05739"></a><span·class="lineno">·5739</span> }</div><div·class="line"><a·name="l05740"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1GCP.html#a4dab64137a0d28dff42412a47f4ffaad">·5740</a></span> </div><div·class="line"><a·name="l05741"></a><span·class="lineno">·5741</span> <span·class="preprocessor">#**·@method·list·Dissolve()</span></div><div·class="line"><a·name="l05742"></a><span·class="lineno">·5742</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05743"></a><span·class="lineno">·5743</span> <span·class="preprocessor">#·Dissolve·a·geometrycollection·into·separate·geometries.</span></div><div·class="line"><a·name="l05744"></a><span·class="lineno">·5744</span> <span·class="preprocessor">#·@return·a·list·of·new·Geo::OGR::Geometry·objects·cloned·from·the·collection.</span></div><div·class="line"><a·name="l05745"></a><span·class="lineno">·5745</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05746"></a><span·class="lineno">·5746</span> sub·Dissolve·{</div><div·class="line"><a·name="l05747"></a><span·class="lineno">·5747</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05748"></a><span·class="lineno">·5748</span> ····my·@c;</div><div·class="line"><a·name="l05749"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1GCP.html#a69129b9d55ff5eb24a695d87e00a2ef0">·5749</a></span> ····my·$n·=·$self->GetGeometryCount;</div><div·class="line"><a·name="l05750"></a><span·class="lineno">·5750</span> ····<span·class="keywordflow">if</span>·($n·>·0)·{</div><div·class="line"><a·name="l05751"></a><span·class="lineno">·5751</span> ········<span·class="keywordflow">for</span>·my·$i·(0..$n-1)·{</div><div·class="line"><a·name="l05752"></a><span·class="lineno">·5752</span> ············push·@c,·$self->GetGeometryRef($i)->Clone;</div><div·class="line"><a·name="l05753"></a><span·class="lineno">·5753</span> ········}</div><div·class="line"><a·name="l05754"></a><span·class="lineno">·5754</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l05755"></a><span·class="lineno">·5755</span> ········push·@c,·$self;</div><div·class="line"><a·name="l05756"></a><span·class="lineno">·5756</span> ····}</div><div·class="line"><a·name="l05757"></a><span·class="lineno">·5757</span> ····<span·class="keywordflow">return</span>·@c;</div><div·class="line"><a·name="l05758"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1GCP.html#a615df89613d2ae2eb55304261db4c903">·5758</a></span> }</div><div·class="line"><a·name="l05759"></a><span·class="lineno">·5759</span> </div><div·class="line"><a·name="l05760"></a><span·class="lineno">·5760</span> <span·class="preprocessor">#**·@method·scalar·Distance($other)</span></div><div·class="line"><a·name="l05761"></a><span·class="lineno">·5761</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05762"></a><span·class="lineno">·5762</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05763"></a><span·class="lineno">·5763</span> <span·class="preprocessor">#·@return·the·distance·to·the·other·geometry</span></div><div·class="line"><a·name="l05764"></a><span·class="lineno">·5764</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05765"></a><span·class="lineno">·5765</span> sub·Distance·{</div><div·class="line"><a·name="l05766"></a><span·class="lineno">·5766</span> }</div><div·class="line"><a·name="l05767"></a><span·class="lineno">·5767</span> </div><div·class="line"><a·name="l05768"></a><span·class="lineno">·5768</span> <span·class="preprocessor">#**·@method·Distance3D()</span></div><div·class="line"><a·name="l05769"></a><span·class="lineno">·5769</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05770"></a><span·class="lineno">·5770</span> sub·Distance3D·{</div><div·class="line"><a·name="l05771"></a><span·class="lineno">·5771</span> }</div><div·class="line"><a·name="l05772"></a><span·class="lineno">·5772</span> </div><div·class="line"><a·name="l05773"></a><span·class="lineno">·5773</span> <span·class="preprocessor">#**·@method·Empty()</span></div><div·class="line"><a·name="l05774"></a><span·class="lineno">·5774</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05775"></a><span·class="lineno">·5775</span> <span·class="preprocessor">#·Clear·geometry·data,·i.e.,·remove·all·points,·or,·for·a·point,·set</span></div><div·class="line"><a·name="l05776"></a><span·class="lineno">·5776</span> <span·class="preprocessor">#·the·coordinate·dimension·as·zero.</span></div><div·class="line"><a·name="l05777"></a><span·class="lineno">·5777</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05778"></a><span·class="lineno">·5778</span> sub·Empty·{</div><div·class="line"><a·name="l05779"></a><span·class="lineno">·5779</span> }</div><div·class="line"><a·name="l05780"></a><span·class="lineno">·5780</span> </div><div·class="line"><a·name="l05781"></a><span·class="lineno">·5781</span> <span·class="preprocessor">#**·@method·scalar·Equals($other)</span></div><div·class="line"><a·name="l05782"></a><span·class="lineno">·5782</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05783"></a><span·class="lineno">·5783</span> <span·class="preprocessor">#·@note·a.k.a.·Equal·(deprecated)</span></div><div·class="line"><a·name="l05784"></a><span·class="lineno">·5784</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l05785"></a><span·class="lineno">·5785</span> <span·class="preprocessor">#·@return·true·if·this·geometry·is·equivalent·to·the·other·geometry,·false·otherwise</span></div><div·class="line"><a·name="l05786"></a><span·class="lineno">·5786</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05787"></a><span·class="lineno">·5787</span> sub·Equals·{</div><div·class="line"><a·name="l05788"></a><span·class="lineno">·5788</span> }</div><div·class="line"><a·name="l05789"></a><span·class="lineno">·5789</span> </div><div·class="line"><a·name="l05790"></a><span·class="lineno">·5790</span> <span·class="preprocessor">#**·@method·Extent()</span></div><div·class="line"><a·name="l05791"></a><span·class="lineno">·5791</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05792"></a><span·class="lineno">·5792</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html">Extent</a>·{</div><div·class="line"><a·name="l05793"></a><span·class="lineno">·5793</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05794"></a><span·class="lineno">·5794</span> ····<span·class="keywordflow">return</span>·<a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html">Geo::GDAL::Extent</a>-><a·class="code"·href="classGeo_1_1GDAL_1_1Extent.html#aaa908458e9aaa398762601ae2b466e9a">new</a>($self->GetEnvelope);</div><div·class="line"><a·name="l05795"></a><span·class="lineno">·5795</span> }</div><div·class="line"><a·name="l05796"></a><span·class="lineno">·5796</span> </div><div·class="line"><a·name="l05797"></a><span·class="lineno">·5797</span> <span·class="preprocessor">#**·@method·Feature()</span></div><div·class="line"><a·name="l05798"></a><span·class="lineno">·5798</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05799"></a><span·class="lineno">·5799</span> sub·Feature·{</div><div·class="line"><a·name="l05800"></a><span·class="lineno">·5800</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05801"></a><span·class="lineno">·5801</span> ····parent($self);</div><div·class="line"><a·name="l05802"></a><span·class="lineno">·5802</span> }</div><div·class="line"><a·name="l05803"></a><span·class="lineno">·5803</span> </div><div·class="line"><a·name="l05804"></a><span·class="lineno">·5804</span> <span·class="preprocessor">#**·@method·FlattenTo2D()</span></div><div·class="line"><a·name="l05805"></a><span·class="lineno">·5805</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05806"></a><span·class="lineno">·5806</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05807"></a><span·class="lineno">·5807</span> sub·FlattenTo2D·{</div><div·class="line"><a·name="l05808"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1GeoTransform.html">·5808</a></span> }</div><div·class="line"><a·name="l05809"></a><span·class="lineno">·5809</span> </div><div·class="line"><a·name="l05810"></a><span·class="lineno">·5810</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·ForceTo($type,·ref·options)</span></div><div·class="line"><a·name="l05811"></a><span·class="lineno">·5811</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05812"></a><span·class="lineno">·5812</span> <span·class="preprocessor">#·Attempt·to·make·a·geometry·of·type·'type'·out·of·this·geometry.</span></div><div·class="line"><a·name="l05813"></a><span·class="lineno">·5813</span> <span·class="preprocessor">#·@param·type·target·geometry·type.·One·of·Geo::OGR::GeometryTypes.</span></div><div·class="line"><a·name="l05814"></a><span·class="lineno">·5814</span> <span·class="preprocessor">#·@param·options·not·used·currently.</span></div><div·class="line"><a·name="l05815"></a><span·class="lineno">·5815</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object.</span></div><div·class="line"><a·name="l05816"></a><span·class="lineno">·5816</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05817"></a><span·class="lineno">·5817</span> sub·ForceTo·{</div><div·class="line"><a·name="l05818"></a><span·class="lineno">·5818</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05819"></a><span·class="lineno">·5819</span> ····my·$type·=·shift;</div><div·class="line"><a·name="l05820"></a><span·class="lineno">·5820</span> ····$type·=·s2i(geometry_type·=>·$type);</div><div·class="line"><a·name="l05821"></a><span·class="lineno">·5821</span> ····eval·{</div><div·class="line"><a·name="l05822"></a><span·class="lineno">·5822</span> ········$self·=·Geo::OGR::ForceTo($self,·$type,·@_);</div><div·class="line"><a·name="l05823"></a><span·class="lineno">·5823</span> ····};</div><div·class="line"><a·name="l05824"></a><span·class="lineno">·5824</span> ····confess·last_error()·<span·class="keywordflow">if</span>·$@;</div><div·class="line"><a·name="l05825"></a><span·class="lineno">·5825</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l05826"></a><span·class="lineno">·5826</span> }</div><div·class="line"><a·name="l05827"></a><span·class="lineno">·5827</span> </div><div·class="line"><a·name="l05828"></a><span·class="lineno">·5828</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·ForceToCollection(@geometries)</span></div><div·class="line"><a·name="l05829"></a><span·class="lineno">·5829</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05830"></a><span·class="lineno">·5830</span> <span·class="preprocessor">#·Create·a·geometrycollection·from·the·geometry.</span></div><div·class="line"><a·name="l05831"></a><span·class="lineno">·5831</span> <span·class="preprocessor">#·@param·geometries·[optional]·More·geometries·to·add·to·the·collection.</span></div><div·class="line"><a·name="l05832"></a><span·class="lineno">·5832</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object·of·type·geometrycollection.</span></div><div·class="line"><a·name="l05833"></a><span·class="lineno">·5833</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05834"></a><span·class="lineno">·5834</span> sub·ForceToCollection·{</div><div·class="line"><a·name="l05835"></a><span·class="lineno">·5835</span> ····my·$self·=·<a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html">Geo::OGR::Geometry</a>-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a95c4be922b97e1067d68340871a617c8">new</a>(GeometryType·=>·<span·class="stringliteral">'GeometryCollection'</span>);</div><div·class="line"><a·name="l05836"></a><span·class="lineno">·5836</span> ····<span·class="keywordflow">for</span>·my·$g·(@_)·{</div><div·class="line"><a·name="l05837"></a><span·class="lineno">·5837</span> ········$self-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a5344d7bb02a62c64f6fae2b0bf41c4a9">AddGeometry</a>($g);</div><div·class="line"><a·name="l05838"></a><span·class="lineno">·5838</span> ····}</div><div·class="line"><a·name="l05839"></a><span·class="lineno">·5839</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l05840"></a><span·class="lineno">·5840</span> }</div><div·class="line"><a·name="l05841"></a><span·class="lineno">·5841</span> </div><div·class="line"><a·name="l05842"></a><span·class="lineno">·5842</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·ForceToLineString()</span></div><div·class="line"><a·name="l05843"></a><span·class="lineno">·5843</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05844"></a><span·class="lineno">·5844</span> <span·class="preprocessor">#·Attempt·to·create·a·line·string·from·this·geometry.</span></div><div·class="line"><a·name="l05845"></a><span·class="lineno">·5845</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object.</span></div><div·class="line"><a·name="l05846"></a><span·class="lineno">·5846</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05847"></a><span·class="lineno">·5847</span> sub·ForceToLineString·{</div><div·class="line"><a·name="l05848"></a><span·class="lineno">·5848</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05849"></a><span·class="lineno">·5849</span> ····<span·class="keywordflow">return</span>·Geo::OGR::ForceToLineString($self);</div><div·class="line"><a·name="l05850"></a><span·class="lineno">·5850</span> }</div><div·class="line"><a·name="l05851"></a><span·class="lineno">·5851</span> </div><div·class="line"><a·name="l05852"></a><span·class="lineno">·5852</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·ForceToMultiLineString(@linestrings)</span></div><div·class="line"><a·name="l05853"></a><span·class="lineno">·5853</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05854"></a><span·class="lineno">·5854</span> <span·class="preprocessor">#·Attempt·to·create·a·multilinestring·from·the·geometry,·which·must·be·a·linestring.</span></div><div·class="line"><a·name="l05855"></a><span·class="lineno">·5855</span> <span·class="preprocessor">#·@param·linestrings·[optional]·More·linestrings·to·add·to·the·collection.</span></div><div·class="line"><a·name="l05856"></a><span·class="lineno">·5856</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object·of·type·multilinestring.</span></div><div·class="line"><a·name="l05857"></a><span·class="lineno">·5857</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05858"></a><span·class="lineno">·5858</span> sub·ForceToMultiLineString·{</div><div·class="line"><a·name="l05859"></a><span·class="lineno">·5859</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05860"></a><span·class="lineno">·5860</span> ····$self·=·Geo::OGR::ForceToMultiLineString($self);</div><div·class="line"><a·name="l05861"></a><span·class="lineno">·5861</span> ····<span·class="keywordflow">for</span>·my·$g·(@_)·{</div><div·class="line"><a·name="l05862"></a><span·class="lineno">·5862</span> ········$self->AddGeometry($g);</div><div·class="line"><a·name="l05863"></a><span·class="lineno">·5863</span> ····}</div><div·class="line"><a·name="l05864"></a><span·class="lineno">·5864</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l05865"></a><span·class="lineno">·5865</span> }</div><div·class="line"><a·name="l05866"></a><span·class="lineno">·5866</span> </div><div·class="line"><a·name="l05867"></a><span·class="lineno">·5867</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·ForceToMultiPoint(@points)</span></div><div·class="line"><a·name="l05868"></a><span·class="lineno">·5868</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05869"></a><span·class="lineno">·5869</span> <span·class="preprocessor">#·Attempt·to·create·a·multipoint·from·the·geometry,·which·must·be·a·point.</span></div><div·class="line"><a·name="l05870"></a><span·class="lineno">·5870</span> <span·class="preprocessor">#·@param·points·[optional]·More·points·to·add·to·the·collection.</span></div><div·class="line"><a·name="l05871"></a><span·class="lineno">·5871</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object·of·type·multipoint.</span></div><div·class="line"><a·name="l05872"></a><span·class="lineno">·5872</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05873"></a><span·class="lineno">·5873</span> sub·ForceToMultiPoint·{</div><div·class="line"><a·name="l05874"></a><span·class="lineno">·5874</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05875"></a><span·class="lineno">·5875</span> ····$self·=·Geo::OGR::ForceToMultiPoint($self);</div><div·class="line"><a·name="l05876"></a><span·class="lineno">·5876</span> ····<span·class="keywordflow">for</span>·my·$g·(@_)·{</div><div·class="line"><a·name="l05877"></a><span·class="lineno">·5877</span> ········$self->AddGeometry($g);</div><div·class="line"><a·name="l05878"></a><span·class="lineno">·5878</span> ····}</div><div·class="line"><a·name="l05879"></a><span·class="lineno">·5879</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l05880"></a><span·class="lineno">·5880</span> }</div><div·class="line"><a·name="l05881"></a><span·class="lineno">·5881</span> </div><div·class="line"><a·name="l05882"></a><span·class="lineno">·5882</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·ForceToMultiPolygon(@polygons)</span></div><div·class="line"><a·name="l05883"></a><span·class="lineno">·5883</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05884"></a><span·class="lineno">·5884</span> <span·class="preprocessor">#·Attempt·to·create·a·multipolygon·from·the·geometry,·which·must·be·a·polygon.</span></div><div·class="line"><a·name="l05885"></a><span·class="lineno">·5885</span> <span·class="preprocessor">#·@param·polygons·[optional]·More·polygons·to·add·to·the·collection.</span></div><div·class="line"><a·name="l05886"></a><span·class="lineno">·5886</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object·of·type·multipolygon.</span></div><div·class="line"><a·name="l05887"></a><span·class="lineno">·5887</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05888"></a><span·class="lineno">·5888</span> sub·ForceToMultiPolygon·{</div><div·class="line"><a·name="l05889"></a><span·class="lineno">·5889</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05890"></a><span·class="lineno">·5890</span> ····$self·=·Geo::OGR::ForceToMultiPolygon($self);</div><div·class="line"><a·name="l05891"></a><span·class="lineno">·5891</span> ····<span·class="keywordflow">for</span>·my·$g·(@_)·{</div><div·class="line"><a·name="l05892"></a><span·class="lineno">·5892</span> ········$self->AddGeometry($g);</div><div·class="line"><a·name="l05893"></a><span·class="lineno">·5893</span> ····}</div><div·class="line"><a·name="l05894"></a><span·class="lineno">·5894</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l05895"></a><span·class="lineno">·5895</span> }</div><div·class="line"><a·name="l05896"></a><span·class="lineno">·5896</span> </div><div·class="line"><a·name="l05897"></a><span·class="lineno">·5897</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·ForceToPolygon()</span></div><div·class="line"><a·name="l05898"></a><span·class="lineno">·5898</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05899"></a><span·class="lineno">·5899</span> <span·class="preprocessor">#·Attempt·to·create·a·polygon·from·this·geometry.</span></div><div·class="line"><a·name="l05900"></a><span·class="lineno">·5900</span> <span·class="preprocessor">#·@exception·None·reported.·If·this·method·fails,·just·a·copy·is·returned.</span></div><div·class="line"><a·name="l05901"></a><span·class="lineno">·5901</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object.</span></div><div·class="line"><a·name="l05902"></a><span·class="lineno">·5902</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05903"></a><span·class="lineno">·5903</span> sub·ForceToPolygon·{</div><div·class="line"><a·name="l05904"></a><span·class="lineno">·5904</span> }</div><div·class="line"><a·name="l05905"></a><span·class="lineno">·5905</span> </div><div·class="line"><a·name="l05906"></a><span·class="lineno">·5906</span> <span·class="preprocessor">#**·@method·scalar·Geometry($n)</span></div><div·class="line"><a·name="l05907"></a><span·class="lineno">·5907</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05908"></a><span·class="lineno">·5908</span> <span·class="preprocessor">#·Return·the·n:th·(note·zero-based·index)·element·in·this·geometry·or</span></div><div·class="line"><a·name="l05909"></a><span·class="lineno">·5909</span> <span·class="preprocessor">#·geometry·in·this·collection.</span></div><div·class="line"><a·name="l05910"></a><span·class="lineno">·5910</span> <span·class="preprocessor">#·@note·a.k.a.·GetGeometryRef</span></div><div·class="line"><a·name="l05911"></a><span·class="lineno">·5911</span> <span·class="preprocessor">#·@param·n·index·to·the·geometry,·which·is·a·part·of·this·geometry</span></div><div·class="line"><a·name="l05912"></a><span·class="lineno">·5912</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object·whose·data·is·a·part·of·the</span></div><div·class="line"><a·name="l05913"></a><span·class="lineno">·5913</span> <span·class="preprocessor">#·parent·geometry·(this·geometry·is·kept·alive·while·the·returned</span></div><div·class="line"><a·name="l05914"></a><span·class="lineno">·5914</span> <span·class="preprocessor">#·geometry·exists)</span></div><div·class="line"><a·name="l05915"></a><span·class="lineno">·5915</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05916"></a><span·class="lineno">·5916</span> sub·Geometry·{</div><div·class="line"><a·name="l05917"></a><span·class="lineno">·5917</span> }</div><div·class="line"><a·name="l05918"></a><span·class="lineno">·5918</span> </div><div·class="line"><a·name="l05919"></a><span·class="lineno">·5919</span> <span·class="preprocessor">#**·@method·scalar·GeometryCount()</span></div><div·class="line"><a·name="l05920"></a><span·class="lineno">·5920</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05921"></a><span·class="lineno">·5921</span> <span·class="preprocessor">#·Return·the·number·of·elements·in·this·geometry·or·geometries·in·this·collection.</span></div><div·class="line"><a·name="l05922"></a><span·class="lineno">·5922</span> <span·class="preprocessor">#·@note·a.k.a.·GetGeometryCount</span></div><div·class="line"><a·name="l05923"></a><span·class="lineno">·5923</span> <span·class="preprocessor">#·@return·an·integer</span></div><div·class="line"><a·name="l05924"></a><span·class="lineno">·5924</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05925"></a><span·class="lineno">·5925</span> sub·GeometryCount·{</div><div·class="line"><a·name="l05926"></a><span·class="lineno">·5926</span> }</div><div·class="line"><a·name="l05927"></a><span·class="lineno">·5927</span> </div><div·class="line"><a·name="l05928"></a><span·class="lineno">·5928</span> <span·class="preprocessor">#**·@method·scalar·GeometryType()</span></div><div·class="line"><a·name="l05929"></a><span·class="lineno">·5929</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05930"></a><span·class="lineno">·5930</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l05931"></a><span·class="lineno">·5931</span> <span·class="preprocessor">#·@note·The·deprecated·method·GetGeometryType·returns·the</span></div><div·class="line"><a·name="l05932"></a><span·class="lineno">·5932</span> <span·class="preprocessor">#·type·as·an·integer</span></div><div·class="line"><a·name="l05933"></a><span·class="lineno">·5933</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l05934"></a><span·class="lineno">·5934</span> <span·class="preprocessor">#·@return·the·geometry·type·of·this·geometry·(one·of·Geo::OGR::GeometryTypes).</span></div><div·class="line"><a·name="l05935"></a><span·class="lineno">·5935</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05936"></a><span·class="lineno">·5936</span> sub·GeometryType·{</div><div·class="line"><a·name="l05937"></a><span·class="lineno">·5937</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l05938"></a><span·class="lineno">·5938</span> ····<span·class="keywordflow">return</span>·i2s(geometry_type·=>·$self->GetGeometryType);</div><div·class="line"><a·name="l05939"></a><span·class="lineno">·5939</span> }</div><div·class="line"><a·name="l05940"></a><span·class="lineno">·5940</span> </div><div·class="line"><a·name="l05941"></a><span·class="lineno">·5941</span> <span·class="preprocessor">#**·@method·list·GeometryTypes()</span></div><div·class="line"><a·name="l05942"></a><span·class="lineno">·5942</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l05943"></a><span·class="lineno">·5943</span> <span·class="preprocessor">#·Same·as·Geo::OGR::GeometryTypes</span></div><div·class="line"><a·name="l05944"></a><span·class="lineno">·5944</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05945"></a><span·class="lineno">·5945</span> sub·GeometryTypes·{</div><div·class="line"><a·name="l05946"></a><span·class="lineno">·5946</span> ····<span·class="keywordflow">return</span>·@GEOMETRY_TYPES;</div><div·class="line"><a·name="l05947"></a><span·class="lineno">·5947</span> }</div><div·class="line"><a·name="l05948"></a><span·class="lineno">·5948</span> </div><div·class="line"><a·name="l05949"></a><span·class="lineno">·5949</span> <span·class="preprocessor">#**·@method·scalar·GetCoordinateDimension()</span></div><div·class="line"><a·name="l05950"></a><span·class="lineno">·5950</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05951"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1MajorObject.html">·5951</a></span> <span·class="preprocessor">#·@return·an·integer</span></div><div·class="line"><a·name="l05952"></a><span·class="lineno">·5952</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05953"></a><span·class="lineno">·5953</span> sub·GetCoordinateDimension·{</div><div·class="line"><a·name="l05954"></a><span·class="lineno">·5954</span> }</div><div·class="line"><a·name="l05955"></a><span·class="lineno">·5955</span> </div><div·class="line"><a·name="l05956"></a><span·class="lineno">·5956</span> <span·class="preprocessor">#**·@method·GetCurveGeometry()</span></div><div·class="line"><a·name="l05957"></a><span·class="lineno">·5957</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05958"></a><span·class="lineno">·5958</span> sub·GetCurveGeometry·{</div><div·class="line"><a·name="l05959"></a><span·class="lineno">·5959</span> }</div><div·class="line"><a·name="l05960"></a><span·class="lineno">·5960</span> </div><div·class="line"><a·name="l05961"></a><span·class="lineno">·5961</span> <span·class="preprocessor">#**·@method·scalar·GetDimension()</span></div><div·class="line"><a·name="l05962"></a><span·class="lineno">·5962</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05963"></a><span·class="lineno">·5963</span> <span·class="preprocessor">#·@return·0,·1,·or·2</span></div><div·class="line"><a·name="l05964"></a><span·class="lineno">·5964</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05965"></a><span·class="lineno">·5965</span> sub·GetDimension·{</div><div·class="line"><a·name="l05966"></a><span·class="lineno">·5966</span> }</div><div·class="line"><a·name="l05967"></a><span·class="lineno">·5967</span> </div><div·class="line"><a·name="l05968"></a><span·class="lineno">·5968</span> <span·class="preprocessor">#**·@method·list·GetEnvelope()</span></div><div·class="line"><a·name="l05969"></a><span·class="lineno">·5969</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05970"></a><span·class="lineno">·5970</span> <span·class="preprocessor">#·@note·In·scalar·context·returns·a·reference·to·an·anonymous·array</span></div><div·class="line"><a·name="l05971"></a><span·class="lineno">·5971</span> <span·class="preprocessor">#·containing·the·envelope.</span></div><div·class="line"><a·name="l05972"></a><span·class="lineno">·5972</span> <span·class="preprocessor">#·@return·the·envelope·($minx,·$maxx,·$miny,·$maxy)</span></div><div·class="line"><a·name="l05973"></a><span·class="lineno">·5973</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05974"></a><span·class="lineno">·5974</span> sub·GetEnvelope·{</div><div·class="line"><a·name="l05975"></a><span·class="lineno">·5975</span> }</div><div·class="line"><a·name="l05976"></a><span·class="lineno">·5976</span> </div><div·class="line"><a·name="l05977"></a><span·class="lineno">·5977</span> <span·class="preprocessor">#**·@method·list·GetEnvelope3D()</span></div><div·class="line"><a·name="l05978"></a><span·class="lineno">·5978</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05979"></a><span·class="lineno">·5979</span> <span·class="preprocessor">#·@note·In·scalar·context·returns·a·reference·to·an·anonymous·array</span></div><div·class="line"><a·name="l05980"></a><span·class="lineno">·5980</span> <span·class="preprocessor">#·containing·the·envelope.</span></div><div·class="line"><a·name="l05981"></a><span·class="lineno">·5981</span> <span·class="preprocessor">#·@return·the·3-D·envelope·($minx,·$maxx,·$miny,·$maxy,·$minz,·$maxz)</span></div><div·class="line"><a·name="l05982"></a><span·class="lineno">·5982</span> <span·class="preprocessor">#·@since·1.9.0</span></div><div·class="line"><a·name="l05983"></a><span·class="lineno">·5983</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05984"></a><span·class="lineno">·5984</span> sub·GetEnvelope3D·{</div><div·class="line"><a·name="l05985"></a><span·class="lineno">·5985</span> }</div><div·class="line"><a·name="l05986"></a><span·class="lineno">·5986</span> </div><div·class="line"><a·name="l05987"></a><span·class="lineno">·5987</span> <span·class="preprocessor">#**·@method·scalar·GetGeometryRef($index)</span></div><div·class="line"><a·name="l05988"></a><span·class="lineno">·5988</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l05989"></a><span·class="lineno">·5989</span> <span·class="preprocessor">#·@deprecated·Use·Geo::OGR::Geometry</span></div><div·class="line"><a·name="l05990"></a><span·class="lineno">·5990</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l05991"></a><span·class="lineno">·5991</span> sub·GetGeometryRef·{</div><div·class="line"><a·name="l05992"></a><span·class="lineno">·5992</span> ····my·($self,·$i)·=·@_;</div><div·class="line"><a·name="l05993"></a><span·class="lineno">·5993</span> ····my·$ref·=·$self->_GetGeometryRef($i);</div><div·class="line"><a·name="l05994"></a><span·class="lineno">·5994</span> ····keep($ref,·$self);</div><div·class="line"><a·name="l05995"></a><span·class="lineno">·5995</span> ····<span·class="keywordflow">return</span>·$ref;</div><div·class="line"><a·name="l05996"></a><span·class="lineno">·5996</span> }</div><div·class="line"><a·name="l05997"></a><span·class="lineno">·5997</span> </div><div·class="line"><a·name="l05998"></a><span·class="lineno">·5998</span> <span·class="preprocessor">#**·@method·GetLinearGeometry()</span></div><div·class="line"><a·name="l05999"></a><span·class="lineno">·5999</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06000"></a><span·class="lineno">·6000</span> sub·GetLinearGeometry·{</div><div·class="line"><a·name="l06001"></a><span·class="lineno">·6001</span> }</div><div·class="line"><a·name="l06002"></a><span·class="lineno">·6002</span> </div><div·class="line"><a·name="l06003"></a><span·class="lineno">·6003</span> <span·class="preprocessor">#**·@method·GetM()</span></div><div·class="line"><a·name="l06004"></a><span·class="lineno">·6004</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06005"></a><span·class="lineno">·6005</span> sub·GetM·{</div><div·class="line"><a·name="l06006"></a><span·class="lineno">·6006</span> }</div><div·class="line"><a·name="l06007"></a><span·class="lineno">·6007</span> </div><div·class="line"><a·name="l06008"></a><span·class="lineno">·6008</span> <span·class="preprocessor">#**·@method·list·GetPoint($index·=·0)</span></div><div·class="line"><a·name="l06009"></a><span·class="lineno">·6009</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06010"></a><span·class="lineno">·6010</span> <span·class="preprocessor">#·@param·index</span></div><div·class="line"><a·name="l06011"></a><span·class="lineno">·6011</span> <span·class="preprocessor">#·@return·(x,y)·or·a·list·with·more·coordinates</span></div><div·class="line"><a·name="l06012"></a><span·class="lineno">·6012</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06013"></a><span·class="lineno">·6013</span> sub·GetPoint·{</div><div·class="line"><a·name="l06014"></a><span·class="lineno">·6014</span> ····my($self,·$i)·=·@_;</div><div·class="line"><a·name="l06015"></a><span·class="lineno">·6015</span> ····$i·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l06016"></a><span·class="lineno">·6016</span> ····my·$t·=·$self->GetGeometryType;</div><div·class="line"><a·name="l06017"></a><span·class="lineno">·6017</span> ····my·$has_z·=·HasZ($t);</div><div·class="line"><a·name="l06018"></a><span·class="lineno">·6018</span> ····my·$has_m·=·HasM($t);</div><div·class="line"><a·name="l06019"></a><span·class="lineno">·6019</span> ····my·$point;</div><div·class="line"><a·name="l06020"></a><span·class="lineno">·6020</span> ····<span·class="keywordflow">if</span>·(!$has_z·&&·!$has_m)·{</div><div·class="line"><a·name="l06021"></a><span·class="lineno">·6021</span> ········$point·=·$self->GetPoint_2D($i);</div><div·class="line"><a·name="l06022"></a><span·class="lineno">·6022</span> ····}·elsif·($has_z·&&·!$has_m)·{</div><div·class="line"><a·name="l06023"></a><span·class="lineno">·6023</span> ········$point·=·$self->GetPoint_3D($i);</div><div·class="line"><a·name="l06024"></a><span·class="lineno">·6024</span> ····}·elsif·(!$has_z·&&·$has_m)·{</div><div·class="line"><a·name="l06025"></a><span·class="lineno">·6025</span> ········$point·=·$self->GetPointZM($i);</div><div·class="line"><a·name="l06026"></a><span·class="lineno">·6026</span> ········@$point·=·($point->[0],·$point->[1],·$point->[3]);</div><div·class="line"><a·name="l06027"></a><span·class="lineno">·6027</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06028"></a><span·class="lineno">·6028</span> ········$point·=·$self->GetPointZM($i);</div><div·class="line"><a·name="l06029"></a><span·class="lineno">·6029</span> ····}</div><div·class="line"><a·name="l06030"></a><span·class="lineno">·6030</span> ····<span·class="keywordflow">return</span>·wantarray·?·@$point·:·$point;</div><div·class="line"><a·name="l06031"></a><span·class="lineno">·6031</span> }</div><div·class="line"><a·name="l06032"></a><span·class="lineno">·6032</span> </div><div·class="line"><a·name="l06033"></a><span·class="lineno">·6033</span> <span·class="preprocessor">#**·@method·scalar·GetPointCount()</span></div><div·class="line"><a·name="l06034"></a><span·class="lineno">·6034</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06035"></a><span·class="lineno">·6035</span> <span·class="preprocessor">#·@return·an·integer</span></div><div·class="line"><a·name="l06036"></a><span·class="lineno">·6036</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06037"></a><span·class="lineno">·6037</span> sub·GetPointCount·{</div><div·class="line"><a·name="l06038"></a><span·class="lineno">·6038</span> }</div><div·class="line"><a·name="l06039"></a><span·class="lineno">·6039</span> </div><div·class="line"><a·name="l06040"></a><span·class="lineno">·6040</span> <span·class="preprocessor">#**·@method·GetPointZM()</span></div><div·class="line"><a·name="l06041"></a><span·class="lineno">·6041</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06042"></a><span·class="lineno">·6042</span> sub·GetPointZM·{</div><div·class="line"><a·name="l06043"></a><span·class="lineno">·6043</span> }</div><div·class="line"><a·name="l06044"></a><span·class="lineno">·6044</span> </div><div·class="line"><a·name="l06045"></a><span·class="lineno">·6045</span> <span·class="preprocessor">#**·@method·scalar·GetPoint_2D($index·=·0)</span></div><div·class="line"><a·name="l06046"></a><span·class="lineno">·6046</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06047"></a><span·class="lineno">·6047</span> <span·class="preprocessor">#·@param·index</span></div><div·class="line"><a·name="l06048"></a><span·class="lineno">·6048</span> <span·class="preprocessor">#·@return·(x,y)·or·a·list·with·more·coordinates</span></div><div·class="line"><a·name="l06049"></a><span·class="lineno">·6049</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06050"></a><span·class="lineno">·6050</span> sub·GetPoint_2D·{</div><div·class="line"><a·name="l06051"></a><span·class="lineno">·6051</span> }</div><div·class="line"><a·name="l06052"></a><span·class="lineno">·6052</span> </div><div·class="line"><a·name="l06053"></a><span·class="lineno">·6053</span> <span·class="preprocessor">#**·@method·scalar·GetPoint_3D($index·=·0)</span></div><div·class="line"><a·name="l06054"></a><span·class="lineno">·6054</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06055"></a><span·class="lineno">·6055</span> <span·class="preprocessor">#·@param·index</span></div><div·class="line"><a·name="l06056"></a><span·class="lineno">·6056</span> <span·class="preprocessor">#·@return·(x,y)·or·a·list·with·more·coordinates</span></div><div·class="line"><a·name="l06057"></a><span·class="lineno">·6057</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06058"></a><span·class="lineno">·6058</span> sub·GetPoint_3D·{</div><div·class="line"><a·name="l06059"></a><span·class="lineno">·6059</span> }</div><div·class="line"><a·name="l06060"></a><span·class="lineno">·6060</span> </div><div·class="line"><a·name="l06061"></a><span·class="lineno">·6061</span> <span·class="preprocessor">#**·@method·Geo::OSR::SpatialReference·GetSpatialReference()</span></div><div·class="line"><a·name="l06062"></a><span·class="lineno">·6062</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06063"></a><span·class="lineno">·6063</span> <span·class="preprocessor">#·@return·a·new·Geo::OSR::SpatialReference·object</span></div><div·class="line"><a·name="l06064"></a><span·class="lineno">·6064</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06065"></a><span·class="lineno">·6065</span> sub·GetSpatialReference·{</div><div·class="line"><a·name="l06066"></a><span·class="lineno">·6066</span> }</div><div·class="line"><a·name="l06067"></a><span·class="lineno">·6067</span> </div><div·class="line"><a·name="l06068"></a><span·class="lineno">·6068</span> <span·class="preprocessor">#**·@method·scalar·GetX($index·=·0)</span></div><div·class="line"><a·name="l06069"></a><span·class="lineno">·6069</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06070"></a><span·class="lineno">·6070</span> <span·class="preprocessor">#·@param·index</span></div><div·class="line"><a·name="l06071"></a><span·class="lineno">·6071</span> <span·class="preprocessor">#·@return·a·number</span></div><div·class="line"><a·name="l06072"></a><span·class="lineno">·6072</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06073"></a><span·class="lineno">·6073</span> sub·GetX·{</div><div·class="line"><a·name="l06074"></a><span·class="lineno">·6074</span> }</div><div·class="line"><a·name="l06075"></a><span·class="lineno">·6075</span> </div><div·class="line"><a·name="l06076"></a><span·class="lineno">·6076</span> <span·class="preprocessor">#**·@method·scalar·GetY($index·=·0)</span></div><div·class="line"><a·name="l06077"></a><span·class="lineno">·6077</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06078"></a><span·class="lineno">·6078</span> <span·class="preprocessor">#·@param·index</span></div><div·class="line"><a·name="l06079"></a><span·class="lineno">·6079</span> <span·class="preprocessor">#·@return·a·number</span></div><div·class="line"><a·name="l06080"></a><span·class="lineno">·6080</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06081"></a><span·class="lineno">·6081</span> sub·GetY·{</div><div·class="line"><a·name="l06082"></a><span·class="lineno">·6082</span> }</div><div·class="line"><a·name="l06083"></a><span·class="lineno">·6083</span> </div><div·class="line"><a·name="l06084"></a><span·class="lineno">·6084</span> <span·class="preprocessor">#**·@method·scalar·GetZ($index·=·0)</span></div><div·class="line"><a·name="l06085"></a><span·class="lineno">·6085</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06086"></a><span·class="lineno">·6086</span> <span·class="preprocessor">#·@param·index</span></div><div·class="line"><a·name="l06087"></a><span·class="lineno">·6087</span> <span·class="preprocessor">#·@return·a·number</span></div><div·class="line"><a·name="l06088"></a><span·class="lineno">·6088</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06089"></a><span·class="lineno">·6089</span> sub·GetZ·{</div><div·class="line"><a·name="l06090"></a><span·class="lineno">·6090</span> }</div><div·class="line"><a·name="l06091"></a><span·class="lineno">·6091</span> </div><div·class="line"><a·name="l06092"></a><span·class="lineno">·6092</span> <span·class="preprocessor">#**·@method·HasCurveGeometry()</span></div><div·class="line"><a·name="l06093"></a><span·class="lineno">·6093</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06094"></a><span·class="lineno">·6094</span> sub·HasCurveGeometry·{</div><div·class="line"><a·name="l06095"></a><span·class="lineno">·6095</span> }</div><div·class="line"><a·name="l06096"></a><span·class="lineno">·6096</span> </div><div·class="line"><a·name="l06097"></a><span·class="lineno">·6097</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·Intersection($other)</span></div><div·class="line"><a·name="l06098"></a><span·class="lineno">·6098</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06099"></a><span·class="lineno">·6099</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l06100"></a><span·class="lineno">·6100</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l06101"></a><span·class="lineno">·6101</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06102"></a><span·class="lineno">·6102</span> sub·Intersection·{</div><div·class="line"><a·name="l06103"></a><span·class="lineno">·6103</span> }</div><div·class="line"><a·name="l06104"></a><span·class="lineno">·6104</span> </div><div·class="line"><a·name="l06105"></a><span·class="lineno">·6105</span> <span·class="preprocessor">#**·@method·scalar·Intersects($other)</span></div><div·class="line"><a·name="l06106"></a><span·class="lineno">·6106</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06107"></a><span·class="lineno">·6107</span> <span·class="preprocessor">#·@note·a.k.a.·Intersect·(deprecated)</span></div><div·class="line"><a·name="l06108"></a><span·class="lineno">·6108</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l06109"></a><span·class="lineno">·6109</span> <span·class="preprocessor">#·@return·true·if·this·geometry·intersects·with·the·other·geometry,·false·otherwise</span></div><div·class="line"><a·name="l06110"></a><span·class="lineno">·6110</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06111"></a><span·class="lineno">·6111</span> sub·Intersects·{</div><div·class="line"><a·name="l06112"></a><span·class="lineno">·6112</span> }</div><div·class="line"><a·name="l06113"></a><span·class="lineno">·6113</span> </div><div·class="line"><a·name="l06114"></a><span·class="lineno">·6114</span> <span·class="preprocessor">#**·@method·Is3D()</span></div><div·class="line"><a·name="l06115"></a><span·class="lineno">·6115</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06116"></a><span·class="lineno">·6116</span> sub·Is3D·{</div><div·class="line"><a·name="l06117"></a><span·class="lineno">·6117</span> }</div><div·class="line"><a·name="l06118"></a><span·class="lineno">·6118</span> </div><div·class="line"><a·name="l06119"></a><span·class="lineno">·6119</span> <span·class="preprocessor">#**·@method·scalar·IsEmpty()</span></div><div·class="line"><a·name="l06120"></a><span·class="lineno">·6120</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06121"></a><span·class="lineno">·6121</span> <span·class="preprocessor">#·Test·whether·the·geometry·is·empty·(has·no·points,·or,·for·a·point,</span></div><div·class="line"><a·name="l06122"></a><span·class="lineno">·6122</span> <span·class="preprocessor">#·has·coordinate·dimension·of·zero).</span></div><div·class="line"><a·name="l06123"></a><span·class="lineno">·6123</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l06124"></a><span·class="lineno">·6124</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06125"></a><span·class="lineno">·6125</span> sub·IsEmpty·{</div><div·class="line"><a·name="l06126"></a><span·class="lineno">·6126</span> }</div><div·class="line"><a·name="l06127"></a><span·class="lineno">·6127</span> </div><div·class="line"><a·name="l06128"></a><span·class="lineno">·6128</span> <span·class="preprocessor">#**·@method·IsMeasured()</span></div><div·class="line"><a·name="l06129"></a><span·class="lineno">·6129</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06130"></a><span·class="lineno">·6130</span> sub·IsMeasured·{</div><div·class="line"><a·name="l06131"></a><span·class="lineno">·6131</span> }</div><div·class="line"><a·name="l06132"></a><span·class="lineno">·6132</span> </div><div·class="line"><a·name="l06133"></a><span·class="lineno">·6133</span> <span·class="preprocessor">#**·@method·scalar·IsRing()</span></div><div·class="line"><a·name="l06134"></a><span·class="lineno">·6134</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06135"></a><span·class="lineno">·6135</span> <span·class="preprocessor">#·Test·if·the·geometry·is·a·ring.·Requires·GEOS·in·GDAL.</span></div><div·class="line"><a·name="l06136"></a><span·class="lineno">·6136</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l06137"></a><span·class="lineno">·6137</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06138"></a><span·class="lineno">·6138</span> sub·IsRing·{</div><div·class="line"><a·name="l06139"></a><span·class="lineno">·6139</span> }</div><div·class="line"><a·name="l06140"></a><span·class="lineno">·6140</span> </div><div·class="line"><a·name="l06141"></a><span·class="lineno">·6141</span> <span·class="preprocessor">#**·@method·scalar·IsSimple()</span></div><div·class="line"><a·name="l06142"></a><span·class="lineno">·6142</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06143"></a><span·class="lineno">·6143</span> <span·class="preprocessor">#·Test·the·simplicity·of·the·geometry·(OGC·sense).·Requires·GEOS·in·GDAL.</span></div><div·class="line"><a·name="l06144"></a><span·class="lineno">·6144</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l06145"></a><span·class="lineno">·6145</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06146"></a><span·class="lineno">·6146</span> sub·IsSimple·{</div><div·class="line"><a·name="l06147"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1RasterAttributeTable.html">·6147</a></span> }</div><div·class="line"><a·name="l06148"></a><span·class="lineno">·6148</span> </div><div·class="line"><a·name="l06149"></a><span·class="lineno">·6149</span> <span·class="preprocessor">#**·@method·scalar·IsValid()</span></div><div·class="line"><a·name="l06150"></a><span·class="lineno">·6150</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06151"></a><span·class="lineno">·6151</span> <span·class="preprocessor">#·Test·the·validity·of·the·geometry·(OGC·sense).·Requires·GEOS·in·GDAL.</span></div><div·class="line"><a·name="l06152"></a><span·class="lineno">·6152</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l06153"></a><span·class="lineno">·6153</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06154"></a><span·class="lineno">·6154</span> sub·IsValid·{</div><div·class="line"><a·name="l06155"></a><span·class="lineno">·6155</span> }</div><div·class="line"><a·name="l06156"></a><span·class="lineno">·6156</span> </div><div·class="line"><a·name="l06157"></a><span·class="lineno">·6157</span> <span·class="preprocessor">#**·@method·scalar·Length()</span></div><div·class="line"><a·name="l06158"></a><span·class="lineno">·6158</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06159"></a><span·class="lineno">·6159</span> <span·class="preprocessor">#·@return·the·length·of·the·linestring</span></div><div·class="line"><a·name="l06160"></a><span·class="lineno">·6160</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06161"></a><span·class="lineno">·6161</span> sub·Length·{</div><div·class="line"><a·name="l06162"></a><span·class="lineno">·6162</span> }</div><div·class="line"><a·name="l06163"></a><span·class="lineno">·6163</span> </div><div·class="line"><a·name="l06164"></a><span·class="lineno">·6164</span> <span·class="preprocessor">#**·@method·Move($dx,·$dy,·$dz)</span></div><div·class="line"><a·name="l06165"></a><span·class="lineno">·6165</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06166"></a><span·class="lineno">·6166</span> <span·class="preprocessor">#·Move·every·point·of·the·object·as·defined·by·the·parameters.</span></div><div·class="line"><a·name="l06167"></a><span·class="lineno">·6167</span> <span·class="preprocessor">#·@param·dx</span></div><div·class="line"><a·name="l06168"></a><span·class="lineno">·6168</span> <span·class="preprocessor">#·@param·dy</span></div><div·class="line"><a·name="l06169"></a><span·class="lineno">·6169</span> <span·class="preprocessor">#·@param·dz·[optional]</span></div><div·class="line"><a·name="l06170"></a><span·class="lineno">·6170</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06171"></a><span·class="lineno">·6171</span> sub·Move·{</div><div·class="line"><a·name="l06172"></a><span·class="lineno">·6172</span> }</div><div·class="line"><a·name="l06173"></a><span·class="lineno">·6173</span> </div><div·class="line"><a·name="l06174"></a><span·class="lineno">·6174</span> <span·class="preprocessor">#**·@method·scalar·Overlaps($other)</span></div><div·class="line"><a·name="l06175"></a><span·class="lineno">·6175</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06176"></a><span·class="lineno">·6176</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l06177"></a><span·class="lineno">·6177</span> <span·class="preprocessor">#·@return·true·if·this·geometry·overlaps·the·other·geometry,·false·otherwise</span></div><div·class="line"><a·name="l06178"></a><span·class="lineno">·6178</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06179"></a><span·class="lineno">·6179</span> sub·Overlaps·{</div><div·class="line"><a·name="l06180"></a><span·class="lineno">·6180</span> }</div><div·class="line"><a·name="l06181"></a><span·class="lineno">·6181</span> </div><div·class="line"><a·name="l06182"></a><span·class="lineno">·6182</span> <span·class="preprocessor">#**·@method·list·Point($index,·$x,·$y,·$z)</span></div><div·class="line"><a·name="l06183"></a><span·class="lineno">·6183</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06184"></a><span·class="lineno">·6184</span> <span·class="preprocessor">#·Get·or·set·the·point</span></div><div·class="line"><a·name="l06185"></a><span·class="lineno">·6185</span> <span·class="preprocessor">#·@param·index·The·index·of·the·point.·Optional·(ignored·if·given)·for</span></div><div·class="line"><a·name="l06186"></a><span·class="lineno">·6186</span> <span·class="preprocessor">#·Point·and·Point25D·geometries.</span></div><div·class="line"><a·name="l06187"></a><span·class="lineno">·6187</span> <span·class="preprocessor">#·@param·x·[optional]</span></div><div·class="line"><a·name="l06188"></a><span·class="lineno">·6188</span> <span·class="preprocessor">#·@param·y·[optional]</span></div><div·class="line"><a·name="l06189"></a><span·class="lineno">·6189</span> <span·class="preprocessor">#·@param·z·[optional]</span></div><div·class="line"><a·name="l06190"></a><span·class="lineno">·6190</span> <span·class="preprocessor">#·@return</span></div><div·class="line"><a·name="l06191"></a><span·class="lineno">·6191</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06192"></a><span·class="lineno">·6192</span> sub·Point·{</div><div·class="line"><a·name="l06193"></a><span·class="lineno">·6193</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06194"></a><span·class="lineno">·6194</span> ····my·$i;</div><div·class="line"><a·name="l06195"></a><span·class="lineno">·6195</span> ····<span·class="keywordflow">if</span>·(@_)·{</div><div·class="line"><a·name="l06196"></a><span·class="lineno">·6196</span> ········my·$t·=·$self->GetGeometryType;</div><div·class="line"><a·name="l06197"></a><span·class="lineno">·6197</span> ········my·$i;</div><div·class="line"><a·name="l06198"></a><span·class="lineno">·6198</span> ········<span·class="keywordflow">if</span>·(Flatten($t)·==·$Geo::OGR::wkbPoint)·{</div><div·class="line"><a·name="l06199"></a><span·class="lineno">·6199</span> ············my·$has_z·=·HasZ($t);</div><div·class="line"><a·name="l06200"></a><span·class="lineno">·6200</span> ············my·$has_m·=·HasM($t);</div><div·class="line"><a·name="l06201"></a><span·class="lineno">·6201</span> ············<span·class="keywordflow">if</span>·(!$has_z·&&·!$has_m)·{</div><div·class="line"><a·name="l06202"></a><span·class="lineno">·6202</span> ················shift·<span·class="keywordflow">if</span>·@_·>·2;</div><div·class="line"><a·name="l06203"></a><span·class="lineno">·6203</span> ················$i·=·0;</div><div·class="line"><a·name="l06204"></a><span·class="lineno">·6204</span> ············}·elsif·($has_z·||·$has_m)·{</div><div·class="line"><a·name="l06205"></a><span·class="lineno">·6205</span> ················shift·<span·class="keywordflow">if</span>·@_·>·3;</div><div·class="line"><a·name="l06206"></a><span·class="lineno">·6206</span> ················$i·=·0;</div><div·class="line"><a·name="l06207"></a><span·class="lineno">·6207</span> ············}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06208"></a><span·class="lineno">·6208</span> ················shift·<span·class="keywordflow">if</span>·@_·>·4;</div><div·class="line"><a·name="l06209"></a><span·class="lineno">·6209</span> ················$i·=·0;</div><div·class="line"><a·name="l06210"></a><span·class="lineno">·6210</span> ············}</div><div·class="line"><a·name="l06211"></a><span·class="lineno">·6211</span> ········}</div><div·class="line"><a·name="l06212"></a><span·class="lineno">·6212</span> ········$i·=·shift·unless·defined·$i;</div><div·class="line"><a·name="l06213"></a><span·class="lineno">·6213</span> ········$self->SetPoint($i,·@_);</div><div·class="line"><a·name="l06214"></a><span·class="lineno">·6214</span> ····}</div><div·class="line"><a·name="l06215"></a><span·class="lineno">·6215</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l06216"></a><span·class="lineno">·6216</span> ····my·$point·=·$self->GetPoint;</div><div·class="line"><a·name="l06217"></a><span·class="lineno">·6217</span> ····<span·class="keywordflow">return</span>·wantarray·?·@$point·:·$point;</div><div·class="line"><a·name="l06218"></a><span·class="lineno">·6218</span> }</div><div·class="line"><a·name="l06219"></a><span·class="lineno">·6219</span> </div><div·class="line"><a·name="l06220"></a><span·class="lineno">·6220</span> <span·class="preprocessor">#**·@method·PointOnSurface()</span></div><div·class="line"><a·name="l06221"></a><span·class="lineno">·6221</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06222"></a><span·class="lineno">·6222</span> sub·PointOnSurface·{</div><div·class="line"><a·name="l06223"></a><span·class="lineno">·6223</span> }</div><div·class="line"><a·name="l06224"></a><span·class="lineno">·6224</span> </div><div·class="line"><a·name="l06225"></a><span·class="lineno">·6225</span> <span·class="preprocessor">#**·@method·array·reference·Points(arrayref·points)</span></div><div·class="line"><a·name="l06226"></a><span·class="lineno">·6226</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06227"></a><span·class="lineno">·6227</span> <span·class="preprocessor">#·Get·or·set·the·points·of·the·geometry.·The·points·(vertices)·are</span></div><div·class="line"><a·name="l06228"></a><span·class="lineno">·6228</span> <span·class="preprocessor">#·stored·in·obvious·lists·of·lists.·When·setting,·the·geometry·is</span></div><div·class="line"><a·name="l06229"></a><span·class="lineno">·6229</span> <span·class="preprocessor">#·first·emptied.·The·method·uses·internally·either·AddPoint_2D·or</span></div><div·class="line"><a·name="l06230"></a><span·class="lineno">·6230</span> <span·class="preprocessor">#·AddPoint_3D·depending·on·the·coordinate·dimension·of·the·input·data.</span></div><div·class="line"><a·name="l06231"></a><span·class="lineno">·6231</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06232"></a><span·class="lineno">·6232</span> <span·class="preprocessor">#·@note·The·same·structure·may·represent·different·geometries</span></div><div·class="line"><a·name="l06233"></a><span·class="lineno">·6233</span> <span·class="preprocessor">#·depending·on·the·actual·geometry·type·of·the·object.</span></div><div·class="line"><a·name="l06234"></a><span·class="lineno">·6234</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06235"></a><span·class="lineno">·6235</span> <span·class="preprocessor">#·@param·points·[optional]·A·reference·to·an·array.·A·point·is·a·reference·to·an</span></div><div·class="line"><a·name="l06236"></a><span·class="lineno">·6236</span> <span·class="preprocessor">#·array·of·numbers,·a·linestring·or·a·ring·is·a·reference·to·an·array·of·points,</span></div><div·class="line"><a·name="l06237"></a><span·class="lineno">·6237</span> <span·class="preprocessor">#·a·polygon·is·a·reference·to·an·array·of·rings,·etc.</span></div><div·class="line"><a·name="l06238"></a><span·class="lineno">·6238</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06239"></a><span·class="lineno">·6239</span> <span·class="preprocessor">#·@return·A·reference·to·an·array.</span></div><div·class="line"><a·name="l06240"></a><span·class="lineno">·6240</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06241"></a><span·class="lineno">·6241</span> sub·Points·{</div><div·class="line"><a·name="l06242"></a><span·class="lineno">·6242</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06243"></a><span·class="lineno">·6243</span> ····my·$t·=·$self->GetGeometryType;</div><div·class="line"><a·name="l06244"></a><span·class="lineno">·6244</span> ····my·$has_z·=·HasZ($t);</div><div·class="line"><a·name="l06245"></a><span·class="lineno">·6245</span> ····my·$has_m·=·HasM($t);</div><div·class="line"><a·name="l06246"></a><span·class="lineno">·6246</span> ····my·$postfix·=·<span·class="stringliteral">''</span>;</div><div·class="line"><a·name="l06247"></a><span·class="lineno">·6247</span> ····$postfix·.=·<span·class="charliteral">'Z'</span>·<span·class="keywordflow">if</span>·HasZ($t);</div><div·class="line"><a·name="l06248"></a><span·class="lineno">·6248</span> ····$postfix·.=·<span·class="charliteral">'M'</span>·<span·class="keywordflow">if</span>·HasM($t);</div><div·class="line"><a·name="l06249"></a><span·class="lineno">·6249</span> ····$t·=·i2s(geometry_type·=>·Flatten($t));</div><div·class="line"><a·name="l06250"></a><span·class="lineno">·6250</span> ····my·$points·=·shift;</div><div·class="line"><a·name="l06251"></a><span·class="lineno">·6251</span> ····<span·class="keywordflow">if</span>·($points)·{</div><div·class="line"><a·name="l06252"></a><span·class="lineno">·6252</span> ········Empty($self);</div><div·class="line"><a·name="l06253"></a><span·class="lineno">·6253</span> ········<span·class="keywordflow">if</span>·($t·eq·<span·class="stringliteral">'Unknown'</span>·or·$t·eq·<span·class="stringliteral">'None'</span>·or·$t·eq·<span·class="stringliteral">'GeometryCollection'</span>)·{</div><div·class="line"><a·name="l06254"></a><span·class="lineno">·6254</span> ············error(<span·class="stringliteral">"Can't·set·points·of·a·geometry·of·type·'$t'."</span>);</div><div·class="line"><a·name="l06255"></a><span·class="lineno">·6255</span> ········}·elsif·($t·eq·<span·class="stringliteral">'Point'</span>)·{</div><div·class="line"><a·name="l06256"></a><span·class="lineno">·6256</span> <span·class="preprocessor">············#·support·both·"Point"·as·a·list·of·one·point·and·one·point</span></div><div·class="line"><a·name="l06257"></a><span·class="lineno">·6257</span> ············<span·class="keywordflow">if</span>·(ref($points->[0]))·{</div><div·class="line"><a·name="l06258"></a><span·class="lineno">·6258</span> ················$self->AddPoint(@{$points->[0]});</div><div·class="line"><a·name="l06259"></a><span·class="lineno">·6259</span> ············}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06260"></a><span·class="lineno">·6260</span> ················$self->AddPoint(@$points);</div><div·class="line"><a·name="l06261"></a><span·class="lineno">·6261</span> ············}</div><div·class="line"><a·name="l06262"></a><span·class="lineno">·6262</span> ········}·elsif·($t·eq·<span·class="stringliteral">'LineString'</span>·or·$t·eq·<span·class="stringliteral">'LinearRing'</span>·or·$t·eq·<span·class="stringliteral">'CircularString'</span>)·{</div><div·class="line"><a·name="l06263"></a><span·class="lineno">·6263</span> ············<span·class="keywordflow">for</span>·my·$p·(@$points)·{</div><div·class="line"><a·name="l06264"></a><span·class="lineno">·6264</span> ················$self->AddPoint(@$p);</div><div·class="line"><a·name="l06265"></a><span·class="lineno">·6265</span> ············}</div><div·class="line"><a·name="l06266"></a><span·class="lineno">·6266</span> ········}·elsif·($t·eq·<span·class="stringliteral">'Polygon'</span>)·{</div><div·class="line"><a·name="l06267"></a><span·class="lineno">·6267</span> ············<span·class="keywordflow">for</span>·my·$r·(@$points)·{</div><div·class="line"><a·name="l06268"></a><span·class="lineno">·6268</span> ················my·$ring·=·<a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html">Geo::OGR::Geometry</a>-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a95c4be922b97e1067d68340871a617c8">new</a>(<span·class="stringliteral">'LinearRing'</span>);</div><div·class="line"><a·name="l06269"></a><span·class="lineno">·6269</span> ················$ring-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#ad285179d427c6021d22921ff62299ac0">Set3D</a>(1)·<span·class="keywordflow">if</span>·$has_z;</div><div·class="line"><a·name="l06270"></a><span·class="lineno">·6270</span> ················$ring->SetMeasured(1)·<span·class="keywordflow">if</span>·$has_m;</div><div·class="line"><a·name="l06271"></a><span·class="lineno">·6271</span> ················$ring->Points($r);</div><div·class="line"><a·name="l06272"></a><span·class="lineno">·6272</span> ················$self->AddGeometryDirectly($ring);</div><div·class="line"><a·name="l06273"></a><span·class="lineno">·6273</span> ············}</div><div·class="line"><a·name="l06274"></a><span·class="lineno">·6274</span> ········}·elsif·($t·eq·<span·class="stringliteral">'MultiPoint'</span>)·{</div><div·class="line"><a·name="l06275"></a><span·class="lineno">·6275</span> ············<span·class="keywordflow">for</span>·my·$p·(@$points)·{</div><div·class="line"><a·name="l06276"></a><span·class="lineno">·6276</span> ················my·$point·=·<a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html">Geo::OGR::Geometry</a>-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a95c4be922b97e1067d68340871a617c8">new</a>(<span·class="stringliteral">'Point'</span>.$postfix);</div><div·class="line"><a·name="l06277"></a><span·class="lineno">·6277</span> ················$point-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a41fca662edd1228dad2a654e2460e37c">Points</a>($p);</div><div·class="line"><a·name="l06278"></a><span·class="lineno">·6278</span> ················$self->AddGeometryDirectly($point);</div><div·class="line"><a·name="l06279"></a><span·class="lineno">·6279</span> ············}</div><div·class="line"><a·name="l06280"></a><span·class="lineno">·6280</span> ········}·elsif·($t·eq·<span·class="stringliteral">'MultiLineString'</span>)·{</div><div·class="line"><a·name="l06281"></a><span·class="lineno">·6281</span> ············<span·class="keywordflow">for</span>·my·$l·(@$points)·{</div><div·class="line"><a·name="l06282"></a><span·class="lineno">·6282</span> ················my·$linestring·=·<a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html">Geo::OGR::Geometry</a>-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a95c4be922b97e1067d68340871a617c8">new</a>(<span·class="stringliteral">'LineString'</span>.$postfix);</div><div·class="line"><a·name="l06283"></a><span·class="lineno">·6283</span> ················$linestring-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a41fca662edd1228dad2a654e2460e37c">Points</a>($l);</div><div·class="line"><a·name="l06284"></a><span·class="lineno">·6284</span> ················$self->AddGeometryDirectly($linestring);</div><div·class="line"><a·name="l06285"></a><span·class="lineno">·6285</span> ············}</div><div·class="line"><a·name="l06286"></a><span·class="lineno">·6286</span> ········}·elsif·($t·eq·<span·class="stringliteral">'MultiPolygon'</span>)·{</div><div·class="line"><a·name="l06287"></a><span·class="lineno">·6287</span> ············<span·class="keywordflow">for</span>·my·$p·(@$points)·{</div><div·class="line"><a·name="l06288"></a><span·class="lineno">·6288</span> ················my·$polygon·=·<a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html">Geo::OGR::Geometry</a>-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a95c4be922b97e1067d68340871a617c8">new</a>(<span·class="stringliteral">'Polygon'</span>.$postfix);</div><div·class="line"><a·name="l06289"></a><span·class="lineno">·6289</span> ················$polygon-><a·class="code"·href="classGeo_1_1OGR_1_1Geometry.html#a41fca662edd1228dad2a654e2460e37c">Points</a>($p);</div><div·class="line"><a·name="l06290"></a><span·class="lineno">·6290</span> ················$self->AddGeometryDirectly($polygon);</div><div·class="line"><a·name="l06291"></a><span·class="lineno">·6291</span> ············}</div><div·class="line"><a·name="l06292"></a><span·class="lineno">·6292</span> ········}</div><div·class="line"><a·name="l06293"></a><span·class="lineno">·6293</span> ····}</div><div·class="line"><a·name="l06294"></a><span·class="lineno">·6294</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l06295"></a><span·class="lineno">·6295</span> ····$self->_GetPoints();</div><div·class="line"><a·name="l06296"></a><span·class="lineno">·6296</span> }</div><div·class="line"><a·name="l06297"></a><span·class="lineno">·6297</span> </div><div·class="line"><a·name="l06298"></a><span·class="lineno">·6298</span> <span·class="preprocessor">#**·@method·Polygonize()</span></div><div·class="line"><a·name="l06299"></a><span·class="lineno">·6299</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06300"></a><span·class="lineno">·6300</span> sub·Polygonize·{</div><div·class="line"><a·name="l06301"></a><span·class="lineno">·6301</span> }</div><div·class="line"><a·name="l06302"></a><span·class="lineno">·6302</span> </div><div·class="line"><a·name="l06303"></a><span·class="lineno">·6303</span> <span·class="preprocessor">#**·@method·RemoveGeometry()</span></div><div·class="line"><a·name="l06304"></a><span·class="lineno">·6304</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06305"></a><span·class="lineno">·6305</span> sub·RemoveGeometry·{</div><div·class="line"><a·name="l06306"></a><span·class="lineno">·6306</span> }</div><div·class="line"><a·name="l06307"></a><span·class="lineno">·6307</span> </div><div·class="line"><a·name="l06308"></a><span·class="lineno">·6308</span> <span·class="preprocessor">#**·@method·Segmentize($MaxLength)</span></div><div·class="line"><a·name="l06309"></a><span·class="lineno">·6309</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06310"></a><span·class="lineno">·6310</span> <span·class="preprocessor">#·Modify·the·geometry·such·it·has·no·segment·longer·than·the·given·length.</span></div><div·class="line"><a·name="l06311"></a><span·class="lineno">·6311</span> <span·class="preprocessor">#·@param·MaxLength·the·given·length</span></div><div·class="line"><a·name="l06312"></a><span·class="lineno">·6312</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06313"></a><span·class="lineno">·6313</span> sub·Segmentize·{</div><div·class="line"><a·name="l06314"></a><span·class="lineno">·6314</span> }</div><div·class="line"><a·name="l06315"></a><span·class="lineno">·6315</span> </div><div·class="line"><a·name="l06316"></a><span·class="lineno">·6316</span> <span·class="preprocessor">#**·@method·Set3D()</span></div><div·class="line"><a·name="l06317"></a><span·class="lineno">·6317</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06318"></a><span·class="lineno">·6318</span> sub·Set3D·{</div><div·class="line"><a·name="l06319"></a><span·class="lineno">·6319</span> }</div><div·class="line"><a·name="l06320"></a><span·class="lineno">·6320</span> </div><div·class="line"><a·name="l06321"></a><span·class="lineno">·6321</span> <span·class="preprocessor">#**·@method·SetCoordinateDimension($dimension)</span></div><div·class="line"><a·name="l06322"></a><span·class="lineno">·6322</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06323"></a><span·class="lineno">·6323</span> <span·class="preprocessor">#·@param·dimension</span></div><div·class="line"><a·name="l06324"></a><span·class="lineno">·6324</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06325"></a><span·class="lineno">·6325</span> sub·SetCoordinateDimension·{</div><div·class="line"><a·name="l06326"></a><span·class="lineno">·6326</span> }</div><div·class="line"><a·name="l06327"></a><span·class="lineno">·6327</span> </div><div·class="line"><a·name="l06328"></a><span·class="lineno">·6328</span> <span·class="preprocessor">#**·@method·SetMeasured()</span></div><div·class="line"><a·name="l06329"></a><span·class="lineno">·6329</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06330"></a><span·class="lineno">·6330</span> sub·SetMeasured·{</div><div·class="line"><a·name="l06331"></a><span·class="lineno">·6331</span> }</div><div·class="line"><a·name="l06332"></a><span·class="lineno">·6332</span> </div><div·class="line"><a·name="l06333"></a><span·class="lineno">·6333</span> <span·class="preprocessor">#**·@method·SetPoint($index,·$x,·$y,·$z)</span></div><div·class="line"><a·name="l06334"></a><span·class="lineno">·6334</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06335"></a><span·class="lineno">·6335</span> <span·class="preprocessor">#·Set·the·data·of·a·point·or·a·line·string.·Note·that·the·coordinate</span></div><div·class="line"><a·name="l06336"></a><span·class="lineno">·6336</span> <span·class="preprocessor">#·dimension·is·automatically·upgraded·to·25D·(3)·if·z·is·given.</span></div><div·class="line"><a·name="l06337"></a><span·class="lineno">·6337</span> <span·class="preprocessor">#·@param·index</span></div><div·class="line"><a·name="l06338"></a><span·class="lineno">·6338</span> <span·class="preprocessor">#·@param·x</span></div><div·class="line"><a·name="l06339"></a><span·class="lineno">·6339</span> <span·class="preprocessor">#·@param·y</span></div><div·class="line"><a·name="l06340"></a><span·class="lineno">·6340</span> <span·class="preprocessor">#·@param·z·[optional]</span></div><div·class="line"><a·name="l06341"></a><span·class="lineno">·6341</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06342"></a><span·class="lineno">·6342</span> sub·SetPoint·{</div><div·class="line"><a·name="l06343"></a><span·class="lineno">·6343</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06344"></a><span·class="lineno">·6344</span> ····my·$t·=·$self->GetGeometryType;</div><div·class="line"><a·name="l06345"></a><span·class="lineno">·6345</span> ····my·$has_z·=·HasZ($t);</div><div·class="line"><a·name="l06346"></a><span·class="lineno">·6346</span> ····my·$has_m·=·HasM($t);</div><div·class="line"><a·name="l06347"></a><span·class="lineno">·6347</span> ····<span·class="keywordflow">if</span>·(!$has_z·&&·!$has_m)·{</div><div·class="line"><a·name="l06348"></a><span·class="lineno">·6348</span> ········$self->SetPoint_2D(@_[0..2]);</div><div·class="line"><a·name="l06349"></a><span·class="lineno">·6349</span> ····}·elsif·($has_z·&&·!$has_m)·{</div><div·class="line"><a·name="l06350"></a><span·class="lineno">·6350</span> ········$self->SetPoint_3D(@_[0..3]);</div><div·class="line"><a·name="l06351"></a><span·class="lineno">·6351</span> ····}·elsif·(!$has_z·&&·$has_m)·{</div><div·class="line"><a·name="l06352"></a><span·class="lineno">·6352</span> ········$self->SetPointM(@_[0..3]);</div><div·class="line"><a·name="l06353"></a><span·class="lineno">·6353</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06354"></a><span·class="lineno">·6354</span> ········$self->SetPointZM(@_[0..4]);</div><div·class="line"><a·name="l06355"></a><span·class="lineno">·6355</span> ····}</div><div·class="line"><a·name="l06356"></a><span·class="lineno">·6356</span> }</div><div·class="line"><a·name="l06357"></a><span·class="lineno">·6357</span> </div><div·class="line"><a·name="l06358"></a><span·class="lineno">·6358</span> <span·class="preprocessor">#**·@method·SetPointM()</span></div><div·class="line"><a·name="l06359"></a><span·class="lineno">·6359</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06360"></a><span·class="lineno">·6360</span> sub·SetPointM·{</div><div·class="line"><a·name="l06361"></a><span·class="lineno">·6361</span> }</div><div·class="line"><a·name="l06362"></a><span·class="lineno">·6362</span> </div><div·class="line"><a·name="l06363"></a><span·class="lineno">·6363</span> <span·class="preprocessor">#**·@method·SetPointZM()</span></div><div·class="line"><a·name="l06364"></a><span·class="lineno">·6364</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06365"></a><span·class="lineno">·6365</span> sub·SetPointZM·{</div><div·class="line"><a·name="l06366"></a><span·class="lineno">·6366</span> }</div><div·class="line"><a·name="l06367"></a><span·class="lineno">·6367</span> </div><div·class="line"><a·name="l06368"></a><span·class="lineno">·6368</span> <span·class="preprocessor">#**·@method·SetPoint_2D($index,·$x,·$y)</span></div><div·class="line"><a·name="l06369"></a><span·class="lineno">·6369</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06370"></a><span·class="lineno">·6370</span> <span·class="preprocessor">#·@param·index</span></div><div·class="line"><a·name="l06371"></a><span·class="lineno">·6371</span> <span·class="preprocessor">#·@param·x</span></div><div·class="line"><a·name="l06372"></a><span·class="lineno">·6372</span> <span·class="preprocessor">#·@param·y</span></div><div·class="line"><a·name="l06373"></a><span·class="lineno">·6373</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06374"></a><span·class="lineno">·6374</span> sub·SetPoint_2D·{</div><div·class="line"><a·name="l06375"></a><span·class="lineno">·6375</span> }</div><div·class="line"><a·name="l06376"></a><span·class="lineno">·6376</span> </div><div·class="line"><a·name="l06377"></a><span·class="lineno">·6377</span> <span·class="preprocessor">#**·@method·SetPoint_3D($index,·$x,·$y,·$z)</span></div><div·class="line"><a·name="l06378"></a><span·class="lineno">·6378</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06379"></a><span·class="lineno">·6379</span> <span·class="preprocessor">#·Set·the·data·of·a·point·or·a·line·string.·Note·that·the·coordinate</span></div><div·class="line"><a·name="l06380"></a><span·class="lineno">·6380</span> <span·class="preprocessor">#·dimension·is·automatically·upgraded·to·25D·(3).</span></div><div·class="line"><a·name="l06381"></a><span·class="lineno">·6381</span> <span·class="preprocessor">#·@param·index</span></div><div·class="line"><a·name="l06382"></a><span·class="lineno">·6382</span> <span·class="preprocessor">#·@param·x</span></div><div·class="line"><a·name="l06383"></a><span·class="lineno">·6383</span> <span·class="preprocessor">#·@param·y</span></div><div·class="line"><a·name="l06384"></a><span·class="lineno">·6384</span> <span·class="preprocessor">#·@param·z</span></div><div·class="line"><a·name="l06385"></a><span·class="lineno">·6385</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06386"></a><span·class="lineno">·6386</span> sub·SetPoint_3D·{</div><div·class="line"><a·name="l06387"></a><span·class="lineno">·6387</span> }</div><div·class="line"><a·name="l06388"></a><span·class="lineno">·6388</span> </div><div·class="line"><a·name="l06389"></a><span·class="lineno">·6389</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·Simplify($Tolerance)</span></div><div·class="line"><a·name="l06390"></a><span·class="lineno">·6390</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06391"></a><span·class="lineno">·6391</span> <span·class="preprocessor">#·Simplify·the·geometry.</span></div><div·class="line"><a·name="l06392"></a><span·class="lineno">·6392</span> <span·class="preprocessor">#·@param·Tolerance·the·length·tolerance·for·the·simplification</span></div><div·class="line"><a·name="l06393"></a><span·class="lineno">·6393</span> <span·class="preprocessor">#·@since·1.8.0</span></div><div·class="line"><a·name="l06394"></a><span·class="lineno">·6394</span> <span·class="preprocessor">#·@return·a·new·Geo::OSR::Geometry·object</span></div><div·class="line"><a·name="l06395"></a><span·class="lineno">·6395</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06396"></a><span·class="lineno">·6396</span> sub·Simplify·{</div><div·class="line"><a·name="l06397"></a><span·class="lineno">·6397</span> }</div><div·class="line"><a·name="l06398"></a><span·class="lineno">·6398</span> </div><div·class="line"><a·name="l06399"></a><span·class="lineno">·6399</span> <span·class="preprocessor">#**·@method·SimplifyPreserveTopology()</span></div><div·class="line"><a·name="l06400"></a><span·class="lineno">·6400</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06401"></a><span·class="lineno">·6401</span> sub·SimplifyPreserveTopology·{</div><div·class="line"><a·name="l06402"></a><span·class="lineno">·6402</span> }</div><div·class="line"><a·name="l06403"></a><span·class="lineno">·6403</span> </div><div·class="line"><a·name="l06404"></a><span·class="lineno">·6404</span> <span·class="preprocessor">#**·@method·SwapXY()</span></div><div·class="line"><a·name="l06405"></a><span·class="lineno">·6405</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06406"></a><span·class="lineno">·6406</span> sub·SwapXY·{</div><div·class="line"><a·name="l06407"></a><span·class="lineno">·6407</span> }</div><div·class="line"><a·name="l06408"></a><span·class="lineno">·6408</span> </div><div·class="line"><a·name="l06409"></a><span·class="lineno">·6409</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·SymDifference($other)</span></div><div·class="line"><a·name="l06410"></a><span·class="lineno">·6410</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06411"></a><span·class="lineno">·6411</span> <span·class="preprocessor">#·Compute·symmetric·difference.</span></div><div·class="line"><a·name="l06412"></a><span·class="lineno">·6412</span> <span·class="preprocessor">#·@note·a.k.a.·SymmetricDifference</span></div><div·class="line"><a·name="l06413"></a><span·class="lineno">·6413</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l06414"></a><span·class="lineno">·6414</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l06415"></a><span·class="lineno">·6415</span> <span·class="preprocessor">#·@since·1.8.0</span></div><div·class="line"><a·name="l06416"></a><span·class="lineno">·6416</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06417"></a><span·class="lineno">·6417</span> sub·SymDifference·{</div><div·class="line"><a·name="l06418"></a><span·class="lineno">·6418</span> }</div><div·class="line"><a·name="l06419"></a><span·class="lineno">·6419</span> </div><div·class="line"><a·name="l06420"></a><span·class="lineno">·6420</span> <span·class="preprocessor">#**·@method·scalar·Touches($other)</span></div><div·class="line"><a·name="l06421"></a><span·class="lineno">·6421</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06422"></a><span·class="lineno">·6422</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l06423"></a><span·class="lineno">·6423</span> <span·class="preprocessor">#·@return·true·if·this·geometry·touches·the·other·geometry,·false·otherwise</span></div><div·class="line"><a·name="l06424"></a><span·class="lineno">·6424</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06425"></a><span·class="lineno">·6425</span> sub·Touches·{</div><div·class="line"><a·name="l06426"></a><span·class="lineno">·6426</span> }</div><div·class="line"><a·name="l06427"></a><span·class="lineno">·6427</span> </div><div·class="line"><a·name="l06428"></a><span·class="lineno">·6428</span> <span·class="preprocessor">#**·@method·Transform($trans)</span></div><div·class="line"><a·name="l06429"></a><span·class="lineno">·6429</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06430"></a><span·class="lineno">·6430</span> <span·class="preprocessor">#·@param·trans·a·Geo::OSR::CoordinateTransformation·object</span></div><div·class="line"><a·name="l06431"></a><span·class="lineno">·6431</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06432"></a><span·class="lineno">·6432</span> sub·Transform·{</div><div·class="line"><a·name="l06433"></a><span·class="lineno">·6433</span> }</div><div·class="line"><a·name="l06434"></a><span·class="lineno">·6434</span> </div><div·class="line"><a·name="l06435"></a><span·class="lineno">·6435</span> <span·class="preprocessor">#**·@method·TransformTo($srs)</span></div><div·class="line"><a·name="l06436"></a><span·class="lineno">·6436</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06437"></a><span·class="lineno">·6437</span> <span·class="preprocessor">#·@param·srs·a·Geo::OSR::SpatialReference·object</span></div><div·class="line"><a·name="l06438"></a><span·class="lineno">·6438</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06439"></a><span·class="lineno">·6439</span> sub·TransformTo·{</div><div·class="line"><a·name="l06440"></a><span·class="lineno">·6440</span> }</div><div·class="line"><a·name="l06441"></a><span·class="lineno">·6441</span> </div><div·class="line"><a·name="l06442"></a><span·class="lineno">·6442</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·Union($other)</span></div><div·class="line"><a·name="l06443"></a><span·class="lineno">·6443</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06444"></a><span·class="lineno">·6444</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l06445"></a><span·class="lineno">·6445</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l06446"></a><span·class="lineno">·6446</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06447"></a><span·class="lineno">·6447</span> sub·Union·{</div><div·class="line"><a·name="l06448"></a><span·class="lineno">·6448</span> }</div><div·class="line"><a·name="l06449"></a><span·class="lineno">·6449</span> </div><div·class="line"><a·name="l06450"></a><span·class="lineno">·6450</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·UnionCascaded()</span></div><div·class="line"><a·name="l06451"></a><span·class="lineno">·6451</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06452"></a><span·class="lineno">·6452</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l06453"></a><span·class="lineno">·6453</span> <span·class="preprocessor">#·@since·1.8.0</span></div><div·class="line"><a·name="l06454"></a><span·class="lineno">·6454</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06455"></a><span·class="lineno">·6455</span> sub·UnionCascaded·{</div><div·class="line"><a·name="l06456"></a><span·class="lineno">·6456</span> }</div><div·class="line"><a·name="l06457"></a><span·class="lineno">·6457</span> </div><div·class="line"><a·name="l06458"></a><span·class="lineno">·6458</span> <span·class="preprocessor">#**·@method·Value()</span></div><div·class="line"><a·name="l06459"></a><span·class="lineno">·6459</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06460"></a><span·class="lineno">·6460</span> sub·Value·{</div><div·class="line"><a·name="l06461"></a><span·class="lineno">·6461</span> }</div><div·class="line"><a·name="l06462"></a><span·class="lineno">·6462</span> </div><div·class="line"><a·name="l06463"></a><span·class="lineno">·6463</span> <span·class="preprocessor">#**·@method·scalar·Within($other)</span></div><div·class="line"><a·name="l06464"></a><span·class="lineno">·6464</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06465"></a><span·class="lineno">·6465</span> <span·class="preprocessor">#·@param·other·a·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l06466"></a><span·class="lineno">·6466</span> <span·class="preprocessor">#·@return·true·if·this·geometry·is·within·the·other·geometry,·false·otherwise</span></div><div·class="line"><a·name="l06467"></a><span·class="lineno">·6467</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06468"></a><span·class="lineno">·6468</span> sub·Within·{</div><div·class="line"><a·name="l06469"></a><span·class="lineno">·6469</span> }</div><div·class="line"><a·name="l06470"></a><span·class="lineno">·6470</span> </div><div·class="line"><a·name="l06471"></a><span·class="lineno">·6471</span> <span·class="preprocessor">#**·@method·scalar·WkbSize()</span></div><div·class="line"><a·name="l06472"></a><span·class="lineno">·6472</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06473"></a><span·class="lineno">·6473</span> <span·class="preprocessor">#·@return·an·integer</span></div><div·class="line"><a·name="l06474"></a><span·class="lineno">·6474</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06475"></a><span·class="lineno">·6475</span> sub·WkbSize·{</div><div·class="line"><a·name="l06476"></a><span·class="lineno">·6476</span> }</div><div·class="line"><a·name="l06477"></a><span·class="lineno">·6477</span> </div><div·class="line"><a·name="l06478"></a><span·class="lineno">·6478</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·new(%params)</span></div><div·class="line"><a·name="l06479"></a><span·class="lineno">·6479</span> <span·class="preprocessor">#·Class·method.</span></div><div·class="line"><a·name="l06480"></a><span·class="lineno">·6480</span> <span·class="preprocessor">#·@param·%params·A·named·parameter,·one·of:</span></div><div·class="line"><a·name="l06481"></a><span·class="lineno">·6481</span> <span·class="preprocessor">#·-·\a·GeometryType·one·the·supported·geometry·types,·see·Geo::OGR::GeometryTypes.</span></div><div·class="line"><a·name="l06482"></a><span·class="lineno">·6482</span> <span·class="preprocessor">#·-·\a·WKT·a·well·known·text·string,·which·defines·a·geometry.</span></div><div·class="line"><a·name="l06483"></a><span·class="lineno">·6483</span> <span·class="preprocessor">#·-·\a·WKB·a·well·known·binary·string,·which·defines·a·geometry.</span></div><div·class="line"><a·name="l06484"></a><span·class="lineno">·6484</span> <span·class="preprocessor">#·-·\a·HEXWKB·WKB·in·hexadecimal.</span></div><div·class="line"><a·name="l06485"></a><span·class="lineno">·6485</span> <span·class="preprocessor">#·-·\a·HEXEWKB·PostGIS·extended·WKB.</span></div><div·class="line"><a·name="l06486"></a><span·class="lineno">·6486</span> <span·class="preprocessor">#·-·\a·GML·geometry·written·in·Geographic·Markup·Language.</span></div><div·class="line"><a·name="l06487"></a><span·class="lineno">·6487</span> <span·class="preprocessor">#·-·\a·GeoJSON·geometry·written·in·GeoJSON·(JavaScript·Object·Notation·for·Geographic·data).</span></div><div·class="line"><a·name="l06488"></a><span·class="lineno">·6488</span> <span·class="preprocessor">#·-·\a·arc·a·reference·to·a·list·of·values·defining·an·arc:·[CenterX,</span></div><div·class="line"><a·name="l06489"></a><span·class="lineno">·6489</span> <span·class="preprocessor">#····CenterY,·CenterZ,·PrimaryRadius,·SecondaryRadius,·Rotation,</span></div><div·class="line"><a·name="l06490"></a><span·class="lineno">·6490</span> <span·class="preprocessor">#····StartAngle,·EndAngle,·MaxAngleStepSizeDegrees]·(see·also·Geo::OGR::Geometry::ApproximateArcAngles)</span></div><div·class="line"><a·name="l06491"></a><span·class="lineno">·6491</span> <span·class="preprocessor">#·-·\a·Points·An·anonymous·array·as·in·method</span></div><div·class="line"><a·name="l06492"></a><span·class="lineno">·6492</span> <span·class="preprocessor">#······Geo::OGR::Geometry::Points;·Note:·requires·also·GeometryType</span></div><div·class="line"><a·name="l06493"></a><span·class="lineno">·6493</span> <span·class="preprocessor">#······parameter</span></div><div·class="line"><a·name="l06494"></a><span·class="lineno">·6494</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06495"></a><span·class="lineno">·6495</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object.</span></div><div·class="line"><a·name="l06496"></a><span·class="lineno">·6496</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06497"></a><span·class="lineno">·6497</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l06498"></a><span·class="lineno">·6498</span> ····my·$pkg·=·shift;</div><div·class="line"><a·name="l06499"></a><span·class="lineno">·6499</span> ····my·%param;</div><div·class="line"><a·name="l06500"></a><span·class="lineno">·6500</span> ····<span·class="keywordflow">if</span>·(@_·==·1·and·ref($_[0])·eq·<span·class="stringliteral">'HASH'</span>)·{</div><div·class="line"><a·name="l06501"></a><span·class="lineno">·6501</span> ········%param·=·%{$_[0]};</div><div·class="line"><a·name="l06502"></a><span·class="lineno">·6502</span> ····}·elsif·(@_·%·2·==·0)·{</div><div·class="line"><a·name="l06503"></a><span·class="lineno">·6503</span> ········%param·=·@_;</div><div·class="line"><a·name="l06504"></a><span·class="lineno">·6504</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06505"></a><span·class="lineno">·6505</span> ········($param{GeometryType})·=·@_;</div><div·class="line"><a·name="l06506"></a><span·class="lineno">·6506</span> ····}</div><div·class="line"><a·name="l06507"></a><span·class="lineno">·6507</span> ····my·$type·=·$param{GeometryType}·<span·class="comment">//·$param{Type}·//·$param{type};</span></div><div·class="line"><a·name="l06508"></a><span·class="lineno">·6508</span> ····my·$srs·=·$param{SRS}·<span·class="comment">//·$param{srs};</span></div><div·class="line"><a·name="l06509"></a><span·class="lineno">·6509</span> ····my·$wkt·=·$param{WKT}·<span·class="comment">//·$param{wkt};</span></div><div·class="line"><a·name="l06510"></a><span·class="lineno">·6510</span> ····my·$wkb·=·$param{WKB}·<span·class="comment">//·$param{wkb};</span></div><div·class="line"><a·name="l06511"></a><span·class="lineno">·6511</span> ····my·$hex·=·$param{HEXEWKB}·<span·class="comment">//·$param{HEX_EWKB}·//·$param{hexewkb}·//·$param{hex_ewkb};</span></div><div·class="line"><a·name="l06512"></a><span·class="lineno">·6512</span> ····my·$srid;</div><div·class="line"><a·name="l06513"></a><span·class="lineno">·6513</span> ····<span·class="keywordflow">if</span>·($hex)·{</div><div·class="line"><a·name="l06514"></a><span·class="lineno">·6514</span> <span·class="preprocessor">········#·EWKB·contains·SRID</span></div><div·class="line"><a·name="l06515"></a><span·class="lineno">·6515</span> ········$srid·=·substr($hex,·10,·8);</div><div·class="line"><a·name="l06516"></a><span·class="lineno">·6516</span> ········substr($hex,·10,·8)·=·<span·class="stringliteral">''</span>;</div><div·class="line"><a·name="l06517"></a><span·class="lineno">·6517</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06518"></a><span·class="lineno">·6518</span> ········$hex·=·$param{HEXWKB}·<span·class="comment">//·$param{HEX_WKB}·//·$param{hexwkb}·//·$param{hex_wkb};</span></div><div·class="line"><a·name="l06519"></a><span·class="lineno">·6519</span> ····}</div><div·class="line"><a·name="l06520"></a><span·class="lineno">·6520</span> ····<span·class="keywordflow">if</span>·($hex)·{</div><div·class="line"><a·name="l06521"></a><span·class="lineno">·6521</span> ········$wkb·=·<span·class="stringliteral">''</span>;</div><div·class="line"><a·name="l06522"></a><span·class="lineno">·6522</span> ········<span·class="keywordflow">for</span>·(my·$i·=·0;·$i·<·length($hex);·$i+=2)·{</div><div·class="line"><a·name="l06523"></a><span·class="lineno">·6523</span> ············$wkb·.=·chr(hex(substr($hex,$i,2)));</div><div·class="line"><a·name="l06524"></a><span·class="lineno">·6524</span> ········}</div><div·class="line"><a·name="l06525"></a><span·class="lineno">·6525</span> ····}</div><div·class="line"><a·name="l06526"></a><span·class="lineno">·6526</span> ····my·$gml·=·$param{GML}·<span·class="comment">//·$param{gml};</span></div><div·class="line"><a·name="l06527"></a><span·class="lineno">·6527</span> ····my·$json·=·$param{GeoJSON}·<span·class="comment">//·$param{geojson}·//·$param{JSON}·//·$param{json};</span></div><div·class="line"><a·name="l06528"></a><span·class="lineno">·6528</span> ····my·$points·=·$param{Points}·<span·class="comment">//·$param{points};</span></div><div·class="line"><a·name="l06529"></a><span·class="lineno">·6529</span> ····my·$arc·=·$param{Arc}·<span·class="comment">//·$param{arc};</span></div><div·class="line"><a·name="l06530"></a><span·class="lineno">·6530</span> ····my·$self;</div><div·class="line"><a·name="l06531"></a><span·class="lineno">·6531</span> ····<span·class="keywordflow">if</span>·(defined·$wkt)·{</div><div·class="line"><a·name="l06532"></a><span·class="lineno">·6532</span> ········$self·=·Geo::OGRc::CreateGeometryFromWkt($wkt,·$srs);</div><div·class="line"><a·name="l06533"></a><span·class="lineno">·6533</span> ····}·elsif·(defined·$wkb)·{</div><div·class="line"><a·name="l06534"></a><span·class="lineno">·6534</span> ········$self·=·Geo::OGRc::CreateGeometryFromWkb($wkb,·$srs);</div><div·class="line"><a·name="l06535"></a><span·class="lineno">·6535</span> ····}·elsif·(defined·$gml)·{</div><div·class="line"><a·name="l06536"></a><span·class="lineno">·6536</span> ········$self·=·Geo::OGRc::CreateGeometryFromGML($gml);</div><div·class="line"><a·name="l06537"></a><span·class="lineno">·6537</span> ····}·elsif·(defined·$json)·{</div><div·class="line"><a·name="l06538"></a><span·class="lineno">·6538</span> ········$self·=·Geo::OGRc::CreateGeometryFromJson($json);</div><div·class="line"><a·name="l06539"></a><span·class="lineno">·6539</span> ····}·elsif·(defined·$type)·{</div><div·class="line"><a·name="l06540"></a><span·class="lineno">·6540</span> ········$type·=·s2i(geometry_type·=>·$type);</div><div·class="line"><a·name="l06541"></a><span·class="lineno">·6541</span> ········$self·=·Geo::OGRc::new_Geometry($type);·#·flattens·the·type</div><div·class="line"><a·name="l06542"></a><span·class="lineno">·6542</span> ········$self->Set3D(1)·<span·class="keywordflow">if</span>·HasZ($type);</div><div·class="line"><a·name="l06543"></a><span·class="lineno">·6543</span> ········$self->SetMeasured(1)·<span·class="keywordflow">if</span>·HasM($type);</div><div·class="line"><a·name="l06544"></a><span·class="lineno">·6544</span> ····}·elsif·(defined·$arc)·{</div><div·class="line"><a·name="l06545"></a><span·class="lineno">·6545</span> ········$self·=·Geo::OGRc::ApproximateArcAngles(@$arc);</div><div·class="line"><a·name="l06546"></a><span·class="lineno">·6546</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06547"></a><span·class="lineno">·6547</span> ········error(1,·undef,·map·{$_=>1}·qw/GeometryType·WKT·WKB·HEXEWKB·HEXWKB·GML·GeoJSON·Arc/);</div><div·class="line"><a·name="l06548"></a><span·class="lineno">·6548</span> ····}</div><div·class="line"><a·name="l06549"></a><span·class="lineno">·6549</span> ····bless·$self,·$pkg·<span·class="keywordflow">if</span>·defined·$self;</div><div·class="line"><a·name="l06550"></a><span·class="lineno">·6550</span> ····$self->Points($points)·<span·class="keywordflow">if</span>·$points;</div><div·class="line"><a·name="l06551"></a><span·class="lineno">·6551</span> ····<span·class="keywordflow">return</span>·$self;</div><div·class="line"><a·name="l06552"></a><span·class="lineno">·6552</span> }</div><div·class="line"><a·name="l06553"></a><span·class="lineno">·6553</span> </div><div·class="line"><a·name="l06554"></a><span·class="lineno">·6554</span> <span·class="preprocessor">#**·@class·Geo::OGR::Layer</span></div><div·class="line"><a·name="l06555"></a><span·class="lineno">·6555</span> <span·class="preprocessor">#·@brief·A·collection·of·similar·features.</span></div><div·class="line"><a·name="l06556"></a><span·class="lineno">·6556</span> <span·class="preprocessor">#·@details·A·layer·object·is·typically·obtained·with·a·data·source·object.·A</span></div><div·class="line"><a·name="l06557"></a><span·class="lineno">·6557</span> <span·class="preprocessor">#·layer·has·a·data·model·(a·schema),·which·is·maintained·in·a</span></div><div·class="line"><a·name="l06558"></a><span·class="lineno">·6558</span> <span·class="preprocessor">#·definition·object,·and·a·set·of·features,·which·contain·data</span></div><div·class="line"><a·name="l06559"></a><span·class="lineno">·6559</span> <span·class="preprocessor">#·according·to·the·data·model.·The·schema·is·typically·set·when·the</span></div><div·class="line"><a·name="l06560"></a><span·class="lineno">·6560</span> <span·class="preprocessor">#·layer·is·created·or·opened,·but·it·may·be·altered·somewhat·with</span></div><div·class="line"><a·name="l06561"></a><span·class="lineno">·6561</span> <span·class="preprocessor">#·methods·Geo::OGR::Layer::CreateField,</span></div><div·class="line"><a·name="l06562"></a><span·class="lineno">·6562</span> <span·class="preprocessor">#·Geo::OGR::Layer::AlterFieldDefn,·and</span></div><div·class="line"><a·name="l06563"></a><span·class="lineno">·6563</span> <span·class="preprocessor">#·Geo::OGR::Layer::DeleteField.·Features·and/or·their·data·can·be</span></div><div·class="line"><a·name="l06564"></a><span·class="lineno">·6564</span> <span·class="preprocessor">#·read,·inserted·and·deleted.·Reading·can·be·filtered.·Layers·can·be</span></div><div·class="line"><a·name="l06565"></a><span·class="lineno">·6565</span> <span·class="preprocessor">#·compared·to·each·other·with·methods·Clip,·Erase,·Identity,</span></div><div·class="line"><a·name="l06566"></a><span·class="lineno">·6566</span> <span·class="preprocessor">#·Intersection,·SymDifference,·Union,·and·Update.</span></div><div·class="line"><a·name="l06567"></a><span·class="lineno">·6567</span> <span·class="preprocessor">#·A·layer·may·have·metadata·OLMD_FID64·=>·'YES'·if·it·holds·features</span></div><div·class="line"><a·name="l06568"></a><span·class="lineno">·6568</span> <span·class="preprocessor">#·with·64·bit·FIDs.·The·metadata·of·a·layer·can·be·obtained·with</span></div><div·class="line"><a·name="l06569"></a><span·class="lineno">·6569</span> <span·class="preprocessor">#·GetMetadata·method.</span></div><div·class="line"><a·name="l06570"></a><span·class="lineno">·6570</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06571"></a><span·class="lineno">·6571</span> <span·class="keyword">package·</span>Geo::OGR::Layer;</div><div·class="line"><a·name="l06572"></a><span·class="lineno">·6572</span> </div><div·class="line"><a·name="l06573"></a><span·class="lineno">·6573</span> use·base·qw(<a·class="code"·href="classGeo_1_1GDAL_1_1MajorObject.html">Geo::GDAL::MajorObject</a>·<a·class="code"·href="namespaceGeo_1_1OGR.html">Geo::OGR</a>)</div><div·class="line"><a·name="l06574"></a><span·class="lineno">·6574</span> </div><div·class="line"><a·name="l06575"></a><span·class="lineno">·6575</span> <span·class="preprocessor">#**·@method·AlterFieldDefn($name,·%params)</span></div><div·class="line"><a·name="l06576"></a><span·class="lineno">·6576</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06577"></a><span·class="lineno">·6577</span> <span·class="preprocessor">#·@param·field·the·name·of·the·field·to·be·altered.</span></div><div·class="line"><a·name="l06578"></a><span·class="lineno">·6578</span> <span·class="preprocessor">#·@param·params·as·in·Geo::OGR::FieldDefn::new.·Width·and</span></div><div·class="line"><a·name="l06579"></a><span·class="lineno">·6579</span> <span·class="preprocessor">#·Precision·should·be·both·or·neither.</span></div><div·class="line"><a·name="l06580"></a><span·class="lineno">·6580</span> <span·class="preprocessor">#·@note·Only·non-spatial·fields·can·be·altered.</span></div><div·class="line"><a·name="l06581"></a><span·class="lineno">·6581</span> <span·class="preprocessor">#·@note·Also·the·deprecated·form·AlterFieldDefn($field,</span></div><div·class="line"><a·name="l06582"></a><span·class="lineno">·6582</span> <span·class="preprocessor">#·Geo::OGR::FieldDefn·$Defn,·$Flags)·works.</span></div><div·class="line"><a·name="l06583"></a><span·class="lineno">·6583</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06584"></a><span·class="lineno">·6584</span> sub·AlterFieldDefn·{</div><div·class="line"><a·name="l06585"></a><span·class="lineno">·6585</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06586"></a><span·class="lineno">·6586</span> ····my·$index·=·$self->GetLayerDefn->GetFieldIndex(shift·<span·class="comment">//·0);</span></div><div·class="line"><a·name="l06587"></a><span·class="lineno">·6587</span> ····my·$param·=·@_·%·2·==·0·?·{@_}·:·shift;</div><div·class="line"><a·name="l06588"></a><span·class="lineno">·6588</span> ····<span·class="keywordflow">if</span>·(blessed($param)·and·$param->isa(<span·class="stringliteral">'Geo::OGR::FieldDefn'</span>))·{</div><div·class="line"><a·name="l06589"></a><span·class="lineno">·6589</span> ········_AlterFieldDefn($self,·$index,·@_);</div><div·class="line"><a·name="l06590"></a><span·class="lineno">·6590</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06591"></a><span·class="lineno">·6591</span> ········my·$definition·=·<a·class="code"·href="classGeo_1_1OGR_1_1FieldDefn.html">Geo::OGR::FieldDefn</a>-><a·class="code"·href="classGeo_1_1OGR_1_1FieldDefn.html#a02f94b3023e631aad8574caf0eff8491">new</a>($param);</div><div·class="line"><a·name="l06592"></a><span·class="lineno">·6592</span> ········my·$flags·=·0;</div><div·class="line"><a·name="l06593"></a><span·class="lineno">·6593</span> ········$flags·|=·1·<span·class="keywordflow">if</span>·exists·$param->{Name};</div><div·class="line"><a·name="l06594"></a><span·class="lineno">·6594</span> ········$flags·|=·2·<span·class="keywordflow">if</span>·exists·$param->{Type};</div><div·class="line"><a·name="l06595"></a><span·class="lineno">·6595</span> ········$flags·|=·4·<span·class="keywordflow">if</span>·exists·$param->{Width}·or·exists·$param->{Precision};</div><div·class="line"><a·name="l06596"></a><span·class="lineno">·6596</span> ········$flags·|=·8·<span·class="keywordflow">if</span>·exists·$param->{Nullable};</div><div·class="line"><a·name="l06597"></a><span·class="lineno">·6597</span> ········$flags·|=·16·<span·class="keywordflow">if</span>·exists·$param->{Default};</div><div·class="line"><a·name="l06598"></a><span·class="lineno">·6598</span> ········_AlterFieldDefn($self,·$index,·$definition,·$flags);</div><div·class="line"><a·name="l06599"></a><span·class="lineno">·6599</span> ····}</div><div·class="line"><a·name="l06600"></a><span·class="lineno">·6600</span> }</div><div·class="line"><a·name="l06601"></a><span·class="lineno">·6601</span> </div><div·class="line"><a·name="l06602"></a><span·class="lineno">·6602</span> <span·class="preprocessor">#**·@method·list·Capabilities()</span></div><div·class="line"><a·name="l06603"></a><span·class="lineno">·6603</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06604"></a><span·class="lineno">·6604</span> <span·class="preprocessor">#·Both·a·package·subroutine·and·an·object·method.</span></div><div·class="line"><a·name="l06605"></a><span·class="lineno">·6605</span> <span·class="preprocessor">#·@return·a·list·of·capabilities.·The·object·method·returns·a·list·of</span></div><div·class="line"><a·name="l06606"></a><span·class="lineno">·6606</span> <span·class="preprocessor">#·the·capabilities·the·layer·has.·The·package·subroutine·returns·a·list·of</span></div><div·class="line"><a·name="l06607"></a><span·class="lineno">·6607</span> <span·class="preprocessor">#·all·potential·capabilities·a·layer·may·have.·These·are·currently:</span></div><div·class="line"><a·name="l06608"></a><span·class="lineno">·6608</span> <span·class="preprocessor">#·AlterFieldDefn,·CreateField,·CreateGeomField,·CurveGeometries,·DeleteFeature,·DeleteField,·FastFeatureCount,·FastGetExtent,·FastSetNextByIndex,·FastSpatialFilter,·IgnoreFields,·MeasuredGeometries,·RandomRead,·RandomWrite,·ReorderFields,·SequentialWrite,·StringsAsUTF8,·and·Transactions.</span></div><div·class="line"><a·name="l06609"></a><span·class="lineno">·6609</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06610"></a><span·class="lineno">·6610</span> <span·class="preprocessor">#·Examples:</span></div><div·class="line"><a·name="l06611"></a><span·class="lineno">·6611</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l06612"></a><span·class="lineno">·6612</span> <span·class="preprocessor">#·@cap·=·Geo::OGR::Layer::Capabilities();·#·the·package·subroutine</span></div><div·class="line"><a·name="l06613"></a><span·class="lineno">·6613</span> <span·class="preprocessor">#·@cap·=·$layer->Capabilities();·#·the·object·method</span></div><div·class="line"><a·name="l06614"></a><span·class="lineno">·6614</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l06615"></a><span·class="lineno">·6615</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06616"></a><span·class="lineno">·6616</span> sub·Capabilities·{</div><div·class="line"><a·name="l06617"></a><span·class="lineno">·6617</span> ····<span·class="keywordflow">return</span>·@CAPABILITIES·<span·class="keywordflow">if</span>·@_·==·0;</div><div·class="line"><a·name="l06618"></a><span·class="lineno">·6618</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06619"></a><span·class="lineno">·6619</span> ····my·@cap;</div><div·class="line"><a·name="l06620"></a><span·class="lineno">·6620</span> ····<span·class="keywordflow">for</span>·my·$cap·(@CAPABILITIES)·{</div><div·class="line"><a·name="l06621"></a><span·class="lineno">·6621</span> ········push·@cap,·$cap·<span·class="keywordflow">if</span>·_TestCapability($self,·$CAPABILITIES{$cap});</div><div·class="line"><a·name="l06622"></a><span·class="lineno">·6622</span> ····}</div><div·class="line"><a·name="l06623"></a><span·class="lineno">·6623</span> ····<span·class="keywordflow">return</span>·@cap;</div><div·class="line"><a·name="l06624"></a><span·class="lineno">·6624</span> }</div><div·class="line"><a·name="l06625"></a><span·class="lineno">·6625</span> </div><div·class="line"><a·name="l06626"></a><span·class="lineno">·6626</span> <span·class="preprocessor">#**·@method·Clip(Geo::OGR::Layer·method,·Geo::OGR::Layer·result,·hashref·options,·coderef·callback,·$callback_data)</span></div><div·class="line"><a·name="l06627"></a><span·class="lineno">·6627</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06628"></a><span·class="lineno">·6628</span> <span·class="preprocessor">#·Clip·off·areas·that·are·not·covered·by·the·method·layer.·The·schema</span></div><div·class="line"><a·name="l06629"></a><span·class="lineno">·6629</span> <span·class="preprocessor">#·of·the·result·layer·can·be·set·before·calling·this·method,·or·is</span></div><div·class="line"><a·name="l06630"></a><span·class="lineno">·6630</span> <span·class="preprocessor">#·initialized·to·to·contain·all·fields·from</span></div><div·class="line"><a·name="l06631"></a><span·class="lineno">·6631</span> <span·class="preprocessor">#·this·and·method·layer.</span></div><div·class="line"><a·name="l06632"></a><span·class="lineno">·6632</span> <span·class="preprocessor">#·@param·method·method·layer.</span></div><div·class="line"><a·name="l06633"></a><span·class="lineno">·6633</span> <span·class="preprocessor">#·@param·result·result·layer.</span></div><div·class="line"><a·name="l06634"></a><span·class="lineno">·6634</span> <span·class="preprocessor">#·@param·options·a·reference·to·an·options·hash.</span></div><div·class="line"><a·name="l06635"></a><span·class="lineno">·6635</span> <span·class="preprocessor">#·@param·callback·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l06636"></a><span·class="lineno">·6636</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·callback_data)</span></div><div·class="line"><a·name="l06637"></a><span·class="lineno">·6637</span> <span·class="preprocessor">#·@param·callback_data·[optional]</span></div><div·class="line"><a·name="l06638"></a><span·class="lineno">·6638</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06639"></a><span·class="lineno">·6639</span> sub·Clip·{</div><div·class="line"><a·name="l06640"></a><span·class="lineno">·6640</span> }</div><div·class="line"><a·name="l06641"></a><span·class="lineno">·6641</span> </div><div·class="line"><a·name="l06642"></a><span·class="lineno">·6642</span> <span·class="preprocessor">#**·@method·CommitTransaction()</span></div><div·class="line"><a·name="l06643"></a><span·class="lineno">·6643</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06644"></a><span·class="lineno">·6644</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06645"></a><span·class="lineno">·6645</span> sub·CommitTransaction·{</div><div·class="line"><a·name="l06646"></a><span·class="lineno">·6646</span> }</div><div·class="line"><a·name="l06647"></a><span·class="lineno">·6647</span> </div><div·class="line"><a·name="l06648"></a><span·class="lineno">·6648</span> <span·class="preprocessor">#**·@method·CreateFeature()</span></div><div·class="line"><a·name="l06649"></a><span·class="lineno">·6649</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06650"></a><span·class="lineno">·6650</span> sub·CreateFeature·{</div><div·class="line"><a·name="l06651"></a><span·class="lineno">·6651</span> }</div><div·class="line"><a·name="l06652"></a><span·class="lineno">·6652</span> </div><div·class="line"><a·name="l06653"></a><span·class="lineno">·6653</span> <span·class="preprocessor">#**·@method·CreateField(%params)</span></div><div·class="line"><a·name="l06654"></a><span·class="lineno">·6654</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06655"></a><span·class="lineno">·6655</span> <span·class="preprocessor">#·Create·a·field.</span></div><div·class="line"><a·name="l06656"></a><span·class="lineno">·6656</span> <span·class="preprocessor">#·@param·params·as·in·Geo::OGR::FieldDefn::new·or</span></div><div·class="line"><a·name="l06657"></a><span·class="lineno">·6657</span> <span·class="preprocessor">#·Geo::OGR::GeomFieldDefn::new,·plus·ApproxOK·(whose·default·is·true).</span></div><div·class="line"><a·name="l06658"></a><span·class="lineno">·6658</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06659"></a><span·class="lineno">·6659</span> sub·CreateField·{</div><div·class="line"><a·name="l06660"></a><span·class="lineno">·6660</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06661"></a><span·class="lineno">·6661</span> ····my·%defaults·=·(·ApproxOK·=>·1,</div><div·class="line"><a·name="l06662"></a><span·class="lineno">·6662</span> ·····················Type·=>·<span·class="stringliteral">''</span>·);</div><div·class="line"><a·name="l06663"></a><span·class="lineno">·6663</span> ····my·%params;</div><div·class="line"><a·name="l06664"></a><span·class="lineno">·6664</span> ····<span·class="keywordflow">if</span>·(@_·==·0)·{</div><div·class="line"><a·name="l06665"></a><span·class="lineno">·6665</span> ····}·elsif·(ref($_[0])·eq·<span·class="stringliteral">'HASH'</span>)·{</div><div·class="line"><a·name="l06666"></a><span·class="lineno">·6666</span> ········%params·=·%{$_[0]};</div><div·class="line"><a·name="l06667"></a><span·class="lineno">·6667</span> ····}·elsif·(@_·%·2·==·0)·{</div><div·class="line"><a·name="l06668"></a><span·class="lineno">·6668</span> ········%params·=·@_;</div><div·class="line"><a·name="l06669"></a><span·class="lineno">·6669</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06670"></a><span·class="lineno">·6670</span> ········($params{Defn})·=·@_;</div><div·class="line"><a·name="l06671"></a><span·class="lineno">·6671</span> ····}</div><div·class="line"><a·name="l06672"></a><span·class="lineno">·6672</span> ····<span·class="keywordflow">for</span>·my·$k·(keys·%defaults)·{</div><div·class="line"><a·name="l06673"></a><span·class="lineno">·6673</span> ········$params{$k}·<span·class="comment">//=·$defaults{$k};</span></div><div·class="line"><a·name="l06674"></a><span·class="lineno">·6674</span> ····}</div><div·class="line"><a·name="l06675"></a><span·class="lineno">·6675</span> ····<span·class="keywordflow">if</span>·(blessed($params{Defn})·and·$params{Defn}->isa(<span·class="stringliteral">'Geo::OGR::FieldDefn'</span>))·{</div><div·class="line"><a·name="l06676"></a><span·class="lineno">·6676</span> ········$self->_CreateField($params{Defn},·$params{ApproxOK});</div><div·class="line"><a·name="l06677"></a><span·class="lineno">·6677</span> ····}·elsif·(blessed($_[0])·and·$params{Defn}->isa(<span·class="stringliteral">'Geo::OGR::GeomFieldDefn'</span>))·{</div><div·class="line"><a·name="l06678"></a><span·class="lineno">·6678</span> ········$self->CreateGeomField($params{Defn},·$params{ApproxOK});</div><div·class="line"><a·name="l06679"></a><span·class="lineno">·6679</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06680"></a><span·class="lineno">·6680</span> <span·class="preprocessor">········#·if·Name·and·Type·are·missing,·assume·Name·=>·Type</span></div><div·class="line"><a·name="l06681"></a><span·class="lineno">·6681</span> ········<span·class="keywordflow">if</span>·(!(exists·$params{Name}·&&·exists·$params{Type}))·{</div><div·class="line"><a·name="l06682"></a><span·class="lineno">·6682</span> ············<span·class="keywordflow">for</span>·my·$key·(sort·keys·%params)·{</div><div·class="line"><a·name="l06683"></a><span·class="lineno">·6683</span> ················<span·class="keywordflow">if</span>·(s_exists(field_type·=>·$params{$key})·||</div><div·class="line"><a·name="l06684"></a><span·class="lineno">·6684</span> ····················s_exists(geometry_type·=>·$params{$key}))</div><div·class="line"><a·name="l06685"></a><span·class="lineno">·6685</span> ················{</div><div·class="line"><a·name="l06686"></a><span·class="lineno">·6686</span> ····················$params{Name}·=·$key;</div><div·class="line"><a·name="l06687"></a><span·class="lineno">·6687</span> ····················$params{Type}·=·$params{$key};</div><div·class="line"><a·name="l06688"></a><span·class="lineno">·6688</span> ····················<span·class="keyword">delete</span>·$params{$key};</div><div·class="line"><a·name="l06689"></a><span·class="lineno">·6689</span> ····················last;</div><div·class="line"><a·name="l06690"></a><span·class="lineno">·6690</span> ················}</div><div·class="line"><a·name="l06691"></a><span·class="lineno">·6691</span> ············}</div><div·class="line"><a·name="l06692"></a><span·class="lineno">·6692</span> ········}</div><div·class="line"><a·name="l06693"></a><span·class="lineno">·6693</span> ········my·$a·=·$params{ApproxOK};</div><div·class="line"><a·name="l06694"></a><span·class="lineno">·6694</span> ········<span·class="keyword">delete</span>·$params{ApproxOK};</div><div·class="line"><a·name="l06695"></a><span·class="lineno">·6695</span> ········<span·class="keywordflow">if</span>·(exists·$params{GeometryType})·{</div><div·class="line"><a·name="l06696"></a><span·class="lineno">·6696</span> ············$params{Type}·=·$params{GeometryType};</div><div·class="line"><a·name="l06697"></a><span·class="lineno">·6697</span> ············<span·class="keyword">delete</span>·$params{GeometryType};</div><div·class="line"><a·name="l06698"></a><span·class="lineno">·6698</span> ········}</div><div·class="line"><a·name="l06699"></a><span·class="lineno">·6699</span> ········<span·class="keywordflow">if</span>·(s_exists(field_type·=>·$params{Type}))·{</div><div·class="line"><a·name="l06700"></a><span·class="lineno">·6700</span> ············my·$fd·=·<a·class="code"·href="classGeo_1_1OGR_1_1FieldDefn.html">Geo::OGR::FieldDefn</a>-><a·class="code"·href="classGeo_1_1OGR_1_1FieldDefn.html#a02f94b3023e631aad8574caf0eff8491">new</a>(%params);</div><div·class="line"><a·name="l06701"></a><span·class="lineno">·6701</span> ············_CreateField($self,·$fd,·$a);</div><div·class="line"><a·name="l06702"></a><span·class="lineno">·6702</span> ········}·elsif·(s_exists(geometry_type·=>·$params{Type}))·{</div><div·class="line"><a·name="l06703"></a><span·class="lineno">·6703</span> ············my·$fd·=·<a·class="code"·href="classGeo_1_1OGR_1_1GeomFieldDefn.html">Geo::OGR::GeomFieldDefn</a>-><a·class="code"·href="classGeo_1_1OGR_1_1GeomFieldDefn.html#a390438ea74069f3ed6cc79935c986830">new</a>(%params);</div><div·class="line"><a·name="l06704"></a><span·class="lineno">·6704</span> ············CreateGeomField($self,·$fd,·$a);</div><div·class="line"><a·name="l06705"></a><span·class="lineno">·6705</span> ········}·elsif·($params{Type}·)·{</div><div·class="line"><a·name="l06706"></a><span·class="lineno">·6706</span> ············error(<span·class="stringliteral">"Invalid·field·type:·$params{Type}."</span>)</div><div·class="line"><a·name="l06707"></a><span·class="lineno">·6707</span> ········}·elsif·($params{Name}·)·{</div><div·class="line"><a·name="l06708"></a><span·class="lineno">·6708</span> ············error(<span·class="stringliteral">"Missing·type·for·field:·$params{Name}."</span>)</div><div·class="line"><a·name="l06709"></a><span·class="lineno">·6709</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06710"></a><span·class="lineno">·6710</span> ············error(<span·class="stringliteral">"Missing·name·and·type·for·a·field."</span>)</div><div·class="line"><a·name="l06711"></a><span·class="lineno">·6711</span> ········}</div><div·class="line"><a·name="l06712"></a><span·class="lineno">·6712</span> ····}</div><div·class="line"><a·name="l06713"></a><span·class="lineno">·6713</span> }</div><div·class="line"><a·name="l06714"></a><span·class="lineno">·6714</span> </div><div·class="line"><a·name="l06715"></a><span·class="lineno">·6715</span> <span·class="preprocessor">#**·@method·DataSource()</span></div><div·class="line"><a·name="l06716"></a><span·class="lineno">·6716</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06717"></a><span·class="lineno">·6717</span> sub·DataSource·{</div><div·class="line"><a·name="l06718"></a><span·class="lineno">·6718</span> }</div><div·class="line"><a·name="l06719"></a><span·class="lineno">·6719</span> </div><div·class="line"><a·name="l06720"></a><span·class="lineno">·6720</span> <span·class="preprocessor">#**·@method·Dataset()</span></div><div·class="line"><a·name="l06721"></a><span·class="lineno">·6721</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06722"></a><span·class="lineno">·6722</span> sub·<a·class="code"·href="classGeo_1_1GDAL_1_1Dataset.html">Dataset</a>·{</div><div·class="line"><a·name="l06723"></a><span·class="lineno">·6723</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06724"></a><span·class="lineno">·6724</span> ····parent($self);</div><div·class="line"><a·name="l06725"></a><span·class="lineno">·6725</span> }</div><div·class="line"><a·name="l06726"></a><span·class="lineno">·6726</span> </div><div·class="line"><a·name="l06727"></a><span·class="lineno">·6727</span> <span·class="preprocessor">#**·@method·DeleteFeature($fid)</span></div><div·class="line"><a·name="l06728"></a><span·class="lineno">·6728</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06729"></a><span·class="lineno">·6729</span> <span·class="preprocessor">#·@param·fid·feature·id</span></div><div·class="line"><a·name="l06730"></a><span·class="lineno">·6730</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06731"></a><span·class="lineno">·6731</span> sub·DeleteFeature·{</div><div·class="line"><a·name="l06732"></a><span·class="lineno">·6732</span> }</div><div·class="line"><a·name="l06733"></a><span·class="lineno">·6733</span> </div><div·class="line"><a·name="l06734"></a><span·class="lineno">·6734</span> <span·class="preprocessor">#**·@method·DeleteField($field)</span></div><div·class="line"><a·name="l06735"></a><span·class="lineno">·6735</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06736"></a><span·class="lineno">·6736</span> <span·class="preprocessor">#·Delete·an·existing·field·from·a·layer.</span></div><div·class="line"><a·name="l06737"></a><span·class="lineno">·6737</span> <span·class="preprocessor">#·@param·field·name·(or·index)·of·the·field·which·is·deleted</span></div><div·class="line"><a·name="l06738"></a><span·class="lineno">·6738</span> <span·class="preprocessor">#·@note·Only·non-spatial·fields·can·be·deleted.</span></div><div·class="line"><a·name="l06739"></a><span·class="lineno">·6739</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06740"></a><span·class="lineno">·6740</span> sub·DeleteField·{</div><div·class="line"><a·name="l06741"></a><span·class="lineno">·6741</span> ····my·($self,·$field)·=·@_;</div><div·class="line"><a·name="l06742"></a><span·class="lineno">·6742</span> ····my·$index·=·$self->GetLayerDefn->GetFieldIndex($field·<span·class="comment">//·0);</span></div><div·class="line"><a·name="l06743"></a><span·class="lineno">·6743</span> ····_DeleteField($self,·$index);</div><div·class="line"><a·name="l06744"></a><span·class="lineno">·6744</span> }</div><div·class="line"><a·name="l06745"></a><span·class="lineno">·6745</span> </div><div·class="line"><a·name="l06746"></a><span·class="lineno">·6746</span> <span·class="preprocessor">#**·@method·Erase(Geo::OGR::Layer·method,·Geo::OGR::Layer·result,·hashref·options,·coderef·callback,·$callback_data)</span></div><div·class="line"><a·name="l06747"></a><span·class="lineno">·6747</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06748"></a><span·class="lineno">·6748</span> <span·class="preprocessor">#·The·result·layer·contains·features·whose·geometries·represent·areas</span></div><div·class="line"><a·name="l06749"></a><span·class="lineno">·6749</span> <span·class="preprocessor">#·that·are·in·the·input·layer·but·not·in·the·method·layer.·The</span></div><div·class="line"><a·name="l06750"></a><span·class="lineno">·6750</span> <span·class="preprocessor">#·features·in·the·result·layer·have·attributes·from·the·input</span></div><div·class="line"><a·name="l06751"></a><span·class="lineno">·6751</span> <span·class="preprocessor">#·layer.·The·schema·of·the·result·layer·can·be·set·by·the·user·or,·if</span></div><div·class="line"><a·name="l06752"></a><span·class="lineno">·6752</span> <span·class="preprocessor">#·it·is·empty,·is·initialized·to·contain·all·fields·in·the·input</span></div><div·class="line"><a·name="l06753"></a><span·class="lineno">·6753</span> <span·class="preprocessor">#·layer.</span></div><div·class="line"><a·name="l06754"></a><span·class="lineno">·6754</span> <span·class="preprocessor">#·@param·method·method·layer.</span></div><div·class="line"><a·name="l06755"></a><span·class="lineno">·6755</span> <span·class="preprocessor">#·@param·result·result·layer.</span></div><div·class="line"><a·name="l06756"></a><span·class="lineno">·6756</span> <span·class="preprocessor">#·@param·options·a·reference·to·an·options·hash.</span></div><div·class="line"><a·name="l06757"></a><span·class="lineno">·6757</span> <span·class="preprocessor">#·@param·callback·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l06758"></a><span·class="lineno">·6758</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·callback_data)</span></div><div·class="line"><a·name="l06759"></a><span·class="lineno">·6759</span> <span·class="preprocessor">#·@param·callback_data·[optional]</span></div><div·class="line"><a·name="l06760"></a><span·class="lineno">·6760</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06761"></a><span·class="lineno">·6761</span> sub·Erase·{</div><div·class="line"><a·name="l06762"></a><span·class="lineno">·6762</span> }</div><div·class="line"><a·name="l06763"></a><span·class="lineno">·6763</span> </div><div·class="line"><a·name="l06764"></a><span·class="lineno">·6764</span> <span·class="preprocessor">#**·@method·Geo::OGR::Feature·Feature($f)</span></div><div·class="line"><a·name="l06765"></a><span·class="lineno">·6765</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06766"></a><span·class="lineno">·6766</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06767"></a><span·class="lineno">·6767</span> <span·class="preprocessor">#·@param·f·[optional]·feature·id,·a·feature,·a·row,·or·a·tuple·</span></div><div·class="line"><a·name="l06768"></a><span·class="lineno">·6768</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06769"></a><span·class="lineno">·6769</span> <span·class="preprocessor">#·@note·If·the·argument·feature·has·a·null·FID·(FID·not·set)·the</span></div><div·class="line"><a·name="l06770"></a><span·class="lineno">·6770</span> <span·class="preprocessor">#·feature·is·inserted·into·the·layer·as·a·new·feature.·If·the·FID·is</span></div><div·class="line"><a·name="l06771"></a><span·class="lineno">·6771</span> <span·class="preprocessor">#·non·null,·then·the·feature·replaces·the·feature·in·the·layer·with</span></div><div·class="line"><a·name="l06772"></a><span·class="lineno">·6772</span> <span·class="preprocessor">#·that·FID.</span></div><div·class="line"><a·name="l06773"></a><span·class="lineno">·6773</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06774"></a><span·class="lineno">·6774</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Feature·object·that·represents·the·feature</span></div><div·class="line"><a·name="l06775"></a><span·class="lineno">·6775</span> <span·class="preprocessor">#·in·the·layer.</span></div><div·class="line"><a·name="l06776"></a><span·class="lineno">·6776</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06777"></a><span·class="lineno">·6777</span> sub·Feature·{</div><div·class="line"><a·name="l06778"></a><span·class="lineno">·6778</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06779"></a><span·class="lineno">·6779</span> ····my·$x·=·shift;</div><div·class="line"><a·name="l06780"></a><span·class="lineno">·6780</span> ····<span·class="keywordflow">return</span>·$self->GetFeature($x)·unless·$x·&&·ref·$x;</div><div·class="line"><a·name="l06781"></a><span·class="lineno">·6781</span> <span·class="preprocessor">····#·Insert·or·Set·depending·on·the·FID</span></div><div·class="line"><a·name="l06782"></a><span·class="lineno">·6782</span> ····my·$fid;</div><div·class="line"><a·name="l06783"></a><span·class="lineno">·6783</span> ····<span·class="keywordflow">if</span>·(ref·$x·eq·<span·class="stringliteral">'ARRAY'</span>)·{</div><div·class="line"><a·name="l06784"></a><span·class="lineno">·6784</span> <span·class="preprocessor">········#·FID·is·the·first·item·in·the·array</span></div><div·class="line"><a·name="l06785"></a><span·class="lineno">·6785</span> ········$fid·=·$x->[0];</div><div·class="line"><a·name="l06786"></a><span·class="lineno">·6786</span> ····}·elsif·(ref·$x·eq·<span·class="stringliteral">'HASH'</span>)·{</div><div·class="line"><a·name="l06787"></a><span·class="lineno">·6787</span> <span·class="preprocessor">········#·FID·is·FID</span></div><div·class="line"><a·name="l06788"></a><span·class="lineno">·6788</span> ········$fid·=·$x->{FID};</div><div·class="line"><a·name="l06789"></a><span·class="lineno">·6789</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06790"></a><span·class="lineno">·6790</span> ········$fid·=·$x->FID;</div><div·class="line"><a·name="l06791"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1Transformer.html">·6791</a></span> ····}</div><div·class="line"><a·name="l06792"></a><span·class="lineno">·6792</span> <span·class="preprocessor">····#·OGRNullFID·is·-1</span></div><div·class="line"><a·name="l06793"></a><span·class="lineno">·6793</span> ····<span·class="keywordflow">if</span>·(!defined·$fid·||·$fid·<·0)·{</div><div·class="line"><a·name="l06794"></a><span·class="lineno">·6794</span> ········$self->InsertFeature($x);</div><div·class="line"><a·name="l06795"></a><span·class="lineno">·6795</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l06796"></a><span·class="lineno">·6796</span> ········$self->SetFeature($x);</div><div·class="line"><a·name="l06797"></a><span·class="lineno">·6797</span> ····}</div><div·class="line"><a·name="l06798"></a><span·class="lineno">·6798</span> }</div><div·class="line"><a·name="l06799"></a><span·class="lineno">·6799</span> </div><div·class="line"><a·name="l06800"></a><span·class="lineno">·6800</span> <span·class="preprocessor">#**·@method·scalar·FeatureCount($force·=·1)</span></div><div·class="line"><a·name="l06801"></a><span·class="lineno">·6801</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06802"></a><span·class="lineno">·6802</span> <span·class="preprocessor">#·A.k.a·GetFeatureCount</span></div><div·class="line"><a·name="l06803"></a><span·class="lineno">·6803</span> <span·class="preprocessor">#·@param·force</span></div><div·class="line"><a·name="l06804"></a><span·class="lineno">·6804</span> <span·class="preprocessor">#·@return·integer</span></div><div·class="line"><a·name="l06805"></a><span·class="lineno">·6805</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06806"></a><span·class="lineno">·6806</span> sub·FeatureCount·{</div><div·class="line"><a·name="l06807"></a><span·class="lineno">·6807</span> }</div><div·class="line"><a·name="l06808"></a><span·class="lineno">·6808</span> </div><div·class="line"><a·name="l06809"></a><span·class="lineno">·6809</span> <span·class="preprocessor">#**·@method·Features()</span></div><div·class="line"><a·name="l06810"></a><span·class="lineno">·6810</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06811"></a><span·class="lineno">·6811</span> sub·Features·{</div><div·class="line"><a·name="l06812"></a><span·class="lineno">·6812</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06813"></a><span·class="lineno">·6813</span> ····$self->ResetReading;</div><div·class="line"><a·name="l06814"></a><span·class="lineno">·6814</span> ····<span·class="keywordflow">return</span>·sub·{</div><div·class="line"><a·name="l06815"></a><span·class="lineno">·6815</span> ········<span·class="keywordflow">return</span>·$self->GetNextFeature;</div><div·class="line"><a·name="l06816"></a><span·class="lineno">·6816</span> ····}</div><div·class="line"><a·name="l06817"></a><span·class="lineno">·6817</span> }</div><div·class="line"><a·name="l06818"></a><span·class="lineno">·6818</span> </div><div·class="line"><a·name="l06819"></a><span·class="lineno">·6819</span> <span·class="preprocessor">#**·@method·ForFeatures($code,·$in_place)</span></div><div·class="line"><a·name="l06820"></a><span·class="lineno">·6820</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06821"></a><span·class="lineno">·6821</span> <span·class="preprocessor">#·@note·experimental,·the·syntax·may·change</span></div><div·class="line"><a·name="l06822"></a><span·class="lineno">·6822</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06823"></a><span·class="lineno">·6823</span> <span·class="preprocessor">#·Call·code·for·all·features.·This·is·a·simple·wrapper·for</span></div><div·class="line"><a·name="l06824"></a><span·class="lineno">·6824</span> <span·class="preprocessor">#·ResetReading·and·while(GetNextFeature).</span></div><div·class="line"><a·name="l06825"></a><span·class="lineno">·6825</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06826"></a><span·class="lineno">·6826</span> <span·class="preprocessor">#·Example·usage:</span></div><div·class="line"><a·name="l06827"></a><span·class="lineno">·6827</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l06828"></a><span·class="lineno">·6828</span> <span·class="preprocessor">#·$layer->ForFeatures(sub·{my·$f·=·shift;·$self->DeleteFeature($f->FID)});·#·empties·the·layer</span></div><div·class="line"><a·name="l06829"></a><span·class="lineno">·6829</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l06830"></a><span·class="lineno">·6830</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06831"></a><span·class="lineno">·6831</span> <span·class="preprocessor">#·@param·code·a·reference·to·a·subroutine,·which·is·called·with·each</span></div><div·class="line"><a·name="l06832"></a><span·class="lineno">·6832</span> <span·class="preprocessor">#·feature·as·an·argument</span></div><div·class="line"><a·name="l06833"></a><span·class="lineno">·6833</span> <span·class="preprocessor">#·@param·in_place·if·set·to·true,·the·feature·is·stored·back·to·the</span></div><div·class="line"><a·name="l06834"></a><span·class="lineno">·6834</span> <span·class="preprocessor">#·layer</span></div><div·class="line"><a·name="l06835"></a><span·class="lineno">·6835</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06836"></a><span·class="lineno">·6836</span> sub·ForFeatures·{</div><div·class="line"><a·name="l06837"></a><span·class="lineno">·6837</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06838"></a><span·class="lineno">·6838</span> ····my·$code·=·shift;</div><div·class="line"><a·name="l06839"></a><span·class="lineno">·6839</span> ····my·$in_place·=·shift;</div><div·class="line"><a·name="l06840"></a><span·class="lineno">·6840</span> ····$self->ResetReading;</div><div·class="line"><a·name="l06841"></a><span·class="lineno">·6841</span> ····<span·class="keywordflow">while</span>·(my·$f·=·$self->GetNextFeature)·{</div><div·class="line"><a·name="l06842"></a><span·class="lineno">·6842</span> ········keep($f,·$self);</div><div·class="line"><a·name="l06843"></a><span·class="lineno">·6843</span> ········$code->($f);</div><div·class="line"><a·name="l06844"></a><span·class="lineno">·6844</span> ········$self->SetFeature($f)·<span·class="keywordflow">if</span>·$in_place;</div><div·class="line"><a·name="l06845"></a><span·class="lineno">·6845</span> ····};</div><div·class="line"><a·name="l06846"></a><span·class="lineno">·6846</span> }</div><div·class="line"><a·name="l06847"></a><span·class="lineno">·6847</span> </div><div·class="line"><a·name="l06848"></a><span·class="lineno">·6848</span> <span·class="preprocessor">#**·@method·ForGeometries($code,·$in_place)</span></div><div·class="line"><a·name="l06849"></a><span·class="lineno">·6849</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06850"></a><span·class="lineno">·6850</span> <span·class="preprocessor">#·@note·experimental,·the·syntax·may·change</span></div><div·class="line"><a·name="l06851"></a><span·class="lineno">·6851</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06852"></a><span·class="lineno">·6852</span> <span·class="preprocessor">#·Call·code·for·all·geometries.·This·is·a·simple·wrapper·for</span></div><div·class="line"><a·name="l06853"></a><span·class="lineno">·6853</span> <span·class="preprocessor">#·ResetReading·and·while(GetNextFeature).</span></div><div·class="line"><a·name="l06854"></a><span·class="lineno">·6854</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06855"></a><span·class="lineno">·6855</span> <span·class="preprocessor">#·Example·usage:</span></div><div·class="line"><a·name="l06856"></a><span·class="lineno">·6856</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l06857"></a><span·class="lineno">·6857</span> <span·class="preprocessor">#·my·$area·=·0;</span></div><div·class="line"><a·name="l06858"></a><span·class="lineno">·6858</span> <span·class="preprocessor">#·$layer->ForGeometries(sub·{my·$g·=·shift;·$area·+=·$g->Area});·#·computes·the·total·area</span></div><div·class="line"><a·name="l06859"></a><span·class="lineno">·6859</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l06860"></a><span·class="lineno">·6860</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l06861"></a><span·class="lineno">·6861</span> <span·class="preprocessor">#·@param·code·a·reference·to·a·subroutine,·which·is·called·with·each</span></div><div·class="line"><a·name="l06862"></a><span·class="lineno">·6862</span> <span·class="preprocessor">#·geometry·as·an·argument</span></div><div·class="line"><a·name="l06863"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1VSIF.html">·6863</a></span> <span·class="preprocessor">#·@param·in_place·if·set·to·true,·the·geometry·is·stored·back·to·the</span></div><div·class="line"><a·name="l06864"></a><span·class="lineno">·6864</span> <span·class="preprocessor">#·layer</span></div><div·class="line"><a·name="l06865"></a><span·class="lineno">·6865</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06866"></a><span·class="lineno">·6866</span> sub·ForGeometries·{</div><div·class="line"><a·name="l06867"></a><span·class="lineno">·6867</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06868"></a><span·class="lineno">·6868</span> ····my·$code·=·shift;</div><div·class="line"><a·name="l06869"></a><span·class="lineno">·6869</span> ····my·$in_place·=·shift;</div><div·class="line"><a·name="l06870"></a><span·class="lineno">·6870</span> ····$self->ResetReading;</div><div·class="line"><a·name="l06871"></a><span·class="lineno">·6871</span> ····<span·class="keywordflow">while</span>·(my·$f·=·$self->GetNextFeature)·{</div><div·class="line"><a·name="l06872"></a><span·class="lineno">·6872</span> ········my·$g·=·$f->Geometry();</div><div·class="line"><a·name="l06873"></a><span·class="lineno">·6873</span> ········$code->($g);</div><div·class="line"><a·name="l06874"></a><span·class="lineno">·6874</span> ········<span·class="keywordflow">if</span>·($in_place)·{</div><div·class="line"><a·name="l06875"></a><span·class="lineno">·6875</span> ············$f->Geometry($g);</div><div·class="line"><a·name="l06876"></a><span·class="lineno">·6876</span> ············$self->SetFeature($f);</div><div·class="line"><a·name="l06877"></a><span·class="lineno">·6877</span> ········}</div><div·class="line"><a·name="l06878"></a><span·class="lineno">·6878</span> ····}</div><div·class="line"><a·name="l06879"></a><span·class="lineno">·6879</span> }</div><div·class="line"><a·name="l06880"></a><span·class="lineno">·6880</span> </div><div·class="line"><a·name="l06881"></a><span·class="lineno">·6881</span> <span·class="preprocessor">#**·@method·Geometries()</span></div><div·class="line"><a·name="l06882"></a><span·class="lineno">·6882</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06883"></a><span·class="lineno">·6883</span> sub·Geometries·{</div><div·class="line"><a·name="l06884"></a><span·class="lineno">·6884</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06885"></a><span·class="lineno">·6885</span> ····$self->ResetReading;</div><div·class="line"><a·name="l06886"></a><span·class="lineno">·6886</span> ····<span·class="keywordflow">return</span>·sub·{</div><div·class="line"><a·name="l06887"></a><span·class="lineno">·6887</span> ········my·$f·=·$self->GetNextFeature;</div><div·class="line"><a·name="l06888"></a><span·class="lineno">·6888</span> ········<span·class="keywordflow">return</span>·0·unless·$f;</div><div·class="line"><a·name="l06889"></a><span·class="lineno">·6889</span> ········<span·class="keywordflow">return</span>·$f->Geometry;</div><div·class="line"><a·name="l06890"></a><span·class="lineno">·6890</span> ····}</div><div·class="line"><a·name="l06891"></a><span·class="lineno">·6891</span> }</div><div·class="line"><a·name="l06892"></a><span·class="lineno">·6892</span> </div><div·class="line"><a·name="l06893"></a><span·class="lineno">·6893</span> <span·class="preprocessor">#**·@method·scalar·GeometryType($field)</span></div><div·class="line"><a·name="l06894"></a><span·class="lineno">·6894</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06895"></a><span·class="lineno">·6895</span> <span·class="preprocessor">#·@param·field·the·name·or·index·of·the·spatial·field.</span></div><div·class="line"><a·name="l06896"></a><span·class="lineno">·6896</span> <span·class="preprocessor">#·@return·the·geometry·type·of·the·spatial·field.</span></div><div·class="line"><a·name="l06897"></a><span·class="lineno">·6897</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06898"></a><span·class="lineno">·6898</span> sub·GeometryType·{</div><div·class="line"><a·name="l06899"></a><span·class="lineno">·6899</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06900"></a><span·class="lineno">·6900</span> ····my·$d·=·$self->GetDefn;</div><div·class="line"><a·name="l06901"></a><span·class="lineno">·6901</span> ····my·$field·=·$d->GetGeomFieldIndex(shift·<span·class="comment">//·0);</span></div><div·class="line"><a·name="l06902"></a><span·class="lineno">·6902</span> ····my·$fd·=·$d->_GetGeomFieldDefn($field);</div><div·class="line"><a·name="l06903"></a><span·class="lineno">·6903</span> ····<span·class="keywordflow">return</span>·$fd->Type·<span·class="keywordflow">if</span>·$fd;</div><div·class="line"><a·name="l06904"></a><span·class="lineno">·6904</span> }</div><div·class="line"><a·name="l06905"></a><span·class="lineno">·6905</span> </div><div·class="line"><a·name="l06906"></a><span·class="lineno">·6906</span> <span·class="preprocessor">#**·@method·Geo::OGR::DataSource·GetDataSource()</span></div><div·class="line"><a·name="l06907"></a><span·class="lineno">·6907</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06908"></a><span·class="lineno">·6908</span> <span·class="preprocessor">#·@return·the·data·source·object·to·which·this·layer·object·belongs·to.</span></div><div·class="line"><a·name="l06909"></a><span·class="lineno">·6909</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06910"></a><span·class="lineno">·6910</span> sub·GetDataSource·{</div><div·class="line"><a·name="l06911"></a><span·class="lineno">·6911</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06912"></a><span·class="lineno">·6912</span> ····parent($self);</div><div·class="line"><a·name="l06913"></a><span·class="lineno">·6913</span> }</div><div·class="line"><a·name="l06914"></a><span·class="lineno">·6914</span> </div><div·class="line"><a·name="l06915"></a><span·class="lineno">·6915</span> <span·class="preprocessor">#**·@method·Geo::OGR::FeatureDefn·GetDefn()</span></div><div·class="line"><a·name="l06916"></a><span·class="lineno">·6916</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06917"></a><span·class="lineno">·6917</span> <span·class="preprocessor">#·A.k.a·GetLayerDefn.</span></div><div·class="line"><a·name="l06918"></a><span·class="lineno">·6918</span> <span·class="preprocessor">#·@return·a·Geo::OGR::FeatureDefn·object.</span></div><div·class="line"><a·name="l06919"></a><span·class="lineno">·6919</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06920"></a><span·class="lineno">·6920</span> sub·GetDefn·{</div><div·class="line"><a·name="l06921"></a><span·class="lineno">·6921</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06922"></a><span·class="lineno">·6922</span> ····my·$defn·=·$self->GetLayerDefn;</div><div·class="line"><a·name="l06923"></a><span·class="lineno">·6923</span> ····keep($defn,·$self);</div><div·class="line"><a·name="l06924"></a><span·class="lineno">·6924</span> }</div><div·class="line"><a·name="l06925"></a><span·class="lineno">·6925</span> </div><div·class="line"><a·name="l06926"></a><span·class="lineno">·6926</span> <span·class="preprocessor">#**·@method·list·GetExtent($force·=·1)</span></div><div·class="line"><a·name="l06927"></a><span·class="lineno">·6927</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06928"></a><span·class="lineno">·6928</span> <span·class="preprocessor">#·@param·force·compute·the·extent·even·if·it·is·expensive</span></div><div·class="line"><a·name="l06929"></a><span·class="lineno">·6929</span> <span·class="preprocessor">#·@note·In·scalar·context·returns·a·reference·to·an·anonymous·array</span></div><div·class="line"><a·name="l06930"></a><span·class="lineno">·6930</span> <span·class="preprocessor">#·containing·the·extent.</span></div><div·class="line"><a·name="l06931"></a><span·class="lineno">·6931</span> <span·class="preprocessor">#·@return·the·extent·($minx,·$maxx,·$miny,·$maxy)</span></div><div·class="line"><a·name="l06932"></a><span·class="lineno">·6932</span> <span·class="preprocessor">#·@param·force</span></div><div·class="line"><a·name="l06933"></a><span·class="lineno">·6933</span> <span·class="preprocessor">#·@return·the·extent·=·($minx,·$maxx,·$miny,·$maxy)·as·a·listref</span></div><div·class="line"><a·name="l06934"></a><span·class="lineno">·6934</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06935"></a><span·class="lineno">·6935</span> sub·GetExtent·{</div><div·class="line"><a·name="l06936"></a><span·class="lineno">·6936</span> }</div><div·class="line"><a·name="l06937"></a><span·class="lineno">·6937</span> </div><div·class="line"><a·name="l06938"></a><span·class="lineno">·6938</span> <span·class="preprocessor">#**·@method·scalar·GetFIDColumn()</span></div><div·class="line"><a·name="l06939"></a><span·class="lineno">·6939</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06940"></a><span·class="lineno">·6940</span> <span·class="preprocessor">#·@return·the·name·of·the·underlying·database·column·being·used·as·the</span></div><div·class="line"><a·name="l06941"></a><span·class="lineno">·6941</span> <span·class="preprocessor">#·FID·column,·or·""·if·not·supported.</span></div><div·class="line"><a·name="l06942"></a><span·class="lineno">·6942</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06943"></a><span·class="lineno">·6943</span> sub·GetFIDColumn·{</div><div·class="line"><a·name="l06944"></a><span·class="lineno">·6944</span> }</div><div·class="line"><a·name="l06945"></a><span·class="lineno">·6945</span> </div><div·class="line"><a·name="l06946"></a><span·class="lineno">·6946</span> <span·class="preprocessor">#**·@method·Geo::OGR::Feature·GetFeature($fid)</span></div><div·class="line"><a·name="l06947"></a><span·class="lineno">·6947</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06948"></a><span·class="lineno">·6948</span> <span·class="preprocessor">#·@param·fid·feature·id</span></div><div·class="line"><a·name="l06949"></a><span·class="lineno">·6949</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Feature·object·that·represents·the·feature·in·the·layer.</span></div><div·class="line"><a·name="l06950"></a><span·class="lineno">·6950</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06951"></a><span·class="lineno">·6951</span> sub·GetFeature·{</div><div·class="line"><a·name="l06952"></a><span·class="lineno">·6952</span> ····my·($self,·$fid)·=·@_;</div><div·class="line"><a·name="l06953"></a><span·class="lineno">·6953</span> ····$fid·<span·class="comment">//=·0;</span></div><div·class="line"><a·name="l06954"></a><span·class="lineno">·6954</span> ····my·$f·=·$self->_GetFeature($fid);</div><div·class="line"><a·name="l06955"></a><span·class="lineno">·6955</span> ····error(2,·<span·class="stringliteral">"FID=$fid"</span>,·<span·class="stringliteral">'"Feature'</span>)·unless·ref·$f·eq·<span·class="stringliteral">'Geo::OGR::Feature'</span>;</div><div·class="line"><a·name="l06956"></a><span·class="lineno">·6956</span> ····keep($f,·$self);</div><div·class="line"><a·name="l06957"></a><span·class="lineno">·6957</span> }</div><div·class="line"><a·name="l06958"></a><span·class="lineno">·6958</span> </div><div·class="line"><a·name="l06959"></a><span·class="lineno">·6959</span> <span·class="preprocessor">#**·@method·GetFeatureCount()</span></div><div·class="line"><a·name="l06960"></a><span·class="lineno">·6960</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06961"></a><span·class="lineno">·6961</span> sub·GetFeatureCount·{</div><div·class="line"><a·name="l06962"></a><span·class="lineno">·6962</span> }</div><div·class="line"><a·name="l06963"></a><span·class="lineno">·6963</span> </div><div·class="line"><a·name="l06964"></a><span·class="lineno">·6964</span> <span·class="preprocessor">#**·@method·scalar·GetFeaturesRead()</span></div><div·class="line"><a·name="l06965"></a><span·class="lineno">·6965</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06966"></a><span·class="lineno">·6966</span> <span·class="preprocessor">#·@return·integer</span></div><div·class="line"><a·name="l06967"></a><span·class="lineno">·6967</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06968"></a><span·class="lineno">·6968</span> sub·GetFeaturesRead·{</div><div·class="line"><a·name="l06969"></a><span·class="lineno">·6969</span> }</div><div·class="line"><a·name="l06970"></a><span·class="lineno">·6970</span> </div><div·class="line"><a·name="l06971"></a><span·class="lineno">·6971</span> <span·class="preprocessor">#**·@method·scalar·GetFieldDefn($name)</span></div><div·class="line"><a·name="l06972"></a><span·class="lineno">·6972</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06973"></a><span·class="lineno">·6973</span> <span·class="preprocessor">#·Get·the·definition·of·a·field.</span></div><div·class="line"><a·name="l06974"></a><span·class="lineno">·6974</span> <span·class="preprocessor">#·@param·name·the·name·of·the·field.</span></div><div·class="line"><a·name="l06975"></a><span·class="lineno">·6975</span> <span·class="preprocessor">#·@return·a·Geo::OGR::FieldDefn·object.</span></div><div·class="line"><a·name="l06976"></a><span·class="lineno">·6976</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06977"></a><span·class="lineno">·6977</span> sub·GetFieldDefn·{</div><div·class="line"><a·name="l06978"></a><span·class="lineno">·6978</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06979"></a><span·class="lineno">·6979</span> ····my·$d·=·$self->GetDefn;</div><div·class="line"><a·name="l06980"></a><span·class="lineno">·6980</span> ····my·$field·=·$d->GetFieldIndex(shift·<span·class="comment">//·0);</span></div><div·class="line"><a·name="l06981"></a><span·class="lineno">·6981</span> ····<span·class="keywordflow">return</span>·$d->_GetFieldDefn($field);</div><div·class="line"><a·name="l06982"></a><span·class="lineno">·6982</span> }</div><div·class="line"><a·name="l06983"></a><span·class="lineno">·6983</span> </div><div·class="line"><a·name="l06984"></a><span·class="lineno">·6984</span> <span·class="preprocessor">#**·@method·list·GetFieldNames()</span></div><div·class="line"><a·name="l06985"></a><span·class="lineno">·6985</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l06986"></a><span·class="lineno">·6986</span> <span·class="preprocessor">#·@return·a·list·of·the·names·of·the·fields·in·this·layer.·The</span></div><div·class="line"><a·name="l06987"></a><span·class="lineno">·6987</span> <span·class="preprocessor">#·non-geometry·field·names·are·first·in·the·list·and·then·the·geometry</span></div><div·class="line"><a·name="l06988"></a><span·class="lineno">·6988</span> <span·class="preprocessor">#·fields.</span></div><div·class="line"><a·name="l06989"></a><span·class="lineno">·6989</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l06990"></a><span·class="lineno">·6990</span> sub·GetFieldNames·{</div><div·class="line"><a·name="l06991"></a><span·class="lineno">·6991</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l06992"></a><span·class="lineno">·6992</span> ····my·$d·=·$self->GetDefn;</div><div·class="line"><a·name="l06993"></a><span·class="lineno">·6993</span> ····my·@ret;</div><div·class="line"><a·name="l06994"></a><span·class="lineno">·6994</span> ····<span·class="keywordflow">for</span>·(my·$i·=·0;·$i·<·$d->GetFieldCount;·$i++)·{</div><div·class="line"><a·name="l06995"></a><span·class="lineno">·6995</span> ········push·@ret,·$d->GetFieldDefn($i)->Name();</div><div·class="line"><a·name="l06996"></a><span·class="lineno">·6996</span> ····}</div><div·class="line"><a·name="l06997"></a><span·class="lineno">·6997</span> ····<span·class="keywordflow">for</span>·(my·$i·=·0;·$i·<·$d->GetGeomFieldCount;·$i++)·{</div><div·class="line"><a·name="l06998"></a><span·class="lineno">·6998</span> ········push·@ret,·$d->GetGeomFieldDefn($i)->Name();</div><div·class="line"><a·name="l06999"></a><span·class="lineno">·6999</span> ····}</div><div·class="line"><a·name="l07000"></a><span·class="lineno">·7000</span> ····<span·class="keywordflow">return</span>·@ret;</div><div·class="line"><a·name="l07001"></a><span·class="lineno">·7001</span> }</div><div·class="line"><a·name="l07002"></a><span·class="lineno">·7002</span> </div><div·class="line"><a·name="l07003"></a><span·class="lineno">·7003</span> <span·class="preprocessor">#**·@method·scalar·GetGeomFieldDefn($name)</span></div><div·class="line"><a·name="l07004"></a><span·class="lineno">·7004</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07005"></a><span·class="lineno">·7005</span> <span·class="preprocessor">#·Get·the·definition·of·a·spatial·field.</span></div><div·class="line"><a·name="l07006"></a><span·class="lineno">·7006</span> <span·class="preprocessor">#·@param·name·the·name·of·the·spatial·field.</span></div><div·class="line"><a·name="l07007"></a><span·class="lineno">·7007</span> <span·class="preprocessor">#·@return·a·Geo::OGR::GeomFieldDefn·object.</span></div><div·class="line"><a·name="l07008"></a><span·class="lineno">·7008</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07009"></a><span·class="lineno">·7009</span> sub·GetGeomFieldDefn·{</div><div·class="line"><a·name="l07010"></a><span·class="lineno">·7010</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l07011"></a><span·class="lineno">·7011</span> ····my·$d·=·$self->GetDefn;</div><div·class="line"><a·name="l07012"></a><span·class="lineno">·7012</span> ····my·$field·=·$d->GetGeomFieldIndex(shift·<span·class="comment">//·0);</span></div><div·class="line"><a·name="l07013"></a><span·class="lineno">·7013</span> ····<span·class="keywordflow">return</span>·$d->_GetGeomFieldDefn($field);</div><div·class="line"><a·name="l07014"></a><span·class="lineno">·7014</span> }</div><div·class="line"><a·name="l07015"></a><span·class="lineno">·7015</span> </div><div·class="line"><a·name="l07016"></a><span·class="lineno">·7016</span> <span·class="preprocessor">#**·@method·scalar·GetName()</span></div><div·class="line"><a·name="l07017"></a><span·class="lineno">·7017</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07018"></a><span·class="lineno">·7018</span> <span·class="preprocessor">#·@return·the·name·of·the·layer.</span></div><div·class="line"><a·name="l07019"></a><span·class="lineno">·7019</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07020"></a><span·class="lineno">·7020</span> sub·GetName·{</div><div·class="line"><a·name="l07021"></a><span·class="lineno">·7021</span> }</div><div·class="line"><a·name="l07022"></a><span·class="lineno">·7022</span> </div><div·class="line"><a·name="l07023"></a><span·class="lineno">·7023</span> <span·class="preprocessor">#**·@method·Geo::OGR::Feature·GetNextFeature()</span></div><div·class="line"><a·name="l07024"></a><span·class="lineno">·7024</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07025"></a><span·class="lineno">·7025</span> <span·class="preprocessor">#·@return·iteratively·Geo::OGR::Feature·objects·from·the·layer.·The</span></div><div·class="line"><a·name="l07026"></a><span·class="lineno">·7026</span> <span·class="preprocessor">#·iteration·obeys·the·spatial·and·the·attribute·filter.</span></div><div·class="line"><a·name="l07027"></a><span·class="lineno">·7027</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07028"></a><span·class="lineno">·7028</span> sub·GetNextFeature·{</div><div·class="line"><a·name="l07029"></a><span·class="lineno">·7029</span> }</div><div·class="line"><a·name="l07030"></a><span·class="lineno">·7030</span> </div><div·class="line"><a·name="l07031"></a><span·class="lineno">·7031</span> <span·class="preprocessor">#**·@method·hash·reference·GetSchema()</span></div><div·class="line"><a·name="l07032"></a><span·class="lineno">·7032</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07033"></a><span·class="lineno">·7033</span> <span·class="preprocessor">#·@brief·Get·the·schema·of·this·layer.</span></div><div·class="line"><a·name="l07034"></a><span·class="lineno">·7034</span> <span·class="preprocessor">#·@note·The·schema·of·a·layer·cannot·be·set·with·this·method.··If·you</span></div><div·class="line"><a·name="l07035"></a><span·class="lineno">·7035</span> <span·class="preprocessor">#·have·a·Geo::OGR::FeatureDefn·object·before·creating·the·layer,·use</span></div><div·class="line"><a·name="l07036"></a><span·class="lineno">·7036</span> <span·class="preprocessor">#·its·schema·in·the·Geo::OGR::CreateLayer·method.</span></div><div·class="line"><a·name="l07037"></a><span·class="lineno">·7037</span> <span·class="preprocessor">#·@return·the·schema·of·this·layer,·as·in·Geo::OGR::FeatureDefn::Schema.</span></div><div·class="line"><a·name="l07038"></a><span·class="lineno">·7038</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07039"></a><span·class="lineno">·7039</span> sub·GetSchema·{</div><div·class="line"><a·name="l07040"></a><span·class="lineno">·7040</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l07041"></a><span·class="lineno">·7041</span> ····carp·<span·class="stringliteral">"Schema·of·a·layer·should·not·be·set·directly."</span>·<span·class="keywordflow">if</span>·@_;</div><div·class="line"><a·name="l07042"></a><span·class="lineno">·7042</span> ····<span·class="keywordflow">if</span>·(@_·and·@_·%·2·==·0)·{</div><div·class="line"><a·name="l07043"></a><span·class="lineno">·7043</span> ········my·%schema·=·@_;</div><div·class="line"><a·name="l07044"></a><span·class="lineno">·7044</span> ········<span·class="keywordflow">if</span>·($schema{Fields})·{</div><div·class="line"><a·name="l07045"></a><span·class="lineno">·7045</span> ············<span·class="keywordflow">for</span>·my·$field·(@{$schema{Fields}})·{</div><div·class="line"><a·name="l07046"></a><span·class="lineno">·7046</span> ················$self->CreateField($field);</div><div·class="line"><a·name="l07047"></a><span·class="lineno">·7047</span> ············}</div><div·class="line"><a·name="l07048"></a><span·class="lineno">·7048</span> ········}</div><div·class="line"><a·name="l07049"></a><span·class="lineno">·7049</span> ····}</div><div·class="line"><a·name="l07050"></a><span·class="lineno">·7050</span> ····<span·class="keywordflow">return</span>·$self->GetDefn->Schema;</div><div·class="line"><a·name="l07051"></a><span·class="lineno">·7051</span> }</div><div·class="line"><a·name="l07052"></a><span·class="lineno">·7052</span> </div><div·class="line"><a·name="l07053"></a><span·class="lineno">·7053</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·GetSpatialFilter()</span></div><div·class="line"><a·name="l07054"></a><span·class="lineno">·7054</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07055"></a><span·class="lineno">·7055</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l07056"></a><span·class="lineno">·7056</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07057"></a><span·class="lineno">·7057</span> sub·GetSpatialFilter·{</div><div·class="line"><a·name="l07058"></a><span·class="lineno">·7058</span> }</div><div·class="line"><a·name="l07059"></a><span·class="lineno">·7059</span> </div><div·class="line"><a·name="l07060"></a><span·class="lineno">·7060</span> <span·class="preprocessor">#**·@method·GetStyleTable()</span></div><div·class="line"><a·name="l07061"></a><span·class="lineno">·7061</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07062"></a><span·class="lineno">·7062</span> sub·GetStyleTable·{</div><div·class="line"><a·name="l07063"></a><span·class="lineno">·7063</span> }</div><div·class="line"><a·name="l07064"></a><span·class="lineno">·7064</span> </div><div·class="line"><a·name="l07065"></a><span·class="lineno">·7065</span> <span·class="preprocessor">#**·@method·Identity(Geo::OGR::Layer·method,·Geo::OGR::Layer·result,·hashref·options,·coderef·callback,·$callback_data)</span></div><div·class="line"><a·name="l07066"></a><span·class="lineno">·7066</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07067"></a><span·class="lineno">·7067</span> <span·class="preprocessor">#·The·result·layer·contains·features·whose·geometries·represent·areas</span></div><div·class="line"><a·name="l07068"></a><span·class="lineno">·7068</span> <span·class="preprocessor">#·that·are·in·the·input·layer.·The·features·in·the·result·layer·have</span></div><div·class="line"><a·name="l07069"></a><span·class="lineno">·7069</span> <span·class="preprocessor">#·attributes·from·both·input·and·method·layers.·The·schema·of·the</span></div><div·class="line"><a·name="l07070"></a><span·class="lineno">·7070</span> <span·class="preprocessor">#·result·layer·can·be·set·by·the·user·or,·if·it·is·empty,·is</span></div><div·class="line"><a·name="l07071"></a><span·class="lineno">·7071</span> <span·class="preprocessor">#·initialized·to·contain·all·fields·in·input·and·method·layers.</span></div><div·class="line"><a·name="l07072"></a><span·class="lineno">·7072</span> <span·class="preprocessor">#·@param·method·method·layer.</span></div><div·class="line"><a·name="l07073"></a><span·class="lineno">·7073</span> <span·class="preprocessor">#·@param·result·result·layer.</span></div><div·class="line"><a·name="l07074"></a><span·class="lineno">·7074</span> <span·class="preprocessor">#·@param·options·a·reference·to·an·options·hash.</span></div><div·class="line"><a·name="l07075"></a><span·class="lineno">·7075</span> <span·class="preprocessor">#·@param·callback·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l07076"></a><span·class="lineno">·7076</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·callback_data)</span></div><div·class="line"><a·name="l07077"></a><span·class="lineno">·7077</span> <span·class="preprocessor">#·@param·callback_data·[optional]</span></div><div·class="line"><a·name="l07078"></a><span·class="lineno">·7078</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07079"></a><span·class="lineno">·7079</span> sub·Identity·{</div><div·class="line"><a·name="l07080"></a><span·class="lineno">·7080</span> }</div><div·class="line"><a·name="l07081"></a><span·class="lineno">·7081</span> </div><div·class="line"><a·name="l07082"></a><span·class="lineno">·7082</span> <span·class="preprocessor">#**·@method·InsertFeature($feature)</span></div><div·class="line"><a·name="l07083"></a><span·class="lineno">·7083</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07084"></a><span·class="lineno">·7084</span> <span·class="preprocessor">#·Creates·a·new·feature·which·has·the·schema·of·the·layer·and</span></div><div·class="line"><a·name="l07085"></a><span·class="lineno">·7085</span> <span·class="preprocessor">#·initializes·it·with·data·from·the·argument.·Then·inserts·the·feature</span></div><div·class="line"><a·name="l07086"></a><span·class="lineno">·7086</span> <span·class="preprocessor">#·into·the·layer·(using·CreateFeature).·Uses·Geo::OGR::Feature::Row·or</span></div><div·class="line"><a·name="l07087"></a><span·class="lineno">·7087</span> <span·class="preprocessor">#·Geo::OGR::Feature::Tuple.</span></div><div·class="line"><a·name="l07088"></a><span·class="lineno">·7088</span> <span·class="preprocessor">#·@param·feature·a·Geo::OGR::Feature·object·or·reference·to·feature</span></div><div·class="line"><a·name="l07089"></a><span·class="lineno">·7089</span> <span·class="preprocessor">#·data·in·a·hash·(as·in·Geo::OGR::Feature::Row)·or·in·an·array·(as·in</span></div><div·class="line"><a·name="l07090"></a><span·class="lineno">·7090</span> <span·class="preprocessor">#·Geo::OGR::Feature::Tuple)</span></div><div·class="line"><a·name="l07091"></a><span·class="lineno">·7091</span> <span·class="preprocessor">#·@return·the·new·feature.</span></div><div·class="line"><a·name="l07092"></a><span·class="lineno">·7092</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07093"></a><span·class="lineno">·7093</span> sub·InsertFeature·{</div><div·class="line"><a·name="l07094"></a><span·class="lineno">·7094</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l07095"></a><span·class="lineno">·7095</span> ····my·$feature·=·shift;</div><div·class="line"><a·name="l07096"></a><span·class="lineno">·7096</span> ····error(<span·class="stringliteral">"Usage:·\$feature->InsertFeature(reference·to·a·hash·or·array)."</span>)·unless·ref($feature);</div><div·class="line"><a·name="l07097"></a><span·class="lineno">·7097</span> ····my·$new·=·<a·class="code"·href="classGeo_1_1OGR_1_1Feature.html">Geo::OGR::Feature</a>-><a·class="code"·href="classGeo_1_1OGR_1_1Feature.html#ae0fffd439f43bdcf0b9273c0b0466dc3">new</a>(Schema·=>·$self,·Values·=>·$feature);</div><div·class="line"><a·name="l07098"></a><span·class="lineno">·7098</span> ····$self->CreateFeature($new);</div><div·class="line"><a·name="l07099"></a><span·class="lineno">·7099</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l07100"></a><span·class="lineno">·7100</span> ····keep($new,·$self);</div><div·class="line"><a·name="l07101"></a><span·class="lineno">·7101</span> }</div><div·class="line"><a·name="l07102"></a><span·class="lineno">·7102</span> </div><div·class="line"><a·name="l07103"></a><span·class="lineno">·7103</span> <span·class="preprocessor">#**·@method·Intersection(Geo::OGR::Layer·method,·Geo::OGR::Layer·result,·hashref·options,·coderef·callback,·$callback_data)</span></div><div·class="line"><a·name="l07104"></a><span·class="lineno">·7104</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07105"></a><span·class="lineno">·7105</span> <span·class="preprocessor">#·The·result·layer·contains·features·whose·geometries·represent·areas</span></div><div·class="line"><a·name="l07106"></a><span·class="lineno">·7106</span> <span·class="preprocessor">#·that·are·common·between·features·in·the·input·layer·and·in·the</span></div><div·class="line"><a·name="l07107"></a><span·class="lineno">·7107</span> <span·class="preprocessor">#·method·layer.·The·schema·of·the·result·layer·can·be·set·before</span></div><div·class="line"><a·name="l07108"></a><span·class="lineno">·7108</span> <span·class="preprocessor">#·calling·this·method,·or·is·initialized·to·contain·all·fields·from</span></div><div·class="line"><a·name="l07109"></a><span·class="lineno">·7109</span> <span·class="preprocessor">#·this·and·method·layer.</span></div><div·class="line"><a·name="l07110"></a><span·class="lineno">·7110</span> <span·class="preprocessor">#·@param·method·method·layer.</span></div><div·class="line"><a·name="l07111"></a><span·class="lineno">·7111</span> <span·class="preprocessor">#·@param·result·result·layer.</span></div><div·class="line"><a·name="l07112"></a><span·class="lineno">·7112</span> <span·class="preprocessor">#·@param·options·a·reference·to·an·options·hash.</span></div><div·class="line"><a·name="l07113"></a><span·class="lineno">·7113</span> <span·class="preprocessor">#·@param·callback·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l07114"></a><span·class="lineno">·7114</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·callback_data)</span></div><div·class="line"><a·name="l07115"></a><span·class="lineno">·7115</span> <span·class="preprocessor">#·@param·callback_data·[optional]</span></div><div·class="line"><a·name="l07116"></a><span·class="lineno">·7116</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07117"></a><span·class="lineno">·7117</span> sub·Intersection·{</div><div·class="line"><a·name="l07118"></a><span·class="lineno">·7118</span> }</div><div·class="line"><a·name="l07119"></a><span·class="lineno">·7119</span> </div><div·class="line"><a·name="l07120"></a><span·class="lineno">·7120</span> <span·class="preprocessor">#**·@method·ReorderField()</span></div><div·class="line"><a·name="l07121"></a><span·class="lineno">·7121</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07122"></a><span·class="lineno">·7122</span> sub·ReorderField·{</div><div·class="line"><a·name="l07123"></a><span·class="lineno">·7123</span> }</div><div·class="line"><a·name="l07124"></a><span·class="lineno">·7124</span> </div><div·class="line"><a·name="l07125"></a><span·class="lineno">·7125</span> <span·class="preprocessor">#**·@method·ReorderFields()</span></div><div·class="line"><a·name="l07126"></a><span·class="lineno">·7126</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07127"></a><span·class="lineno">·7127</span> sub·ReorderFields·{</div><div·class="line"><a·name="l07128"></a><span·class="lineno">·7128</span> }</div><div·class="line"><a·name="l07129"></a><span·class="lineno">·7129</span> </div><div·class="line"><a·name="l07130"></a><span·class="lineno">·7130</span> <span·class="preprocessor">#**·@method·ResetReading()</span></div><div·class="line"><a·name="l07131"></a><span·class="lineno">·7131</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07132"></a><span·class="lineno">·7132</span> <span·class="preprocessor">#·Initialize·the·layer·object·for·iterative·reading.</span></div><div·class="line"><a·name="l07133"></a><span·class="lineno">·7133</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07134"></a><span·class="lineno">·7134</span> sub·ResetReading·{</div><div·class="line"><a·name="l07135"></a><span·class="lineno">·7135</span> }</div><div·class="line"><a·name="l07136"></a><span·class="lineno">·7136</span> </div><div·class="line"><a·name="l07137"></a><span·class="lineno">·7137</span> <span·class="preprocessor">#**·@method·RollbackTransaction()</span></div><div·class="line"><a·name="l07138"></a><span·class="lineno">·7138</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07139"></a><span·class="lineno">·7139</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07140"></a><span·class="lineno">·7140</span> sub·RollbackTransaction·{</div><div·class="line"><a·name="l07141"></a><span·class="lineno">·7141</span> }</div><div·class="line"><a·name="l07142"></a><span·class="lineno">·7142</span> </div><div·class="line"><a·name="l07143"></a><span·class="lineno">·7143</span> <span·class="preprocessor">#**·@method·hash·reference·Row(%row)</span></div><div·class="line"><a·name="l07144"></a><span·class="lineno">·7144</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07145"></a><span·class="lineno">·7145</span> <span·class="preprocessor">#·Get·and/or·set·the·data·of·a·feature·that·has·the·supplied·feature</span></div><div·class="line"><a·name="l07146"></a><span·class="lineno">·7146</span> <span·class="preprocessor">#·id·(the·next·feature·obtained·with·GetNextFeature·is·used·if·feature</span></div><div·class="line"><a·name="l07147"></a><span·class="lineno">·7147</span> <span·class="preprocessor">#·id·is·not·given).·Calls·Geo::OGR::Feature::Row.</span></div><div·class="line"><a·name="l07148"></a><span·class="lineno">·7148</span> <span·class="preprocessor">#·@param·row·[optional]·feature·data</span></div><div·class="line"><a·name="l07149"></a><span·class="lineno">·7149</span> <span·class="preprocessor">#·@return·a·reference·to·feature·data·in·a·hash</span></div><div·class="line"><a·name="l07150"></a><span·class="lineno">·7150</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07151"></a><span·class="lineno">·7151</span> sub·Row·{</div><div·class="line"><a·name="l07152"></a><span·class="lineno">·7152</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l07153"></a><span·class="lineno">·7153</span> ····my·$update·=·@_·>·0;</div><div·class="line"><a·name="l07154"></a><span·class="lineno">·7154</span> ····my·%row·=·@_;</div><div·class="line"><a·name="l07155"></a><span·class="lineno">·7155</span> ····my·$feature·=·defined·$row{FID}·?·$self->GetFeature($row{FID})·:·$self->GetNextFeature;</div><div·class="line"><a·name="l07156"></a><span·class="lineno">·7156</span> ····<span·class="keywordflow">return</span>·unless·$feature;</div><div·class="line"><a·name="l07157"></a><span·class="lineno">·7157</span> ····my·$ret;</div><div·class="line"><a·name="l07158"></a><span·class="lineno">·7158</span> ····if·(defined·wantarray)·{</div><div·class="line"><a·name="l07159"></a><span·class="lineno">·7159</span> ········$ret·=·$feature->Row(@_);</div><div·class="line"><a·name="l07160"></a><span·class="lineno">·7160</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l07161"></a><span·class="lineno">·7161</span> ········$feature->Row(@_);</div><div·class="line"><a·name="l07162"></a><span·class="lineno">·7162</span> ····}</div><div·class="line"><a·name="l07163"></a><span·class="lineno">·7163</span> ····$self->SetFeature($feature)·<span·class="keywordflow">if</span>·$update;</div><div·class="line"><a·name="l07164"></a><span·class="lineno">·7164</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l07165"></a><span·class="lineno">·7165</span> ····<span·class="keywordflow">return</span>·$ret;</div><div·class="line"><a·name="l07166"></a><span·class="lineno">·7166</span> }</div><div·class="line"><a·name="l07167"></a><span·class="lineno">·7167</span> </div><div·class="line"><a·name="l07168"></a><span·class="lineno">·7168</span> <span·class="preprocessor">#**·@method·SetAttributeFilter($filter_string)</span></div><div·class="line"><a·name="l07169"></a><span·class="lineno">·7169</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07170"></a><span·class="lineno">·7170</span> <span·class="preprocessor">#·Set·or·clear·the·attribute·filter.</span></div><div·class="line"><a·name="l07171"></a><span·class="lineno">·7171</span> <span·class="preprocessor">#·@param·filter_string·a·SQL·WHERE·clause·or·undef·to·clear·the</span></div><div·class="line"><a·name="l07172"></a><span·class="lineno">·7172</span> <span·class="preprocessor">#·filter.</span></div><div·class="line"><a·name="l07173"></a><span·class="lineno">·7173</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07174"></a><span·class="lineno">·7174</span> sub·SetAttributeFilter·{</div><div·class="line"><a·name="l07175"></a><span·class="lineno">·7175</span> }</div><div·class="line"><a·name="l07176"></a><span·class="lineno">·7176</span> </div><div·class="line"><a·name="l07177"></a><span·class="lineno">·7177</span> <span·class="preprocessor">#**·@method·SetFeature($feature)</span></div><div·class="line"><a·name="l07178"></a><span·class="lineno">·7178</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07179"></a><span·class="lineno">·7179</span> <span·class="preprocessor">#·@note·The·feature·should·have·the·same·schema·as·the·layer.</span></div><div·class="line"><a·name="l07180"></a><span·class="lineno">·7180</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l07181"></a><span·class="lineno">·7181</span> <span·class="preprocessor">#·Replaces·a·feature·in·the·layer·based·on·the·given·feature's</span></div><div·class="line"><a·name="l07182"></a><span·class="lineno">·7182</span> <span·class="preprocessor">#·id.·Requires·RandomWrite·capability.</span></div><div·class="line"><a·name="l07183"></a><span·class="lineno">·7183</span> <span·class="preprocessor">#·@param·feature·a·Geo::OGR::Feature·object</span></div><div·class="line"><a·name="l07184"></a><span·class="lineno">·7184</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07185"></a><span·class="lineno">·7185</span> sub·SetFeature·{</div><div·class="line"><a·name="l07186"></a><span·class="lineno">·7186</span> }</div><div·class="line"><a·name="l07187"></a><span·class="lineno">·7187</span> </div><div·class="line"><a·name="l07188"></a><span·class="lineno">·7188</span> <span·class="preprocessor">#**·@method·SetIgnoredFields(@fields)</span></div><div·class="line"><a·name="l07189"></a><span·class="lineno">·7189</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07190"></a><span·class="lineno">·7190</span> <span·class="preprocessor">#·@param·fields·a·list·of·field·names</span></div><div·class="line"><a·name="l07191"></a><span·class="lineno">·7191</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07192"></a><span·class="lineno">·7192</span> sub·SetIgnoredFields·{</div><div·class="line"><a·name="l07193"></a><span·class="lineno">·7193</span> }</div><div·class="line"><a·name="l07194"></a><span·class="lineno">·7194</span> </div><div·class="line"><a·name="l07195"></a><span·class="lineno">·7195</span> <span·class="preprocessor">#**·@method·SetNextByIndex($new_index)</span></div><div·class="line"><a·name="l07196"></a><span·class="lineno">·7196</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07197"></a><span·class="lineno">·7197</span> <span·class="preprocessor">#·@param·new_index·the·index·to·which·set·the·read·cursor·in·the</span></div><div·class="line"><a·name="l07198"></a><span·class="lineno">·7198</span> <span·class="preprocessor">#·current·iteration</span></div><div·class="line"><a·name="l07199"></a><span·class="lineno">·7199</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07200"></a><span·class="lineno">·7200</span> sub·SetNextByIndex·{</div><div·class="line"><a·name="l07201"></a><span·class="lineno">·7201</span> }</div><div·class="line"><a·name="l07202"></a><span·class="lineno">·7202</span> </div><div·class="line"><a·name="l07203"></a><span·class="lineno">·7203</span> <span·class="preprocessor">#**·@method·SetSpatialFilter($filter)</span></div><div·class="line"><a·name="l07204"></a><span·class="lineno">·7204</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07205"></a><span·class="lineno">·7205</span> <span·class="preprocessor">#·@param·filter·[optional]·a·Geo::OGR::Geometry·object.·If·not·given,</span></div><div·class="line"><a·name="l07206"></a><span·class="lineno">·7206</span> <span·class="preprocessor">#·removes·the·filter·if·there·is·one.</span></div><div·class="line"><a·name="l07207"></a><span·class="lineno">·7207</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07208"></a><span·class="lineno">·7208</span> sub·SetSpatialFilter·{</div><div·class="line"><a·name="l07209"></a><span·class="lineno">·7209</span> }</div><div·class="line"><a·name="l07210"></a><span·class="lineno">·7210</span> </div><div·class="line"><a·name="l07211"></a><span·class="lineno">·7211</span> <span·class="preprocessor">#**·@method·SetSpatialFilterRect($minx,·$miny,·$maxx,·$maxy)</span></div><div·class="line"><a·name="l07212"></a><span·class="lineno">·7212</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07213"></a><span·class="lineno">·7213</span> <span·class="preprocessor">#·@param·minx</span></div><div·class="line"><a·name="l07214"></a><span·class="lineno">·7214</span> <span·class="preprocessor">#·@param·miny</span></div><div·class="line"><a·name="l07215"></a><span·class="lineno">·7215</span> <span·class="preprocessor">#·@param·maxx</span></div><div·class="line"><a·name="l07216"></a><span·class="lineno">·7216</span> <span·class="preprocessor">#·@param·maxy</span></div><div·class="line"><a·name="l07217"></a><span·class="lineno">·7217</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07218"></a><span·class="lineno">·7218</span> sub·SetSpatialFilterRect·{</div><div·class="line"><a·name="l07219"></a><span·class="lineno">·7219</span> }</div><div·class="line"><a·name="l07220"></a><span·class="lineno">·7220</span> </div><div·class="line"><a·name="l07221"></a><span·class="lineno">·7221</span> <span·class="preprocessor">#**·@method·SetStyleTable()</span></div><div·class="line"><a·name="l07222"></a><span·class="lineno">·7222</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07223"></a><span·class="lineno">·7223</span> sub·SetStyleTable·{</div><div·class="line"><a·name="l07224"></a><span·class="lineno">·7224</span> }</div><div·class="line"><a·name="l07225"></a><span·class="lineno">·7225</span> </div><div·class="line"><a·name="l07226"></a><span·class="lineno">·7226</span> <span·class="preprocessor">#**·@method·Geo::OGR::Geometry·SpatialFilter(@filter)</span></div><div·class="line"><a·name="l07227"></a><span·class="lineno">·7227</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07228"></a><span·class="lineno">·7228</span> <span·class="preprocessor">#·@param·filter·[optional]·a·Geo::OGR::Geometry·object·or·a·string.·An</span></div><div·class="line"><a·name="l07229"></a><span·class="lineno">·7229</span> <span·class="preprocessor">#·undefined·value·removes·the·filter·if·there·is·one.</span></div><div·class="line"><a·name="l07230"></a><span·class="lineno">·7230</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l07231"></a><span·class="lineno">·7231</span> <span·class="preprocessor">#·@param·filter·[optional]·a·rectangle·($minx,·$miny,·$maxx,·$maxy).</span></div><div·class="line"><a·name="l07232"></a><span·class="lineno">·7232</span> <span·class="preprocessor">#·@return·a·new·Geo::OGR::Geometry·object</span></div><div·class="line"><a·name="l07233"></a><span·class="lineno">·7233</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07234"></a><span·class="lineno">·7234</span> sub·SpatialFilter·{</div><div·class="line"><a·name="l07235"></a><span·class="lineno">·7235</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l07236"></a><span·class="lineno">·7236</span> ····$self->SetSpatialFilter($_[0])·<span·class="keywordflow">if</span>·@_·==·1;</div><div·class="line"><a·name="l07237"></a><span·class="lineno">·7237</span> ····$self->SetSpatialFilterRect(@_)·<span·class="keywordflow">if</span>·@_·==·4;</div><div·class="line"><a·name="l07238"></a><span·class="lineno">·7238</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l07239"></a><span·class="lineno">·7239</span> ····$self->GetSpatialFilter;</div><div·class="line"><a·name="l07240"></a><span·class="lineno">·7240</span> }</div><div·class="line"><a·name="l07241"></a><span·class="lineno">·7241</span> </div><div·class="line"><a·name="l07242"></a><span·class="lineno">·7242</span> <span·class="preprocessor">#**·@method·Geo::OSR::SpatialReference·SpatialReference($name,·Geo::OSR::SpatialReference·sr)</span></div><div·class="line"><a·name="l07243"></a><span·class="lineno">·7243</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07244"></a><span·class="lineno">·7244</span> <span·class="preprocessor">#·@note·A.k.a·GetSpatialRef.</span></div><div·class="line"><a·name="l07245"></a><span·class="lineno">·7245</span> <span·class="preprocessor">#·Get·or·set·the·projection·of·a·spatial·field·of·this·layer.·Gets·or</span></div><div·class="line"><a·name="l07246"></a><span·class="lineno">·7246</span> <span·class="preprocessor">#·sets·the·projection·of·the·first·field·if·no·field·name·is·given.</span></div><div·class="line"><a·name="l07247"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1VSILFILE.html">·7247</a></span> <span·class="preprocessor">#·@param·name·[optional]·a·name·of·a·spatial·field·in·this·layer.</span></div><div·class="line"><a·name="l07248"></a><span·class="lineno">·7248</span> <span·class="preprocessor">#·@param·sr·[optional]·a·Geo::OSR::SpatialReference·object,</span></div><div·class="line"><a·name="l07249"></a><span·class="lineno">·7249</span> <span·class="preprocessor">#·which·replaces·the·existing·projection.</span></div><div·class="line"><a·name="l07250"></a><span·class="lineno">·7250</span> <span·class="preprocessor">#·@return·a·Geo::OSR::SpatialReference·object,·which·represents·the</span></div><div·class="line"><a·name="l07251"></a><span·class="lineno">·7251</span> <span·class="preprocessor">#·projection·in·the·given·spatial·field.</span></div><div·class="line"><a·name="l07252"></a><span·class="lineno">·7252</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07253"></a><span·class="lineno">·7253</span> sub·SpatialReference·{</div><div·class="line"><a·name="l07254"></a><span·class="lineno">·7254</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l07255"></a><span·class="lineno">·7255</span> ····my·$d·=·$self->GetDefn;</div><div·class="line"><a·name="l07256"></a><span·class="lineno">·7256</span> ····my·$field·=·@_·==·2·?·$d->GetGeomFieldIndex(shift·<span·class="comment">//·0)·:·0;</span></div><div·class="line"><a·name="l07257"></a><span·class="lineno">·7257</span> ····my·$sr·=·shift;</div><div·class="line"><a·name="l07258"></a><span·class="lineno">·7258</span> ····my·$d2·=·$d->_GetGeomFieldDefn($field);</div><div·class="line"><a·name="l07259"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GDAL_1_1XML.html">·7259</a></span> ····$d2->SpatialReference($sr)·<span·class="keywordflow">if</span>·defined·$sr;</div><div·class="line"><a·name="l07260"></a><span·class="lineno">·7260</span> ····<span·class="keywordflow">return</span>·$d2->SpatialReference()·<span·class="keywordflow">if</span>·defined·wantarray;</div><div·class="line"><a·name="l07261"></a><span·class="lineno">·7261</span> }</div><div·class="line"><a·name="l07262"></a><span·class="lineno">·7262</span> </div><div·class="line"><a·name="l07263"></a><span·class="lineno">·7263</span> <span·class="preprocessor">#**·@method·StartTransaction()</span></div><div·class="line"><a·name="l07264"></a><span·class="lineno">·7264</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07265"></a><span·class="lineno">·7265</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07266"></a><span·class="lineno">·7266</span> sub·StartTransaction·{</div><div·class="line"><a·name="l07267"></a><span·class="lineno">·7267</span> }</div><div·class="line"><a·name="l07268"></a><span·class="lineno">·7268</span> </div><div·class="line"><a·name="l07269"></a><span·class="lineno">·7269</span> <span·class="preprocessor">#**·@method·SymDifference(Geo::OGR::Layer·method,·Geo::OGR::Layer·result,·hashref·options,·coderef·callback,·$callback_data)</span></div><div·class="line"><a·name="l07270"></a><span·class="lineno">·7270</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07271"></a><span·class="lineno">·7271</span> <span·class="preprocessor">#·The·result·layer·contains·features·whose·geometries·represent·areas</span></div><div·class="line"><a·name="l07272"></a><span·class="lineno">·7272</span> <span·class="preprocessor">#·that·are·in·either·in·the·input·layer·or·in·the·method·layer·but·not</span></div><div·class="line"><a·name="l07273"></a><span·class="lineno">·7273</span> <span·class="preprocessor">#·in·both.·The·features·in·the·result·layer·have·attributes·from·both</span></div><div·class="line"><a·name="l07274"></a><span·class="lineno">·7274</span> <span·class="preprocessor">#·input·and·method·layers.·For·features·which·represent·areas·that·are</span></div><div·class="line"><a·name="l07275"></a><span·class="lineno">·7275</span> <span·class="preprocessor">#·only·in·the·input·or·in·the·method·layer·the·respective·attributes</span></div><div·class="line"><a·name="l07276"></a><span·class="lineno">·7276</span> <span·class="preprocessor">#·have·undefined·values.·The·schema·of·the·result·layer·can·be·set·by</span></div><div·class="line"><a·name="l07277"></a><span·class="lineno">·7277</span> <span·class="preprocessor">#·the·user·or,·if·it·is·empty,·is·initialized·to·contain·all·fields·in</span></div><div·class="line"><a·name="l07278"></a><span·class="lineno">·7278</span> <span·class="preprocessor">#·the·input·and·method·layers.</span></div><div·class="line"><a·name="l07279"></a><span·class="lineno">·7279</span> <span·class="preprocessor">#·@param·method·method·layer.</span></div><div·class="line"><a·name="l07280"></a><span·class="lineno">·7280</span> <span·class="preprocessor">#·@param·result·result·layer.</span></div><div·class="line"><a·name="l07281"></a><span·class="lineno">·7281</span> <span·class="preprocessor">#·@param·options·a·reference·to·an·options·hash.</span></div><div·class="line"><a·name="l07282"></a><span·class="lineno">·7282</span> <span·class="preprocessor">#·@param·callback·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l07283"></a><span·class="lineno">·7283</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·callback_data)</span></div><div·class="line"><a·name="l07284"></a><span·class="lineno">·7284</span> <span·class="preprocessor">#·@param·callback_data·[optional]</span></div><div·class="line"><a·name="l07285"></a><span·class="lineno">·7285</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07286"></a><span·class="lineno">·7286</span> sub·SymDifference·{</div><div·class="line"><a·name="l07287"></a><span·class="lineno">·7287</span> }</div><div·class="line"><a·name="l07288"></a><span·class="lineno">·7288</span> </div><div·class="line"><a·name="l07289"></a><span·class="lineno">·7289</span> <span·class="preprocessor">#**·@method·SyncToDisk()</span></div><div·class="line"><a·name="l07290"></a><span·class="lineno">·7290</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07291"></a><span·class="lineno">·7291</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07292"></a><span·class="lineno">·7292</span> sub·SyncToDisk·{</div><div·class="line"><a·name="l07293"></a><span·class="lineno">·7293</span> }</div><div·class="line"><a·name="l07294"></a><span·class="lineno">·7294</span> </div><div·class="line"><a·name="l07295"></a><span·class="lineno">·7295</span> <span·class="preprocessor">#**·@method·scalar·TestCapability($cap)</span></div><div·class="line"><a·name="l07296"></a><span·class="lineno">·7296</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07297"></a><span·class="lineno">·7297</span> <span·class="preprocessor">#·@param·cap·A·capability·string.</span></div><div·class="line"><a·name="l07298"></a><span·class="lineno">·7298</span> <span·class="preprocessor">#·@return·a·boolean·value·indicating·whether·the·layer·has·the</span></div><div·class="line"><a·name="l07299"></a><span·class="lineno">·7299</span> <span·class="preprocessor">#·specified·capability.</span></div><div·class="line"><a·name="l07300"></a><span·class="lineno">·7300</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07301"></a><span·class="lineno">·7301</span> sub·TestCapability·{</div><div·class="line"><a·name="l07302"></a><span·class="lineno">·7302</span> ····my($self,·$cap)·=·@_;</div><div·class="line"><a·name="l07303"></a><span·class="lineno">·7303</span> ····<span·class="keywordflow">return</span>·_TestCapability($self,·$CAPABILITIES{$cap});</div><div·class="line"><a·name="l07304"></a><span·class="lineno">·7304</span> }</div><div·class="line"><a·name="l07305"></a><span·class="lineno">·7305</span> </div><div·class="line"><a·name="l07306"></a><span·class="lineno">·7306</span> <span·class="preprocessor">#**·@method·list·Tuple(@tuple)</span></div><div·class="line"><a·name="l07307"></a><span·class="lineno">·7307</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07308"></a><span·class="lineno">·7308</span> <span·class="preprocessor">#·Get·and/set·the·data·of·a·feature·that·has·the·supplied·feature·id</span></div><div·class="line"><a·name="l07309"></a><span·class="lineno">·7309</span> <span·class="preprocessor">#·(the·next·feature·obtained·with·GetNextFeature·is·used·if·feature·id</span></div><div·class="line"><a·name="l07310"></a><span·class="lineno">·7310</span> <span·class="preprocessor">#·is·not·given).·The·expected·data·in·the·tuple·is:·([feature·id,]</span></div><div·class="line"><a·name="l07311"></a><span·class="lineno">·7311</span> <span·class="preprocessor">#·non-spatial·fields,·spatial·fields).·Calls·Geo::OGR::Feature::Tuple.</span></div><div·class="line"><a·name="l07312"></a><span·class="lineno">·7312</span> <span·class="preprocessor">#·@param·tuple·[optional]·feature·data</span></div><div·class="line"><a·name="l07313"></a><span·class="lineno">·7313</span> <span·class="preprocessor">#·@note·The·schema·of·the·tuple·needs·to·be·the·same·as·that·of·the</span></div><div·class="line"><a·name="l07314"></a><span·class="lineno">·7314</span> <span·class="preprocessor">#·layer.</span></div><div·class="line"><a·name="l07315"></a><span·class="lineno">·7315</span> <span·class="preprocessor">#·@return·a·reference·to·feature·data·in·an·array</span></div><div·class="line"><a·name="l07316"></a><span·class="lineno">·7316</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07317"></a><span·class="lineno">·7317</span> sub·Tuple·{</div><div·class="line"><a·name="l07318"></a><span·class="lineno">·7318</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l07319"></a><span·class="lineno">·7319</span> ····my·$FID·=·shift;</div><div·class="line"><a·name="l07320"></a><span·class="lineno">·7320</span> ····my·$feature·=·defined·$FID·?·$self->GetFeature($FID)·:·$self->GetNextFeature;</div><div·class="line"><a·name="l07321"></a><span·class="lineno">·7321</span> ····<span·class="keywordflow">return</span>·unless·$feature;</div><div·class="line"><a·name="l07322"></a><span·class="lineno">·7322</span> ····my·$set·=·@_·>·0;</div><div·class="line"><a·name="l07323"></a><span·class="lineno">·7323</span> ····unshift·@_,·$feature->GetFID·<span·class="keywordflow">if</span>·$set;</div><div·class="line"><a·name="l07324"></a><span·class="lineno">·7324</span> ····my·@ret;</div><div·class="line"><a·name="l07325"></a><span·class="lineno">·7325</span> ····<span·class="keywordflow">if</span>·(defined·wantarray)·{</div><div·class="line"><a·name="l07326"></a><span·class="lineno">·7326</span> ········@ret·=·$feature->Tuple(@_);</div><div·class="line"><a·name="l07327"></a><span·class="lineno">·7327</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l07328"></a><span·class="lineno">·7328</span> ········$feature->Tuple(@_);</div><div·class="line"><a·name="l07329"></a><span·class="lineno">·7329</span> ····}</div><div·class="line"><a·name="l07330"></a><span·class="lineno">·7330</span> ····$self->SetFeature($feature)·<span·class="keywordflow">if</span>·$set;</div><div·class="line"><a·name="l07331"></a><span·class="lineno">·7331</span> ····<span·class="keywordflow">return</span>·unless·defined·wantarray;</div><div·class="line"><a·name="l07332"></a><span·class="lineno">·7332</span> ····<span·class="keywordflow">return</span>·@ret;</div><div·class="line"><a·name="l07333"></a><span·class="lineno">·7333</span> }</div><div·class="line"><a·name="l07334"></a><span·class="lineno">·7334</span> </div><div·class="line"><a·name="l07335"></a><span·class="lineno">·7335</span> <span·class="preprocessor">#**·@method·Union(Geo::OGR::Layer·method,·Geo::OGR::Layer·result,·hashref·options,·coderef·callback,·$callback_data)</span></div><div·class="line"><a·name="l07336"></a><span·class="lineno">·7336</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07337"></a><span·class="lineno">·7337</span> <span·class="preprocessor">#·The·result·layer·contains·features·whose·geometries·represent·areas</span></div><div·class="line"><a·name="l07338"></a><span·class="lineno">·7338</span> <span·class="preprocessor">#·that·are·in·either·in·the·input·layer·or·in·the·method·layer.·The</span></div><div·class="line"><a·name="l07339"></a><span·class="lineno">·7339</span> <span·class="preprocessor">#·schema·of·the·result·layer·can·be·set·before·calling·this·method,·or</span></div><div·class="line"><a·name="l07340"></a><span·class="lineno">·7340</span> <span·class="preprocessor">#·is·initialized·to·contain·all·fields·from·this·and·method·layer.</span></div><div·class="line"><a·name="l07341"></a><span·class="lineno">·7341</span> <span·class="preprocessor">#·@param·method·method·layer.</span></div><div·class="line"><a·name="l07342"></a><span·class="lineno">·7342</span> <span·class="preprocessor">#·@param·result·result·layer.</span></div><div·class="line"><a·name="l07343"></a><span·class="lineno">·7343</span> <span·class="preprocessor">#·@param·options·a·reference·to·an·options·hash.</span></div><div·class="line"><a·name="l07344"></a><span·class="lineno">·7344</span> <span·class="preprocessor">#·@param·callback·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l07345"></a><span·class="lineno">·7345</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·callback_data)</span></div><div·class="line"><a·name="l07346"></a><span·class="lineno">·7346</span> <span·class="preprocessor">#·@param·callback_data·[optional]</span></div><div·class="line"><a·name="l07347"></a><span·class="lineno">·7347</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07348"></a><span·class="lineno">·7348</span> sub·Union·{</div><div·class="line"><a·name="l07349"></a><span·class="lineno">·7349</span> }</div><div·class="line"><a·name="l07350"></a><span·class="lineno">·7350</span> </div><div·class="line"><a·name="l07351"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GNM.html">·7351</a></span> <span·class="preprocessor">#**·@method·Update(Geo::OGR::Layer·method,·Geo::OGR::Layer·result,·hashref·options,·coderef·callback,·$callback_data)</span></div><div·class="line"><a·name="l07352"></a><span·class="lineno">·7352</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07353"></a><span·class="lineno">·7353</span> <span·class="preprocessor">#·The·result·layer·contains·features·whose·geometries·represent·areas</span></div><div·class="line"><a·name="l07354"></a><span·class="lineno">·7354</span> <span·class="preprocessor">#·that·are·either·in·the·input·layer·or·in·the·method·layer.·The</span></div><div·class="line"><a·name="l07355"></a><span·class="lineno">·7355</span> <span·class="preprocessor">#·features·in·the·result·layer·have·areas·of·the·features·of·the</span></div><div·class="line"><a·name="l07356"></a><span·class="lineno">·7356</span> <span·class="preprocessor">#·method·layer·or·those·ares·of·the·features·of·the·input·layer·that</span></div><div·class="line"><a·name="l07357"></a><span·class="lineno">·7357</span> <span·class="preprocessor">#·are·not·covered·by·the·method·layer.·The·features·of·the·result</span></div><div·class="line"><a·name="l07358"></a><span·class="lineno">·7358</span> <span·class="preprocessor">#·layer·get·their·attributes·from·the·input·layer.·The·schema·of·the</span></div><div·class="line"><a·name="l07359"></a><span·class="lineno">·7359</span> <span·class="preprocessor">#·result·layer·can·be·set·by·the·user·or,·if·it·is·empty,·is</span></div><div·class="line"><a·name="l07360"></a><span·class="lineno">·7360</span> <span·class="preprocessor">#·initialized·to·contain·all·fields·in·the·input·layer.</span></div><div·class="line"><a·name="l07361"></a><span·class="lineno">·7361</span> <span·class="preprocessor">#·@param·method·method·layer.</span></div><div·class="line"><a·name="l07362"></a><span·class="lineno">·7362</span> <span·class="preprocessor">#·@param·result·result·layer.</span></div><div·class="line"><a·name="l07363"></a><span·class="lineno">·7363</span> <span·class="preprocessor">#·@param·options·a·reference·to·an·options·hash.</span></div><div·class="line"><a·name="l07364"></a><span·class="lineno">·7364</span> <span·class="preprocessor">#·@param·callback·[optional]·a·reference·to·a·subroutine,·which·will</span></div><div·class="line"><a·name="l07365"></a><span·class="lineno">·7365</span> <span·class="preprocessor">#·be·called·with·parameters·(number·progress,·string·msg,·callback_data)</span></div><div·class="line"><a·name="l07366"></a><span·class="lineno">·7366</span> <span·class="preprocessor">#·@param·callback_data·[optional]</span></div><div·class="line"><a·name="l07367"></a><span·class="lineno">·7367</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07368"></a><span·class="lineno">·7368</span> sub·Update·{</div><div·class="line"><a·name="l07369"></a><span·class="lineno">·7369</span> }</div><div·class="line"><a·name="l07370"></a><span·class="lineno">·7370</span> </div><div·class="line"><a·name="l07371"></a><span·class="lineno">·7371</span> <span·class="preprocessor">#**·@class·Geo::OGR::StyleTable</span></div><div·class="line"><a·name="l07372"></a><span·class="lineno">·7372</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07373"></a><span·class="lineno">·7373</span> <span·class="keyword">package·</span>Geo::OGR::StyleTable;</div><div·class="line"><a·name="l07374"></a><span·class="lineno">·7374</span> </div><div·class="line"><a·name="l07375"></a><span·class="lineno">·7375</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1OGR.html">Geo::OGR</a>)</div><div·class="line"><a·name="l07376"></a><span·class="lineno">·7376</span> </div><div·class="line"><a·name="l07377"></a><span·class="lineno">·7377</span> <span·class="preprocessor">#**·@method·AddStyle()</span></div><div·class="line"><a·name="l07378"></a><span·class="lineno">·7378</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07379"></a><span·class="lineno">·7379</span> sub·AddStyle·{</div><div·class="line"><a·name="l07380"></a><span·class="lineno">·7380</span> }</div><div·class="line"><a·name="l07381"></a><span·class="lineno">·7381</span> </div><div·class="line"><a·name="l07382"></a><span·class="lineno">·7382</span> <span·class="preprocessor">#**·@method·Find()</span></div><div·class="line"><a·name="l07383"></a><span·class="lineno">·7383</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07384"></a><span·class="lineno">·7384</span> sub·Find·{</div><div·class="line"><a·name="l07385"></a><span·class="lineno">·7385</span> }</div><div·class="line"><a·name="l07386"></a><span·class="lineno">·7386</span> </div><div·class="line"><a·name="l07387"></a><span·class="lineno">·7387</span> <span·class="preprocessor">#**·@method·GetLastStyleName()</span></div><div·class="line"><a·name="l07388"></a><span·class="lineno">·7388</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07389"></a><span·class="lineno">·7389</span> sub·GetLastStyleName·{</div><div·class="line"><a·name="l07390"></a><span·class="lineno">·7390</span> }</div><div·class="line"><a·name="l07391"></a><span·class="lineno">·7391</span> </div><div·class="line"><a·name="l07392"></a><span·class="lineno">·7392</span> <span·class="preprocessor">#**·@method·GetNextStyle()</span></div><div·class="line"><a·name="l07393"></a><span·class="lineno">·7393</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07394"></a><span·class="lineno">·7394</span> sub·GetNextStyle·{</div><div·class="line"><a·name="l07395"></a><span·class="lineno">·7395</span> }</div><div·class="line"><a·name="l07396"></a><span·class="lineno">·7396</span> </div><div·class="line"><a·name="l07397"></a><span·class="lineno">·7397</span> <span·class="preprocessor">#**·@method·LoadStyleTable()</span></div><div·class="line"><a·name="l07398"></a><span·class="lineno">·7398</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07399"></a><span·class="lineno">·7399</span> sub·LoadStyleTable·{</div><div·class="line"><a·name="l07400"></a><span·class="lineno">·7400</span> }</div><div·class="line"><a·name="l07401"></a><span·class="lineno">·7401</span> </div><div·class="line"><a·name="l07402"></a><span·class="lineno">·7402</span> <span·class="preprocessor">#**·@method·ResetStyleStringReading()</span></div><div·class="line"><a·name="l07403"></a><span·class="lineno">·7403</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07404"></a><span·class="lineno">·7404</span> sub·ResetStyleStringReading·{</div><div·class="line"><a·name="l07405"></a><span·class="lineno">·7405</span> }</div><div·class="line"><a·name="l07406"></a><span·class="lineno">·7406</span> </div><div·class="line"><a·name="l07407"></a><span·class="lineno">·7407</span> <span·class="preprocessor">#**·@method·SaveStyleTable()</span></div><div·class="line"><a·name="l07408"></a><span·class="lineno">·7408</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07409"></a><span·class="lineno">·7409</span> sub·SaveStyleTable·{</div><div·class="line"><a·name="l07410"></a><span·class="lineno">·7410</span> }</div><div·class="line"><a·name="l07411"></a><span·class="lineno">·7411</span> </div><div·class="line"><a·name="l07412"></a><span·class="lineno">·7412</span> <span·class="preprocessor">#**·@method·new()</span></div><div·class="line"><a·name="l07413"></a><span·class="lineno">·7413</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07414"></a><span·class="lineno">·7414</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l07415"></a><span·class="lineno">·7415</span> ····my·$pkg·=·shift;</div><div·class="line"><a·name="l07416"></a><span·class="lineno">·7416</span> ····my·$self·=·Geo::OGRc::new_StyleTable(@_);</div><div·class="line"><a·name="l07417"></a><span·class="lineno">·7417</span> ····bless·$self,·$pkg·<span·class="keywordflow">if</span>·defined($self);</div><div·class="line"><a·name="l07418"></a><span·class="lineno">·7418</span> }</div><div·class="line"><a·name="l07419"></a><span·class="lineno">·7419</span> </div><div·class="line"><a·name="l07420"></a><span·class="lineno">·7420</span> <span·class="preprocessor">#**·@class·Geo::OSR</span></div><div·class="line"><a·name="l07421"></a><span·class="lineno">·7421</span> <span·class="preprocessor">#·@brief·Base·class·for·projection·related·classes.</span></div><div·class="line"><a·name="l07422"></a><span·class="lineno">·7422</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l07423"></a><span·class="lineno">·7423</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07424"></a><span·class="lineno">·7424</span> <span·class="keyword">package·</span>Geo::OSR;</div><div·class="line"><a·name="l07425"></a><span·class="lineno">·7425</span> </div><div·class="line"><a·name="l07426"></a><span·class="lineno">·7426</span> <span·class="preprocessor">#**·@method·list·AngularUnits()</span></div><div·class="line"><a·name="l07427"></a><span·class="lineno">·7427</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l07428"></a><span·class="lineno">·7428</span> <span·class="preprocessor">#·@return·list·of·known·angular·units.</span></div><div·class="line"><a·name="l07429"></a><span·class="lineno">·7429</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07430"></a><span·class="lineno">·7430</span> sub·AngularUnits·{</div><div·class="line"><a·name="l07431"></a><span·class="lineno">·7431</span> ····<span·class="keywordflow">return</span>·keys·%ANGULAR_UNITS;</div><div·class="line"><a·name="l07432"></a><span·class="lineno">·7432</span> }</div><div·class="line"><a·name="l07433"></a><span·class="lineno">·7433</span> </div><div·class="line"><a·name="l07434"></a><span·class="lineno">·7434</span> <span·class="preprocessor">#**·@method·CreateCoordinateTransformation()</span></div><div·class="line"><a·name="l07435"></a><span·class="lineno">·7435</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07436"></a><span·class="lineno">·7436</span> sub·CreateCoordinateTransformation·{</div><div·class="line"><a·name="l07437"></a><span·class="lineno">·7437</span> }</div><div·class="line"><a·name="l07438"></a><span·class="lineno">·7438</span> </div><div·class="line"><a·name="l07439"></a><span·class="lineno">·7439</span> <span·class="preprocessor">#**·@method·list·Datums()</span></div><div·class="line"><a·name="l07440"></a><span·class="lineno">·7440</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l07441"></a><span·class="lineno">·7441</span> <span·class="preprocessor">#·@return·list·of·known·datums.</span></div><div·class="line"><a·name="l07442"></a><span·class="lineno">·7442</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07443"></a><span·class="lineno">·7443</span> sub·Datums·{</div><div·class="line"><a·name="l07444"></a><span·class="lineno">·7444</span> ····<span·class="keywordflow">return</span>·keys·%DATUMS;</div><div·class="line"><a·name="l07445"></a><span·class="lineno">·7445</span> }</div><div·class="line"><a·name="l07446"></a><span·class="lineno">·7446</span> </div><div·class="line"><a·name="l07447"></a><span·class="lineno">·7447</span> <span·class="preprocessor">#**·@method·list·GetProjectionMethodParamInfo($projection,·$parameter)</span></div><div·class="line"><a·name="l07448"></a><span·class="lineno">·7448</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l07449"></a><span·class="lineno">·7449</span> <span·class="preprocessor">#·@param·projection·one·of·Geo::OSR::Projections</span></div><div·class="line"><a·name="l07450"></a><span·class="lineno">·7450</span> <span·class="preprocessor">#·@param·parameter·one·of·Geo::OSR::Parameters</span></div><div·class="line"><a·name="l07451"></a><span·class="lineno">·7451</span> <span·class="preprocessor">#·@return·a·list·($user_friendly_name,·$type,·$default_value).</span></div><div·class="line"><a·name="l07452"></a><span·class="lineno">·7452</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07453"></a><span·class="lineno">·7453</span> sub·GetProjectionMethodParamInfo·{</div><div·class="line"><a·name="l07454"></a><span·class="lineno">·7454</span> }</div><div·class="line"><a·name="l07455"></a><span·class="lineno">·7455</span> </div><div·class="line"><a·name="l07456"></a><span·class="lineno">·7456</span> <span·class="preprocessor">#**·@method·list·GetProjectionMethodParameterList($projection)</span></div><div·class="line"><a·name="l07457"></a><span·class="lineno">·7457</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l07458"></a><span·class="lineno">·7458</span> <span·class="preprocessor">#·@param·projection·one·of·Geo::OSR::Projections</span></div><div·class="line"><a·name="l07459"></a><span·class="lineno">·7459</span> <span·class="preprocessor">#·@return·a·list·(arrayref·parameters,·$projection_name).</span></div><div·class="line"><a·name="l07460"></a><span·class="lineno">·7460</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07461"></a><span·class="lineno">·7461</span> sub·GetProjectionMethodParameterList·{</div><div·class="line"><a·name="l07462"></a><span·class="lineno">·7462</span> }</div><div·class="line"><a·name="l07463"></a><span·class="lineno">·7463</span> </div><div·class="line"><a·name="l07464"></a><span·class="lineno">·7464</span> <span·class="preprocessor">#**·@method·array·reference·GetProjectionMethods()</span></div><div·class="line"><a·name="l07465"></a><span·class="lineno">·7465</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l07466"></a><span·class="lineno">·7466</span> <span·class="preprocessor">#·@deprecated·Use·Geo::OSR::Projections.</span></div><div·class="line"><a·name="l07467"></a><span·class="lineno">·7467</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l07468"></a><span·class="lineno">·7468</span> <span·class="preprocessor">#·@return·reference·to·an·array·of·possible·projection·methods.</span></div><div·class="line"><a·name="l07469"></a><span·class="lineno">·7469</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07470"></a><span·class="lineno">·7470</span> sub·GetProjectionMethods·{</div><div·class="line"><a·name="l07471"></a><span·class="lineno">·7471</span> }</div><div·class="line"><a·name="l07472"></a><span·class="lineno">·7472</span> </div><div·class="line"><a·name="l07473"></a><span·class="lineno">·7473</span> <span·class="preprocessor">#**·@method·scalar·GetUserInputAsWKT($name)</span></div><div·class="line"><a·name="l07474"></a><span·class="lineno">·7474</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l07475"></a><span·class="lineno">·7475</span> <span·class="preprocessor">#·@param·name·the·user·input</span></div><div·class="line"><a·name="l07476"></a><span·class="lineno">·7476</span> <span·class="preprocessor">#·@return·a·WKT·string.</span></div><div·class="line"><a·name="l07477"></a><span·class="lineno">·7477</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07478"></a><span·class="lineno">·7478</span> sub·GetUserInputAsWKT·{</div><div·class="line"><a·name="l07479"></a><span·class="lineno">·7479</span> }</div><div·class="line"><a·name="l07480"></a><span·class="lineno">·7480</span> </div><div·class="line"><a·name="l07481"></a><span·class="lineno">·7481</span> <span·class="preprocessor">#**·@method·scalar·GetWellKnownGeogCSAsWKT($name)</span></div><div·class="line"><a·name="l07482"></a><span·class="lineno">·7482</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l07483"></a><span·class="lineno">·7483</span> <span·class="preprocessor">#·@brief·Get·well·known·geographic·coordinate·system·as·WKT</span></div><div·class="line"><a·name="l07484"></a><span·class="lineno">·7484</span> <span·class="preprocessor">#·@param·name·a·well·known·name</span></div><div·class="line"><a·name="l07485"></a><span·class="lineno">·7485</span> <span·class="preprocessor">#·@return·a·WKT·string.</span></div><div·class="line"><a·name="l07486"></a><span·class="lineno">·7486</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07487"></a><span·class="lineno">·7487</span> sub·GetWellKnownGeogCSAsWKT·{</div><div·class="line"><a·name="l07488"></a><span·class="lineno">·7488</span> }</div><div·class="line"><a·name="l07489"></a><span·class="lineno">·7489</span> </div><div·class="line"><a·name="l07490"></a><span·class="lineno">·7490</span> <span·class="preprocessor">#**·@method·list·LinearUnits()</span></div><div·class="line"><a·name="l07491"></a><span·class="lineno">·7491</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l07492"></a><span·class="lineno">·7492</span> <span·class="preprocessor">#·@return·list·of·known·linear·units.</span></div><div·class="line"><a·name="l07493"></a><span·class="lineno">·7493</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07494"></a><span·class="lineno">·7494</span> sub·LinearUnits·{</div><div·class="line"><a·name="l07495"></a><span·class="lineno">·7495</span> ····<span·class="keywordflow">return</span>·keys·%LINEAR_UNITS;</div><div·class="line"><a·name="l07496"></a><span·class="lineno">·7496</span> }</div><div·class="line"><a·name="l07497"></a><span·class="lineno">·7497</span> </div><div·class="line"><a·name="l07498"></a><span·class="lineno">·7498</span> <span·class="preprocessor">#**·@method·OAO_Down()</span></div><div·class="line"><a·name="l07499"></a><span·class="lineno">·7499</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07500"></a><span·class="lineno">·7500</span> sub·OAO_Down·{</div><div·class="line"><a·name="l07501"></a><span·class="lineno">·7501</span> }</div><div·class="line"><a·name="l07502"></a><span·class="lineno">·7502</span> </div><div·class="line"><a·name="l07503"></a><span·class="lineno">·7503</span> <span·class="preprocessor">#**·@method·OAO_East()</span></div><div·class="line"><a·name="l07504"></a><span·class="lineno">·7504</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07505"></a><span·class="lineno">·7505</span> sub·OAO_East·{</div><div·class="line"><a·name="l07506"></a><span·class="lineno">·7506</span> }</div><div·class="line"><a·name="l07507"></a><span·class="lineno">·7507</span> </div><div·class="line"><a·name="l07508"></a><span·class="lineno">·7508</span> <span·class="preprocessor">#**·@method·OAO_North()</span></div><div·class="line"><a·name="l07509"></a><span·class="lineno">·7509</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07510"></a><span·class="lineno">·7510</span> sub·OAO_North·{</div><div·class="line"><a·name="l07511"></a><span·class="lineno">·7511</span> }</div><div·class="line"><a·name="l07512"></a><span·class="lineno">·7512</span> </div><div·class="line"><a·name="l07513"></a><span·class="lineno">·7513</span> <span·class="preprocessor">#**·@method·OAO_Other()</span></div><div·class="line"><a·name="l07514"></a><span·class="lineno">·7514</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07515"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GNM_1_1GenericNetwork.html">·7515</a></span> sub·OAO_Other·{</div><div·class="line"><a·name="l07516"></a><span·class="lineno">·7516</span> }</div><div·class="line"><a·name="l07517"></a><span·class="lineno">·7517</span> </div><div·class="line"><a·name="l07518"></a><span·class="lineno">·7518</span> <span·class="preprocessor">#**·@method·OAO_South()</span></div><div·class="line"><a·name="l07519"></a><span·class="lineno">·7519</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07520"></a><span·class="lineno">·7520</span> sub·OAO_South·{</div><div·class="line"><a·name="l07521"></a><span·class="lineno">·7521</span> }</div><div·class="line"><a·name="l07522"></a><span·class="lineno">·7522</span> </div><div·class="line"><a·name="l07523"></a><span·class="lineno">·7523</span> <span·class="preprocessor">#**·@method·OAO_Up()</span></div><div·class="line"><a·name="l07524"></a><span·class="lineno">·7524</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07525"></a><span·class="lineno">·7525</span> sub·OAO_Up·{</div><div·class="line"><a·name="l07526"></a><span·class="lineno">·7526</span> }</div><div·class="line"><a·name="l07527"></a><span·class="lineno">·7527</span> </div><div·class="line"><a·name="l07528"></a><span·class="lineno">·7528</span> <span·class="preprocessor">#**·@method·OAO_West()</span></div><div·class="line"><a·name="l07529"></a><span·class="lineno">·7529</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07530"></a><span·class="lineno">·7530</span> sub·OAO_West·{</div><div·class="line"><a·name="l07531"></a><span·class="lineno">·7531</span> }</div><div·class="line"><a·name="l07532"></a><span·class="lineno">·7532</span> </div><div·class="line"><a·name="l07533"></a><span·class="lineno">·7533</span> <span·class="preprocessor">#**·@method·list·Parameters()</span></div><div·class="line"><a·name="l07534"></a><span·class="lineno">·7534</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l07535"></a><span·class="lineno">·7535</span> <span·class="preprocessor">#·@return·list·of·known·projection·parameters.</span></div><div·class="line"><a·name="l07536"></a><span·class="lineno">·7536</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07537"></a><span·class="lineno">·7537</span> sub·Parameters·{</div><div·class="line"><a·name="l07538"></a><span·class="lineno">·7538</span> ····<span·class="keywordflow">return</span>·keys·%PARAMETERS;</div><div·class="line"><a·name="l07539"></a><span·class="lineno">·7539</span> }</div><div·class="line"><a·name="l07540"></a><span·class="lineno">·7540</span> </div><div·class="line"><a·name="l07541"></a><span·class="lineno">·7541</span> <span·class="preprocessor">#**·@method·list·Projections()</span></div><div·class="line"><a·name="l07542"></a><span·class="lineno">·7542</span> <span·class="preprocessor">#·Package·subroutine.</span></div><div·class="line"><a·name="l07543"></a><span·class="lineno">·7543</span> <span·class="preprocessor">#·@return·list·of·known·projections.</span></div><div·class="line"><a·name="l07544"></a><span·class="lineno">·7544</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07545"></a><span·class="lineno">·7545</span> sub·Projections·{</div><div·class="line"><a·name="l07546"></a><span·class="lineno">·7546</span> ····<span·class="keywordflow">return</span>·keys·%PROJECTIONS;</div><div·class="line"><a·name="l07547"></a><span·class="lineno">·7547</span> }</div><div·class="line"><a·name="l07548"></a><span·class="lineno">·7548</span> </div><div·class="line"><a·name="l07549"></a><span·class="lineno">·7549</span> <span·class="preprocessor">#**·@method·SRS_PM_GREENWICH()</span></div><div·class="line"><a·name="l07550"></a><span·class="lineno">·7550</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07551"></a><span·class="lineno">·7551</span> sub·SRS_PM_GREENWICH·{</div><div·class="line"><a·name="l07552"></a><span·class="lineno">·7552</span> }</div><div·class="line"><a·name="l07553"></a><span·class="lineno">·7553</span> </div><div·class="line"><a·name="l07554"></a><span·class="lineno">·7554</span> <span·class="preprocessor">#**·@method·SRS_WGS84_INVFLATTENING()</span></div><div·class="line"><a·name="l07555"></a><span·class="lineno">·7555</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07556"></a><span·class="lineno">·7556</span> sub·SRS_WGS84_INVFLATTENING·{</div><div·class="line"><a·name="l07557"></a><span·class="lineno">·7557</span> }</div><div·class="line"><a·name="l07558"></a><span·class="lineno">·7558</span> </div><div·class="line"><a·name="l07559"></a><span·class="lineno">·7559</span> <span·class="preprocessor">#**·@method·SRS_WGS84_SEMIMAJOR()</span></div><div·class="line"><a·name="l07560"></a><span·class="lineno">·7560</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07561"></a><span·class="lineno">·7561</span> sub·SRS_WGS84_SEMIMAJOR·{</div><div·class="line"><a·name="l07562"></a><span·class="lineno">·7562</span> }</div><div·class="line"><a·name="l07563"></a><span·class="lineno">·7563</span> </div><div·class="line"><a·name="l07564"></a><span·class="lineno">·7564</span> <span·class="preprocessor">#**·@method·SRS_WKT_WGS84()</span></div><div·class="line"><a·name="l07565"></a><span·class="lineno">·7565</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07566"></a><span·class="lineno">·7566</span> sub·SRS_WKT_WGS84·{</div><div·class="line"><a·name="l07567"></a><span·class="lineno">·7567</span> }</div><div·class="line"><a·name="l07568"></a><span·class="lineno">·7568</span> </div><div·class="line"><a·name="l07569"></a><span·class="lineno">·7569</span> <span·class="preprocessor">#**·@class·Geo::OSR::CoordinateTransformation</span></div><div·class="line"><a·name="l07570"></a><span·class="lineno">·7570</span> <span·class="preprocessor">#·@brief·An·object·for·transforming·from·one·projection·to·another.</span></div><div·class="line"><a·name="l07571"></a><span·class="lineno">·7571</span> <span·class="preprocessor">#·@details</span></div><div·class="line"><a·name="l07572"></a><span·class="lineno">·7572</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07573"></a><span·class="lineno">·7573</span> <span·class="keyword">package·</span>Geo::OSR::CoordinateTransformation;</div><div·class="line"><a·name="l07574"></a><span·class="lineno">·7574</span> </div><div·class="line"><a·name="l07575"></a><span·class="lineno">·7575</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1OSR.html">Geo::OSR</a>)</div><div·class="line"><a·name="l07576"></a><span·class="lineno">·7576</span> </div><div·class="line"><a·name="l07577"></a><span·class="lineno">·7577</span> <span·class="preprocessor">#**·@method·array·reference·TransformPoint($x,·$y,·$z)</span></div><div·class="line"><a·name="l07578"></a><span·class="lineno">·7578</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07579"></a><span·class="lineno">·7579</span> <span·class="preprocessor">#·@param·x</span></div><div·class="line"><a·name="l07580"></a><span·class="lineno">·7580</span> <span·class="preprocessor">#·@param·y</span></div><div·class="line"><a·name="l07581"></a><span·class="lineno">·7581</span> <span·class="preprocessor">#·@param·z·[optional]</span></div><div·class="line"><a·name="l07582"></a><span·class="lineno">·7582</span> <span·class="preprocessor">#·@return·arrayref·=·[$x,·$y,·$z]</span></div><div·class="line"><a·name="l07583"></a><span·class="lineno">·7583</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07584"></a><span·class="lineno">·7584</span> sub·TransformPoint·{</div><div·class="line"><a·name="l07585"></a><span·class="lineno">·7585</span> }</div><div·class="line"><a·name="l07586"></a><span·class="lineno">·7586</span> </div><div·class="line"><a·name="l07587"></a><span·class="lineno">·7587</span> <span·class="preprocessor">#**·@method·TransformPoints(arrayref·points)</span></div><div·class="line"><a·name="l07588"></a><span·class="lineno">·7588</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07589"></a><span·class="lineno">·7589</span> <span·class="preprocessor">#·@param·points·[in/out]·a·reference·to·a·list·of·points·(line·string</span></div><div·class="line"><a·name="l07590"></a><span·class="lineno">·7590</span> <span·class="preprocessor">#·or·ring)·that·is·modified·in-place.·A·list·of·points·is:·([x,·y,·z],</span></div><div·class="line"><a·name="l07591"></a><span·class="lineno">·7591</span> <span·class="preprocessor">#·[x,·y,·z],·...),·where·z·is·optional.·Supports·also·lists·of·line</span></div><div·class="line"><a·name="l07592"></a><span·class="lineno">·7592</span> <span·class="preprocessor">#·strings·and·polygons.</span></div><div·class="line"><a·name="l07593"></a><span·class="lineno">·7593</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07594"></a><span·class="lineno">·7594</span> sub·TransformPoints·{</div><div·class="line"><a·name="l07595"></a><span·class="lineno">·7595</span> ····my($self,·$points)·=·@_;</div><div·class="line"><a·name="l07596"></a><span·class="lineno">·7596</span> ····_TransformPoints($self,·$points),·<span·class="keywordflow">return</span>·unless·ref($points->[0]->[0]);</div><div·class="line"><a·name="l07597"></a><span·class="lineno">·7597</span> ····<span·class="keywordflow">for</span>·my·$p·(@$points)·{</div><div·class="line"><a·name="l07598"></a><span·class="lineno">·7598</span> ········TransformPoints($self,·$p);</div><div·class="line"><a·name="l07599"></a><span·class="lineno">·7599</span> ····}</div><div·class="line"><a·name="l07600"></a><span·class="lineno">·7600</span> }</div><div·class="line"><a·name="l07601"></a><span·class="lineno">·7601</span> 1;</div><div·class="line"><a·name="l07602"></a><span·class="lineno">·7602</span> <span·class="preprocessor">#·This·file·was·automatically·generated·by·SWIG·(http://www.swig.org).</span></div><div·class="line"><a·name="l07603"></a><span·class="lineno">·7603</span> <span·class="preprocessor">#·Version·2.0.12</span></div><div·class="line"><a·name="l07604"></a><span·class="lineno">·7604</span> <span·class="preprocessor">#</span></div><div·class="line"><a·name="l07605"></a><span·class="lineno">·7605</span> <span·class="preprocessor">#·Do·not·make·changes·to·this·file·unless·you·know·what·you·are·doing--modify</span></div><div·class="line"><a·name="l07606"></a><span·class="lineno">·7606</span> <span·class="preprocessor">#·the·SWIG·interface·file·instead.</span></div><div·class="line"><a·name="l07607"></a><span·class="lineno">·7607</span> }</div><div·class="line"><a·name="l07608"></a><span·class="lineno">·7608</span> </div><div·class="line"><a·name="l07609"></a><span·class="lineno">·7609</span> <span·class="preprocessor">#**·@method·Geo::OSR::CoordinateTransformation·new($src,·$dst)</span></div><div·class="line"><a·name="l07610"></a><span·class="lineno">·7610</span> <span·class="preprocessor">#·Class·method.</span></div><div·class="line"><a·name="l07611"></a><span·class="lineno">·7611</span> <span·class="preprocessor">#·@param·src·a·Geo::OSR::SpatialReference·object</span></div><div·class="line"><a·name="l07612"></a><span·class="lineno">·7612</span> <span·class="preprocessor">#·@param·dst·a·Geo::OSR::SpatialReference·object</span></div><div·class="line"><a·name="l07613"></a><span·class="lineno">·7613</span> <span·class="preprocessor">#·@return·a·new·Geo::OSR::CoordinateTransformation·object</span></div><div·class="line"><a·name="l07614"></a><span·class="lineno">·7614</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07615"></a><span·class="lineno">·7615</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l07616"></a><span·class="lineno">·7616</span> ····my·$pkg·=·shift;</div><div·class="line"><a·name="l07617"></a><span·class="lineno">·7617</span> ····my·$self·=·Geo::OSRc::new_CoordinateTransformation(@_);</div><div·class="line"><a·name="l07618"></a><span·class="lineno">·7618</span> ····bless·$self,·$pkg·<span·class="keywordflow">if</span>·defined($self);</div><div·class="line"><a·name="l07619"></a><span·class="lineno">·7619</span> }</div><div·class="line"><a·name="l07620"></a><span·class="lineno">·7620</span> </div><div·class="line"><a·name="l07621"></a><span·class="lineno">·7621</span> <span·class="preprocessor">#**·@class·Geo::OSR::SpatialReference</span></div><div·class="line"><a·name="l07622"></a><span·class="lineno">·7622</span> <span·class="preprocessor">#·@brief·A·spatial·reference·system.</span></div><div·class="line"><a·name="l07623"></a><span·class="lineno">·7623</span> <span·class="preprocessor">#·@details·<a·href="http://www.gdal.org/classOGRSpatialReference.html">Documentation</span></div><div·class="line"><a·name="l07624"></a><span·class="lineno">·7624</span> <span·class="preprocessor">#·of·the·underlying·C++·class·at·www.gdal.org</a></span></div><div·class="line"><a·name="l07625"></a><span·class="lineno">·7625</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07626"></a><span·class="lineno">·7626</span> <span·class="keyword">package·</span>Geo::OSR::SpatialReference;</div><div·class="line"><a·name="l07627"></a><span·class="lineno">·7627</span> </div><div·class="line"><a·name="l07628"></a><span·class="lineno">·7628</span> use·base·qw(<a·class="code"·href="namespaceGeo_1_1OSR.html">Geo::OSR</a>)</div><div·class="line"><a·name="l07629"></a><span·class="lineno">·7629</span> </div><div·class="line"><a·name="l07630"></a><span·class="lineno">·7630</span> <span·class="preprocessor">#**·@method·As()</span></div><div·class="line"><a·name="l07631"></a><span·class="lineno">·7631</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07632"></a><span·class="lineno">·7632</span> sub·As·{</div><div·class="line"><a·name="l07633"></a><span·class="lineno">·7633</span> }</div><div·class="line"><a·name="l07634"></a><span·class="lineno">·7634</span> </div><div·class="line"><a·name="l07635"></a><span·class="lineno">·7635</span> <span·class="preprocessor">#**·@method·AutoIdentifyEPSG()</span></div><div·class="line"><a·name="l07636"></a><span·class="lineno">·7636</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07637"></a><span·class="lineno">·7637</span> <span·class="preprocessor">#·Set·EPSG·authority·info·if·possible.</span></div><div·class="line"><a·name="l07638"></a><span·class="lineno">·7638</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07639"></a><span·class="lineno">·7639</span> sub·AutoIdentifyEPSG·{</div><div·class="line"><a·name="l07640"></a><span·class="lineno">·7640</span> }</div><div·class="line"><a·name="l07641"></a><span·class="lineno">·7641</span> </div><div·class="line"><a·name="l07642"></a><span·class="lineno">·7642</span> <span·class="preprocessor">#**·@method·Geo::OSR::SpatialReference·Clone()</span></div><div·class="line"><a·name="l07643"></a><span·class="lineno">·7643</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07644"></a><span·class="lineno">·7644</span> <span·class="preprocessor">#·Make·a·duplicate·of·this·SpatialReference·object.</span></div><div·class="line"><a·name="l07645"></a><span·class="lineno">·7645</span> <span·class="preprocessor">#·@return·a·new·Geo::OSR::SpatialReference·object</span></div><div·class="line"><a·name="l07646"></a><span·class="lineno">·7646</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07647"></a><span·class="lineno">·7647</span> sub·Clone·{</div><div·class="line"><a·name="l07648"></a><span·class="lineno">·7648</span> }</div><div·class="line"><a·name="l07649"></a><span·class="lineno">·7649</span> </div><div·class="line"><a·name="l07650"></a><span·class="lineno">·7650</span> <span·class="preprocessor">#**·@method·Geo::OSR::SpatialReference·CloneGeogCS()</span></div><div·class="line"><a·name="l07651"></a><span·class="lineno">·7651</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07652"></a><span·class="lineno">·7652</span> <span·class="preprocessor">#·Make·a·duplicate·of·the·GEOGCS·node·of·this·SpatialReference·object.</span></div><div·class="line"><a·name="l07653"></a><span·class="lineno">·7653</span> <span·class="preprocessor">#·@return·a·new·Geo::OSR::SpatialReference·object</span></div><div·class="line"><a·name="l07654"></a><span·class="lineno">·7654</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07655"></a><span·class="lineno">·7655</span> sub·CloneGeogCS·{</div><div·class="line"><a·name="l07656"></a><span·class="lineno">·7656</span> }</div><div·class="line"><a·name="l07657"></a><span·class="lineno">·7657</span> </div><div·class="line"><a·name="l07658"></a><span·class="lineno">·7658</span> <span·class="preprocessor">#**·@method·ConvertToOtherProjection()</span></div><div·class="line"><a·name="l07659"></a><span·class="lineno">·7659</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07660"></a><span·class="lineno">·7660</span> sub·ConvertToOtherProjection·{</div><div·class="line"><a·name="l07661"></a><span·class="lineno">·7661</span> }</div><div·class="line"><a·name="l07662"></a><span·class="lineno">·7662</span> </div><div·class="line"><a·name="l07663"></a><span·class="lineno">·7663</span> <span·class="preprocessor">#**·@method·CopyGeogCSFrom($rhs)</span></div><div·class="line"><a·name="l07664"></a><span·class="lineno">·7664</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07665"></a><span·class="lineno">·7665</span> <span·class="preprocessor">#·@param·rhs·Geo::OSR::SpatialReference</span></div><div·class="line"><a·name="l07666"></a><span·class="lineno">·7666</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07667"></a><span·class="lineno">·7667</span> sub·CopyGeogCSFrom·{</div><div·class="line"><a·name="l07668"></a><span·class="lineno">·7668</span> }</div><div·class="line"><a·name="l07669"></a><span·class="lineno">·7669</span> </div><div·class="line"><a·name="l07670"></a><span·class="lineno">·7670</span> <span·class="preprocessor">#**·@method·EPSGTreatsAsLatLong()</span></div><div·class="line"><a·name="l07671"></a><span·class="lineno">·7671</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07672"></a><span·class="lineno">·7672</span> <span·class="preprocessor">#·Returns·TRUE·if·EPSG·feels·this·geographic·coordinate·system·should·be·treated·as·having·lat/long·coordinate·ordering.</span></div><div·class="line"><a·name="l07673"></a><span·class="lineno">·7673</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07674"></a><span·class="lineno">·7674</span> sub·EPSGTreatsAsLatLong·{</div><div·class="line"><a·name="l07675"></a><span·class="lineno">·7675</span> }</div><div·class="line"><a·name="l07676"></a><span·class="lineno">·7676</span> </div><div·class="line"><a·name="l07677"></a><span·class="lineno">·7677</span> <span·class="preprocessor">#**·@method·EPSGTreatsAsNorthingEasting()</span></div><div·class="line"><a·name="l07678"></a><span·class="lineno">·7678</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07679"></a><span·class="lineno">·7679</span> sub·EPSGTreatsAsNorthingEasting·{</div><div·class="line"><a·name="l07680"></a><span·class="lineno">·7680</span> }</div><div·class="line"><a·name="l07681"></a><span·class="lineno">·7681</span> </div><div·class="line"><a·name="l07682"></a><span·class="lineno">·7682</span> <span·class="preprocessor">#**·@method·Export($format)</span></div><div·class="line"><a·name="l07683"></a><span·class="lineno">·7683</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07684"></a><span·class="lineno">·7684</span> <span·class="preprocessor">#·Export·the·spatial·reference·to·a·selected·format.</span></div><div·class="line"><a·name="l07685"></a><span·class="lineno">·7685</span> <span·class="preprocessor">#·@note·a.k.a.·As</span></div><div·class="line"><a·name="l07686"></a><span·class="lineno">·7686</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l07687"></a><span·class="lineno">·7687</span> <span·class="preprocessor">#·@param·format·One·of·the·following.·The·return·value·is·explained</span></div><div·class="line"><a·name="l07688"></a><span·class="lineno">·7688</span> <span·class="preprocessor">#·after·the·format.·Other·arguments·are·explained·in·parenthesis.</span></div><div·class="line"><a·name="l07689"></a><span·class="lineno">·7689</span> <span·class="preprocessor">#·-·WKT·(Text):·Well·Known·Text·string</span></div><div·class="line"><a·name="l07690"></a><span·class="lineno">·7690</span> <span·class="preprocessor">#·-·PrettyWKT:·Well·Known·Text·string·nicely·formatted·(simplify)</span></div><div·class="line"><a·name="l07691"></a><span·class="lineno">·7691</span> <span·class="preprocessor">#·-·Proj4:·PROJ.4·string</span></div><div·class="line"><a·name="l07692"></a><span·class="lineno">·7692</span> <span·class="preprocessor">#·-·PCI:·a·list:·($proj_string,·$units,·[$parms1,·...])</span></div><div·class="line"><a·name="l07693"></a><span·class="lineno">·7693</span> <span·class="preprocessor">#·-·USGS:·a·list:·($code,·$zone,·[$parms1,·...],·$datum)</span></div><div·class="line"><a·name="l07694"></a><span·class="lineno">·7694</span> <span·class="preprocessor">#·-·GML·(XML):·GML·based·string·(dialect)</span></div><div·class="line"><a·name="l07695"></a><span·class="lineno">·7695</span> <span·class="preprocessor">#·-·MapInfoCS·(MICoordSys):·MapInfo·style·co-ordinate·system·definition</span></div><div·class="line"><a·name="l07696"></a><span·class="lineno">·7696</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l07697"></a><span·class="lineno">·7697</span> <span·class="preprocessor">#·@note·The·named·parameter·syntax·also·works·and·is·needed·is·those</span></div><div·class="line"><a·name="l07698"></a><span·class="lineno">·7698</span> <span·class="preprocessor">#·cases·when·other·arguments·need·or·may·be·given.·The·format·should</span></div><div·class="line"><a·name="l07699"></a><span·class="lineno">·7699</span> <span·class="preprocessor">#·be·given·using·key·as,·'to'·or·'format'.</span></div><div·class="line"><a·name="l07700"></a><span·class="lineno">·7700</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l07701"></a><span·class="lineno">·7701</span> <span·class="preprocessor">#·@note·ExportTo*·and·AsText·methods·also·exist·but·are·not·documented·here.</span></div><div·class="line"><a·name="l07702"></a><span·class="lineno">·7702</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l07703"></a><span·class="lineno">·7703</span> <span·class="preprocessor">#·@return·a·scalar·or·a·list·depending·on·the·export·format</span></div><div·class="line"><a·name="l07704"></a><span·class="lineno">·7704</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07705"></a><span·class="lineno">·7705</span> sub·Export·{</div><div·class="line"><a·name="l07706"></a><span·class="lineno">·7706</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l07707"></a><span·class="lineno">·7707</span> ····my·$format;</div><div·class="line"><a·name="l07708"></a><span·class="lineno">·7708</span> ····$format·=·pop·<span·class="keywordflow">if</span>·@_·==·1;</div><div·class="line"><a·name="l07709"></a><span·class="lineno">·7709</span> ····my·%params·=·@_;</div><div·class="line"><a·name="l07710"></a><span·class="lineno">·7710</span> ····$format·<span·class="comment">//=·$params{to}·//=·$params{format}·//=·$params{as}·//=·'';</span></div><div·class="line"><a·name="l07711"></a><span·class="lineno">·7711</span> ····my·$simplify·=·$params{simplify}·<span·class="comment">//·0;</span></div><div·class="line"><a·name="l07712"></a><span·class="lineno">·7712</span> ····my·$dialect·=·$params{dialect}·<span·class="comment">//·'';</span></div><div·class="line"><a·name="l07713"></a><span·class="lineno">·7713</span> ····my·%converters·=·(</div><div·class="line"><a·name="l07714"></a><span·class="lineno">·7714</span> ········WKT·=>·sub·{·<span·class="keywordflow">return</span>·ExportToWkt($self)·},</div><div·class="line"><a·name="l07715"></a><span·class="lineno">·7715</span> ········Text·=>·sub·{·<span·class="keywordflow">return</span>·ExportToWkt($self)·},</div><div·class="line"><a·name="l07716"></a><span·class="lineno">·7716</span> ········PrettyWKT·=>·sub·{·<span·class="keywordflow">return</span>·ExportToPrettyWkt($self,·$simplify)·},</div><div·class="line"><a·name="l07717"></a><span·class="lineno">·7717</span> ········Proj4·=>·sub·{·<span·class="keywordflow">return</span>·ExportToProj4($self)·},</div><div·class="line"><a·name="l07718"></a><span·class="lineno">·7718</span> ········PCI·=>·sub·{·<span·class="keywordflow">return</span>·ExportToPCI($self)·},</div><div·class="line"><a·name="l07719"></a><span·class="lineno">·7719</span> ········USGS·=>·sub·{·<span·class="keywordflow">return</span>·ExportToUSGS($self)·},</div><div·class="line"><a·name="l07720"></a><span·class="lineno">·7720</span> ········GML·=>·sub·{·<span·class="keywordflow">return</span>·ExportToXML($self,·$dialect)·},</div><div·class="line"><a·name="l07721"></a><span·class="lineno">·7721</span> ········<a·class="code"·href="classGeo_1_1GDAL_1_1XML.html">XML</a>·=>·sub·{·<span·class="keywordflow">return</span>·ExportToXML($self,·$dialect)·},</div><div·class="line"><a·name="l07722"></a><span·class="lineno">·7722</span> ········MICoordSys·=>·sub·{·<span·class="keywordflow">return</span>·ExportToMICoordSys()·},</div><div·class="line"><a·name="l07723"></a><span·class="lineno">·7723</span> ········MapInfoCS·=>·sub·{·<span·class="keywordflow">return</span>·ExportToMICoordSys()·},</div><div·class="line"><a·name="l07724"></a><span·class="lineno">·7724</span> ········);</div><div·class="line"><a·name="l07725"></a><span·class="lineno">·7725</span> ····error(1,·$format,·\%converters)·unless·$converters{$format};</div><div·class="line"><a·name="l07726"></a><span·class="lineno">·7726</span> ····<span·class="keywordflow">return</span>·$converters{$format}->();</div><div·class="line"><a·name="l07727"></a><span·class="lineno">·7727</span> }</div><div·class="line"><a·name="l07728"></a><span·class="lineno">·7728</span> </div><div·class="line"><a·name="l07729"></a><span·class="lineno">·7729</span> <span·class="preprocessor">#**·@method·Fixup()</span></div><div·class="line"><a·name="l07730"></a><span·class="lineno">·7730</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07731"></a><span·class="lineno">·7731</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07732"></a><span·class="lineno">·7732</span> sub·Fixup·{</div><div·class="line"><a·name="l07733"></a><span·class="lineno">·7733</span> }</div><div·class="line"><a·name="l07734"></a><span·class="lineno">·7734</span> </div><div·class="line"><a·name="l07735"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GNM_1_1MajorObject.html">·7735</a></span> <span·class="preprocessor">#**·@method·FixupOrdering()</span></div><div·class="line"><a·name="l07736"></a><span·class="lineno">·7736</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07737"></a><span·class="lineno">·7737</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07738"></a><span·class="lineno">·7738</span> sub·FixupOrdering·{</div><div·class="line"><a·name="l07739"></a><span·class="lineno">·7739</span> }</div><div·class="line"><a·name="l07740"></a><span·class="lineno">·7740</span> </div><div·class="line"><a·name="l07741"></a><span·class="lineno">·7741</span> <span·class="preprocessor">#**·@method·scalar·GetAngularUnits()</span></div><div·class="line"><a·name="l07742"></a><span·class="lineno">·7742</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07743"></a><span·class="lineno">·7743</span> <span·class="preprocessor">#·@return·a·number</span></div><div·class="line"><a·name="l07744"></a><span·class="lineno">·7744</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07745"></a><span·class="lineno">·7745</span> sub·GetAngularUnits·{</div><div·class="line"><a·name="l07746"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1GNM_1_1Network.html">·7746</a></span> }</div><div·class="line"><a·name="l07747"></a><span·class="lineno">·7747</span> </div><div·class="line"><a·name="l07748"></a><span·class="lineno">·7748</span> <span·class="preprocessor">#**·@method·GetAngularUnitsName()</span></div><div·class="line"><a·name="l07749"></a><span·class="lineno">·7749</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07750"></a><span·class="lineno">·7750</span> sub·GetAngularUnitsName·{</div><div·class="line"><a·name="l07751"></a><span·class="lineno">·7751</span> }</div><div·class="line"><a·name="l07752"></a><span·class="lineno">·7752</span> </div><div·class="line"><a·name="l07753"></a><span·class="lineno">·7753</span> <span·class="preprocessor">#**·@method·scalar·GetAttrValue($name,·$child·=·0)</span></div><div·class="line"><a·name="l07754"></a><span·class="lineno">·7754</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07755"></a><span·class="lineno">·7755</span> <span·class="preprocessor">#·@param·name</span></div><div·class="line"><a·name="l07756"></a><span·class="lineno">·7756</span> <span·class="preprocessor">#·@param·child</span></div><div·class="line"><a·name="l07757"></a><span·class="lineno">·7757</span> <span·class="preprocessor">#·@return·string</span></div><div·class="line"><a·name="l07758"></a><span·class="lineno">·7758</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07759"></a><span·class="lineno">·7759</span> sub·GetAttrValue·{</div><div·class="line"><a·name="l07760"></a><span·class="lineno">·7760</span> }</div><div·class="line"><a·name="l07761"></a><span·class="lineno">·7761</span> </div><div·class="line"><a·name="l07762"></a><span·class="lineno">·7762</span> <span·class="preprocessor">#**·@method·scalar·GetAuthorityCode($target_key)</span></div><div·class="line"><a·name="l07763"></a><span·class="lineno">·7763</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07764"></a><span·class="lineno">·7764</span> <span·class="preprocessor">#·@param·target_key</span></div><div·class="line"><a·name="l07765"></a><span·class="lineno">·7765</span> <span·class="preprocessor">#·@return·string</span></div><div·class="line"><a·name="l07766"></a><span·class="lineno">·7766</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07767"></a><span·class="lineno">·7767</span> sub·GetAuthorityCode·{</div><div·class="line"><a·name="l07768"></a><span·class="lineno">·7768</span> }</div><div·class="line"><a·name="l07769"></a><span·class="lineno">·7769</span> </div><div·class="line"><a·name="l07770"></a><span·class="lineno">·7770</span> <span·class="preprocessor">#**·@method·scalar·GetAuthorityName($target_key)</span></div><div·class="line"><a·name="l07771"></a><span·class="lineno">·7771</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07772"></a><span·class="lineno">·7772</span> <span·class="preprocessor">#·@param·target_key</span></div><div·class="line"><a·name="l07773"></a><span·class="lineno">·7773</span> <span·class="preprocessor">#·@return·string</span></div><div·class="line"><a·name="l07774"></a><span·class="lineno">·7774</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07775"></a><span·class="lineno">·7775</span> sub·GetAuthorityName·{</div><div·class="line"><a·name="l07776"></a><span·class="lineno">·7776</span> }</div><div·class="line"><a·name="l07777"></a><span·class="lineno">·7777</span> </div><div·class="line"><a·name="l07778"></a><span·class="lineno">·7778</span> <span·class="preprocessor">#**·@method·GetAxisName()</span></div><div·class="line"><a·name="l07779"></a><span·class="lineno">·7779</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07780"></a><span·class="lineno">·7780</span> sub·GetAxisName·{</div><div·class="line"><a·name="l07781"></a><span·class="lineno">·7781</span> }</div><div·class="line"><a·name="l07782"></a><span·class="lineno">·7782</span> </div><div·class="line"><a·name="l07783"></a><span·class="lineno">·7783</span> <span·class="preprocessor">#**·@method·GetAxisOrientation()</span></div><div·class="line"><a·name="l07784"></a><span·class="lineno">·7784</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07785"></a><span·class="lineno">·7785</span> sub·GetAxisOrientation·{</div><div·class="line"><a·name="l07786"></a><span·class="lineno">·7786</span> }</div><div·class="line"><a·name="l07787"></a><span·class="lineno">·7787</span> </div><div·class="line"><a·name="l07788"></a><span·class="lineno">·7788</span> <span·class="preprocessor">#**·@method·GetInvFlattening()</span></div><div·class="line"><a·name="l07789"></a><span·class="lineno">·7789</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07790"></a><span·class="lineno">·7790</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07791"></a><span·class="lineno">·7791</span> sub·GetInvFlattening·{</div><div·class="line"><a·name="l07792"></a><span·class="lineno">·7792</span> }</div><div·class="line"><a·name="l07793"></a><span·class="lineno">·7793</span> </div><div·class="line"><a·name="l07794"></a><span·class="lineno">·7794</span> <span·class="preprocessor">#**·@method·scalar·GetLinearUnits()</span></div><div·class="line"><a·name="l07795"></a><span·class="lineno">·7795</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07796"></a><span·class="lineno">·7796</span> <span·class="preprocessor">#·@return·a·number</span></div><div·class="line"><a·name="l07797"></a><span·class="lineno">·7797</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07798"></a><span·class="lineno">·7798</span> sub·GetLinearUnits·{</div><div·class="line"><a·name="l07799"></a><span·class="lineno">·7799</span> }</div><div·class="line"><a·name="l07800"></a><span·class="lineno">·7800</span> </div><div·class="line"><a·name="l07801"></a><span·class="lineno">·7801</span> <span·class="preprocessor">#**·@method·scalar·GetLinearUnitsName()</span></div><div·class="line"><a·name="l07802"></a><span·class="lineno">·7802</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07803"></a><span·class="lineno">·7803</span> <span·class="preprocessor">#·@return·string</span></div><div·class="line"><a·name="l07804"></a><span·class="lineno">·7804</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07805"></a><span·class="lineno">·7805</span> sub·GetLinearUnitsName·{</div><div·class="line"><a·name="l07806"></a><span·class="lineno">·7806</span> }</div><div·class="line"><a·name="l07807"></a><span·class="lineno">·7807</span> </div><div·class="line"><a·name="l07808"></a><span·class="lineno">·7808</span> <span·class="preprocessor">#**·@method·scalar·GetNormProjParm($name,·$default_val·=·0.0)</span></div><div·class="line"><a·name="l07809"></a><span·class="lineno">·7809</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07810"></a><span·class="lineno">·7810</span> <span·class="preprocessor">#·@param·name</span></div><div·class="line"><a·name="l07811"></a><span·class="lineno">·7811</span> <span·class="preprocessor">#·@param·default_val</span></div><div·class="line"><a·name="l07812"></a><span·class="lineno">·7812</span> <span·class="preprocessor">#·@return·a·number</span></div><div·class="line"><a·name="l07813"></a><span·class="lineno">·7813</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07814"></a><span·class="lineno">·7814</span> sub·GetNormProjParm·{</div><div·class="line"><a·name="l07815"></a><span·class="lineno">·7815</span> }</div><div·class="line"><a·name="l07816"></a><span·class="lineno">·7816</span> </div><div·class="line"><a·name="l07817"></a><span·class="lineno">·7817</span> <span·class="preprocessor">#**·@method·scalar·GetProjParm($name,·$default_val·=·0.0)</span></div><div·class="line"><a·name="l07818"></a><span·class="lineno">·7818</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07819"></a><span·class="lineno">·7819</span> <span·class="preprocessor">#·@param·name</span></div><div·class="line"><a·name="l07820"></a><span·class="lineno">·7820</span> <span·class="preprocessor">#·@param·default_val</span></div><div·class="line"><a·name="l07821"></a><span·class="lineno">·7821</span> <span·class="preprocessor">#·@return·a·number</span></div><div·class="line"><a·name="l07822"></a><span·class="lineno">·7822</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07823"></a><span·class="lineno">·7823</span> sub·GetProjParm·{</div><div·class="line"><a·name="l07824"></a><span·class="lineno">·7824</span> }</div><div·class="line"><a·name="l07825"></a><span·class="lineno">·7825</span> </div><div·class="line"><a·name="l07826"></a><span·class="lineno">·7826</span> <span·class="preprocessor">#**·@method·GetSemiMajor()</span></div><div·class="line"><a·name="l07827"></a><span·class="lineno">·7827</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07828"></a><span·class="lineno">·7828</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07829"></a><span·class="lineno">·7829</span> sub·GetSemiMajor·{</div><div·class="line"><a·name="l07830"></a><span·class="lineno">·7830</span> }</div><div·class="line"><a·name="l07831"></a><span·class="lineno">·7831</span> </div><div·class="line"><a·name="l07832"></a><span·class="lineno">·7832</span> <span·class="preprocessor">#**·@method·GetSemiMinor()</span></div><div·class="line"><a·name="l07833"></a><span·class="lineno">·7833</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07834"></a><span·class="lineno">·7834</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07835"></a><span·class="lineno">·7835</span> sub·GetSemiMinor·{</div><div·class="line"><a·name="l07836"></a><span·class="lineno">·7836</span> }</div><div·class="line"><a·name="l07837"></a><span·class="lineno">·7837</span> </div><div·class="line"><a·name="l07838"></a><span·class="lineno">·7838</span> <span·class="preprocessor">#**·@method·GetTOWGS84()</span></div><div·class="line"><a·name="l07839"></a><span·class="lineno">·7839</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07840"></a><span·class="lineno">·7840</span> <span·class="preprocessor">#·@return·array·=·($p1,·$p2,·$p3,·$p4,·$p5,·$p6,·$p7)</span></div><div·class="line"><a·name="l07841"></a><span·class="lineno">·7841</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07842"></a><span·class="lineno">·7842</span> sub·GetTOWGS84·{</div><div·class="line"><a·name="l07843"></a><span·class="lineno">·7843</span> }</div><div·class="line"><a·name="l07844"></a><span·class="lineno">·7844</span> </div><div·class="line"><a·name="l07845"></a><span·class="lineno">·7845</span> <span·class="preprocessor">#**·@method·GetTargetLinearUnits()</span></div><div·class="line"><a·name="l07846"></a><span·class="lineno">·7846</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07847"></a><span·class="lineno">·7847</span> sub·GetTargetLinearUnits·{</div><div·class="line"><a·name="l07848"></a><span·class="lineno">·7848</span> }</div><div·class="line"><a·name="l07849"></a><span·class="lineno">·7849</span> </div><div·class="line"><a·name="l07850"></a><span·class="lineno">·7850</span> <span·class="preprocessor">#**·@method·GetUTMZone()</span></div><div·class="line"><a·name="l07851"></a><span·class="lineno">·7851</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07852"></a><span·class="lineno">·7852</span> <span·class="preprocessor">#·Get·UTM·zone·information.</span></div><div·class="line"><a·name="l07853"></a><span·class="lineno">·7853</span> <span·class="preprocessor">#·@return·The·UTM·zone·(integer).·In·scalar·context·the·returned·value</span></div><div·class="line"><a·name="l07854"></a><span·class="lineno">·7854</span> <span·class="preprocessor">#·is·negative·for·southern·hemisphere·zones.·In·list·context·returns</span></div><div·class="line"><a·name="l07855"></a><span·class="lineno">·7855</span> <span·class="preprocessor">#·two·values·($zone,·$north),·where·$zone·is·always·non-negative·and</span></div><div·class="line"><a·name="l07856"></a><span·class="lineno">·7856</span> <span·class="preprocessor">#·$north·is·true·or·false.</span></div><div·class="line"><a·name="l07857"></a><span·class="lineno">·7857</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07858"></a><span·class="lineno">·7858</span> sub·GetUTMZone·{</div><div·class="line"><a·name="l07859"></a><span·class="lineno">·7859</span> ····my·$self·=·shift;</div><div·class="line"><a·name="l07860"></a><span·class="lineno">·7860</span> ····my·$zone·=·_GetUTMZone($self);</div><div·class="line"><a·name="l07861"></a><span·class="lineno">·7861</span> ····<span·class="keywordflow">if</span>·(wantarray)·{</div><div·class="line"><a·name="l07862"></a><span·class="lineno">·7862</span> ········my·$north·=·1;</div><div·class="line"><a·name="l07863"></a><span·class="lineno">·7863</span> ········<span·class="keywordflow">if</span>·($zone·<·0)·{</div><div·class="line"><a·name="l07864"></a><span·class="lineno">·7864</span> ············$zone·*=·-1;</div><div·class="line"><a·name="l07865"></a><span·class="lineno">·7865</span> ············$north·=·0;</div><div·class="line"><a·name="l07866"></a><span·class="lineno">·7866</span> ········}</div><div·class="line"><a·name="l07867"></a><span·class="lineno">·7867</span> ········<span·class="keywordflow">return</span>·($zone,·$north);</div><div·class="line"><a·name="l07868"></a><span·class="lineno">·7868</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l07869"></a><span·class="lineno">·7869</span> ········<span·class="keywordflow">return</span>·$zone;</div><div·class="line"><a·name="l07870"></a><span·class="lineno">·7870</span> ····}</div><div·class="line"><a·name="l07871"></a><span·class="lineno">·7871</span> }</div><div·class="line"><a·name="l07872"></a><span·class="lineno">·7872</span> </div><div·class="line"><a·name="l07873"></a><span·class="lineno">·7873</span> <span·class="preprocessor">#**·@method·ImportFromOzi()</span></div><div·class="line"><a·name="l07874"></a><span·class="lineno">·7874</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07875"></a><span·class="lineno">·7875</span> sub·ImportFromOzi·{</div><div·class="line"><a·name="l07876"></a><span·class="lineno">·7876</span> }</div><div·class="line"><a·name="l07877"></a><span·class="lineno">·7877</span> </div><div·class="line"><a·name="l07878"></a><span·class="lineno">·7878</span> <span·class="preprocessor">#**·@method·scalar·IsCompound()</span></div><div·class="line"><a·name="l07879"></a><span·class="lineno">·7879</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07880"></a><span·class="lineno">·7880</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l07881"></a><span·class="lineno">·7881</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07882"></a><span·class="lineno">·7882</span> sub·IsCompound·{</div><div·class="line"><a·name="l07883"></a><span·class="lineno">·7883</span> }</div><div·class="line"><a·name="l07884"></a><span·class="lineno">·7884</span> </div><div·class="line"><a·name="l07885"></a><span·class="lineno">·7885</span> <span·class="preprocessor">#**·@method·scalar·IsGeocentric()</span></div><div·class="line"><a·name="l07886"></a><span·class="lineno">·7886</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07887"></a><span·class="lineno">·7887</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l07888"></a><span·class="lineno">·7888</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07889"></a><span·class="lineno">·7889</span> sub·IsGeocentric·{</div><div·class="line"><a·name="l07890"></a><span·class="lineno">·7890</span> }</div><div·class="line"><a·name="l07891"></a><span·class="lineno">·7891</span> </div><div·class="line"><a·name="l07892"></a><span·class="lineno">·7892</span> <span·class="preprocessor">#**·@method·scalar·IsGeographic()</span></div><div·class="line"><a·name="l07893"></a><span·class="lineno">·7893</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07894"></a><span·class="lineno">·7894</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l07895"></a><span·class="lineno">·7895</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07896"></a><span·class="lineno">·7896</span> sub·IsGeographic·{</div><div·class="line"><a·name="l07897"></a><span·class="lineno">·7897</span> }</div><div·class="line"><a·name="l07898"></a><span·class="lineno">·7898</span> </div><div·class="line"><a·name="l07899"></a><span·class="lineno">·7899</span> <span·class="preprocessor">#**·@method·scalar·IsLocal()</span></div><div·class="line"><a·name="l07900"></a><span·class="lineno">·7900</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07901"></a><span·class="lineno">·7901</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l07902"></a><span·class="lineno">·7902</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07903"></a><span·class="lineno">·7903</span> sub·IsLocal·{</div><div·class="line"><a·name="l07904"></a><span·class="lineno">·7904</span> }</div><div·class="line"><a·name="l07905"></a><span·class="lineno">·7905</span> </div><div·class="line"><a·name="l07906"></a><span·class="lineno">·7906</span> <span·class="preprocessor">#**·@method·scalar·IsProjected()</span></div><div·class="line"><a·name="l07907"></a><span·class="lineno">·7907</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07908"></a><span·class="lineno">·7908</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l07909"></a><span·class="lineno">·7909</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07910"></a><span·class="lineno">·7910</span> sub·IsProjected·{</div><div·class="line"><a·name="l07911"></a><span·class="lineno">·7911</span> }</div><div·class="line"><a·name="l07912"></a><span·class="lineno">·7912</span> </div><div·class="line"><a·name="l07913"></a><span·class="lineno">·7913</span> <span·class="preprocessor">#**·@method·scalar·IsSame($rs)</span></div><div·class="line"><a·name="l07914"></a><span·class="lineno">·7914</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07915"></a><span·class="lineno">·7915</span> <span·class="preprocessor">#·@param·rs·a·Geo::OSR::SpatialReference·object</span></div><div·class="line"><a·name="l07916"></a><span·class="lineno">·7916</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l07917"></a><span·class="lineno">·7917</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07918"></a><span·class="lineno">·7918</span> sub·IsSame·{</div><div·class="line"><a·name="l07919"></a><span·class="lineno">·7919</span> }</div><div·class="line"><a·name="l07920"></a><span·class="lineno">·7920</span> </div><div·class="line"><a·name="l07921"></a><span·class="lineno">·7921</span> <span·class="preprocessor">#**·@method·scalar·IsSameGeogCS($rs)</span></div><div·class="line"><a·name="l07922"></a><span·class="lineno">·7922</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07923"></a><span·class="lineno">·7923</span> <span·class="preprocessor">#·@param·rs·a·Geo::OSR::SpatialReference·object</span></div><div·class="line"><a·name="l07924"></a><span·class="lineno">·7924</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l07925"></a><span·class="lineno">·7925</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07926"></a><span·class="lineno">·7926</span> sub·IsSameGeogCS·{</div><div·class="line"><a·name="l07927"></a><span·class="lineno">·7927</span> }</div><div·class="line"><a·name="l07928"></a><span·class="lineno">·7928</span> </div><div·class="line"><a·name="l07929"></a><span·class="lineno">·7929</span> <span·class="preprocessor">#**·@method·scalar·IsSameVertCS($rs)</span></div><div·class="line"><a·name="l07930"></a><span·class="lineno">·7930</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07931"></a><span·class="lineno">·7931</span> <span·class="preprocessor">#·@param·rs·a·Geo::OSR::SpatialReference·object</span></div><div·class="line"><a·name="l07932"></a><span·class="lineno">·7932</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l07933"></a><span·class="lineno">·7933</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07934"></a><span·class="lineno">·7934</span> sub·IsSameVertCS·{</div><div·class="line"><a·name="l07935"></a><span·class="lineno">·7935</span> }</div><div·class="line"><a·name="l07936"></a><span·class="lineno">·7936</span> </div><div·class="line"><a·name="l07937"></a><span·class="lineno">·7937</span> <span·class="preprocessor">#**·@method·scalar·IsVertical()</span></div><div·class="line"><a·name="l07938"></a><span·class="lineno">·7938</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07939"></a><span·class="lineno">·7939</span> <span·class="preprocessor">#·@return·boolean</span></div><div·class="line"><a·name="l07940"></a><span·class="lineno">·7940</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07941"></a><span·class="lineno">·7941</span> sub·IsVertical·{</div><div·class="line"><a·name="l07942"></a><span·class="lineno">·7942</span> }</div><div·class="line"><a·name="l07943"></a><span·class="lineno">·7943</span> </div><div·class="line"><a·name="l07944"></a><span·class="lineno">·7944</span> <span·class="preprocessor">#**·@method·MorphFromESRI()</span></div><div·class="line"><a·name="l07945"></a><span·class="lineno">·7945</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07946"></a><span·class="lineno">·7946</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07947"></a><span·class="lineno">·7947</span> sub·MorphFromESRI·{</div><div·class="line"><a·name="l07948"></a><span·class="lineno">·7948</span> }</div><div·class="line"><a·name="l07949"></a><span·class="lineno">·7949</span> </div><div·class="line"><a·name="l07950"></a><span·class="lineno">·7950</span> <span·class="preprocessor">#**·@method·MorphToESRI()</span></div><div·class="line"><a·name="l07951"></a><span·class="lineno">·7951</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07952"></a><span·class="lineno">·7952</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07953"></a><span·class="lineno">·7953</span> sub·MorphToESRI·{</div><div·class="line"><a·name="l07954"></a><span·class="lineno">·7954</span> }</div><div·class="line"><a·name="l07955"></a><span·class="lineno">·7955</span> </div><div·class="line"><a·name="l07956"></a><span·class="lineno">·7956</span> <span·class="preprocessor">#**·@method·Set(%params)</span></div><div·class="line"><a·name="l07957"></a><span·class="lineno">·7957</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l07958"></a><span·class="lineno">·7958</span> <span·class="preprocessor">#·Set·a·parameter·or·parameters·in·the·spatial·reference·object.</span></div><div·class="line"><a·name="l07959"></a><span·class="lineno">·7959</span> <span·class="preprocessor">#·@param·params·Named·parameters.·Recognized·keys·and·respective</span></div><div·class="line"><a·name="l07960"></a><span·class="lineno">·7960</span> <span·class="preprocessor">#·values·are·the·following.</span></div><div·class="line"><a·name="l07961"></a><span·class="lineno">·7961</span> <span·class="preprocessor">#·-·Authority:·authority·name·(give·also·TargetKey,·Node·and·Code)</span></div><div·class="line"><a·name="l07962"></a><span·class="lineno">·7962</span> <span·class="preprocessor">#·-·TargetKey:</span></div><div·class="line"><a·name="l07963"></a><span·class="lineno">·7963</span> <span·class="preprocessor">#·-·Node:·partial·or·complete·path·to·the·target·node·(Node·and·Value·together·sets·an·attribute·value)</span></div><div·class="line"><a·name="l07964"></a><span·class="lineno">·7964</span> <span·class="preprocessor">#·-·Code:·code·for·value·with·an·authority</span></div><div·class="line"><a·name="l07965"></a><span·class="lineno">·7965</span> <span·class="preprocessor">#·-·Value:·value·to·be·assigned·to·a·node,·a·projection·parameter·or·an·object</span></div><div·class="line"><a·name="l07966"></a><span·class="lineno">·7966</span> <span·class="preprocessor">#·-·AngularUnits:·angular·units·for·the·geographic·coordinate·system·(give·also·Value)·(one·of·Geo::OSR::LinearUnits)</span></div><div·class="line"><a·name="l07967"></a><span·class="lineno">·7967</span> <span·class="preprocessor">#·-·LinearUnits:·linear·units·for·the·target·node·or·the·object·(give·also·Value·and·optionally·Node)·(one·of·Geo::OSR::LinearUnits)</span></div><div·class="line"><a·name="l07968"></a><span·class="lineno">·7968</span> <span·class="preprocessor">#·-·Parameter:·projection·parameter·to·set·(give·also·Value·and·Normalized)·(one·of·Geo::OSR::Parameters)</span></div><div·class="line"><a·name="l07969"></a><span·class="lineno">·7969</span> <span·class="preprocessor">#·-·Normalized:·set·to·true·to·indicate·that·the·Value·argument·is·in·"normalized"·form</span></div><div·class="line"><a·name="l07970"></a><span·class="lineno">·7970</span> <span·class="preprocessor">#·-·Name:·a·well·known·name·of·a·geographic·coordinate·system·(e.g.·WGS84)</span></div><div·class="line"><a·name="l07971"></a><span·class="lineno">·7971</span> <span·class="preprocessor">#·-·GuessFrom:·arbitrary·text·that·specifies·a·projection·("user·input")</span></div><div·class="line"><a·name="l07972"></a><span·class="lineno">·7972</span> <span·class="preprocessor">#·-·LOCAL_CS:·name·of·a·local·coordinate·system</span></div><div·class="line"><a·name="l07973"></a><span·class="lineno">·7973</span> <span·class="preprocessor">#·-·GeocentricCS:·name·of·a·geocentric·coordinate·system</span></div><div·class="line"><a·name="l07974"></a><span·class="lineno">·7974</span> <span·class="preprocessor">#·-·VerticalCS:·name·of·a·vertical·coordinate·system·(give·also·Datum·and·optionally·VertDatumType·[default·is·2005])</span></div><div·class="line"><a·name="l07975"></a><span·class="lineno">·7975</span> <span·class="preprocessor">#·-·Datum:·a·known·(OGC·or·EPSG)·name·(or(?)·one·of·Geo::OSR::Datums)</span></div><div·class="line"><a·name="l07976"></a><span·class="lineno">·7976</span> <span·class="preprocessor">#·-·CoordinateSystem:·'WGS',·'UTM',·'State·Plane',·or·a·user·visible·name·(give·optionally·also·Parameters,·Zone,·North,·NAD83,·UnitName,·UnitConversionFactor,·Datum,·Spheroid,·HorizontalCS,·and/or·VerticalCS</span></div><div·class="line"><a·name="l07977"></a><span·class="lineno">·7977</span> <span·class="preprocessor">#·-·Parameters:·a·reference·to·a·list·containing·the·coordinate·system·or·projection·parameters</span></div><div·class="line"><a·name="l07978"></a><span·class="lineno">·7978</span> <span·class="preprocessor">#·-·Zone:·zone·for·setting·up·UTM·or·State·Plane·coordinate·systems·(State·Plane·zone·in·USGS·numbering·scheme)</span></div><div·class="line"><a·name="l07979"></a><span·class="lineno">·7979</span> <span·class="preprocessor">#·-·North:·set·false·for·southern·hemisphere</span></div><div·class="line"><a·name="l07980"></a><span·class="lineno">·7980</span> <span·class="preprocessor">#·-·NAD83:·set·false·if·the·NAD27·zone·definition·should·be·used·instead·of·NAD83</span></div><div·class="line"><a·name="l07981"></a><span·class="lineno">·7981</span> <span·class="preprocessor">#·-·UnitName:·to·override·the·legal·definition·for·a·zone</span></div><div·class="line"><a·name="l07982"></a><span·class="lineno">·7982</span> <span·class="preprocessor">#·-·UnitConversionFactor:·to·override·the·legal·definition·for·a·zone</span></div><div·class="line"><a·name="l07983"></a><span·class="lineno">·7983</span> <span·class="preprocessor">#·-·Spheroid:·user·visible·name</span></div><div·class="line"><a·name="l07984"></a><span·class="lineno">·7984</span> <span·class="preprocessor">#·-·HorizontalCS:·Horizontal·coordinate·system·name</span></div><div·class="line"><a·name="l07985"></a><span·class="lineno">·7985</span> <span·class="preprocessor">#·-·Projection:·name·of·a·projection,·one·of·Geo::OSR::Projections·(give·also·optionally·Parameters·and·Variant)</span></div><div·class="line"><a·name="l07986"></a><span·class="lineno">·7986</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l07987"></a><span·class="lineno">·7987</span> <span·class="preprocessor">#·@note·Numerous·Set*·methods·also·exist·but·are·not·documented·here.</span></div><div·class="line"><a·name="l07988"></a><span·class="lineno">·7988</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l07989"></a><span·class="lineno">·7989</span> sub·Set·{</div><div·class="line"><a·name="l07990"></a><span·class="lineno">·7990</span> ····my($self,·%params)·=·@_;</div><div·class="line"><a·name="l07991"></a><span·class="lineno">·7991</span> ····<span·class="keywordflow">if</span>·(exists·$params{Authority}·and·exists·$params{TargetKey}·and·exists·$params{Node}·and·exists·$params{Code})·{</div><div·class="line"><a·name="l07992"></a><span·class="lineno">·7992</span> ········SetAuthority($self,·$params{TargetKey},·$params{Authority},·$params{Code});</div><div·class="line"><a·name="l07993"></a><span·class="lineno">·7993</span> ····}·elsif·(exists·$params{Node}·and·exists·$params{Value})·{</div><div·class="line"><a·name="l07994"></a><span·class="lineno">·7994</span> ········SetAttrValue($self,·$params{Node},·$params{Value});</div><div·class="line"><a·name="l07995"></a><span·class="lineno">·7995</span> ····}·elsif·(exists·$params{AngularUnits}·and·exists·$params{Value})·{</div><div·class="line"><a·name="l07996"></a><span·class="lineno">·7996</span> ········SetAngularUnits($self,·$params{AngularUnits},·$params{Value});</div><div·class="line"><a·name="l07997"></a><span·class="lineno">·7997</span> ····}·elsif·(exists·$params{LinearUnits}·and·exists·$params{Node}·and·exists·$params{Value})·{</div><div·class="line"><a·name="l07998"></a><span·class="lineno">·7998</span> ········SetTargetLinearUnits($self,·$params{Node},·$params{LinearUnits},·$params{Value});</div><div·class="line"><a·name="l07999"></a><span·class="lineno">·7999</span> ····}·elsif·(exists·$params{LinearUnits}·and·exists·$params{Value})·{</div><div·class="line"><a·name="l08000"></a><span·class="lineno">·8000</span> ········SetLinearUnitsAndUpdateParameters($self,·$params{LinearUnits},·$params{Value});</div><div·class="line"><a·name="l08001"></a><span·class="lineno">·8001</span> ····}·elsif·($params{Parameter}·and·exists·$params{Value})·{</div><div·class="line"><a·name="l08002"></a><span·class="lineno">·8002</span> ········error(1,·$params{Parameter},·\%Geo::OSR::PARAMETERS)·unless·exists·$Geo::OSR::PARAMETERS{$params{Parameter}};</div><div·class="line"><a·name="l08003"></a><span·class="lineno">·8003</span> ········$params{Normalized}·?</div><div·class="line"><a·name="l08004"></a><span·class="lineno">·8004</span> ············SetNormProjParm($self,·$params{Parameter},·$params{Value})·:</div><div·class="line"><a·name="l08005"></a><span·class="lineno">·8005</span> ············SetProjParm($self,·$params{Parameter},·$params{Value});</div><div·class="line"><a·name="l08006"></a><span·class="lineno">·8006</span> ····}·elsif·(exists·$params{Name})·{</div><div·class="line"><a·name="l08007"></a><span·class="lineno">·8007</span> ········SetWellKnownGeogCS($self,·$params{Name});</div><div·class="line"><a·name="l08008"></a><span·class="lineno">·8008</span> ····}·elsif·(exists·$params{GuessFrom})·{</div><div·class="line"><a·name="l08009"></a><span·class="lineno">·8009</span> ········SetFromUserInput($self,·$params{GuessFrom});</div><div·class="line"><a·name="l08010"></a><span·class="lineno">·8010</span> ····}·elsif·(exists·$params{LOCAL_CS})·{</div><div·class="line"><a·name="l08011"></a><span·class="lineno">·8011</span> ········SetLocalCS($self,·$params{LOCAL_CS});</div><div·class="line"><a·name="l08012"></a><span·class="lineno">·8012</span> ····}·elsif·(exists·$params{GeocentricCS})·{</div><div·class="line"><a·name="l08013"></a><span·class="lineno">·8013</span> ········SetGeocCS($self,·$params{GeocentricCS});</div><div·class="line"><a·name="l08014"></a><span·class="lineno">·8014</span> ····}·elsif·(exists·$params{VerticalCS}·and·$params{Datum})·{</div><div·class="line"><a·name="l08015"></a><span·class="lineno">·8015</span> ········my·$type·=·$params{VertDatumType}·||·2005;</div><div·class="line"><a·name="l08016"></a><span·class="lineno">·8016</span> ········SetVertCS($self,·$params{VerticalCS},·$params{Datum},·$type);</div><div·class="line"><a·name="l08017"></a><span·class="lineno">·8017</span> ····}·elsif·(exists·$params{CoordinateSystem})·{</div><div·class="line"><a·name="l08018"></a><span·class="lineno">·8018</span> ········my·@parameters·=·();</div><div·class="line"><a·name="l08019"></a><span·class="lineno">·8019</span> ········@parameters·=·@{$params{Parameters}}·<span·class="keywordflow">if</span>·ref($params{Parameters});</div><div·class="line"><a·name="l08020"></a><span·class="lineno">·8020</span> ········<span·class="keywordflow">if</span>·($params{CoordinateSystem}·eq·<span·class="stringliteral">'State·Plane'</span>·and·exists·$params{Zone})·{</div><div·class="line"><a·name="l08021"></a><span·class="lineno">·8021</span> ············my·$NAD83·=·exists·$params{NAD83}·?·$params{NAD83}·:·1;</div><div·class="line"><a·name="l08022"></a><span·class="lineno">·8022</span> ············my·$name·=·exists·$params{UnitName}·?·$params{UnitName}·:·undef;</div><div·class="line"><a·name="l08023"></a><span·class="lineno">·8023</span> ············my·$c·=·exists·$params{UnitConversionFactor}·?·$params{UnitConversionFactor}·:·0.0;</div><div·class="line"><a·name="l08024"></a><span·class="lineno">·8024</span> ············SetStatePlane($self,·$params{Zone},·$NAD83,·$name,·$c);</div><div·class="line"><a·name="l08025"></a><span·class="lineno">·8025</span> ········}·elsif·($params{CoordinateSystem}·eq·<span·class="stringliteral">'UTM'</span>·and·exists·$params{Zone}·and·exists·$params{North})·{</div><div·class="line"><a·name="l08026"></a><span·class="lineno">·8026</span> ············my·$north·=·exists·$params{North}·?·$params{North}·:·1;</div><div·class="line"><a·name="l08027"></a><span·class="lineno">·8027</span> ············SetUTM($self,·$params{Zone},·$north);</div><div·class="line"><a·name="l08028"></a><span·class="lineno">·8028</span> ········}·elsif·($params{CoordinateSystem}·eq·<span·class="stringliteral">'WGS'</span>)·{</div><div·class="line"><a·name="l08029"></a><span·class="lineno">·8029</span> ············SetTOWGS84($self,·@parameters);</div><div·class="line"><a·name="l08030"></a><span·class="lineno">·8030</span> ········}·elsif·($params{CoordinateSystem}·and·$params{Datum}·and·$params{Spheroid})·{</div><div·class="line"><a·name="l08031"></a><span·class="lineno">·8031</span> ············SetGeogCS($self,·$params{CoordinateSystem},·$params{Datum},·$params{Spheroid},·@parameters);</div><div·class="line"><a·name="l08032"></a><span·class="lineno">·8032</span> ········}·elsif·($params{CoordinateSystem}·and·$params{HorizontalCS}·and·$params{VerticalCS})·{</div><div·class="line"><a·name="l08033"></a><span·class="lineno">·8033</span> ············SetCompoundCS($self,·$params{CoordinateSystem},·$params{HorizontalCS},·$params{VerticalCS});</div><div·class="line"><a·name="l08034"></a><span·class="lineno">·8034</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l08035"></a><span·class="lineno">·8035</span> ············SetProjCS($self,·$params{CoordinateSystem});</div><div·class="line"><a·name="l08036"></a><span·class="lineno">·8036</span> ········}</div><div·class="line"><a·name="l08037"></a><span·class="lineno">·8037</span> ····}·elsif·(exists·$params{Projection})·{</div><div·class="line"><a·name="l08038"></a><span·class="lineno">·8038</span> ········error(1,·$params{Projection},·\%Geo::OSR::PROJECTIONS)·unless·exists·$Geo::OSR::PROJECTIONS{$params{Projection}};</div><div·class="line"><a·name="l08039"></a><span·class="lineno">·8039</span> ········my·@parameters·=·();</div><div·class="line"><a·name="l08040"></a><span·class="lineno">·8040</span> ········@parameters·=·@{$params{Parameters}}·<span·class="keywordflow">if</span>·ref($params{Parameters});</div><div·class="line"><a·name="l08041"></a><span·class="lineno">·8041</span> ········<span·class="keywordflow">if</span>·($params{Projection}·eq·<span·class="stringliteral">'Albers_Conic_Equal_Area'</span>)·{</div><div·class="line"><a·name="l08042"></a><span·class="lineno">·8042</span> ············SetACEA($self,·@parameters);</div><div·class="line"><a·name="l08043"></a><span·class="lineno">·8043</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Azimuthal_Equidistant'</span>)·{</div><div·class="line"><a·name="l08044"></a><span·class="lineno"><a·class="line"·href="classGeo_1_1OGR.html">·8044</a></span> ············SetAE($self,·@parameters);</div><div·class="line"><a·name="l08045"></a><span·class="lineno">·8045</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Bonne'</span>)·{</div><div·class="line"><a·name="l08046"></a><span·class="lineno">·8046</span> ············SetBonne($self,·@parameters);</div><div·class="line"><a·name="l08047"></a><span·class="lineno">·8047</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Cylindrical_Equal_Area'</span>)·{</div><div·class="line"><a·name="l08048"></a><span·class="lineno">·8048</span> ············SetCEA($self,·@parameters);</div><div·class="line"><a·name="l08049"></a><span·class="lineno">·8049</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Cassini_Soldner'</span>)·{</div><div·class="line"><a·name="l08050"></a><span·class="lineno">·8050</span> ············SetCS($self,·@parameters);</div><div·class="line"><a·name="l08051"></a><span·class="lineno">·8051</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Equidistant_Conic'</span>)·{</div><div·class="line"><a·name="l08052"></a><span·class="lineno">·8052</span> ············SetEC($self,·@parameters);</div><div·class="line"><a·name="l08053"></a><span·class="lineno">·8053</span> <span·class="preprocessor">············#·Eckert_I,·Eckert_II,·Eckert_III,·Eckert_V·?</span></div><div·class="line"><a·name="l08054"></a><span·class="lineno">·8054</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Eckert_IV'</span>)·{</div><div·class="line"><a·name="l08055"></a><span·class="lineno">·8055</span> ············SetEckertIV($self,·@parameters);</div><div·class="line"><a·name="l08056"></a><span·class="lineno">·8056</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Eckert_VI'</span>)·{</div><div·class="line"><a·name="l08057"></a><span·class="lineno">·8057</span> ············SetEckertVI($self,·@parameters);</div><div·class="line"><a·name="l08058"></a><span·class="lineno">·8058</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Equirectangular'</span>)·{</div><div·class="line"><a·name="l08059"></a><span·class="lineno">·8059</span> ············@parameters·==·4·?</div><div·class="line"><a·name="l08060"></a><span·class="lineno">·8060</span> ················SetEquirectangular($self,·@parameters)·:</div><div·class="line"><a·name="l08061"></a><span·class="lineno">·8061</span> ················SetEquirectangular2($self,·@parameters);</div><div·class="line"><a·name="l08062"></a><span·class="lineno">·8062</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Gauss_Schreiber_Transverse_Mercator'</span>)·{</div><div·class="line"><a·name="l08063"></a><span·class="lineno">·8063</span> ············SetGaussSchreiberTMercator($self,·@parameters);</div><div·class="line"><a·name="l08064"></a><span·class="lineno">·8064</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Gall_Stereographic'</span>)·{</div><div·class="line"><a·name="l08065"></a><span·class="lineno">·8065</span> ············SetGS($self,·@parameters);</div><div·class="line"><a·name="l08066"></a><span·class="lineno">·8066</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Goode_Homolosine'</span>)·{</div><div·class="line"><a·name="l08067"></a><span·class="lineno">·8067</span> ············SetGH($self,·@parameters);</div><div·class="line"><a·name="l08068"></a><span·class="lineno">·8068</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Interrupted_Goode_Homolosine'</span>)·{</div><div·class="line"><a·name="l08069"></a><span·class="lineno">·8069</span> ············SetIGH($self);</div><div·class="line"><a·name="l08070"></a><span·class="lineno">·8070</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Geostationary_Satellite'</span>)·{</div><div·class="line"><a·name="l08071"></a><span·class="lineno">·8071</span> ············SetGEOS($self,·@parameters);</div><div·class="line"><a·name="l08072"></a><span·class="lineno">·8072</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Gnomonic'</span>)·{</div><div·class="line"><a·name="l08073"></a><span·class="lineno">·8073</span> ············SetGnomonic($self,·@parameters);</div><div·class="line"><a·name="l08074"></a><span·class="lineno">·8074</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Hotine_Oblique_Mercator'</span>)·{</div><div·class="line"><a·name="l08075"></a><span·class="lineno">·8075</span> <span·class="preprocessor">············#·Hotine_Oblique_Mercator_Azimuth_Center·?</span></div><div·class="line"><a·name="l08076"></a><span·class="lineno">·8076</span> ············SetHOM($self,·@parameters);</div><div·class="line"><a·name="l08077"></a><span·class="lineno">·8077</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Hotine_Oblique_Mercator_Two_Point_Natural_Origin'</span>)·{</div><div·class="line"><a·name="l08078"></a><span·class="lineno">·8078</span> ············SetHOM2PNO($self,·@parameters);</div><div·class="line"><a·name="l08079"></a><span·class="lineno">·8079</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Krovak'</span>)·{</div><div·class="line"><a·name="l08080"></a><span·class="lineno">·8080</span> ············SetKrovak($self,·@parameters);</div><div·class="line"><a·name="l08081"></a><span·class="lineno">·8081</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Lambert_Azimuthal_Equal_Area'</span>)·{</div><div·class="line"><a·name="l08082"></a><span·class="lineno">·8082</span> ············SetLAEA($self,·@parameters);</div><div·class="line"><a·name="l08083"></a><span·class="lineno">·8083</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Lambert_Conformal_Conic_2SP'</span>)·{</div><div·class="line"><a·name="l08084"></a><span·class="lineno">·8084</span> ············SetLCC($self,·@parameters);</div><div·class="line"><a·name="l08085"></a><span·class="lineno">·8085</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Lambert_Conformal_Conic_1SP'</span>)·{</div><div·class="line"><a·name="l08086"></a><span·class="lineno">·8086</span> ············SetLCC1SP($self,·@parameters);</div><div·class="line"><a·name="l08087"></a><span·class="lineno">·8087</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Lambert_Conformal_Conic_2SP_Belgium'</span>)·{</div><div·class="line"><a·name="l08088"></a><span·class="lineno">·8088</span> ············SetLCCB($self,·@parameters);</div><div·class="line"><a·name="l08089"></a><span·class="lineno">·8089</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'miller_cylindrical'</span>)·{</div><div·class="line"><a·name="l08090"></a><span·class="lineno">·8090</span> ············SetMC($self,·@parameters);</div><div·class="line"><a·name="l08091"></a><span·class="lineno">·8091</span> ········}·elsif·($params{Projection}·=~·/^Mercator/)·{</div><div·class="line"><a·name="l08092"></a><span·class="lineno">·8092</span> <span·class="preprocessor">············#·Mercator_1SP,·Mercator_2SP,·Mercator_Auxiliary_Sphere·?</span></div><div·class="line"><a·name="l08093"></a><span·class="lineno">·8093</span> <span·class="preprocessor">············#·variant·is·in·Variant·(or·Name)</span></div><div·class="line"><a·name="l08094"></a><span·class="lineno">·8094</span> ············SetMercator($self,·@parameters);</div><div·class="line"><a·name="l08095"></a><span·class="lineno">·8095</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Mollweide'</span>)·{</div><div·class="line"><a·name="l08096"></a><span·class="lineno">·8096</span> ············SetMollweide($self,·@parameters);</div><div·class="line"><a·name="l08097"></a><span·class="lineno">·8097</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'New_Zealand_Map_Grid'</span>)·{</div><div·class="line"><a·name="l08098"></a><span·class="lineno">·8098</span> ············SetNZMG($self,·@parameters);</div><div·class="line"><a·name="l08099"></a><span·class="lineno">·8099</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Oblique_Stereographic'</span>)·{</div><div·class="line"><a·name="l08100"></a><span·class="lineno">·8100</span> ············SetOS($self,·@parameters);</div><div·class="line"><a·name="l08101"></a><span·class="lineno">·8101</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Orthographic'</span>)·{</div><div·class="line"><a·name="l08102"></a><span·class="lineno">·8102</span> ············SetOrthographic($self,·@parameters);</div><div·class="line"><a·name="l08103"></a><span·class="lineno">·8103</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Polyconic'</span>)·{</div><div·class="line"><a·name="l08104"></a><span·class="lineno">·8104</span> ············SetPolyconic($self,·@parameters);</div><div·class="line"><a·name="l08105"></a><span·class="lineno">·8105</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Polar_Stereographic'</span>)·{</div><div·class="line"><a·name="l08106"></a><span·class="lineno">·8106</span> ············SetPS($self,·@parameters);</div><div·class="line"><a·name="l08107"></a><span·class="lineno">·8107</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Robinson'</span>)·{</div><div·class="line"><a·name="l08108"></a><span·class="lineno">·8108</span> ············SetRobinson($self,·@parameters);</div><div·class="line"><a·name="l08109"></a><span·class="lineno">·8109</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Sinusoidal'</span>)·{</div><div·class="line"><a·name="l08110"></a><span·class="lineno">·8110</span> ············SetSinusoidal($self,·@parameters);</div><div·class="line"><a·name="l08111"></a><span·class="lineno">·8111</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Stereographic'</span>)·{</div><div·class="line"><a·name="l08112"></a><span·class="lineno">·8112</span> ············SetStereographic($self,·@parameters);</div><div·class="line"><a·name="l08113"></a><span·class="lineno">·8113</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Swiss_Oblique_Cylindrical'</span>)·{</div><div·class="line"><a·name="l08114"></a><span·class="lineno">·8114</span> ············SetSOC($self,·@parameters);</div><div·class="line"><a·name="l08115"></a><span·class="lineno">·8115</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Transverse_Mercator_South_Orientated'</span>)·{</div><div·class="line"><a·name="l08116"></a><span·class="lineno">·8116</span> ············SetTMSO($self,·@parameters);</div><div·class="line"><a·name="l08117"></a><span·class="lineno">·8117</span> ········}·elsif·($params{Projection}·=~·/^Transverse_Mercator/)·{</div><div·class="line"><a·name="l08118"></a><span·class="lineno">·8118</span> ············my($variant)·=·$params{Projection}·=~·/^Transverse_Mercator_(\w+)/;</div><div·class="line"><a·name="l08119"></a><span·class="lineno">·8119</span> ············$variant·<span·class="comment">//=·$params{Variant}·//=·$params{Name};</span></div><div·class="line"><a·name="l08120"></a><span·class="lineno">·8120</span> ············$variant·?</div><div·class="line"><a·name="l08121"></a><span·class="lineno">·8121</span> ················SetTMVariant($self,·$variant,·@parameters)·:</div><div·class="line"><a·name="l08122"></a><span·class="lineno">·8122</span> ················SetTM($self,·@parameters);</div><div·class="line"><a·name="l08123"></a><span·class="lineno">·8123</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'Tunisia_Mining_Grid'</span>)·{</div><div·class="line"><a·name="l08124"></a><span·class="lineno">·8124</span> ············SetTMG($self,·@parameters);</div><div·class="line"><a·name="l08125"></a><span·class="lineno">·8125</span> ········}·elsif·($params{Projection}·eq·<span·class="stringliteral">'VanDerGrinten'</span>)·{</div><div·class="line"><a·name="l08126"></a><span·class="lineno">·8126</span> ············SetVDG($self,·@parameters);</div><div·class="line"><a·name="l08127"></a><span·class="lineno">·8127</span> ········}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l08128"></a><span·class="lineno">·8128</span> <span·class="preprocessor">············#·Aitoff,·Craster_Parabolic,·International_Map_of_the_World_Polyconic,·Laborde_Oblique_Mercator</span></div><div·class="line"><a·name="l08129"></a><span·class="lineno">·8129</span> <span·class="preprocessor">············#·Loximuthal,·Miller_Cylindrical,·Quadrilateralized_Spherical_Cube,·Quartic_Authalic,·Two_Point_Equidistant</span></div><div·class="line"><a·name="l08130"></a><span·class="lineno">·8130</span> <span·class="preprocessor">············#·Wagner_I,·Wagner_II,·Wagner_III,·Wagner_IV,·Wagner_V,·Wagner_VI,·Wagner_VII</span></div><div·class="line"><a·name="l08131"></a><span·class="lineno">·8131</span> <span·class="preprocessor">············#·Winkel_I,·Winkel_II,·Winkel_Tripel</span></div><div·class="line"><a·name="l08132"></a><span·class="lineno">·8132</span> <span·class="preprocessor">············#·?</span></div><div·class="line"><a·name="l08133"></a><span·class="lineno">·8133</span> ············SetProjection($self,·$params{Projection});</div><div·class="line"><a·name="l08134"></a><span·class="lineno">·8134</span> ········}</div><div·class="line"><a·name="l08135"></a><span·class="lineno">·8135</span> ····}·<span·class="keywordflow">else</span>·{</div><div·class="line"><a·name="l08136"></a><span·class="lineno">·8136</span> ········error(<span·class="stringliteral">"Not·enough·information·to·create·a·spatial·reference·object."</span>);</div><div·class="line"><a·name="l08137"></a><span·class="lineno">·8137</span> ····}</div><div·class="line"><a·name="l08138"></a><span·class="lineno">·8138</span> }</div><div·class="line"><a·name="l08139"></a><span·class="lineno">·8139</span> </div><div·class="line"><a·name="l08140"></a><span·class="lineno">·8140</span> <span·class="preprocessor">#**·@method·SetMercator2SP()</span></div><div·class="line"><a·name="l08141"></a><span·class="lineno">·8141</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l08142"></a><span·class="lineno">·8142</span> sub·SetMercator2SP·{</div><div·class="line"><a·name="l08143"></a><span·class="lineno">·8143</span> }</div><div·class="line"><a·name="l08144"></a><span·class="lineno">·8144</span> </div><div·class="line"><a·name="l08145"></a><span·class="lineno">·8145</span> <span·class="preprocessor">#**·@method·StripCTParms()</span></div><div·class="line"><a·name="l08146"></a><span·class="lineno">·8146</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l08147"></a><span·class="lineno">·8147</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l08148"></a><span·class="lineno">·8148</span> sub·StripCTParms·{</div><div·class="line"><a·name="l08149"></a><span·class="lineno">·8149</span> }</div><div·class="line"><a·name="l08150"></a><span·class="lineno">·8150</span> </div><div·class="line"><a·name="l08151"></a><span·class="lineno">·8151</span> <span·class="preprocessor">#**·@method·Validate()</span></div><div·class="line"><a·name="l08152"></a><span·class="lineno">·8152</span> <span·class="preprocessor">#·Object·method.</span></div><div·class="line"><a·name="l08153"></a><span·class="lineno">·8153</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l08154"></a><span·class="lineno">·8154</span> sub·Validate·{</div><div·class="line"><a·name="l08155"></a><span·class="lineno">·8155</span> }</div><div·class="line"><a·name="l08156"></a><span·class="lineno">·8156</span> </div><div·class="line"><a·name="l08157"></a><span·class="lineno">·8157</span> <span·class="preprocessor">#**·@method·Geo::OSR::SpatialReference·new(%params)</span></div><div·class="line"><a·name="l08158"></a><span·class="lineno">·8158</span> <span·class="preprocessor">#·Class·method.</span></div><div·class="line"><a·name="l08159"></a><span·class="lineno">·8159</span> <span·class="preprocessor">#·Create·a·new·spatial·reference·object·using·a·named·parameter.·This</span></div><div·class="line"><a·name="l08160"></a><span·class="lineno">·8160</span> <span·class="preprocessor">#·constructor·recognizes·the·following·key·words·(alternative·in</span></div><div·class="line"><a·name="l08161"></a><span·class="lineno">·8161</span> <span·class="preprocessor">#·parenthesis):·WKT·(Text),·Proj4,·ESRI,·EPSG,·EPSGA,·PCI,·USGS,·GML</span></div><div·class="line"><a·name="l08162"></a><span·class="lineno">·8162</span> <span·class="preprocessor">#·(XML),·URL,·ERMapper·(ERM),·MapInfoCS·(MICoordSys).·The·value</span></div><div·class="line"><a·name="l08163"></a><span·class="lineno">·8163</span> <span·class="preprocessor">#·depends·on·the·key.</span></div><div·class="line"><a·name="l08164"></a><span·class="lineno">·8164</span> <span·class="preprocessor">#·-·WKT:·Well·Known·Text·string</span></div><div·class="line"><a·name="l08165"></a><span·class="lineno">·8165</span> <span·class="preprocessor">#·-·Proj4:·PROJ.4·string</span></div><div·class="line"><a·name="l08166"></a><span·class="lineno">·8166</span> <span·class="preprocessor">#·-·ESRI:·reference·to·a·list·of·strings·(contents·of·ESRI·.prj·file)</span></div><div·class="line"><a·name="l08167"></a><span·class="lineno">·8167</span> <span·class="preprocessor">#·-·EPSG:·EPSG·code·number</span></div><div·class="line"><a·name="l08168"></a><span·class="lineno">·8168</span> <span·class="preprocessor">#·-·EPSGA:·EPSG·code·number·(the·resulting·CS·will·have·EPSG·preferred·axis·ordering)</span></div><div·class="line"><a·name="l08169"></a><span·class="lineno">·8169</span> <span·class="preprocessor">#·-·PCI:·listref:·[PCI_projection_string,·Grid_units_code,·[17·cs·parameters]]</span></div><div·class="line"><a·name="l08170"></a><span·class="lineno">·8170</span> <span·class="preprocessor">#·-·USGS:·listref:·[Projection_system_code,·Zone,·[15·cs·parameters],·Datum_code,·Format_flag]</span></div><div·class="line"><a·name="l08171"></a><span·class="lineno">·8171</span> <span·class="preprocessor">#·-·GML:·GML·string</span></div><div·class="line"><a·name="l08172"></a><span·class="lineno">·8172</span> <span·class="preprocessor">#·-·URL:·URL·for·downloading·the·spatial·reference·from</span></div><div·class="line"><a·name="l08173"></a><span·class="lineno">·8173</span> <span·class="preprocessor">#·-·ERMapper:·listref:·[Projection,·Datum,·Units]</span></div><div·class="line"><a·name="l08174"></a><span·class="lineno">·8174</span> <span·class="preprocessor">#·-·MapInfoCS:·MapInfo·style·co-ordinate·system·definition</span></div><div·class="line"><a·name="l08175"></a><span·class="lineno">·8175</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l08176"></a><span·class="lineno">·8176</span> <span·class="preprocessor">#·For·more·information,·consult·the·import·methods·in·<a·href="http://www.gdal.org/classOGRSpatialReference.html">OGR·documentation</a>.</span></div><div·class="line"><a·name="l08177"></a><span·class="lineno">·8177</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l08178"></a><span·class="lineno">·8178</span> <span·class="preprocessor">#·@note·ImportFrom*·methods·also·exist·but·are·not·documented·here.</span></div><div·class="line"><a·name="l08179"></a><span·class="lineno">·8179</span> <span·class="preprocessor">#·</span></div><div·class="line"><a·name="l08180"></a><span·class="lineno">·8180</span> <span·class="preprocessor">#·Usage:</span></div><div·class="line"><a·name="l08181"></a><span·class="lineno">·8181</span> <span·class="preprocessor">#·\code</span></div><div·class="line"><a·name="l08182"></a><span·class="lineno">·8182</span> <span·class="preprocessor">#·$sr·=·Geo::OSR::SpatialReference->new(·key·=>·value·);</span></div><div·class="line"><a·name="l08183"></a><span·class="lineno">·8183</span> <span·class="preprocessor">#·\endcode</span></div><div·class="line"><a·name="l08184"></a><span·class="lineno">·8184</span> <span·class="preprocessor">#·@return·a·new·Geo::OSR::SpatialReference·object</span></div><div·class="line"><a·name="l08185"></a><span·class="lineno">·8185</span> <span·class="preprocessor">#*</span></div><div·class="line"><a·name="l08186"></a><span·class="lineno">·8186</span> sub·<span·class="keyword">new</span>·{</div><div·class="line"><a·name="l08187"></a><span·class="lineno">·8187</span> ····my·$pkg·=·shift;</div><div·class="line"><a·name="l08188"></a><span·class="lineno">·8188</span> ····my·%param·=·@_;</div><div·class="line"><a·name="l08189"></a><span·class="lineno">·8189</span> ····my·$self·=·Geo::OSRc::new_SpatialReference();</div><div·class="line"><a·name="l08190"></a><span·class="lineno">·8190</span> ····<span·class="keywordflow">if</span>·(exists·$param{WKT})·{</div><div·class="line"><a·name="l08191"></a><span·class="lineno">·8191</span> ········ImportFromWkt($self,·$param{WKT});</div><div·class="line"><a·name="l08192"></a><span·class="lineno">·8192</span> ····}·elsif·(exists·$param{Text})·{</div><div·class="line"><a·name="l08193"></a><span·class="lineno">·8193</span> ········ImportFromWkt($self,·$param{Text});</div><div·class="line"><a·name="l08194"></a><span·class="lineno">·8194</span> ····}·elsif·(exists·$param{Proj4})·{</div><div·class="line"><a·name="l08195"></a><span·class="lineno">·8195</span> ········ImportFromProj4($self,·$param{Proj4});</div><div·class="line"><a·name="l08196"></a><span·class="lineno">·8196</span> ····}·elsif·(exists·$param{ESRI})·{</div><div·class="line"><a·name="l08197"></a><span·class="lineno">·8197</span> ········ImportFromESRI($self,·@{$param{ESRI}});</div><div·class="line"><a·name="l08198"></a><span·class="lineno">·8198</span> ····}·elsif·(exists·$param{EPSG})·{</div><div·class="line"><a·name="l08199"></a><span·class="lineno">·8199</span> ········ImportFromEPSG($self,·$param{EPSG});</div><div·class="line"><a·name="l08200"></a><span·class="lineno">·8200</span> ····}·elsif·(exists·$param{EPSGA})·{</div><div·class="line"><a·name="l08201"></a><span·class="lineno">·8201</span> ········ImportFromEPSGA($self,·$param{EPSGA});</div><div·class="line"><a·name="l08202"></a><span·class="lineno">·8202</span> ····}·elsif·(exists·$param{PCI})·{</div><div·class="line"><a·name="l08203"></a><span·class="lineno">·8203</span> ········ImportFromPCI($self,·@{$param{PCI}});</div><div·class="line"><a·name="l08204"></a><span·class="lineno">·8204</span> ····}·elsif·(exists·$param{USGS})·{</div><div·class="line"><a·name="l08205"></a><span·class="lineno">·8205</span> ········ImportFromUSGS($self,·@{$param{USGS}});</div><div·class="line"><a·name="l08206"></a><span·class="lineno">·8206</span> ····}·elsif·(exists·$param{XML})·{</div><div·class="line"><a·name="l08207"></a><span·class="lineno">·8207</span> ········ImportFromXML($self,·$param{XML});</div><div·class="line"><a·name="l08208"></a><span·class="lineno">·8208</span> ····}·elsif·(exists·$param{GML})·{</div><div·class="line"><a·name="l08209"></a><span·class="lineno">·8209</span> ········ImportFromGML($self,·$param{GML});</div><div·class="line"><a·name="l08210"></a><span·class="lineno">·8210</span> ····}·elsif·(exists·$param{URL})·{</div><div·class="line"><a·name="l08211"></a><span·class="lineno">·8211</span> ········ImportFromUrl($self,·$param{URL});</div><div·class="line"><a·name="l08212"></a><span·class="lineno">·8212</span> ····}·elsif·(exists·$param{ERMapper})·{</div><div·class="line"><a·name="l08213"></a><span·class="lineno">·8213</span> ········ImportFromERM($self,·@{$param{ERMapper}});</div><div·class="line"><a·name="l08214"></a><span·class="lineno">·8214</span> ····}·elsif·(exists·$param{ERM})·{</div><div·class="line"><a·name="l08215"></a><span·class="lineno">·8215</span> ········ImportFromERM($self,·@{$param{ERM}});</div><div·class="line"><a·name="l08216"></a><span·class="lineno">·8216</span> ····}·elsif·(exists·$param{MICoordSys})·{</div><div·class="line"><a·name="l08217"></a><span·class="lineno">·8217</span> ········ImportFromMICoordSys($self,·$param{MICoordSys});</div><div·class="line"><a·name="l08218"></a><span·class="lineno">·8218</span> ····}·elsif·(exists·$param{MapInfoCS})·{</div><div·class="line"><a·name="l08219"></a><span·class="lineno">·8219</span> ········ImportFromMICoordSys($self,·$param{MapInfoCS});</div><div·class="line"><a·name="l08220"></a><span·class="lineno">·8220</span> ····}·elsif·(exists·$param{WGS})·{</div><div·class="line"><a·name="l08221"></a><span·class="lineno">·8221</span> ········eval·{</div><div·class="line"><a·name="l08222"></a><span·class="lineno">·8222</span> ············SetWellKnownGeogCS($self,·<span·class="stringliteral">'WGS'</span>.$param{WGS});</div><div·class="line"><a·name="l08223"></a><span·class="lineno">·8223</span> ········};</div><div·class="line"><a·name="l08224"></a><span·class="lineno">·8224</span> ········confess·last_error()·if·$@;</div><div·class="line"><a·name="l08225"></a><span·class="lineno">·8225</span> ····}·else·{</div><div·class="line"><a·name="l08226"></a><span·class="lineno">·8226</span> ········error(<span·class="stringliteral">"Unrecognized/missing·parameters:·@_."</span>);</div><div·class="line"><a·name="l08227"></a><span·class="lineno">·8227</span> ····}</div><div·class="line"><a·name="l08228"></a><span·class="lineno">·8228</span> ····bless·$self,·$pkg·<span·class="keywordflow">if</span>·defined·$self;</div><div·class="line"><a·name="l08229"></a><span·class="lineno">·8229</span> }</div><div·class="line"><a·name="l08230"></a><span·class="lineno">·8230</span> </div><div·class="ttc"·id="classGeo_1_1GDAL_1_1Extent_html_aaa908458e9aaa398762601ae2b466e9a"><div·class="ttname"><a·href="classGeo_1_1GDAL_1_1Extent.html#aaa908458e9aaa398762601ae2b466e9a">Geo::GDAL::Extent::new</a></div><div·class="ttdeci">public·Geo::GDAL::Extent·new(array·params)</div></div> |
