From 3585dd50b9428db6691512575181da97b10e967b Mon Sep 17 00:00:00 2001 From: Steven Schubiger Date: Tue, 19 Jul 2016 13:54:47 +0200 Subject: Move common data to a perl module --- lib/Colorize/Common.pm | 45 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 lib/Colorize/Common.pm (limited to 'lib') 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; -- cgit v1.2.3