#!/usr/bin/perl
use strict;
use warnings;
use autobox;

sub SCALAR::uc { CORE::uc($_[0]); }
sub autobox1 {
    return "Hello, World\n"->uc;
}
no autobox;


sub primitive1 {
    return CORE::uc "Hello, World\n";
}

package main;
use Benchmark;
cmpthese( -1, {
    'autobox1'   => sub { autobox1()   },
    'primitive1' => sub { primitive1() },
});

cmpthese( -1, {
    'autobox2'   => sub { return SCALAR::uc( "Hello, World\n" ); },
    'primitive2' => sub { return   CORE::uc( "Hello, World\n" );   },
});
__END__
               Rate   autobox1 primitive1
autobox1   183794/s         --       -78%
primitive1 835106/s       354%         --
                Rate   autobox2 primitive2
autobox2    513912/s         --       -89%
primitive2 4797406/s       834%         --