Lines Matching refs:orig
174 my $orig = {$char => 1};
176 bless $orig, $package;
178 my $just_utf8 = $bypass ? $orig : ${thaw freeze \$orig};
184 $orig = {$bytes => 1};
186 bless $orig, $package;
188 my $just_bytes = $bypass ? $orig : ${thaw freeze \$orig};
198 $orig = {$bytes => length $bytes, $char => length $char};
200 bless $orig, $package;
202 my $both = $bypass ? $orig : ${thaw freeze \$orig};