>62 HTML::Template 880行目あたり # define accessor constants used to improve readability of array # accesses into "objects". I used to use 'use constant' but that # seems to cause occasional irritating warnings in older Perls. package HTML::Template::LOOP; sub TEMPLATE_HASH () { 0; } sub PARAM_SET () { 1 }; package HTML::Template::COND; sub VARIABLE () { 0 }; sub VARIABLE_TYPE () { 1 }; 実際にどんな警告が出るのかは知らん