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;