#!/usr/bin/env perl
use Benchmark 'cmpthese';
use URI::Escape;
use URI::XSEscape;
use URI::Encode::XS;

cmpthese(-10, {
    escape => sub { URI::Escape::uri_escape('https://stackoverflow.com/questions/3629212/how can perls xsub die') },
    encode => sub { URI::Encode::XS::uri_encode('https://stackoverflow.com/questions/3629212/how can perls xsub die') },
  });
cmpthese(-10, {
    unescape => sub { URI::Escape::uri_unescape('https%3A%2F%2Fstackoverflow.com%2Fquestions%2F3629212%2Fhow%20can%20perls%20xsub%20die') },
    decode   => sub { URI::Encode::XS::uri_decode('https%3A%2F%2Fstackoverflow.com%2Fquestions%2F3629212%2Fhow%20can%20perls%20xsub%20die') },
  });
