मूस: ओआरएल में पर्ल

मूस पर्ल 5 का एक विस्तार है जो ओओपी को लागू करना आसान बनाता है।

एक क्लास बनाना बहुत आसान है:

package MyClass; use Moose; 

सब कुछ, एक खाली वर्ग बनाया जाता है। इसमें विशेषताओं, विधियों, सुपरक्लेसेस, विधि संशोधक, निर्माणकर्ता (1pc), डिस्ट्रक्टर (1pc) और मेटा-क्लास (1pc) की एक मनमानी संख्या हो सकती है जिसमें इस वर्ग के बारे में सभी मेटा-जानकारी शामिल हैं।

अब इन घटकों के बारे में अधिक जानकारी:

वर्ग

प्रत्येक वर्ग मूस :: वस्तु का उपवर्ग है। डिफ़ॉल्ट रूप से, यह सभी प्रकार की उपयोगी वस्तुओं का एक गुच्छा बनाता है, मेटाक्लाज़ और सुपरक्लास में निहित अन्य वस्तुओं के रूप में, जो निर्माण के बाद पहुँचा जा सकता है।

उपवर्ग

इनहेरिटेंस फैली हुई कीवर्ड का उपयोग करके होता है

 package User; use Moose; extends 'Person'; has 'username' => ( is => 'rw' ); 

एकाधिक वंशानुक्रम, अल्पविराम द्वारा अलग किए गए वर्गों को निर्दिष्ट करें: 'फू', 'बार' का विस्तार करता है;

गुण

विशेषता में एक नाम होना चाहिए, इसमें विभिन्न प्रकार के गुण हो सकते हैं: झंडा, प्रकार, एक्सेसर विधि, प्रतिनिधिमंडल, डिफ़ॉल्ट पाठ, आदि पढ़ें / लिखें।
डिफ़ॉल्ट रूप से, Moose क्लास उदाहरण में हैश के रूप में संग्रहीत करता है। एक्सेसर्स के माध्यम से उन तक पहुंच प्राप्त की जा सकती है।
है - विशेषता घोषित करें

 has 'first_name' => ( is => 'rw' ); 

