Benchmark to getting methods list between Class::Inspector and Class::MOP::Class

get_methods_list.pl

#!perl
use strict;
use warnings;

use Class::Inspector;
use Moose;

use LWP::UserAgent;
use Benchmark qw/cmpthese/;

cmpthese(-5, {
    inspector => sub {
        Class::Inspector->methods('LWP::UserAgent');
    },
    mop => sub {
        Class::MOP::Class->initialize('LWP::UserAgent')->get_method_list;
    },
});

__DATA__
              Rate inspector       mop
inspector  10578/s        --      -97%
mop       348984/s     3199%        --