From 24e54cb46a14f3aa321f67df4fa71feecb4656e1 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sat, 2 Jul 2022 11:49:32 +0100 Subject: [PATCH] wip export Signed-off-by: Ian Jackson --- Quacks.pm | 25 +++++++++++++++++++++++++ pumpkin-books.ps.pl | 11 ++--------- 2 files changed, 27 insertions(+), 9 deletions(-) create mode 100644 Quacks.pm 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']; -- 2.30.2