Altreus

174,124,123,34,116,34,58,34,71,85,73,76,68,95,67,82,69,65,84,69,34,44,34,115,34,58,50,44,34,111,112,34,58,48,44,34,100,34,58,123,34,106,111,105,110,101,100,95,97,116,34,58,34,50,48,49,57,45,48,56,45,51,48,84,48,57,58,50,52,58,52,48,46,51,51,51,48,48,48,43,48,48,58,48,48,34,44,34,100,101,115,99,114,105,112,116,105,111,110,34,58,110,117,108,108,44,34,112,114,101,109,105,117,109,95,116,105,101,114,34,58,48,44,34,97,102,107,95,99,104,97,110,110,101,108,95,105,100,34,58,110,117,108,108,44,34,101,109,111,106,105,115,34,58,91,123,34,114,111,108,101,115,34,58,91,93,44,34,114,101,113,117,105,114,101,95,99,111,108,111,110,115,34,58,116,114,117,101,44,34,110,97,109,101,34,58,34,109,115,97,65,121,97,121,97,34,44,34,109,97,110,97,103,101,100,34,58,102,97,108,115,101,44,34,105,100,34,58,34,54,49,54,55,50,48,48,55,53,57,49,52,55,51,57,55,49,51,34,44,34,97,118,97,105,108,97,98,108,101,34,58,116,114,117,101,44,34,97,110,105,109,97,116,101,100,34,58,102,97,108,115,101,125,44,123,34,114,111,108,101,115,34,58,91,93,44,34,114,101

Altreus

--> Working on Dist::Zilla::Plugin::ModuleBuildTiny
Fetching http://www.cpan.org/authors/id/L/LE/LEONT/Dist-Zilla-Plugin-ModuleBuildTiny-0.015.tar.gz
-> OK
Unpacking Dist-Zilla-Plugin-ModuleBuildTiny-0.015.tar.gz
Entering Dist-Zilla-Plugin-ModuleBuildTiny-0.015
Checking configure dependencies from META.json
Checking if you have Module::Build::Tiny 0.034 ... Yes (0.039)
Configuring Dist-Zilla-Plugin-ModuleBuildTiny-0.015
Running Build.PL
Creating new 'Build' script for 'Dist-Zilla-Plugin-ModuleBuildTiny' version '0.015'

Altreus

To exit type 'exit' or '^D'
> role X { multi method moo (X:U:) { self.new.moo }; multi method moo (X:D:) { ... } }
(X)
> class A does X {}
===SORRY!=== Error while compiling:
Multi method 'moo' with signature :(X:D: *%_) must be implemented by A because it is required by a role
> role Y { multi method bar (::?CLASS:U:) { self.new.bar }; multi method bar (::?CLASS:D:) { ... } }
(Y)
> class B does Y {}
===SORRY!=== Error while compiling:

Altreus

multi to-base-alphabet ( Real $num, @alphabet, :$precision = -15 ) is export {
    temp @__base-any-digits = @alphabet;
    temp $threshold = +@alphabet;

    say $threshold;
    return convert-arbitrary-base( $num, $threshold, :$precision ); # 137
}

Altreus

*   ff92b519
|\  
| *   b9c2e03b
| |\  
| | * 375de9f6
| |/  
| * ca82daa9
| * f7592220
| * 5f16ae36
| * ab666054

Altreus

$ perl
package An::Object;
use Moose;
has prop => ( is => 'ro' );

package An;
sub Object { 'FakePackage' }

package main;
print An::Object->new( prop => 'prop' )->prop;