File Coverage

blib/lib/Getopt/Yath/Option.pm
Criterion Covered Total %
statement 228 278 82.0
branch 94 152 61.8
condition 45 96 46.8
subroutine 33 44 75.0
pod 0 35 0.0
total 400 605 66.1


line stmt bran cond sub pod time code
1             package Getopt::Yath::Option;
2 1     1   5 use strict;
  1         2  
  1         29  
3 1     1   3 use warnings;
  1         2  
  1         67  
4              
5 1     1   5 use Carp qw/croak/;
  1         2  
  1         71  
6             our @CARP_NOT = (
7             __PACKAGE__,
8             'Getopt::Yath',
9             'Getopt::Yath::Instance',
10             );
11              
12 1     1   4 use Getopt::Yath::Util qw/mod2file fqmod/;
  1         1  
  1         5  
13 1     1   403 use Getopt::Yath::Term qw/USE_COLOR color/;
  1         4  
  1         15  
14              
15             our $VERSION = '2.000007';
16              
17 1         9 use Getopt::Yath::HashBase qw{
18             </tr> <tr> <td class="h" > <a name="19">19</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <field <name <short <alt <alt_no </td> </tr> <tr> <td class="h" > <a name="20">20</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <allow_underscore_in_alt </td> </tr> <tr> <td class="h" > <a name="21">21</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="22">22</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <group </td> </tr> <tr> <td class="h" > <a name="23">23</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <prefix </td> </tr> <tr> <td class="h" > <a name="24">24</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <trace </td> </tr> <tr> <td class="h" > <a name="25">25</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="26">26</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <module <no_module </td> </tr> <tr> <td class="h" > <a name="27">27</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="28">28</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <maybe </td> </tr> <tr> <td class="h" > <a name="29">29</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="30">30</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <applicable </td> </tr> <tr> <td class="h" > <a name="31">31</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <default <autofill <initialize <clear </td> </tr> <tr> <td class="h" > <a name="32">32</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <default_text <autofill_text </td> </tr> <tr> <td class="h" > <a name="33">33</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <normalize </td> </tr> <tr> <td class="h" > <a name="34">34</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> +trigger </td> </tr> <tr> <td class="h" > <a name="35">35</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="36">36</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <allowed_values </td> </tr> <tr> <td class="h" > <a name="37">37</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <allowed_values_text </td> </tr> <tr> <td class="h" > <a name="38">38</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="39">39</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <from_env_vars </td> </tr> <tr> <td class="h" > <a name="40">40</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <clear_env_vars </td> </tr> <tr> <td class="h" > <a name="41">41</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <set_env_vars </td> </tr> <tr> <td class="h" > <a name="42">42</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="43">43</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <category </td> </tr> <tr> <td class="h" > <a name="44">44</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="45">45</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <description </td> </tr> <tr> <td class="h" > <a name="46">46</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> +short_examples </td> </tr> <tr> <td class="h" > <a name="47">47</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> +long_examples </td> </tr> <tr> <td class="h" > <a name="48">48</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="49">49</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> +forms </td> </tr> <tr> <td class="h" > <a name="50">50</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="51">51</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <mod_adds_options </td> </tr> <tr> <td class="h" > <a name="52">52</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="53">53</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <notes </td> </tr> <tr> <td class="h" > <a name="54">54</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#54-1"> 1 </a> </td> <td >   </td> <td > 698 </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="55">55</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="56">56</a> </td> <td class="c0" > <a href="#57"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#56-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#56-1"> 0 </a> </td> <td > 0 </td> <td class="s"> sub requires_arg { croak "'$_[0]' does not define requires_arg()" } </td> </tr> <tr> <td class="h" > <a name="57">57</a> </td> <td class="c0" > <a href="#58"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#57-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#57-1"> 0 </a> </td> <td > 0 </td> <td class="s"> sub add_value { croak "'$_[0]' does not define add_value()" } </td> </tr> <tr> <td class="h" > <a name="58">58</a> </td> <td class="c0" > <a href="#59"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#58-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#58-1"> 0 </a> </td> <td > 0 </td> <td class="s"> sub is_populated { croak "'$_[0]' does not define is_populated()" } </td> </tr> <tr> <td class="h" > <a name="59">59</a> </td> <td class="c0" > <a href="#60"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#59-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#59-1"> 0 </a> </td> <td > 0 </td> <td class="s"> sub no_arg_value { croak "'$_[0]' does not define no_arg_value()" } </td> </tr> <tr> <td class="h" > <a name="60">60</a> </td> <td class="c0" > <a href="#63"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#60-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#60-1"> 0 </a> </td> <td > 0 </td> <td class="s"> sub get_env_value { croak "'$_[0]' does not define get_env_value()" } </td> </tr> <tr> <td class="h" > <a name="61">61</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="62">62</a> </td> <td class="c3" > 80 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#62-1"> 80 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#62-1"> 0 </a> </td> <td > 170 </td> <td class="s"> sub can_set_env { 0 } </td> </tr> <tr> <td class="h" > <a name="63">63</a> </td> <td class="c0" > <a href="#66"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#63-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#63-1"> 0 </a> </td> <td > 0 </td> <td class="s"> sub requires_autofill { 0 } </td> </tr> <tr> <td class="h" > <a name="64">64</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="65">65</a> </td> <td class="c3" > 25 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#65-1"> 25 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#65-1"> 0 </a> </td> <td > 65 </td> <td class="s"> sub allows_shortval { $_[0]->allows_arg } </td> </tr> <tr> <td class="h" > <a name="66">66</a> </td> <td class="c0" > <a href="#70"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#66-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#66-1"> 0 </a> </td> <td > 0 </td> <td class="s"> sub allows_default { 0 } </td> </tr> <tr> <td class="h" > <a name="67">67</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="68">68</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#68-1"> 16 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#68-1"> 0 </a> </td> <td > 65 </td> <td class="s"> sub allows_list { 0 } </td> </tr> <tr> <td class="h" > <a name="69">69</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="70">70</a> </td> <td class="c0" > <a href="#71"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#70-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#70-1"> 0 </a> </td> <td > 0 </td> <td class="s"> sub allows_arg { $_[0]->requires_arg } </td> </tr> <tr> <td class="h" > <a name="71">71</a> </td> <td class="c0" > <a href="#134"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#71-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#71-1"> 0 </a> </td> <td > 0 </td> <td class="s"> sub allows_autofill { $_[0]->requires_autofill } </td> </tr> <tr> <td class="h" > <a name="72">72</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="73">73</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#73-1"> 7 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#73-1"> 0 </a> </td> <td > 26 </td> <td class="s"> sub get_autofill_value { shift->_get___value(AUTOFILL(), @_) } </td> </tr> <tr> <td class="h" > <a name="74">74</a> </td> <td class="c3" > 354 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#74-1"> 354 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#74-1"> 0 </a> </td> <td > 679 </td> <td class="s"> sub get_default_value { shift->_get___value(DEFAULT(), @_) } </td> </tr> <tr> <td class="h" > <a name="75">75</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="76">76</a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#76-1"> 475 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#76-1"> 0 </a> </td> <td >   </td> <td class="s"> sub init_settings { } </td> </tr> <tr> <td class="h" > <a name="77">77</a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#77-1"> 447 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#77-1"> 0 </a> </td> <td >   </td> <td class="s"> sub finalize_settings { } </td> </tr> <tr> <td class="h" > <a name="78">78</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="79">79</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub create { </td> </tr> <tr> <td class="h" > <a name="80">80</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#80-1"> 16 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#80-1"> 0 </a> </td> <td > 47 </td> <td class="s"> my $class = shift; </td> </tr> <tr> <td class="h" > <a name="81">81</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 104 </td> <td class="s"> my %params = @_; </td> </tr> <tr> <td class="h" > <a name="82">82</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="83">83</a> </td> <td class="c3" > 16 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#83-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 47 </td> <td class="s"> croak "create() cannot be called on an option subclass" unless $class eq __PACKAGE__; </td> </tr> <tr> <td class="h" > <a name="84">84</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="85">85</a> </td> <td class="c3" > 16 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#85-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 60 </td> <td class="s"> my $type = delete $params{type} or croak "No 'type' specified"; </td> </tr> <tr> <td class="h" > <a name="86">86</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="87">87</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 65 </td> <td class="s"> my $new_class = fqmod($type, __PACKAGE__); </td> </tr> <tr> <td class="h" > <a name="88">88</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 32 </td> <td class="s"> local $Carp::CarpLevel = $Carp::CarpLevel = 1; </td> </tr> <tr> <td class="h" > <a name="89">89</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 105 </td> <td class="s"> return $new_class->new(%params); </td> </tr> <tr> <td class="h" > <a name="90">90</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="91">91</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="92">92</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_initial_value { </td> </tr> <tr> <td class="h" > <a name="93">93</a> </td> <td class="c3" > 389 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#93-1"> 389 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#93-1"> 0 </a> </td> <td > 433 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="94">94</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="95">95</a> </td> <td class="c3" > 389 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 579 </td> <td class="s"> my $env = $self->from_env_vars; </td> </tr> <tr> <td class="h" > <a name="96">96</a> </td> <td class="c3" > 389 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#96-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 441 </td> <td class="s"> for my $name (@{$env || []}) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 389 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 882 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="97">97</a> </td> <td class="c3" > 19 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 29 </td> <td class="s"> my $env = "$name"; </td> </tr> <tr> <td class="h" > <a name="98">98</a> </td> <td class="c3" > 19 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 68 </td> <td class="s"> $env =~ s/^(!)//; </td> </tr> <tr> <td class="h" > <a name="99">99</a> </td> <td class="c3" > 19 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 58 </td> <td class="s"> my $neg = $1; </td> </tr> <tr> <td class="h" > <a name="100">100</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="101">101</a> </td> <td class="c3" > 19 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#101-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 84 </td> <td class="s"> next unless exists $ENV{$env}; </td> </tr> <tr> <td class="h" > <a name="102">102</a> </td> <td class="c3" > 9 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#102-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 37 </td> <td class="s"> return $ENV{$env} unless $neg; </td> </tr> <tr> <td class="h" > <a name="103">103</a> </td> <td class="c3" > 2 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#103-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 10 </td> <td class="s"> return $ENV{$env} ? 0 : 1; </td> </tr> <tr> <td class="h" > <a name="104">104</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="105">105</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="106">106</a> </td> <td class="c3" > 380 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 733 </td> <td class="s"> return $self->_get___value(INITIALIZE(), @_); </td> </tr> <tr> <td class="h" > <a name="107">107</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="108">108</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="109">109</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_clear_value { </td> </tr> <tr> <td class="h" > <a name="110">110</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#110-1"> 2 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#110-1"> 0 </a> </td> <td > 3 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="111">111</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="112">112</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 8 </td> <td class="s"> return $self->_get___value(CLEAR(), @_); </td> </tr> <tr> <td class="h" > <a name="113">113</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="114">114</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="115">115</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub _get___value { </td> </tr> <tr> <td class="h" > <a name="116">116</a> </td> <td class="c3" > 833 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#116-1"> 833 </a> </td> <td >   </td> <td > 992 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="117">117</a> </td> <td class="c3" > 833 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1258 </td> <td class="s"> my ($field, @args) = @_; </td> </tr> <tr> <td class="h" > <a name="118">118</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="119">119</a> </td> <td class="c3" > 833 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#119-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#119-1"> 33 </a> </td> <td >   </td> <td >   </td> <td > 1859 </td> <td class="s"> return undef if $self->{+MAYBE} && $field eq INITIALIZE(); </td> </tr> <tr> <td class="h" > <a name="120">120</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="121">121</a> </td> <td class="c3" > 833 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#121-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 2030 </td> <td class="s"> return unless exists $self->{$field}; </td> </tr> <tr> <td class="h" > <a name="122">122</a> </td> <td class="c3" > 294 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 489 </td> <td class="s"> my $val = $self->{$field}; # May be undef, that is fine if specified. </td> </tr> <tr> <td class="h" > <a name="123">123</a> </td> <td class="c3" > 294 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#123-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 819 </td> <td class="s"> return $val unless ref($val); </td> </tr> <tr> <td class="h" > <a name="124">124</a> </td> <td class="c3" > 68 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#124-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 131 </td> <td class="s"> croak "'$field' values must either be simple scalars (not references) or a code ref that returns the '$field' value" </td> </tr> <tr> <td class="h" > <a name="125">125</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> unless ref($val) eq 'CODE'; </td> </tr> <tr> <td class="h" > <a name="126">126</a> </td> <td class="c3" > 68 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 189 </td> <td class="s"> return $self->$val(@args); </td> </tr> <tr> <td class="h" > <a name="127">127</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="128">128</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="129">129</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub normalize_value { </td> </tr> <tr> <td class="h" > <a name="130">130</a> </td> <td class="c3" > 34 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#130-1"> 34 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#130-1"> 0 </a> </td> <td > 43 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="131">131</a> </td> <td class="c3" > 34 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 61 </td> <td class="s"> my (@input) = @_; </td> </tr> <tr> <td class="h" > <a name="132">132</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="133">133</a> </td> <td class="c3" > 34 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#133-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 127 </td> <td class="s"> my $cb = $self->{+NORMALIZE} or return @input; </td> </tr> <tr> <td class="h" > <a name="134">134</a> </td> <td class="c0" > <a href="#153"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> return $cb->(@input); </td> </tr> <tr> <td class="h" > <a name="135">135</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="136">136</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="137">137</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub trigger { </td> </tr> <tr> <td class="h" > <a name="138">138</a> </td> <td class="c3" > 531 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#138-1"> 531 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#138-1"> 0 </a> </td> <td > 628 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="139">139</a> </td> <td class="c3" > 531 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#139-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 1121 </td> <td class="s"> my $cb = $self->{+TRIGGER} or return; </td> </tr> <tr> <td class="h" > <a name="140">140</a> </td> <td class="c3" > 66 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 173 </td> <td class="s"> $self->$cb(@_); </td> </tr> <tr> <td class="h" > <a name="141">141</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="142">142</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="143">143</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub clear_field { </td> </tr> <tr> <td class="h" > <a name="144">144</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#144-1"> 6 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#144-1"> 0 </a> </td> <td > 9 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="145">145</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 15 </td> <td class="s"> my ($ref) = @_; </td> </tr> <tr> <td class="h" > <a name="146">146</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 27 </td> <td class="s"> return $$ref = $self->get_clear_value(); </td> </tr> <tr> <td class="h" > <a name="147">147</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="148">148</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="149">149</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub is_applicable { </td> </tr> <tr> <td class="h" > <a name="150">150</a> </td> <td class="c3" > 503 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#150-1"> 503 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#150-1"> 0 </a> </td> <td > 537 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="151">151</a> </td> <td class="c3" > 503 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 654 </td> <td class="s"> my ($options, $settings) = @_; </td> </tr> <tr> <td class="h" > <a name="152">152</a> </td> <td class="c3" > 503 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#152-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 1169 </td> <td class="s"> my $cb = $self->{+APPLICABLE} or return 1; </td> </tr> <tr> <td class="h" > <a name="153">153</a> </td> <td class="c0" > <a href="#157"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> return $self->$cb($options, $settings); </td> </tr> <tr> <td class="h" > <a name="154">154</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="155">155</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="156">156</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub long_args { </td> </tr> <tr> <td class="h" > <a name="157">157</a> </td> <td class="c0" > <a href="#159"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#157-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#157-1"> 0 </a> </td> <td > 0 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="158">158</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="159">159</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#159-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> return ($self->{+NAME}, @{$self->{+ALT} || []}); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#163"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="160">160</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="161">161</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="162">162</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub trace_string { </td> </tr> <tr> <td class="h" > <a name="163">163</a> </td> <td class="c0" > <a href="#164"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#163-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#163-1"> 0 </a> </td> <td > 0 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="164">164</a> </td> <td class="c0" > <a href="#165"> 0 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#164-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my $trace = $self->{+TRACE} or return "[UNKNOWN]"; </td> </tr> <tr> <td class="h" > <a name="165">165</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> return "$trace->[1] line $trace->[2]"; </td> </tr> <tr> <td class="h" > <a name="166">166</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="167">167</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="168">168</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub long_examples { </td> </tr> <tr> <td class="h" > <a name="169">169</a> </td> <td class="c3" > 28 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#169-1"> 28 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#169-1"> 0 </a> </td> <td > 31 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="170">170</a> </td> <td class="c3" > 28 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#170-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 43 </td> <td class="s"> return @{$self->{+LONG_EXAMPLES}} if $self->{+LONG_EXAMPLES}; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="171">171</a> </td> <td class="c3" > 28 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 41 </td> <td class="s"> return @{$self->default_long_examples(@_)}; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 28 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 83 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="172">172</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="173">173</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="174">174</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub short_examples { </td> </tr> <tr> <td class="h" > <a name="175">175</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#175-1"> 16 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#175-1"> 0 </a> </td> <td > 18 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="176">176</a> </td> <td class="c3" > 16 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#176-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 26 </td> <td class="s"> return @{$self->{+SHORT_EXAMPLES}} if $self->{+SHORT_EXAMPLES}; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#217"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="177">177</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 16 </td> <td class="s"> return @{$self->default_short_examples(@_)}; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 42 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="178">178</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="179">179</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="180">180</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub init { </td> </tr> <tr> <td class="h" > <a name="181">181</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#181-1"> 16 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#181-1"> 0 </a> </td> <td > 25 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="182">182</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="183">183</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> croak "A trace is required" </td> </tr> <tr> <td class="h" > <a name="184">184</a> </td> <td class="c3" > 16 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#184-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 85 </td> <td class="s"> unless $self->{+TRACE}; </td> </tr> <tr> <td class="h" > <a name="185">185</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="186">186</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> croak "You must provide either 'module' (a module name for dynamic loading) or set 'no_module'" </td> </tr> <tr> <td class="h" > <a name="187">187</a> </td> <td class="c3" > 16 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#187-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#187-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 75 </td> <td class="s"> unless $self->{+MODULE} || $self->{+NO_MODULE}; </td> </tr> <tr> <td class="h" > <a name="188">188</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="189">189</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> croak "You must specify 'title' or both 'field' and 'name'" </td> </tr> <tr> <td class="h" > <a name="190">190</a> </td> <td class="c3" > 16 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#190-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#190-1"> 0 </a> </td> <td >   </td> <td >   </td> <td > 40 </td> <td class="s"> unless $self->{+TITLE} || ($self->{+FIELD} && $self->{+NAME}); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#-2"> 33 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="191">191</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="192">192</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> croak "The 'group' attribute is required" </td> </tr> <tr> <td class="h" > <a name="193">193</a> </td> <td class="c3" > 16 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#193-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 35 </td> <td class="s"> unless $self->{+GROUP}; </td> </tr> <tr> <td class="h" > <a name="194">194</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="195">195</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> croak "'set_env_vars' is not supported for this option type" </td> </tr> <tr> <td class="h" > <a name="196">196</a> </td> <td class="c3" > 16 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#196-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#196-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 52 </td> <td class="s"> if $self->{+SET_ENV_VARS} && !$self->can_set_env; </td> </tr> <tr> <td class="h" > <a name="197">197</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="198">198</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> croak "The 'alt' attribute must be an array-ref" </td> </tr> <tr> <td class="h" > <a name="199">199</a> </td> <td class="c3" > 16 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#199-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#199-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 52 </td> <td class="s"> if $self->{+ALT} && ref($self->{+ALT}) ne 'ARRAY'; </td> </tr> <tr> <td class="h" > <a name="200">200</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="201">201</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> croak "The 'alt_no' attribute must be an array-ref" </td> </tr> <tr> <td class="h" > <a name="202">202</a> </td> <td class="c3" > 16 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#202-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#202-1"> 33 </a> </td> <td >   </td> <td >   </td> <td > 46 </td> <td class="s"> if $self->{+ALT_NO} && ref($self->{+ALT_NO}) ne 'ARRAY'; </td> </tr> <tr> <td class="h" > <a name="203">203</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="204">204</a> </td> <td class="c3" > 16 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#204-1"> 100 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#204-1"> 33 </a> </td> <td >   </td> <td >   </td> <td > 39 </td> <td class="s"> $self->{+MODULE} //= $self->{+TRACE}->[0] unless $self->{+NO_MODULE}; </td> </tr> <tr> <td class="h" > <a name="205">205</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="206">206</a> </td> <td class="c3" > 16 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#206-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 39 </td> <td class="s"> if (my $title = $self->{+TITLE}) { </td> </tr> <tr> <td class="h" > <a name="207">207</a> </td> <td class="c3" > 16 </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#207-1"> 33 </a> </td> <td >   </td> <td >   </td> <td > 73 </td> <td class="s"> $self->{+FIELD} //= $title; </td> </tr> <tr> <td class="h" > <a name="208">208</a> </td> <td class="c3" > 16 </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#208-1"> 33 </a> </td> <td >   </td> <td >   </td> <td > 60 </td> <td class="s"> $self->{+NAME} //= $title; </td> </tr> <tr> <td class="h" > <a name="209">209</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="210">210</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="211">211</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 38 </td> <td class="s"> $self->{+FIELD} =~ s/-/_/g; </td> </tr> <tr> <td class="h" > <a name="212">212</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 34 </td> <td class="s"> $self->{+NAME} =~ s/_/-/g; </td> </tr> <tr> <td class="h" > <a name="213">213</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="214">214</a> </td> <td class="c3" > 16 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#214-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 70 </td> <td class="s"> unless ($self->allow_underscore_in_alt) { </td> </tr> <tr> <td class="h" > <a name="215">215</a> </td> <td class="c3" > 16 </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#215-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 23 </td> <td class="s"> for my $alt (@{$self->{+ALT} // []}) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 59 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="216">216</a> </td> <td class="c3" > 3 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#216-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 11 </td> <td class="s"> next unless $alt =~ m/_/; </td> </tr> <tr> <td class="h" > <a name="217">217</a> </td> <td class="c0" > <a href="#237"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> croak "alt option form '$alt' contains an underscore, replace it with a '-' or set 'allow_underscore_in_alt' to true"; </td> </tr> <tr> <td class="h" > <a name="218">218</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="219">219</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="220">220</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="221">221</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> croak "'default' is not allowed (did you mean 'initialize'" . ($self->allows_autofill ? " or 'autofill'" : "") . "?)" </td> </tr> <tr> <td class="h" > <a name="222">222</a> </td> <td class="c3" > 16 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#222-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#222-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 52 </td> <td class="s"> if $self->{+DEFAULT} && !$self->allows_default; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#-2"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="223">223</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="224">224</a> </td> <td class="c3" > 16 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#224-1"> 100 </a> </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#224-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 46 </td> <td class="s"> croak "'autofill' is required" if $self->requires_autofill && !$self->{+AUTOFILL}; </td> </tr> <tr> <td class="h" > <a name="225">225</a> </td> <td class="c3" > 15 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#225-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#225-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 60 </td> <td class="s"> croak "'autofill' is not allowed" if $self->{+AUTOFILL} && !$self->allows_autofill; </td> </tr> <tr> <td class="h" > <a name="226">226</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="227">227</a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 32 </td> <td class="s"> for my $field (DEFAULT(), AUTOFILL(), INITIALIZE()) { </td> </tr> <tr> <td class="h" > <a name="228">228</a> </td> <td class="c3" > 45 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#228-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 115 </td> <td class="s"> my $val = $self->{$field} or next; </td> </tr> <tr> <td class="h" > <a name="229">229</a> </td> <td class="c3" > 12 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#229-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 29 </td> <td class="s"> my $ref = ref($val) or next; </td> </tr> <tr> <td class="h" > <a name="230">230</a> </td> <td class="c3" > 6 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#230-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#230-1"> 33 </a> </td> <td >   </td> <td >   </td> <td > 24 </td> <td class="s"> croak "'$field' must be a simple scalar, or a coderef, got a '$ref'" if $ref && $ref ne 'CODE'; </td> </tr> <tr> <td class="h" > <a name="231">231</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="232">232</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="233">233</a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 28 </td> <td class="s"> for my $field (NORMALIZE(), APPLICABLE(), TRIGGER()) { </td> </tr> <tr> <td class="h" > <a name="234">234</a> </td> <td class="c3" > 45 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#234-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 90 </td> <td class="s"> my $val = $self->{$field} or next; </td> </tr> <tr> <td class="h" > <a name="235">235</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#235-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> my $ref = ref($val) || 'not a ref'; </td> </tr> <tr> <td class="h" > <a name="236">236</a> </td> <td class="c3" > 1 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#236-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> next if $ref eq 'CODE'; </td> </tr> <tr> <td class="h" > <a name="237">237</a> </td> <td class="c0" > <a href="#259"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> croak "'$field' must be undef, or a coderef, got '$ref'"; </td> </tr> <tr> <td class="h" > <a name="238">238</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="239">239</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="240">240</a> </td> <td class="c3" > 15 </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#240-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 32 </td> <td class="s"> $self->{+CATEGORY} //= 'NO CATEGORY - FIX ME'; </td> </tr> <tr> <td class="h" > <a name="241">241</a> </td> <td class="c3" > 15 </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#241-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 49 </td> <td class="s"> $self->{+DESCRIPTION} //= 'NO DESCRIPTION - FIX ME'; </td> </tr> <tr> <td class="h" > <a name="242">242</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="243">243</a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 118 </td> <td class="s"> for my $key (sort keys %$self) { </td> </tr> <tr> <td class="h" > <a name="244">244</a> </td> <td class="c3" > 156 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#244-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 417 </td> <td class="s"> croak "'$key' is not a valid option attribute" unless $self->can(uc($key)); </td> </tr> <tr> <td class="h" > <a name="245">245</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="246">246</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="247">247</a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 40 </td> <td class="s"> return $self; </td> </tr> <tr> <td class="h" > <a name="248">248</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="249">249</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="250">250</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub check_value { </td> </tr> <tr> <td class="h" > <a name="251">251</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#251-1"> 44 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#251-1"> 0 </a> </td> <td > 50 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="252">252</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 69 </td> <td class="s"> my ($val) = @_; </td> </tr> <tr> <td class="h" > <a name="253">253</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="254">254</a> </td> <td class="c3" > 44 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#254-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 71 </td> <td class="s"> return unless defined $val; </td> </tr> <tr> <td class="h" > <a name="255">255</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="256">256</a> </td> <td class="c3" > 44 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#256-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 83 </td> <td class="s"> $val = [$val] unless ref($val) eq 'ARRAY'; </td> </tr> <tr> <td class="h" > <a name="257">257</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="258">258</a> </td> <td class="c3" > 44 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#258-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 147 </td> <td class="s"> my $av = $self->allowed_values or return; </td> </tr> <tr> <td class="h" > <a name="259">259</a> </td> <td class="c0" > <a href="#261"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my $r = ref($av); </td> </tr> <tr> <td class="h" > <a name="260">260</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="261">261</a> </td> <td class="c0" > <a href="#262"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my @bad; </td> </tr> <tr> <td class="h" > <a name="262">262</a> </td> <td class="c0" > <a href="#263"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> for my $v (@$val) { </td> </tr> <tr> <td class="h" > <a name="263">263</a> </td> <td class="c0" > <a href="#264"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my $ok = 1; </td> </tr> <tr> <td class="h" > <a name="264">264</a> </td> <td class="c0" > <a href="#265"> 0 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#264-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> if ($r eq 'CODE') { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#-3"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="265">265</a> </td> <td class="c0" > <a href="#268"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $ok = $self->$av($v); </td> </tr> <tr> <td class="h" > <a name="266">266</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="267">267</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ($r =~ /Regex/i) { </td> </tr> <tr> <td class="h" > <a name="268">268</a> </td> <td class="c0" > <a href="#271"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $ok = $v =~ $av; </td> </tr> <tr> <td class="h" > <a name="269">269</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="270">270</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif($r eq 'ARRAY') { </td> </tr> <tr> <td class="h" > <a name="271">271</a> </td> <td class="c0" > <a href="#272"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $ok = 0; </td> </tr> <tr> <td class="h" > <a name="272">272</a> </td> <td class="c0" > <a href="#273"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> for my $c (@$av) { </td> </tr> <tr> <td class="h" > <a name="273">273</a> </td> <td class="c0" > <a href="#275"> 0 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#273-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> next unless defined $c; </td> </tr> <tr> <td class="h" > <a name="274">274</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#274-1"> 1 </a> </td> <td >   </td> <td > 9 </td> <td class="s"> no warnings; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1669 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="275">275</a> </td> <td class="c0" > <a href="#276"> 0 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#275-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#275-1"> 0 </a> </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $ok = 1 and last if $c eq $v; </td> </tr> <tr> <td class="h" > <a name="276">276</a> </td> <td class="c0" > <a href="#280"> 0 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#276-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#276-1"> 0 </a> </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $ok = 1 and last if 0+$c && 0+$v && $c == $v; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#-3"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="277">277</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="278">278</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="279">279</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="280">280</a> </td> <td class="c0" > <a href="#282"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> die "Invalid value check '$av' ($r) defined at " . $self->trace_string . ".\n"; </td> </tr> <tr> <td class="h" > <a name="281">281</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="282">282</a> </td> <td class="c0" > <a href="#284"> 0 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#282-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> next if $ok; </td> </tr> <tr> <td class="h" > <a name="283">283</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="284">284</a> </td> <td class="c0" > <a href="#287"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> push @bad => $v; </td> </tr> <tr> <td class="h" > <a name="285">285</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="286">286</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="287">287</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> return @bad; </td> </tr> <tr> <td class="h" > <a name="288">288</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="289">289</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="290">290</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub forms { </td> </tr> <tr> <td class="h" > <a name="291">291</a> </td> <td class="c3" > 509 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#291-1"> 509 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#291-1"> 0 </a> </td> <td > 563 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="292">292</a> </td> <td class="c3" > 509 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#292-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 1519 </td> <td class="s"> return $self->{+FORMS} if $self->{+FORMS}; </td> </tr> <tr> <td class="h" > <a name="293">293</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="294">294</a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 30 </td> <td class="s"> my $forms = $self->{+FORMS} = {}; </td> </tr> <tr> <td class="h" > <a name="295">295</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="296">296</a> </td> <td class="c3" > 15 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#296-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 49 </td> <td class="s"> $forms->{'-' . $self->{+SHORT}} = 1 if $self->{+SHORT}; </td> </tr> <tr> <td class="h" > <a name="297">297</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="298">298</a> </td> <td class="c3" > 15 </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#298-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 103 </td> <td class="s"> my $prefix = $self->prefix // ''; </td> </tr> <tr> <td class="h" > <a name="299">299</a> </td> <td class="c3" > 15 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#299-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 31 </td> <td class="s"> $prefix .= '-' if length $prefix; </td> </tr> <tr> <td class="h" > <a name="300">300</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="301">301</a> </td> <td class="c3" > 15 </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#301-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 41 </td> <td class="s"> $forms->{$_} = 1 for map { "--${prefix}$_" } @{$self->{+ALT} // []}; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 14 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 51 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="302">302</a> </td> <td class="c3" > 15 </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#302-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 30 </td> <td class="s"> $forms->{$_} = -1 for map { "--no-${prefix}$_" } @{$self->{+ALT} // []}; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 52 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="303">303</a> </td> <td class="c3" > 15 </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#303-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 24 </td> <td class="s"> $forms->{$_} = -1 for map { "--${prefix}$_" } @{$self->{+ALT_NO} // []}; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#352"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 41 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="304">304</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="305">305</a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 68 </td> <td class="s"> my $name = $self->name; </td> </tr> <tr> <td class="h" > <a name="306">306</a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 68 </td> <td class="s"> $forms->{"--${prefix}${name}"} = 1; </td> </tr> <tr> <td class="h" > <a name="307">307</a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 36 </td> <td class="s"> $forms->{"--no-${prefix}${name}"} = -1; </td> </tr> <tr> <td class="h" > <a name="308">308</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="309">309</a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 56 </td> <td class="s"> return $forms; </td> </tr> <tr> <td class="h" > <a name="310">310</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="311">311</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="312">312</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub _example_append { </td> </tr> <tr> <td class="h" > <a name="313">313</a> </td> <td class="c3" > 24 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#313-1"> 24 </a> </td> <td >   </td> <td > 22 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="314">314</a> </td> <td class="c3" > 24 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 36 </td> <td class="s"> my ($params, @prefixes) = @_; </td> </tr> <tr> <td class="h" > <a name="315">315</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="316">316</a> </td> <td class="c3" > 24 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#316-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 40 </td> <td class="s"> return unless $self->allows_list; </td> </tr> <tr> <td class="h" > <a name="317">317</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="318">318</a> </td> <td class="c3" > 8 </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#318-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 17 </td> <td class="s"> my $groups = $params->{groups} // {}; </td> </tr> <tr> <td class="h" > <a name="319">319</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="320">320</a> </td> <td class="c3" > 8 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> my @out; </td> </tr> <tr> <td class="h" > <a name="321">321</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="322">322</a> </td> <td class="c3" > 8 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 10 </td> <td class="s"> for my $prefix (@prefixes) { </td> </tr> <tr> <td class="h" > <a name="323">323</a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 39 </td> <td class="s"> for my $group (sort keys %$groups) { </td> </tr> <tr> <td class="h" > <a name="324">324</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 12 </td> <td class="s"> push @out => "${prefix}${group} ARG1 ARG2 ... $groups->{$group}"; </td> </tr> <tr> <td class="h" > <a name="325">325</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="326">326</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="327">327</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="328">328</a> </td> <td class="c3" > 8 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 23 </td> <td class="s"> return @out; </td> </tr> <tr> <td class="h" > <a name="329">329</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="330">330</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="331">331</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub default_long_examples { </td> </tr> <tr> <td class="h" > <a name="332">332</a> </td> <td class="c3" > 26 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#332-1"> 26 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#332-1"> 0 </a> </td> <td > 25 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="333">333</a> </td> <td class="c3" > 26 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 43 </td> <td class="s"> my %params = @_; </td> </tr> <tr> <td class="h" > <a name="334">334</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="335">335</a> </td> <td class="c3" > 26 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#335-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 60 </td> <td class="s"> return [''] unless $self->allows_arg; </td> </tr> <tr> <td class="h" > <a name="336">336</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="337">337</a> </td> <td class="c3" > 20 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#337-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 37 </td> <td class="s"> if ($self->requires_arg) { </td> </tr> <tr> <td class="h" > <a name="338">338</a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 25 </td> <td class="s"> return [' ARG', '=ARG', $self->_example_append(\%params, ' ', '=')]; </td> </tr> <tr> <td class="h" > <a name="339">339</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="340">340</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="341">341</a> </td> <td class="c3" > 8 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 20 </td> <td class="s"> return ['', '=ARG', $self->_example_append(\%params, '=')]; </td> </tr> <tr> <td class="h" > <a name="342">342</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="343">343</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="344">344</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub default_short_examples { </td> </tr> <tr> <td class="h" > <a name="345">345</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#345-1"> 6 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#345-1"> 0 </a> </td> <td > 8 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="346">346</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 13 </td> <td class="s"> my %params = @_; </td> </tr> <tr> <td class="h" > <a name="347">347</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="348">348</a> </td> <td class="c3" > 6 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#348-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> return [''] unless $self->allows_arg; </td> </tr> <tr> <td class="h" > <a name="349">349</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="350">350</a> </td> <td class="c3" > 4 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#350-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 7 </td> <td class="s"> if ($self->requires_arg) { </td> </tr> <tr> <td class="h" > <a name="351">351</a> </td> <td class="c3" > 2 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#351-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> return ['ARG', ' ARG', '=ARG', $self->_example_append(\%params, '', ' ', '=')] if $self->allows_shortval; </td> </tr> <tr> <td class="h" > <a name="352">352</a> </td> <td class="c0" > <a href="#356"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> return [' ARG', '=ARG', $self->_example_append(\%params, ' ', '=')]; </td> </tr> <tr> <td class="h" > <a name="353">353</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="354">354</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="355">355</a> </td> <td class="c3" > 2 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#355-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 32 </td> <td class="s"> return ['', 'ARG', '=ARG', $self->_example_append(\%params, '', '=')] if $self->allows_shortval; </td> </tr> <tr> <td class="h" > <a name="356">356</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> return ['', '=ARG', $self->_example_append(\%params, '=')]; </td> </tr> <tr> <td class="h" > <a name="357">357</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="358">358</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="359">359</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub doc_forms { </td> </tr> <tr> <td class="h" > <a name="360">360</a> </td> <td class="c3" > 28 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#360-1"> 28 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#360-1"> 0 </a> </td> <td > 32 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="361">361</a> </td> <td class="c3" > 28 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 43 </td> <td class="s"> my %params = @_; </td> </tr> <tr> <td class="h" > <a name="362">362</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="363">363</a> </td> <td class="c3" > 28 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 43 </td> <td class="s"> my $name = $self->{+NAME}; </td> </tr> <tr> <td class="h" > <a name="364">364</a> </td> <td class="c3" > 28 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#364-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 40 </td> <td class="s"> my $prefix = $self->{+PREFIX} ? "$self->{+PREFIX}-" : ""; </td> </tr> <tr> <td class="h" > <a name="365">365</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="366">366</a> </td> <td class="c3" > 28 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 79 </td> <td class="s"> my @long_examples = $self->long_examples(%params); </td> </tr> <tr> <td class="h" > <a name="367">367</a> </td> <td class="c3" > 28 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 40 </td> <td class="s"> my @forms = (map { "--${prefix}${name}${_}" } @long_examples ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 65 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 165 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="368">368</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="369">369</a> </td> <td class="c3" > 28 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#369-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 28 </td> <td class="s"> for my $alt (@{$self->{+ALT} || []}) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 28 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 68 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="370">370</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> push @forms => (map { "--${prefix}${alt}${_}" } @long_examples); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 21 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="371">371</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="372">372</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="373">373</a> </td> <td class="c3" > 28 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#373-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 52 </td> <td class="s"> if (my $short = $self->{+SHORT}) { </td> </tr> <tr> <td class="h" > <a name="374">374</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 57 </td> <td class="s"> my @short_examples = $self->short_examples(%params); </td> </tr> <tr> <td class="h" > <a name="375">375</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 25 </td> <td class="s"> push @forms => map { "-${short}${_}" } @short_examples; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 58 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 117 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="376">376</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="377">377</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="378">378</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> @forms = sort { </td> </tr> <tr> <td class="h" > <a name="379">379</a> </td> <td class="c3" > 28 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 62 </td> <td class="s"> $a =~ m/^(-+)/; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 195 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 313 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="380">380</a> </td> <td class="c3" > 195 </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#380-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 305 </td> <td class="s"> my $al = length($1 // ''); </td> </tr> <tr> <td class="h" > <a name="381">381</a> </td> <td class="c3" > 195 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 244 </td> <td class="s"> $b =~ m/^(-+)/; </td> </tr> <tr> <td class="h" > <a name="382">382</a> </td> <td class="c3" > 195 </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#382-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 311 </td> <td class="s"> my $bl = length($1 // ''); </td> </tr> <tr> <td class="h" > <a name="383">383</a> </td> <td class="c3" > 195 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#383-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 305 </td> <td class="s"> $al <=> $bl || length($a) <=> length($b); </td> </tr> <tr> <td class="h" > <a name="384">384</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } @forms; </td> </tr> <tr> <td class="h" > <a name="385">385</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="386">386</a> </td> <td class="c3" > 28 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 30 </td> <td class="s"> my @no_forms; </td> </tr> <tr> <td class="h" > <a name="387">387</a> </td> <td class="c3" > 28 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 49 </td> <td class="s"> push @no_forms => "--no-${prefix}${name}"; </td> </tr> <tr> <td class="h" > <a name="388">388</a> </td> <td class="c3" > 28 </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#388-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 30 </td> <td class="s"> push @no_forms => map { "--$_" } @{$self->{+ALT_NO} // []}; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#405"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 28 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 85 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="389">389</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="390">390</a> </td> <td class="c3" > 28 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 74 </td> <td class="s"> return \@forms, \@no_forms; </td> </tr> <tr> <td class="h" > <a name="391">391</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="392">392</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="393">393</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub cli_docs { </td> </tr> <tr> <td class="h" > <a name="394">394</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#394-1"> 14 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#394-1"> 0 </a> </td> <td > 17 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="395">395</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 29 </td> <td class="s"> my %params = @_; </td> </tr> <tr> <td class="h" > <a name="396">396</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="397">397</a> </td> <td class="c3" > 14 </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#397-1"> 33 </a> </td> <td >   </td> <td >   </td> <td > 27 </td> <td class="s"> $params{color} //= USE_COLOR && -t STDOUT; </td> </tr> <tr> <td class="h" > <a name="398">398</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="399">399</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 69 </td> <td class="s"> my ($forms, $no_forms, $other_forms) = $self->doc_forms(%params); </td> </tr> <tr> <td class="h" > <a name="400">400</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="401">401</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 30 </td> <td class="s"> my @out; </td> </tr> <tr> <td class="h" > <a name="402">402</a> </td> <td class="c3" > 14 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#402-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 23 </td> <td class="s"> if ($params{color}) { </td> </tr> <tr> <td class="h" > <a name="403">403</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> @out = ( </td> </tr> <tr> <td class="h" > <a name="404">404</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> color('underline white') . $self->{+NAME} . color('reset'), </td> </tr> <tr> <td class="h" > <a name="405">405</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#405-1"> 0 </a> </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> (map { color('green') . $_ . color('reset') } @{$forms // []}), </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#406"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="406">406</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#406-1"> 0 </a> </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> (map { color('yellow') . $_ . color('reset') } @{$no_forms // []}), </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#407"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="407">407</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#407-1"> 0 </a> </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> (map { color('cyan') . $_ . color('reset') } @{$other_forms // []}), </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#438"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="408">408</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="409">409</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="410">410</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="411">411</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> @out = ( </td> </tr> <tr> <td class="h" > <a name="412">412</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> "[$self->{+NAME}]", </td> </tr> <tr> <td class="h" > <a name="413">413</a> </td> <td class="c3" > 14 </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#413-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 26 </td> <td class="s"> @{$forms // []}, </td> </tr> <tr> <td class="h" > <a name="414">414</a> </td> <td class="c3" > 14 </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#414-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 22 </td> <td class="s"> @{$no_forms // []}, </td> </tr> <tr> <td class="h" > <a name="415">415</a> </td> <td class="c3" > 14 </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#415-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 21 </td> <td class="s"> @{$other_forms // []}, </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 47 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="416">416</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="417">417</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="418">418</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="419">419</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 39 </td> <td class="s"> push @out => Getopt::Yath::Term::fit_to_width(" ", $self->{+DESCRIPTION}, prefix => " "); </td> </tr> <tr> <td class="h" > <a name="420">420</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="421">421</a> </td> <td class="c3" > 14 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#421-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 22 </td> <td class="s"> push @out => "\n" . Getopt::Yath::Term::fit_to_width(" ", "Can also be set with the following environment variables: " . join(", ", @{$self->{+FROM_ENV_VARS}}), prefix => " ") if $self->{+FROM_ENV_VARS}; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 7 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="422">422</a> </td> <td class="c3" > 14 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#422-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 23 </td> <td class="s"> push @out => "\n" . Getopt::Yath::Term::fit_to_width(" ", "The following environment variables will be cleared after arguments are processed: " . join(", ", @{$self->{+CLEAR_ENV_VARS}}), prefix => " ") if $self->{+CLEAR_ENV_VARS}; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="423">423</a> </td> <td class="c3" > 14 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#423-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 25 </td> <td class="s"> push @out => "\n" . Getopt::Yath::Term::fit_to_width(" ", "The following environment variables will be set after arguments are processed: " . join(", ", @{$self->{+SET_ENV_VARS}}), prefix => " ") if $self->{+SET_ENV_VARS}; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 5 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="424">424</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="425">425</a> </td> <td class="c3" > 14 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#425-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 59 </td> <td class="s"> if (my @notes = $self->notes) { </td> </tr> <tr> <td class="h" > <a name="426">426</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 19 </td> <td class="s"> my %seen; </td> </tr> <tr> <td class="h" > <a name="427">427</a> </td> <td class="c3" > 14 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#427-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 21 </td> <td class="s"> push @out => map { "\n" . Getopt::Yath::Term::fit_to_width(" ", "Note: $_", prefix => " ") } grep { $_ && !$seen{$_}++ } @notes; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 5 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 14 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 19 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 51 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="428">428</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="429">429</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="430">430</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 26 </td> <td class="s"> for my $field (qw/default autofill/) { </td> </tr> <tr> <td class="h" > <a name="431">431</a> </td> <td class="c3" > 28 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 33 </td> <td class="s"> my $t = "${field}_text"; </td> </tr> <tr> <td class="h" > <a name="432">432</a> </td> <td class="c3" > 28 </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#432-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 176 </td> <td class="s"> my $val = $self->$t || $self->$field // next; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--condition.html#-2"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="433">433</a> </td> <td class="c3" > 12 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#433-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 20 </td> <td class="s"> next if ref($val); </td> </tr> <tr> <td class="h" > <a name="434">434</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 16 </td> <td class="s"> push @out => "\n" . Getopt::Yath::Term::fit_to_width(" ", "$field: $val", prefix => " "); </td> </tr> <tr> <td class="h" > <a name="435">435</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="436">436</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="437">437</a> </td> <td class="c3" > 14 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#437-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 57 </td> <td class="s"> if (my $avt = $self->allowed_values_text) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#-2"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="438">438</a> </td> <td class="c0" > <a href="#441"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> push @out => "\n" . Getopt::Yath::Term::fit_to_width(" ", "Allowed Values: $avt", prefix => " "); </td> </tr> <tr> <td class="h" > <a name="439">439</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="440">440</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif (my $vals = $self->allowed_values) { </td> </tr> <tr> <td class="h" > <a name="441">441</a> </td> <td class="c0" > 0 </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#441-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> push @out => "\n" . Getopt::Yath::Term::fit_to_width(" ", "Allowed Values: " . join(", " => @$vals), prefix => " ") if @$vals; </td> </tr> <tr> <td class="h" > <a name="442">442</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="443">443</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="444">444</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 81 </td> <td class="s"> return join "\n" => @out; </td> </tr> <tr> <td class="h" > <a name="445">445</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="446">446</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="447">447</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub pod_docs { </td> </tr> <tr> <td class="h" > <a name="448">448</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#448-1"> 14 </a> </td> <td class="c0" > <a href="blib-lib-Getopt-Yath-Option-pm--subroutine.html#448-1"> 0 </a> </td> <td > 14 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="449">449</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 28 </td> <td class="s"> my %params = @_; </td> </tr> <tr> <td class="h" > <a name="450">450</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="451">451</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 28 </td> <td class="s"> my ($forms, $no_forms, $other_forms) = $self->doc_forms(%params); </td> </tr> <tr> <td class="h" > <a name="452">452</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="453">453</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 23 </td> <td class="s"> my @out = map { "=item $_" } grep { $_ } @$forms, @$no_forms, @$other_forms; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 87 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 115 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 87 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 93 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="454">454</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="455">455</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 41 </td> <td class="s"> push @out => $self->description; </td> </tr> <tr> <td class="h" > <a name="456">456</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="457">457</a> </td> <td class="c3" > 14 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#457-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 24 </td> <td class="s"> push @out => "Can also be set with the following environment variables: " . join(", ", map { "C<$_>" } @{$self->{+FROM_ENV_VARS}}) if $self->{+FROM_ENV_VARS}; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 4 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="458">458</a> </td> <td class="c3" > 14 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#458-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 21 </td> <td class="s"> push @out => "The following environment variables will be cleared after arguments are processed: " . join(", ", map { "C<$_>" } @{$self->{+CLEAR_ENV_VARS}}) if $self->{+CLEAR_ENV_VARS}; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 5 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="459">459</a> </td> <td class="c3" > 14 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#459-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 21 </td> <td class="s"> push @out => "The following environment variables will be set after arguments are processed: " . join(", ", map { "C<$_>" } @{$self->{+SET_ENV_VARS}}) if $self->{+SET_ENV_VARS}; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 5 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="460">460</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="461">461</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 15 </td> <td class="s"> my %seen; </td> </tr> <tr> <td class="h" > <a name="462">462</a> </td> <td class="c3" > 14 </td> <td class="c3" > <a href="blib-lib-Getopt-Yath-Option-pm--branch.html#462-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 28 </td> <td class="s"> push @out => map { "Note: $_" } grep { $_ && !$seen{$_}++ } $self->notes; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 5 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 19 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 43 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="463">463</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="464">464</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 59 </td> <td class="s"> return join("\n\n" => @out) . "\n"; </td> </tr> <tr> <td class="h" > <a name="465">465</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="466">466</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="467">467</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> 1; </td> </tr> <tr> <td class="h" > <a name="468">468</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="469">469</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> __END__ </td> </tr> </table> </body> </html>