Contents

#`[
  Declare class 'Bob' with version and unit-scope the class
  i.e. everything in this file is part of 'Bob'.
]
unit class Bob:ver<3>;

method hey ( Str:D $_ --> Str:D ) {
  my \shouting = /<:L>/ ^ /<:Ll>/;
  given .trim {
    when .ends-with: ‘?’  {
      when shouting { ‘Calm down, I know what I'm doing!’ }
      default       { ‘Sure.’ }
    }
    when shouting { ‘Whoa, chill out!’ }
    when .not     { ‘Fine. Be that way!’ }
    default       { ‘Whatever.’ };
  }
}

Version data entries

83 entries across 83 versions & 1 rubygems

Version	Path
trackler-2.2.1.98	tracks/perl6/exercises/bob/Example.pm6
trackler-2.2.1.97	tracks/perl6/exercises/bob/Example.pm6
trackler-2.2.1.96	tracks/perl6/exercises/bob/Example.pm6