0racle

class LedgerFromFile {...};
class LedgerFromPkg {...};

class Ledger {
    proto method new {*}
    multi method new(:$file!) { LedgerFromFile.new(:$file) }
    multi method new(:$pkg!) { LedgerFromPkg.new(:$pkg) }
}

class LedgerFromFile {

0racle

use Exportable;

sub bla is exportable { "bla" }
sub ble is exportable { "ble" }
sub bli is exportable { "bli" }
sub blo is exportable { "blo" }
sub blu is exportable { "blu" }

0racle

use v6.d;

class A {
    has $!a = 'private';
    method !a { $!a }
}

multi sub trait_mod:<is>(Mu:U \obj, :$spying!) {
    A.^add_trustee(obj);
    A.^compose;