package main; use warnings; use strict; use lib '/'; use com_2xlp::Test::SuperClass (); #### package com_2xlp::Test::SuperClass; use warnings; use strict; use Module::List::Pluggable(); our %_REGISTERED_NETWORKS; Module::List::Pluggable::import_modules( "com_2xlp::Test" ); sub register_subclass { my ($package)= @_; print $package; print $package::var; } 1; #### package com_2xlp::Test::SuperClass::SubClass; use warnings; use strict; our $var= "var"; com_2xlp::Test::SuperClass::register_subclass(__PACKAGE__); 1;