perl - Why is my Moo object that inherits from a non-Moo class blessed into the parent's package for some modules? -


i'm trying create gtk3 application in perl using gobject introspection , moo. there's non-moo class gtk, gtk::applicationwindow, subclass through moo using extends 'gtk::applicationwindow'. issue when object of subclass created, remains of type of parent class - i.e. gtk::applicationwindow.

i tried same thing subclassing own non-moo based class instead, , object created subclass of correct type. reason difference?

use v5.10; use strict; use warnings;  # import gtk classes (non-moo) use glib::object::introspection; glib::object::introspection->setup(basename => 'gtk', version => '3.0', package => 'gtk'); glib::object::introspection->setup(basename => 'gio', version => '2.0', package => 'gio');  ################################################# {     # dummy non-moo class     package classnonmoo;     sub new { bless {}, shift; } }  {     # moo class extending dummy class     package classmoo;     use moo;      extends 'classnonmoo';      sub foreignbuildargs {         ($class, %args) = @_;         return ($args{app});     } } #################################################  {     # moo class extending gtk::applicationwindow     package classmoogtkappwin;     use moo;      extends 'gtk::applicationwindow';      sub foreignbuildargs {         ($class, %args) = @_;         return ($args{app});     } }  #################################################  # create objects of classmoo , classmoogtkappwin sub create_objects {     ($app) = @_;      $o1 = classmoo->new( app => $app );     $o2 = classmoogtkappwin->new( app => $app );      "o1 = $o1\no2 = $o2";     # output:     # o1 = classmoo=hash(0x2f7bc50)     # o2 = gtk::applicationwindow=hash(0x2f7bd40)     #     # shouldn't o2 of type classmoogtkappwin ?      exit(0); }  # can create gtkapplicationwindow after creating gtkapplication , # running it. code ensures create_object() called once # application 'active'. $app = gtk::application->new('org.test', 'flags-none'); $app->signal_connect(activate => sub { create_objects($app) }); $app->run();

"new" constructors need written in way observe caller's actual class (which works subclassing), can hard-code class create objects with.

compare:

package myclass;  # considerate of subclassing sub new {     $class = shift;     return bless {}, $class; }  # doesn't give shit sub new {     $class = shift;     return bless {}; }

glib looks it's xs module wrapper around c library, , might hard code class.

you try re-bless (call bless again on object constructed) object actual subclass. not sure how work moo, in build method.

you skip inheritance , use delegation instead. create attribute hold original window object, , delegate all methods it, except own in subclass.

in moose (not moo), can regex: https://metacpan.org/pod/moose#handles-array-hash-regexp-role-roletype-ducktype-code

not sure how nicely moo.


Comments

Post a Comment

Popular posts from this blog

html - Outlook 2010 Anchor (url/address/link) -

i'm trying link specific pdf page msoutlook'10 or msword'10, #page=... anchor particularly useful , works fine elsewhere. unfortunately when click [ctr-k] in outlook or winword, links re-formatted assuming unc path. pdf file located on shared drive. using "file:" prefix links open pdf in adobe reader (outside of browser), , "http:" open inside browser. issue seem need open in browser "file:" prefix in order anchor work. know anchors work inside browser. outlook uses windows/explorer default program (based on file extension) seems open in adobe reader neglecting anchor. is aware of solution, link specific page or bookmark of shared-pdf ms outlook and/or winword link? common references: mailermailer.com/...anchor-tags-html-emails campaignmonitor.com/...anchor-links-in-email-newsletters/ stackoverflow.com/...anchor-in-pdf-document
Read more

javascript - Why does running this loop 9 times take 100x longer than running it 8 times? -

consider code: test = function() { } t = new test(); (var = 0; < 8; i++) { result = t instanceof test; } if change number of iterations 8 9 , loop take 100 times longer complete in latest version of firefox (41.0.1). tested on 2 different pcs , magic limit 8. here jsperf test used: http://jsperf.com/instanceof-8-times-vs-9-times does have idea why might happen? seems specific instanceof . not happen if else object, example check property. note: filed bugzilla bug this. jan de mooij mozilla team has posted details in bugzilla thread . here's simplistic interpretation of highly technical answers: in i < 8 case, firefox smart enough hoist result = t instanceof test; statement out of loop (according tests, doesn't seem omit altogether). in i < 9 case, apparently doesn't optimization . why? reason not clear, related fact 9 iterations threshold above function considered "hot" enough run through jit compiler. i < 8 cas...
Read more

Getting gateway time-out Rails app with Nginx + Puma running on Digital Ocean -

following this guide setup app on digital ocean droplet, not working. site not loading , it's throwing: "gateway time-out". the puma server works, since ps aux | grep puma prints: root 15878 0.0 0.4 376832 2168 ? sl 12:50 0:00 puma 2.13.4 (unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock) [20150930164940] root 15881 0.0 0.7 903676 3692 ? sl 12:50 0:06 puma: cluster worker 0: 15878 [20150930164940] root 24654 0.0 0.1 11748 916 pts/2 s+ 18:00 0:00 grep --color=auto puma my nginx config: user root; worker_processes 1; events { worker_connections 1024; } http { upstream puma { server unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock; } server { listen 80; server_name myapp.com; root /var/www/myapp/current/public; access_log /var/www/myapp/current/log/access.log; error_log /...
Read more