Lines Matching refs:HASH
40 # POSSIBLE ARGS: NUMERIC, STRING, ARRAY, HASH, REGEX, CODE
71 # HASH
80 case {0} { ok (0) } else { ok (1) } # ; -> SUB, NOT HASH
81 case {1} { ok (1) } else { ok (0) } # ; -> SUB, NOT HASH
111 # HASH
120 case {0} { ok (0) } else { ok (1) } # ; -> SUB, NOT HASH
121 case {1} { ok (1) } else { ok (0) } # ; -> SUB, NOT HASH
151 # HASH
161 case {0} { ok (0) } else { ok (1) } # ; -> SUB, NOT HASH
162 case {1} { ok (1) } else { ok (0) } # ; -> SUB, NOT HASH
167 # 4. HASH SWITCH
196 # HASH
205 case {0} { ok (0) } else { ok (1) } # ; -> SUB, NOT HASH
206 case {1} { ok (1) } else { ok (0) } # ; -> SUB, NOT HASH
218 return $type eq 'HASH' && $data->{a}
251 # HASH
259 case {0} { ok (0) } else { ok (1) } # ; -> SUB, NOT HASH
260 case {1} { ok (0) } else { ok (1) } # ; -> SUB, NOT HASH