use strict;
use warnings;

use Unicode::Escape;

use Benchmark qw( cmpthese timethese );

my $subs = {
    'utf8esc'    => sub { utf8_escape( $content ) },
    'Uni::Esc'   => sub { Unicode::Escape::escape( $content ) },
};

my @texts = (
    [ 'abc123ABC456' x 10_000, 'no utf8' ],
    [ "\x{e3}\x{81}\x{82}\x{e3}\x{81}\x{84}\x{e3}\x{81}\x{86}\x{e3}\x{81}\x{88}\x{e3}\x{81}\x{8a}" x 10_000, 'all 3-byte utf8' ],
    );

foreach my $txt ( @texts ) {
    $test_text = $txt->[0];
    print "*** $txt->[1]\n";
    cmpthese( -30, $subs );
}