इस विकल्प में मान हो सकते हैं [ro | rw | bare | read-only या read-write या bare - इस विशेषता के एक्सेसर्स के बिना।

गेटर्स और सेटर्स को इस तरह सेट किया जा सकता है:

 has 'weight' => ( is => 'rw', reader => 'get_weight', writer => 'set_weight', ); 

विधेय - यदि विशेषता "अपरिभाषित" या कोई अन्य गलत मान है, तो यह सही लौटेगा।
क्लीयर - एक विशेषता को रीसेट करता है

क्लीयर - एक विशेषता को रीसेट करता है

 has 'ssn' => ( is => 'rw', clearer => 'clear_ssn', predicate => 'has_ssn', ); 

 $person->has_ssn; # false $person->ssn(undef); $person->ssn; # returns undef $person->has_ssn; # true $person->clear_ssn; $person->ssn; # returns undef $person->has_ssn; # false $person->ssn('123-45-6789'); $person->ssn; # returns '123-45-6789' $person->has_ssn; # true 

विशेषता स्थापित करने की आवश्यकता

संपत्ति का उपयोग करके सेट किया जा सकता है: आवश्यक => 1
डिफ़ॉल्ट रूप से, सभी विशेषताएँ वैकल्पिक हैं।

विशेषताएँ डिफ़ॉल्ट रूप से दो तरीकों से निर्धारित की जा सकती हैं।

 has 'size' => ( is => 'ro', default => 'medium', predicate => 'has_size', ); 

और यदि निर्माता में सेट नहीं है, तो:

 my $person = Person->new(); $person->size; # medium $person->has_size; # true 

और आप विधि का लिंक सेट कर सकते हैं:

 has 'size' => ( is => 'ro', default => sub { ( 'small', 'medium', 'large' )[ int( rand 3 ) ] }, predicate => 'has_size', ); 

वैकल्पिक विधि:

 has 'size' => ( is => 'ro', builder => '_build_size', predicate => 'has_size', ); sub _build_size { return ( 'small', 'medium', 'large' )[ int( rand 3 ) ]; } 

बिल्डर डिफ़ॉल्ट के बजाय का उपयोग करने की सलाह देता है।

हम अंतिम बारी में विशेषता की स्थापना को स्थगित करते हैं

यह संपत्ति सेट करके प्राप्त किया जा सकता है: आलसी => 1
विशेष रूप से आवश्यक है जब विशेषता का प्रारंभिक मूल्य अन्य कारकों पर निर्भर करता है।
इस संपत्ति का उपयोग करने में एक और प्लस यह है कि विशेषता की गणना केवल तभी की जाएगी यदि यह आवश्यक है, और यदि इसकी आवश्यकता नहीं है, तो हम सीपीयू समय बचाएंगे।

गुण टाइप करें

किसी भी मोती संरचना के समान प्रकार हो सकता है: isa => 'Str'
या वे एक वस्तु हो सकते हैं: => 'MyApp :: Object'

कई विशेषताओं की स्थापना

 has [ 'x', 'y' ] => ( is => 'ro', isa => 'Int' ); 

या तो:

 for my $name ( qw( xy ) ) { my $builder = '_build_' . $name; has $name => ( is => 'ro', isa => 'Int', builder => $builder ); } 

तरीकों

किसी वर्ग में घोषित कोई भी कार्य एक वर्ग विधि है।

विधि संशोधक

एक विधि कॉल से पहले (या "पहले, बाद, चारों ओर, वृद्धि") कहा जाता है:

 before 'atribute' => sub { my $self = shift; my $a = shift; print $a; }; 

भूमिका

वह व्यवहार या स्थिति जिसे इस वर्ग को लागू करना चाहिए। अन्य OO भाषाओं में इंटरफ़ेस का एक एनालॉग।
Moose :: भूमिका का उपयोग करके बनाया गया;

 package Eq; use Moose::Role; requires 'equal_to'; sub not_equal_to { my ( $self, $other ) = @_; not $self->equal_to($other); } 

हालाँकि यह भूमिका एक वर्ग की तरह लगती है, लेकिन यह एक वर्ग नहीं है, आप किसी भूमिका को तुरंत नहीं कर सकते। शब्द को हमें यह बताने की आवश्यकता है कि इस भूमिका का उपयोग करने वाले किसी भी वर्ग को 'बराबर_तो' पद्धति को लागू करना चाहिए।

 package Comparable; use Moose; with 'Eq'; sub equal_to { my ( $self, $other ) = @_; $self->compare($other) == 0; } sub compare { my ( $self, $other ) = @_; $self->amount <=> $other->amount; } 

कंस्ट्रक्टर / डिस्ट्रक्टर

उन्हें कभी भी स्पष्ट रूप से पुनर्परिभाषित करने की आवश्यकता नहीं होती है, लेकिन यदि ऐसी आवश्यकता उत्पन्न होती है, तो आप क्रमशः निर्माता और विध्वंसक के लिए BUILD () और DEMOLISH () का उपयोग कर सकते हैं।

Metaclass

मेटाक्लास वर्ग का वर्णन करता है। Moose के साथ, प्रत्येक वर्ग एक "मेटा ()" देता है, जो Moose :: Meta :: Class ऑब्जेक्ट देता है। वह इस बारे में बात करता है कि यह वर्ग क्या है।

 my $meta = User->meta(); for my $attribute ( $meta->get_all_attributes ) { print $attribute->name(), "\n"; if ( $attribute->has_type_constraint ) { print " type: ", $attribute->type_constraint->name, "\n"; } } for my $method ( $meta->get_all_methods ) { print $method->name, "\n"; } 

कचरा साफ करना

यदि कक्षा की शुरुआत में सेट होता है: नाम स्थान का उपयोग करें :: आटोक्लेन;
या कक्षा के अंत में: कोई मूस नहीं;

वर्ग त्वरण

यदि कार्य के दौरान कक्षा नहीं बदलती है, तो इसके कार्य को निम्नानुसार त्वरित किया जा सकता है:

 __PACKAGE__->meta->make_immutable; 

यह सब, यह ज्ञान पर्ल में ओओपी संरचनाओं को सफलतापूर्वक बनाने के लिए पर्याप्त होना चाहिए, लेकिन एक गहरी समझ के लिए, बेशक यह प्रलेखन में बेहतर है और ... हाँ हाँ मॉड्यूल के स्रोत कोड में (ठीक है, यह विशेष मामलों के लिए है, हालांकि इसमें है: मामला, जिज्ञासा किसी को चोट नहीं पहुंचाएगी)।