view release on metacpan or  search on metacpan

lib/Aion.pm  view on Meta::CPAN

			%$ASPECT = (%$ASPECT, %{$meta->{aspect}});
		}
	}

    my $import_name = $with? 'import_with': 'import_extends';
    for my $module (@_) {
        my $import = $module->can($import_name);
        $import->($module, $pkg) if $import;

		if($with && exists $Aion::META{$module} && (my $requires = $Aion::META{$module}{requires})) {
			my @not_requires = grep { !$pkg->can($_) } @$requires;

			do { local $, = ", "; die "@not_requires requires!" } if @not_requires;
		}
    }

    return;
}

# Наследование классов
sub extends(@) {
	my $pkg = caller;