role for finding loaded modules in global scope that 'does' some role or class, useful for modules that want to support hot swapping modules with minimal end user code
Perl6
Latest commit 71ef1b0 Oct 28, 2016 @tony-o committed on GitHub Merge pull request #1 from zoffixznet/patch-1
Add mandatory "perl" META field
Permalink
Failed to load latest commit information.
lib/Module init Oct 30, 2015
t init Oct 30, 2015
.travis.yml init Oct 30, 2015
META.info Add mandatory "perl" META field Oct 26, 2016
README.md README Oct 30, 2015

README.md

#Module::Does

Build Status

This module is built for module authors that want to allow the module's audience to 'hot swap' modules with minimal code on their end. This module gathers specified types from the GLOBAL scope upon object creation and then makes them available to the module.

#Usage

use Module::Does;

class A does Module::Does[HTTP::Server] {
  method listen {
    $.server = %!base-types<HTTP::Server>.new(:$.localhost, :$.localport, :listen);
  }
}

##IDGI.

When A is instantiated, the private variable %!base-types is populated with anything in the global scope that does HTTP::Server.

##Yea, but I want extra sauce, bro.

I got you.

use Module::Does;

class A does Module::Does[@(HTTP::Server => HTTP::Server::Async, CSV::Parser)] {
# ...
}

If a Pair is passed in, then the .key is sought in the global scope and only if nothing is found, then .value is used.

Notice in the second value that an array is given, this module lets you pass in multiple types to look for and can consist of class|Str|Pair.