From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 10:49:32 +0000 (+0100)
Subject: wip export
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=24e54cb46a14f3aa321f67df4fa71feecb4656e1;p=quacks.git

wip export

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/Quacks.pm b/Quacks.pm
new file mode 100644
index 0000000..cc80f70
--- /dev/null
+++ b/Quacks.pm
@@ -0,0 +1,25 @@
+#!/usr/bin/perl -w
+# Books of Pumpkins, etc.  Extensions to Quacks of Quedlinburg
+#  SPDX-License-Identifier: GPL-3.0-or-later OR CC-BY-SA-4.0
+# Copyright 2020-2022 Ian Jackson
+
+use strict;
+
+package Quacks;
+use Exporter qw(import);
+
+our @EXPORT = qw(
+
+ $pumpkin $green $red $blue $yellow $moth $purple $lotus $white
+
+	       );
+
+our $pumpkin = ["255/185/15", "0 0 0"];
+our $green   = ["0/238/118", "1 1 1"];
+our $red     = ["1   0  0", "0 0 0"];
+our $blue    = ["0  .4 1 ", "1 1 1"];
+our $yellow  = ["1  1   0", "0 0 0"];
+our $moth    = [" 0  0  0", "1 1 1"];
+our $purple  = ["145/44/238", "0 0 0"];
+our $lotus   = [("0/245/255",) x 2];
+our $white   = ["1  1   1", "0 0 0"];
diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 78e59a0..89a78af 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -5,15 +5,8 @@
 
 use strict;
 
-my $pumpkin = ["255/185/15", "0 0 0"];
-my $green   = ["0/238/118", "1 1 1"];
-my $red     = ["1   0  0", "0 0 0"];
-my $blue    = ["0  .4 1 ", "1 1 1"];
-my $yellow  = ["1  1   0", "0 0 0"];
-my $moth    = [" 0  0  0", "1 1 1"];
-my $purple  = ["145/44/238", "0 0 0"];
-my $lotus   = [("0/245/255",) x 2];
-my $white   = ["1  1   1", "0 0 0"];
+BEGIN { unshift @INC, '.'; }
+use Quacks;
 
 my $anychip = ['0.8', '0'];