benchmarks/load_class.pl

   1 #!perl
   2 use strict;
   3 use warnings;
   4 use Benchmark qw/cmpthese/;
   5
   6 use Class::MOP;
   7 use Mouse();
   8
   9 print "Class::MOP $Class::MOP::VERSION\n";
  10 print "Mouse      $Mouse::VERSION\n";
  11
  12 cmpthese -1 => {
  13     'Class::MOP::load_class' => sub{
  14         Class::MOP::load_class('Class::MOP::Class');
  15     },
  16     'Mouse::Util::load_class' => sub{
  17         Mouse::Util::load_class('Class::MOP::Class');
  18     },
  19 };