Perl inheritance same instance -


I am trying to create a small application with base module 'apps' and see "shared" in all modules "And as" Request "all the data and methods in the" Share "module will be available for all other modules, which are the extension code (example, see, request, app) below the example example code examples.

App.cgi 

  #! Use / usr / bin / perl mousse; Use the app; My $ app = Apps-> new; message (); # Export, works fine $ app- & gt; msg (); # Works fine as my $ view = $ app- & gt; View; $ View-> msg; # Scene class method, works fine print $ app- & gt; Charset "\ N"; # From Shared.pm, utf8 prints, default $ app- & gt; Charset ("windows-1256"); $ XP in shared PM print in windows-1256 from #Utf8- & gt; Charset "\ N"; #It's okay now, the window prints - 1256 print $ view- & gt; Charset "\ N"; # It's not okay, the same default utf8 exit;   
 Apps.pm  
  package application; Use mousse; Expansion of QW (shared); Sub init {print "true:". True () "\ n". } 1;   
 see pm  
  view package; Use mousse; Quad (shared); Sub Message {Print "Hello msg from" "\ n";} 1;   
 Request a PM  
  Package request; Use mousse; QW Share); Sub Message {Print} Request msg msg <\ n "; } 1;   
 When I run app.cgi, I get this output:  
  is shared from Hello msg, shared with msg Msg u utf8 windows-1256 utf8   
 What am I expecting:  
  is shared by msg msg greetings msg, shared with msg msg utf8 windows-1256 windows-1256   
 The change in the shared module is not reflected or shared with the view and other modules shared in all extended classes How to create an example of an object.  
 My goal is to expand all the packages on a shared package and that package should share the same example data between all extensions.  
  
 
 
  shared  should not be a base class, Receive from  Shared  The class must be completely different from the perspective of heritage.  
 Instead, each class should have a characteristic (it can be a private person, which can be called some ambiguous from the beginning of something undecided), to that point as  share  When an object creates another object (in your example, $ Aap object creates a $ View object) for a shared object from a class, this is an example of an object for an  share  class Can specify.  
 Something like this:    Usage v5.14; Shared package {use mousse; Is foo = & gt; (Is => 'RW', default => 99); The bar is = & gt; (Is = & gt; 'RW', default => 42); } Package app {Use mood; Is _common = & gt; (Has => & gt; 'ro', default = & gt; sub {share- & gt; new}, handle = & gt; [qw / foo bar /],); Sub view {my $ self = shift; See- & gt; New (@_, _common = & gt; $ self- & gt; normal); }} See package {use mousse; Is _common = & gt; (= Is = & gt; 'ro', required => 1, handles => [qw / foo bar /],); } My $ app = app- & gt; new; My $ view = $ app- & gt; View; '$ App- & gt; foo: ', $ app- & gt; Foo; '$ View- & gt; foo: ', $ view- & gt; Foo; # $ App- & gt; Change the value of foo # it will be shared with $ view $ App- & gt; Foo (66); '$ App- & gt; Foo: ', $ app- & gt; Foo; '$ View- & gt; Foo: ', $ view- & gt; Foo;

Comments

Post a Comment

Popular posts from this blog

Java - Error: no suitable method found for add(int, java.lang.String) -

I'm in the middle of homework work and I'm stuck. At this point in my code, I think that I should have a GUI window that opens and allows me to type "inserted text number". Notice is not going anywhere but at this point, If I pass through the problem then it will be in a linked list. I am getting two of the same error for the lines. Add (index, element); And I can not seem to get past it, there is no suitable method for the error "add (int, java. string string)". Code is below, please advise. To clarify - this will not be a method error because it is a linked list. There should not be any way involved. import java.awt. *; Import java.awt.event. *; Import javax.swing. *; Import java.util. *; Import java.util.Scanner; Import java.util.LinkedList; Public class TopTenList JFrame {Private TopTenList tt; See the Private JTextArea list; Private JTextField cmdTextField; Private JTextField resultsTestfield; // This GUI window is the code for the public toptist...
Read more

java - JPA TypedQuery: Parameter value element did not match expected type -

I am using JPA 2.0 and getting the following code in the DAO layer: Public Zero Test () {string key = "status"; String [] Conditions = {"A", "B"}; & Lt; TestTable & gt; Results = Search (Keys, Conditions); } Public listing & lt; TestTable & gt; Search (string key, object value error) {string sql = "test ndf to testlet and jade nand." + Key + "in:" + key; TypedQuery & LT; TestTable & gt; Query = entityManager.createQuery (SQL, TestTable.class); Query.setParameter (key, Arrays.asList (valueArr)) / *** Error Line *** Return query.getResultList (); } In the above error line, it throws the following exception: java.lang.IllegalArgumentException: parameter value element [[Ljava.lang.String; @ cbe5bc] did not match the expected type [java.lang.String] Why is this expected type string while actually this string []? Please help! Note: This is derived from the normal routine and is a simplified code. I can no...
Read more

c++ - static template member variable has internal linkage but is not defined -

Yes, I know, there is a question with almost the same title, but it refers to a different situation. Error message) In my case, I have a .cpp file with a big named designation name (implementation details). There is a property class template with a static data member in that name space, which I need to access from outside the unknown namespace. I give it a little bit of meat: file.hpp namespace Bar {template & lt; Typename A & gt; Struct foo {static_assert (is_same & lt; a, float & gt; :: value} is_same & lt; a, double>: value, ""); Fixed zero set_static_var (a const & x); // ...}; } and file.cpp namespace {template & lt; Typename A & gt; Struct foo_traits {// supports the implementation of several static code bars: foo & lt; & Gt; Fixed A data; }; The template's & lt; & Gt; Float foo_traits & lt; Float & gt; :: datum; // No change if this is in the global namespace template & lt; & Gt; Doub...
Read more