gistfile1.pl

#!perl6
use v6;

role Logger {
  method log ($msg) {
    say self, ' logger says: ', $msg;
  }
}

class Logger2 {
  method log ($msg) {
    say self, ' logger2 says: ', $msg;
  }
}

class Foo is Logger2 does Logger {
  method log ($self: $msg) {
    say 'overridden'; 
    # a hack to directly call Logger::log($msg);
    my $clone = self.clone;
    $clone does Logger;
    $clone.log($msg);
    say 'done';
  }
  
  method log2 ($msg) {
    say 'overridden'; 
    # explicitly calling log from the class.
    Logger2::log self, $msg;
  }
}

my Foo $foo .= new;
$foo.log2("testing");
$foo.log("testing");