export.pod.p6

use v6;

# Let's prefix &say with the line number it's called from

module BaseLib {
	
	role BaseRole[::T] is export {
		has T $.attr is rw;
	}
	
	class BaseClass does BaseRole[Str] is export {

	}
}

module UsingLib {
	import BaseLib;	

	class UsingClass is BaseClass is export(:MANDATORY) {
	
	}
	
	sub consumer(BaseClass $c) is export(:consumer) {
		say "$?LINE: consuming: ", $c.^name;
	}
}

{ # scope for UsingLib
	import BaseLib;
	import UsingLib :consumer;

	consumer(UsingClass.new);
}

module ParametrisedLib {
	import BaseLib;

	sub EXPORT(::T = BaseClass, %h?) {
		say "%?LINE: EXPORT: ", T.^name;

		{ # anon Hash to be returned by &EXPORT
			'&consumer' => sub (T $c) is export(:consumer) {
				say "$?LINE: consuming: ", $c.^name;
				T.new;
			} if %h<consumer>:exists,
		}
	}
}

{ # scope for ParametrisedLib
	import BaseLib;

	class NewBaseClass is BaseClass does BaseRole[Int] {
	
	}

	import ParametrisedLib NewBaseClass, {:consumer};

	consumer(NewBaseClass.new);
}