jkramer

class Log::Dispatch {
        enum Level <DEBUG INFO NOTICE WARNING ERROR CRITICAL ALERT EMERGENCY>;

        class Output {
                has Level $.level = DEBUG;
                
                method format(Level $level, DateTime $ts, @args) {
                        $ts ~ ' [' ~ $level.lc ~ '] ' ~ @args>>.gist.join(' ')
                }
                

jkramer

#!/usr/bin/env perl6

$*IN.slurp.&talk;

sub talk(Str $_) {
  my @ös = |('Ö','ö') xx *;

  for .lines {
    for .comb.produce(&[~]) {
      print "\r", @ös.shift, ' ', $_;