aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Colorize
diff options
context:
space:
mode:
authorGravatar Steven Schubiger <stsc@refcnt.org> 2016-07-19 13:54:47 +0200
committerGravatar Steven Schubiger <stsc@refcnt.org> 2016-07-19 13:54:47 +0200
commit3585dd50b9428db6691512575181da97b10e967b (patch)
tree740bd1033725732459713a50d404338cf0c2783a /lib/Colorize
parent3fea379ff56e28600ec70fbabfa0392cf8dfac08 (diff)
downloadcolorize-3585dd50b9428db6691512575181da97b10e967b.tar.gz
colorize-3585dd50b9428db6691512575181da97b10e967b.tar.bz2
Move common data to a perl module
Diffstat (limited to 'lib/Colorize')
-rw-r--r--lib/Colorize/Common.pm45
1 files changed, 45 insertions, 0 deletions
diff --git a/lib/Colorize/Common.pm b/lib/Colorize/Common.pm
new file mode 100644
index 0000000..e61450b
--- /dev/null
+++ b/lib/Colorize/Common.pm
@@ -0,0 +1,45 @@
+package Colorize::Common;
+
+use strict;
+use warnings;
+use base qw(Exporter);
+use constant true => 1;
+
+use File::Temp qw(tempfile);
+
+our (@EXPORT_OK, %EXPORT_TAGS);
+my @defaults;
+
+@defaults = qw($source $compiler);
+@EXPORT_OK = (qw($compiler_flags %BUF_SIZE $write_to_tmpfile), @defaults);
+%EXPORT_TAGS = ('defaults' => [ @defaults ]);
+
+our ($source, $compiler, $compiler_flags, %BUF_SIZE, $write_to_tmpfile);
+
+#---------------#
+# START of data #
+#---------------#
+
+$source = 'colorize.c';
+$compiler = 'gcc';
+$compiler_flags = '-ansi -pedantic -Wall -Wextra -Wformat -Wswitch-default -Wuninitialized -Wunused -Wno-unused-function -Wno-unused-parameter';
+%BUF_SIZE = (
+ normal => 1024,
+ short => 10,
+);
+$write_to_tmpfile = sub
+{
+ my ($content) = @_;
+
+ my ($fh, $tmpfile) = tempfile(UNLINK => true);
+ print {$fh} $content;
+ close($fh);
+
+ return $tmpfile;
+};
+
+#-------------#
+# END of data #
+#-------------#
+
+1;