Home
last modified time | relevance | path

Searched refs:_getcode (Results 1 – 3 of 3) sorted by relevance

/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Unicode/
H A DUCD.t290 is(Unicode::UCD::_getcode('123'), 123, "_getcode(123)");
291 is(Unicode::UCD::_getcode('0123'), 0x123, "_getcode(0123)");
292 is(Unicode::UCD::_getcode('0x123'), 0x123, "_getcode(0x123)");
293 is(Unicode::UCD::_getcode('0X123'), 0x123, "_getcode(0X123)");
294 is(Unicode::UCD::_getcode('U+123'), 0x123, "_getcode(U+123)");
295 is(Unicode::UCD::_getcode('u+123'), 0x123, "_getcode(u+123)");
296 is(Unicode::UCD::_getcode('U+1234'), 0x1234, "_getcode(U+1234)");
297 is(Unicode::UCD::_getcode('U+12345'), 0x12345, "_getcode(U+12345)");
298 is(Unicode::UCD::_getcode('123x'), undef, "_getcode(123x)");
299 is(Unicode::UCD::_getcode('x123'), undef, "_getcode(x123)");
[all …]
H A DUCD.pm129 sub _getcode { subroutine
194 my $code = _getcode($arg);
264 my $code = _getcode($arg);
321 my $code = _getcode($arg);
386 my $code = _getcode($arg);
519 my $code = _getcode($arg);
592 my $code = _getcode($arg);
710 my $code = _getcode($arg);
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Dcharnames.pm243 sub _getcode { subroutine
265 my $code = _getcode($arg);