#!/usr/bin/perl

use strict;
use warnings;


use Benchmark qw(cmpthese);


cmpthese(-60, {
        arg => sub {
            arg('foobar');
        },
        arg_shift => sub {
            arg_shift('foobar');
        },
        noarg => sub {
            $_ = 'foobar';
            noarg();
        },
        noarg2 => sub {
            $_ = 'foobar';
            noarg2();
        },
    });
sub arg       { length $_[0] }
sub arg_shift { length shift }
sub noarg     { length $_    }
sub noarg2    { length     }