URI vs URI::Split (v1.60)

uri_vs_uri-split.pl

#!/usr/bin/env perl
use strict;
use warnings;                                                                                                                                                                                                   use utf8;

use Benchmark qw(cmpthese);
use URI;
use URI::Split qw(uri_split);

my $uri = 'https://www.example.com/path/2016/10/my-awesome-photo.jpg?utm=aaa#anchor1';
cmpthese(200000, {
    'URI' => sub {
        URI->new($uri)->path;
    },
    'URI::Split' => sub {
        (uri_split($uri))[2];
    },
});

#               Rate        URI URI::Split
# URI         35524/s         --       -92%
# URI::Split 465116/s      1209%         --