#!/usr/bin/perl
# vi:ts=4 sw=4 et:
use strict;
use warnings;
use Benchmark qw( cmpthese );

my $text = 'a';

cmpthese(
    -1, {
        'equal' => sub {
            return if ( $text eq 'a' );
        },
        'regex_class' => sub {
            return if ( $text =~ m/^[ab]$/ );
        },
        'regex_alter' => sub {
            return if ( $text =~ m/^(a|b)$/ );
        },
        'regex_alter_nocatch' => sub {
            return if ( $text =~ m/^(?:a|b)$/ );
        },
    }
);