Quacks.pm

   1 #!/usr/bin/perl -w
   2 # Books of Pumpkins, etc.  Extensions to Quacks of Quedlinburg
   3 #  SPDX-License-Identifier: GPL-3.0-or-later OR CC-BY-SA-4.0
   4 # Copyright 2020-2022 Ian Jackson
   5
   6 use strict;
   7
   8 package Quacks;
   9 use Exporter qw(import);
  10
  11 our @EXPORT = qw(
  12
  13  $pumpkin $green $red $blue $yellow $moth $purple $lotus $white
  14
  15                );
  16
  17 our $pumpkin = ["255/185/15", "0 0 0"];
  18 our $green   = ["0/238/118", "1 1 1"];
  19 our $red     = ["1   0  0", "0 0 0"];
  20 our $blue    = ["0  .4 1 ", "1 1 1"];
  21 our $yellow  = ["1  1   0", "0 0 0"];
  22 our $moth    = [" 0  0  0", "1 1 1"];
  23 our $purple  = ["145/44/238", "0 0 0"];
  24 our $lotus   = [("0/245/255",) x 2];
  25 our $white   = ["1  1   1", "0 0 0"];