gistfile1.txt

se uni::perl;
use Benchmark ':all';
use lib::abs;
BEGIN {unshift @INC, lib::abs::path 'kraih/lib' }
use Mojo::ByteStream 'b';;

say $INC{'Mojo/ByteStream.pm'};

my %results;
$results{old} = timethis -1 , sub { b('x'x1000) };

delete $INC{'Mojo/ByteStream.pm'};
delete $Mojo::{'ByteStream::'};
shift @INC;
unshift @INC, lib::abs::path 'mons/lib';
require Mojo::ByteStream;
Mojo::ByteStream->import('b');

say $INC{'Mojo/ByteStream.pm'};

$results{new} = timethis -1 , sub { b('x'x1000) };

cmpthese \%results;