Perl 5 OOP機構30年史 - Perl 5's OOP Mechanism over the past 30 years

1FSM001ػߏ೥࢙ !NP[OJPO :"1$)BLPEBUFඇެࣜ༧शձ

ࣗݾ঺հ

4NBSU#BOL *OD 4PGUXBSF&OHJOFFS 'BWPSJUF1FSMTCVJMUJOEP LJMM BOEEJF 5BJLJ,BXBLBNJ !NP[OJPO !NP[OJPO
!NP[OJPO

1FSM001ػߏ೥࢙ !NP[OJPO :"1$)BLPEBUFඇެࣜ༧शձ

1FSM͸प೥ʂ

೥ 1FSM஀ੜ

CMFTT ʙॕ෱͋Εʙ

CMFTT package User; use strict; use warnings; use utf8;
sub new { my ( $ class, $args) = @_ ; return bless { name => $args->{name}, email => $args->{email}, }, $class; } sub get_name { my ( $ self) = @_ ; return $self->{name}; } 1; ಋೖ 1FSM QBDLBHF͕Ϋϥεతʹ;Δ·͍ɺ CMFTTͰσʔλ SFGFSFODF Λ QBDLBHFʹඥ෇͚ NFUIPE΋ఆٛͰ͖Δ ϓϦϛςΟϰͳ001

೥ͷ࣌Λܦͯ DMBTT

DMBTT use strict; use warnings; use feature 'class'; no
warnings qw/exper im ental::class/; class User { field $name :param; field $email :param; method get_name { return $name; } } ಋೖ 1FSM ͍ΘΏΔී௨ͬΆ͍DMBTTߏจ fi FME΍NFUIPE΋αϙʔτ ͝ཡͷͱ͓ΓFYQFSJNFOUBM

ΊͰͨ͠ΊͰͨ͠

DMBTTߏจಋೖ·Ͱʹ৭ʑ͋ͬͨ

৭ʑ $MBTT4USVDU $MBTT"DDFTTPS $MBTT"DDFTTPS'BTU $MBTT"DDFTTPS'BTUFS $MBTT"DDFTTPS-JUF $MBTT$MBTT $MBTT$POUSBDU $MBTT4JNQMF $MBTT&BTZ
$MBTT5JOZ $MBTT4UE $MBTT(FOFSBUF $MBTT.FUIPE.BLFS 3VCZJTI$MBTT .PPTF .PVTF .PP .P . .PPT .PVTTF .PN %JPT .V 4QJ ff Z 3PMF5JOZ .PKP#BTF .01 $MBTT.01 $PS 1FSM 3BLV BOEFUD

೥୅ޙ൒

$MBTT4USVDU ಋೖ 1FSM QBDLBHFʹରͯ͠NFNCFSΛඥ෇͚Δ ه๏Λαϙʔτ
ΞΫηα΋ࣗಈͰੜ͑ͯ͘Δ ίΞϞδϡʔϧ package User; use Class::Struct; struct(User => { name => '$', email => '$', }); # ͜Μͳײ͡Ͱ࢖͑Δ my $user = User->ne w ( name => 'john', email => '[email protected]', ); say $user->name; # john $user->name('doe'); say $user->name; # doe

$MBTT"DDFTTPS ϦϦʔε QBDLBHFʹରͯ͠ΞΫηαΛ ಈతʹੜ੒͢Δ ͞·͟·ͳߴ଎ɾܰྔͳ೿ੜ͕͋Δ
$MBTT"DDFTTPS'BTU $MBTT"DDFTTPS'BTUFS $MBTT"DDFTTPS-JUF package User; use base q w (Class::Accessor); User->follo w_ best_practice; User->mk_accessors(q w (name email)); # ͜͏͍͏;͏ʹ࢖͑Δ my $user = User->ne w ({ name => 'john', email => '[email protected]', }); say $user->{name}; # john $user->set('name', 'doe'); # getterΛհͯ͠ΞΫηε΋Ͱ͖Δ say $user->get('name'); # doe

೥୅ 1FSM 3BLV ϔϥδΧऻདྷ େ.01࣌୅

3BLVͷDMBTT ೥͝Ζ͔Β։ൃ։࢝ ϦϦʔε .01͕࣮૷͞Ε͍ͯΔ

.PPTF ϦϦʔε ຊ֨తͳΦϒδΣΫτγεςϜ͕஀ੜ 3BLV ౰࣌1FSM
ͷΞΠσΞΛഈआ .01ίϯηϓτ package User; use Moose; has 'name' => (is => 'rw', isa => 'Str'); has 'email' => (is => 'rw', isa => 'Str'); sub greet { my $self = shift; return "hello, ". $ self->name; } # ͜͏͍͏;͏ʹ࢖͑Δ my $user = User->ne w ({ name => 'john', email => '[email protected]', }); say $user->name; # john $user->name('doe'); say $user->name; # doe say $user->greet; # hello, doe

.01 .FUB0CKFDU1SPUPDPM 1FSMͱ1FSMͷ001ίϯηϓτ Ϋϥε͸ΦϒδΣΫτ ΫϥεʹରԠ͢ΔϝλΦϒδΣΫτͰ͋ΔϝλΫϥε͕ଘࡏ͢Δ
Ϋϥεͷৼ෣͍Λఆٛ͢Δ ϝλΫϥεΛ௨͢͜ͱͰϝιου΍ଐੑͷ௥Ճ࡟আΛಈతʹߦͳ͑Δ ଐੑɺϝιουɺϩʔϧ NJYJO ɺϝιουϞσΟϑΝΠΞͳͲۙ୅తͳ 001ػߏΛ۩උ .PPTF଒͸͜ͷ.01Λ࣮૷͍ͯ͠Δ

.PPTF଒ .PPTFΦϦδφϧɻॏ͍ɾ஗͍ͳͲͱݴΘΕ͍ͯͨ ࠓ͸஌Βͳ͍ .PVTF.PPTFޓ׵ɻ94Ͱॻ͔Ε͍ͯΔͨΊͱͯ΋଎͍ɻ .PP.PPTFޓ׵
αϒηοτ ɻܰྔͳ11࣮૷ɻΑ͘࢖ΘΕ͕ͪɻ .P.PPͷߋʹϛχϚϧͳόʔδϣϯ .ۃΊ͍ͯܰɻͳͥͳΒԿ΋࣮૷͞Ε͍ͯͳ͍ͨΊʜʜ δϣʔΫϞδϡʔϧ

.PPTF଒ .PPTFΦϦδφϧɻॏ͍ɾ஗͍ͳͲͱݴΘΕ͍ͯͨ ࠓ͸஌Βͳ͍ .PVTF.PPTFޓ׵ɻ94Ͱॻ͔Ε͍ͯΔͨΊͱͯ΋଎͍ɻ .PP.PPTFޓ׵
αϒηοτ ɻܰྔɻΑ͘࢖ΘΕ͕ͪɻ .P.PPͷߋʹϛχϚϧͳόʔδϣϯ .ۃΊ͍ͯܰɻͳͥͳΒԿ΋࣮૷͞Ε͍ͯͳ͍ͨΊʜʜ δϣʔΫϞδϡʔϧ

༨ஊ .PKPMJDJPVT͸.01ϕʔεͷ001Λࣗલ࣮૷͍ͯ͠Δ .PKP#BTF ྲྀੴͷ43*ޚେͰ͋Δ ࠓ
೥Ҏ߱ Ͱ͸$MBTT"DDFTTPS΋.PPTFϥΠΫͳߏจΛఏڙ͍ͯ͠Δ ஌Βͳ͔ͬͨ

೥୅͋ͨΓ͔Β 1FSMͷίΞʹDMBTTΛೖΕΑ͏Ϝʔϒϝϯτ

DMBTTΛೖΕΑ͏Ωϟϯϖʔϯ 3PMF5JOZ.PPTF͔Β3PMFػߏΛ੾Γग़࣮ͨ͠૷ .01ίΞϞδϡʔϧ͚ͩͰಈ͘ϛχϚϧ࣮૷
$PSݴޠϨϕϧͰDMBTTػߏΛಋೖ͢ΔͨΊͷίϯηϓτσβΠϯɾఏҊ ॳग़

DMBTTΛೖΕΑ͏Ωϟϯϖʔϯ ͝ཡͷΑ͏ʹ 1FSMͷ001͸ϢχʔΫ ৽نϢʔβʔʹͱͬͯ௚ײతͰͳ͍৔߹͕͋Δ ݱ୅తͳ001ػߏͷχʔζ͸े෼ཧղͰ͖Δ
.01΋͋Δ͠$PS΋͋Δ͠3BLVͰͷ࣮੷΋͋Δ ͱ͍͏ͱ͜Ζ͔Β1FSMʹDMBTTߏจ͕࣮૷͞ΕΔӡͼʹ ೥ʹ଴๬ͷϦϦʔε

1FSM001ͷࠓޙ

DMBTTߏจ ·ͩ&YQFSJNFOUBMػೳ ͍ͭTUBCMFʹͳΔͷ͔͸ؾʹͳΔ ใࠂ͞Εͨόά͸͔ͬ͠Γ௚͞Ε͍ͯΔ ແ͍΋ͷ͕ͦͦ͋͜͜Δ
NFUIPEBUUSJCVUFT SPMF BDDFTTPSHFOFSBUPS NFUBQSPHSBNNJOH

1FSM001ʹର͢Δॴײ CMFTTΛ࢖ͬͨͬͯྑ͍ $MBTT"DDFTTPS Λ࢖ͬͨͬͯྑ͍ .PVTF΍.PPΛ࢖ͬͨͬͯྑ͍
DMBTTΛ࢖ͬͨͬͯྑ͍ ͕ɺݸਓతʹ͸FYQFSJNFOUBM͕֎Ε͔ͯΒɺͦͯ͠3PMF͕࣮૷͞Ε͔ͯΒ ͱ͍͏;͏ʹࢥ͍ͬͯΔ ͦΕ͕ຬ଍͞ΕͨΒDMBTTߏจʹ౷Ұ͍ͨ͠ؾ͕͢Δ 5.5085%* ΍Γํ͸͍͘ΒͰ΋͋Δ

·ͱΊ

·ͱΊ 1FSM001ͷมભ CMFTT $MBTT"DDFTTPS଒ .PPTF଒
ϙετϞμϯ଒ DMBTTߏจ DMBTTߏจ͕೥ʹಋೖ͞Εͨ ࠓޙʹظ଴ 1FSMʹ΋৽͍͠ػೳ͸ͪΌΜͱೖ͍ͬͯΔͧʂʂʂ

Perl 5 OOP機構30年史 - Perl 5's OOP Mechanism over ...

Perl 5 OOP機構30年史 - Perl 5's OOP Mechanism over the past 30 years

moznion

More Decks by moznion

Other Decks in Programming

Featured

Transcript

1FSM001ػߏ೥࢙ !NP[OJPO :"1$)BLPEBUFඇެࣜ༧शձ

ࣗݾ঺հ

4NBSU#BOL *OD 4PGUXBSF&OHJOFFS 'BWPSJUF1FSMTCVJMUJOEP LJMM BOEEJF 5BJLJ,BXBLBNJ !NP[OJPO !NP[OJPO

1FSM001ػߏ೥࢙ !NP[OJPO :"1$)BLPEBUFඇެࣜ༧शձ

1FSM͸प೥ʂ

೥ 1FSM஀ੜ

CMFTT ʙॕ෱͋Εʙ

CMFTT package User; use strict; use warnings; use utf8;

CMFTT package User; use strict; use warnings; use utf8;

೥ͷ࣌Λܦͯ DMBTT

DMBTT use strict; use warnings; use feature 'class'; no

ΊͰͨ͠ΊͰͨ͠

DMBTTߏจಋೖ·Ͱʹ৭ʑ͋ͬͨ

৭ʑ $MBTT4USVDU $MBTT"DDFTTPS $MBTT"DDFTTPS'BTU $MBTT"DDFTTPS'BTUFS $MBTT"DDFTTPS-JUF $MBTT$MBTT $MBTT$POUSBDU $MBTT4JNQMF $MBTT&BTZ

೥୅ޙ൒

$MBTT4USVDU ಋೖ 1FSM QBDLBHFʹରͯ͠NFNCFSΛඥ෇͚Δ ه๏Λαϙʔτ

$MBTT"DDFTTPS ϦϦʔε QBDLBHFʹରͯ͠ΞΫηαΛ ಈతʹੜ੒͢Δ ͞·͟·ͳߴ଎ɾܰྔͳ೿ੜ͕͋Δ

೥୅ 1FSM 3BLV ϔϥδΧऻདྷ େ.01࣌୅

3BLVͷDMBTT ೥͝Ζ͔Β։ൃ։࢝ ϦϦʔε .01͕࣮૷͞Ε͍ͯΔ

.PPTF ϦϦʔε ຊ֨తͳΦϒδΣΫτγεςϜ͕஀ੜ 3BLV ౰࣌1FSM

.01 .FUB0CKFDU1SPUPDPM 1FSMͱ1FSMͷ001ίϯηϓτ Ϋϥε͸ΦϒδΣΫτ ΫϥεʹରԠ͢ΔϝλΦϒδΣΫτͰ͋ΔϝλΫϥε͕ଘࡏ͢Δ

.PPTF଒ .PPTFΦϦδφϧɻॏ͍ɾ஗͍ͳͲͱݴΘΕ͍ͯͨ ࠓ͸஌Βͳ͍ .PVTF.PPTFޓ׵ɻ94Ͱॻ͔Ε͍ͯΔͨΊͱͯ΋଎͍ɻ .PP.PPTFޓ׵

.PPTF଒ .PPTFΦϦδφϧɻॏ͍ɾ஗͍ͳͲͱݴΘΕ͍ͯͨ ࠓ͸஌Βͳ͍ .PVTF.PPTFޓ׵ɻ94Ͱॻ͔Ε͍ͯΔͨΊͱͯ΋଎͍ɻ .PP.PPTFޓ׵

༨ஊ .PKPMJDJPVT͸.01ϕʔεͷ001Λࣗલ࣮૷͍ͯ͠Δ .PKP#BTF ྲྀੴͷ43*ޚେͰ͋Δ ࠓ

೥୅͋ͨΓ͔Β 1FSMͷίΞʹDMBTTΛೖΕΑ͏Ϝʔϒϝϯτ

DMBTTΛೖΕΑ͏Ωϟϯϖʔϯ 3PMF5JOZ.PPTF͔Β3PMFػߏΛ੾Γग़࣮ͨ͠૷ .01ίΞϞδϡʔϧ͚ͩͰಈ͘ϛχϚϧ࣮૷

DMBTTΛೖΕΑ͏Ωϟϯϖʔϯ ͝ཡͷΑ͏ʹ 1FSMͷ001͸ϢχʔΫ ৽نϢʔβʔʹͱͬͯ௚ײతͰͳ͍৔߹͕͋Δ ݱ୅తͳ001ػߏͷχʔζ͸े෼ཧղͰ͖Δ

1FSM001ͷࠓޙ

DMBTTߏจ ·ͩ&YQFSJNFOUBMػೳ ͍ͭTUBCMFʹͳΔͷ͔͸ؾʹͳΔ ใࠂ͞Εͨόά͸͔ͬ͠Γ௚͞Ε͍ͯΔ ແ͍΋ͷ͕ͦͦ͋͜͜Δ

1FSM001ʹର͢Δॴײ CMFTTΛ࢖ͬͨͬͯྑ͍ $MBTT"DDFTTPS Λ࢖ͬͨͬͯྑ͍ .PVTF΍.PPΛ࢖ͬͨͬͯྑ͍

·ͱΊ

·ͱΊ 1FSM001ͷมભ CMFTT $MBTT"DDFTTPS଒ .PPTF଒

2