maint/bench.pl

   1 #!/usr/bin/env perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use Benchmark::Dumb ':all';
   7 use Try::Tiny;
   8
   9 my $max = 10_000;
  10
  11 cmpthese('0.003', {
  12   eval => sub { do { local $@; eval { die 'foo' } } for (1..$max) },
  13   try => sub { do { try { die 'foo' } } for (1..$max) },
  14 });