wip export

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

diff --git a/Quacks.pm b/Quacks.pm
new file mode 100644 (file)
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 78e59a01359a10f2d33b9d39abc58699da36083c..89a78af26f4969b56f94215c0782abf00e6f0ad1 100755 (executable)
--- 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'];