caller_vs_package.pl

#!/usr/bin/env perl

use strict;
use warnings;
use Benchmark ':all';

sub do_package {
    my $self = $_[0];
    my $param = $_[1];
}

sub do_caller {
    my $self = caller;
    my $param = $_[0];
}

@_ = ('foo');

timethese(
    10000000,
    {   'package' => sub { __PACKAGE__->do_package(1); },
        'caller' => sub { do_caller(1); },
    }
);