use strict;
use warnings;

use Benchmark qw( cmpthese );

use constant TRUE  => 1 == 1;
use constant FALSE => 1 == 0;

sub old_foo { return 0; }
sub new_foo { return;   }

cmpthese(-3, {
   old_foo => 'old_foo(); 1',
   new_foo => 'new_foo(); 1',
});

sub old_bar { return 1;    }
sub new_bar { return TRUE; }

cmpthese(-3, {
   old_bar => 'old_bar(); 1',
   new_bar => 'new_bar(); 1',
});