use strict;
use warnings;

use Benchmark qw/cmpthese/;

cmpthese( -1, {
     Std_pos  => sub { my $n = 0; if( $n < 1 ) { return 1 } },
#    Std_neg  => sub { my $n = 1; if( $n < 1 ) { return 1 } },
     Rflx_pos => sub { my $n = 0; return 1 if $n < 1;       },
#    Rflx_neg => sub { my $n = 1; return 1 if $n < 1;       },
     And_pos  => sub { my $n = 0; $n < 1 and return 1;      },
#    And_neg  => sub { my $n = 1; $n < 1 and return 1;      },
} );