benchmark_object_container.pl

#!/usr/bin/perl

use strict;
use warnings;
use lib 'lib';

use Benchmark qw(cmpthese);
use Object::Container;
use Object::Container::CAF;

my $orig = Object::Container->instance;
my $caf  = Object::Container::CAF->instance;

$orig->register( 'HTML::TreeBuilder::XPath' );
$caf->register( 'HTML::TreeBuilder::XPath' );

cmpthese(
    500000 => +{
        orig => sub {
            $orig->get('HTML::TreeBuilder::XPath');
        },
        caf  => sub {
            $caf->get('HTML::TreeBuilder::XPath');
        },
    },
);