एक मूस वर्ग में भूमिका निभाने की भूमिका

Question

अलोहा काम नहीं कर रही है!

मेरी एक भूमिका है कि मैं एक मूस क्लास में परिभाषित व्यस्त हूं जिसे एथेबल कहा जाता है जिसे अनिवार्य रूप से किसी भी वर्ग में बनाया गया है जिसे संभावित रूप से भविष्य में कुछ प्रमाणीकरण की आवश्यकता हो सकती है; ,,

package Trello::API::Roles::Authable; 

use Moose::Role; 

#authentication information 
has key => (
    is => "rw", 
    isa => "Str", 
); 

has token => (
    is => "rw", 
    isa => "Str", 
); 

1; 

जो भी कारण जब मैं कई अलग अलग बयानों का उपयोग कर एक वर्ग में यह रचना के लिए प्रयास करते हैं, यानी "Trello :: एपीआई :: भूमिकाओं के साथ :: लेखन-योग्य: यह एक नहीं बल्कि साधारण भूमिका है, यहाँ संपूर्णता "; या "भूमिकाएं :: लेखक" के साथ;

मैं लगातार यह एक ही त्रुटि संदेश मिलता है: You can only consume roles, Roles::Authable is not a Moose role.

किसी भी विचार क्यों यह हो रहा जा सकता है?

संपादित करें!

बस एक ओर ध्यान दें, मैं मूस :: भूमिका के लिए वास्तविक स्रोत की जाँच की है, और इस बिट देखा:

unless ($meta && $meta->isa('Moose::Meta::Role')) { 
     require Moose; 
     Moose->throw_error("You can only consume roles, " 
       . $role->[0] 
       . " is not a Moose role"); 
    } 

यह जहां त्रुटि उत्पन्न कर रहा है हो रहा है, तो यह लगभग लगता है कि किसी कारण से , जिस भूमिका को मैं कार्यान्वित कर रहा हूं वह यह नहीं बता रहा है कि यह मेटाक्लास में एक भूमिका है। हालांकि मैं गलत हो सकता था! किसी भी सहायता की सराहना की जाएगी।

एक और सुविधाजनक संपादन!

बोनस: कोड संदर्भ जिसमें नियमित रूप से कॉल किया जाता है।

package Trello::API::Resource; 

use Moose; 
use URI::Escape; 
use LWP::UserAgent; 


with 'Roles::Authable'; 

जो जब मैं यह कर, यह समझदारी से कोशिश करते हैं और भूमिकाओं का उपभोग करने के जानता है/Authable.pm लेकिन जो भी कारण के लिए, यह सिर्फ कार्य करने के लिए विफल रहता है!

Answer 1

सबसे पहले, मुझे पियर्स के साथ सहमत होना है कि तकनीकी रूप से, आपको वास्तव में इसे with 'Trello::API::Roles::Authable' के रूप में कॉल करना चाहिए।

तो, आप कुछ ऐसा मांग रहे हैं जो मुझे मूल मूस में लागू नहीं किया जा रहा है। मैंने पहले जेनेरिक नेमस्पेस पूल के विचारों का उपयोग किया है। वे सार्वभौमिक नामस्थानों के प्रकार हैं जिनके लिए आप अपने अर्ध-अज्ञात सेवाओं की पेशकश कर सकते हैं - एक निश्चित नामस्थान के लॉक-इन के बिना। मैंने मूस के साथ नामस्थान पूल के अपने मूल विचार को परिष्कृत किया (वास्तव में MOP) समर्थन।

पर्ल की वाइल्ड वेस्ट दिनों में, तुम सब करने के लिए होता है, दूसरे के लिए प्रतीक करने के लिए एक गुप्त कोष आवंटित तो की तरह है:

{ no strict 'refs'; 
    *{$short_pkg_name.'::'} = \*{$full_pkg_name.'::'}; 
}; 

और, उन दो संकुल बिल्कुल वैसा ही बातें कर रहे थे!

लेकिन अब, हम अपने डेटा को लेक्सिकल के साथ थोड़ा और अधिक सुरक्षित रखते हैं।

Class::MOP::store_metaclass_by_name( 
     $short_pkg_name 
    , Class::MOP::get_metaclass_by_name($full_pkg_name) 
    ); 

अब वे पर्ल के लिए और मंत्रालय में सटीक एक ही बात कर रहे हैं: और क्योंकि क्लास :: एमओपी चौकसी के साथ एक शाब्दिक हैश में अपनी मेटा वस्तुओं की रक्षा करता है, तो आप कुछ और जोड़ने के लिए।

इस प्रकार आप ऐसे पैकेज बना सकते हैं जो अन्य पैकेजों के लिए केवल नामस्थान भंडार हैं - अब MOP समर्थन के साथ!

package Namespace::Pool; 
use strict; 
use warnings; 
use Params::Util qw<_POSINT>; 

sub import { 
    shift; # It's just me. 
    my $full_pkg_name = caller(); 
    Carp::croak("'$full_pkg_name' is short enough!") 
     unless my $pool_name 
      = shift // [ split /::/, $full_pkg_name ]->[-2] 
      ; 
    Carp::croak("'::$pool_name\::' not found in '$full_pkg_name'") 
     unless ( _POSINT(my $pos = rindex($full_pkg_name, "::$pool_name\::")) 
       or my $is_short = _POSINT(index($pool_name, '::')) 
       ); 
    my $short_pkg_name 
     = $is_short ? $poll_name 
     :    substr($full_pkg_name, $pos + 2) 
     ; 
    { no strict 'refs'; 
     if (%{$short_pkg_name.'::'}) { 
      Carp::croak("You have already defined $short_pkg_name!"); 
     } 
     *{$short_pkg_name.'::'} = \*{$full_pkg_name.'::'}; 
    }; 

    if (my $meta = Class::MOP::get_metaclass_by_name($full_pkg_name)) { 
     Class::MOP::store_metaclass_by_name($short_pkg_name, $meta); 
    } 
    return; 
} 

इस प्रकार अपनी भूमिका पैकेज में आप निम्न कर सकते हैं:

package Trello::API::Roles::Authable; 
use strict; 
use warnings; 
use Moose::Role; 
use Namespace::Pool 'Roles'; 
... 

और पता है कि यह 'भूमिका' की नाम स्थान से उपलब्ध हो जाएगा।

Answer 2

मेरे मामले में मैं बस गलती से अपनी भूमिका 'टेस्ट' नामित करता था, लेकिन 'टेस्ट' नामक मेरे सिस्टम पर पहले से ही एक स्थापित मॉड्यूल था और इसलिए मूस ने सोचा कि मैं उस नए मॉडस की भूमिका के बजाय उस मॉड्यूल का उपभोग करना चाहता हूं। डी बनाया गया। एक बार जब मैंने 'टेस्टेबल' में भूमिका से नाम बदल दिया तो यह सब ठीक काम किया।