1 2 3 4 5
unit module Leap; sub is-leap-year ($year) is export { $year %% 4 && ($year !%% 100 || $year %% 400); }