byp4a55 professor6T9

Linux ded7073.inmotionhosting.com 4.18.0-553.72.1.el8_10.x86_64 #1 SMP Tue Sep 2 06:07:48 EDT 2025 x86_64
Apache
209.182.213.109

caf_vs_moose.pl

#!/usr/bin/perl

### MODULES

{
    package PlainMoose;
    use Moose;
    has foo => (is => 'rw');
}
{
    package MooseImmutable;
    use Moose;
    has foo => (is => 'rw');
    __PACKAGE__->meta->make_immutable();
}
{
    package MooseImmutable::NoConstructor;
    use Moose;
    has foo => (is => 'rw');
    __PACKAGE__->meta->make_immutable(inline_constructor => 0);
}
{
    package ClassAccessorFast;
    use warnings;
    use strict;
    use base 'Class::Accessor::Fast';
    __PACKAGE__->mk_accessors(qw(foo));
}

use Benchmark qw(cmpthese);
use Benchmark ':hireswallclock';

my $moose                = PlainMoose->new;
my $moose_immut          = MooseImmutable->new;
my $moose_immut_no_const = MooseImmutable::NoConstructor->new;
my $caf                  = ClassAccessorFast->new;

my $acc_rounds = 100_000;
my $ins_rounds = 100_000;

print "\nSETTING\n";
cmpthese($acc_rounds, {
    Moose                       => sub { $moose->foo(23) },
    MooseImmutable              => sub { $moose_immut->foo(23) },
    MooseImmutableNoConstructor => sub { $moose_immut_no_const->foo(23) },
    ClassAccessorFast           => sub { $caf->foo(23) },
}, 'noc');

print "\nGETTING\n";
cmpthese($acc_rounds, {
    Moose                       => sub { $moose->foo },
    MooseImmutable              => sub { $moose_immut->foo },
    MooseImmutableNoConstructor => sub { $moose_immut_no_const->foo },
    ClassAccessorFast           => sub { $caf->foo },
}, 'noc');

my (@moose, @moose_immut, @moose_immut_no_const, @caf_stall);
print "\nCREATION\n";
cmpthese($ins_rounds, {
    Moose                       => sub { push @moose, PlainMoose->new(foo => 23) },
    MooseImmutable              => sub { push @moose_immut, MooseImmutable->new(foo => 23) },
    MooseImmutableNoConstructor => sub { push @moose_immut_no_const, MooseImmutable::NoConstructor->new(foo => 23) },
    ClassAccessorFast           => sub { push @caf_stall, ClassAccessorFast->new({foo => 23}) },
}, 'noc');

my ( $moose_idx, $moose_immut_idx, $moose_immut_no_const_idx, $caf_idx ) = ( 0, 0, 0, 0 );
print "\nDESTRUCTION\n";
cmpthese($ins_rounds, {
    Moose => sub {
        $moose[$moose_idx] = undef;
        $moose_idx++;
    },
    MooseImmutable => sub {
        $moose_immut[$moose_immut_idx] = undef;
        $moose_immut_idx++;
    },
    MooseImmutableNoConstructor => sub {
        $moose_immut_no_const[$moose_immut_no_const_idx] = undef;
        $moose_immut_no_const_idx++;
    },
    ClassAccessorFast   => sub {
        $caf_stall[$caf_idx] = undef;
        $caf_idx++;
    },
}, 'noc');

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2025-03-20 02:35:22
..	dir	-	root/root	0755	2025-03-20 02:35:22
cmop	dir	-	root/root	0755	2025-03-20 02:35:22
caf_vs_moose.pl	text/x-perl	2.51 KB	root/root	0644	2019-10-21 09:36:33
immutable.pl	text/x-perl	2.26 KB	root/root	0644	2019-10-21 09:36:33
lotsa-classes.pl	text/x-perl	2.46 KB	root/root	0644	2019-10-21 09:36:33
method_modifiers.pl	text/x-perl	2.42 KB	root/root	0755	2019-10-21 09:36:33
moose_bench.pl	text/x-perl	4.4 KB	root/root	0755	2019-10-21 09:36:33
simple_class.pl	text/x-perl	530 B	root/root	0644	2019-10-21 09:36:33
simple_compile.pl	text/x-perl	510 B	root/root	0644	2019-10-21 09:36:33
simple_constructor.pl	text/x-perl	650 B	root/root	0644	2019-10-21 09:36:33
type_constraints.pl	text/x-perl	814 B	root/root	0644	2019-10-21 09:36:33
type_constraints2.pl	text/x-perl	3 KB	root/root	0644	2019-10-21 09:36:33

Team Anon Force

https://t.me/Professor6T9x