#!perl -w

use strict;

use Benchmark qw/cmpthese/;

my %tran_types;
foreach ('A'..'Z') { $tran_types{$_} = "" };

my $char_y = 'J';       # yes
my $char_n = '_';       # no
my $char_n_l = 'AA';    # no; too long
my $char_n_A = '0';     # no; lt 'A'
my $char_n_Z = 'a';     # no; gt 'Z'

cmpthese(-(shift), {
    're_Y'  => sub { $char_y =~ /^[A-Z]\z/ },
    're_n'  => sub { $char_n =~ /^[A-Z]\z/ },
    'co_Y'  => sub { length $char_y == 1 and
                       $char_y ge "A" and $char_y le "Z" },
    'co_nA' => sub { length $char_n_A == 1 and
                       $char_n_A ge "A" and $char_n_A le "Z" },
    'co_nZ' => sub { length $char_n_Z == 1 and
                       $char_n_Z ge "A" and $char_n_Z le "Z" },
    'co_nl' => sub { length $char_n_l == 1 and
                       $char_n_l ge "A" and $char_n_l le "Z" },
    'ex_Y'  => sub { exists $tran_types{$char_y} },
    'ex_n'  => sub { exists $tran_types{$char_n} },
});