exercise: Leap
version: 4
plan: 4
tests: |-
  for $c-data<cases>.values {
    given is-leap-year .<input><year> -> $result {
      subtest .<description>, {
        plan 2;
        isa-ok $result, Bool;
        is-deeply $result, .<expected>, 'Result matches expected';
      }
    }
  }

unit: module
example: |-
  sub is-leap-year ($year) is export {
    is-divisible($year, 400)
      || is-divisible($year, 4)
      && !is-divisible($year, 100);
  }

  sub is-divisible($year, $number) {
    $year % $number == 0 ?? True !! False;
  }
stub: |-
  sub is-leap-year ($year) is export {
  }