view release on metacpan or  search on metacpan

docker/run_sandy.sh  view on Meta::CPAN

#!/usr/bin/env bash

set -e

PERL_BASE="$(perl -V:'install(vendorarch)' \
	| perl -F= -lanE "say \$F[1] =~ s/[';]//rg")"

DB_PATH="$PERL_BASE/auto/share/dist/App-Sandy"
MOUNTED_DB_PATH="/sandy/db"
DB="db.sqlite3"

if [[ -d "$MOUNTED_DB_PATH" ]]; then
	if [[ ! -f "$MOUNTED_DB_PATH/$DB" ]]; then
		mv "$DB_PATH/$DB" "$MOUNTED_DB_PATH"
	fi
	ln -sf "$MOUNTED_DB_PATH/$DB" "$DB_PATH/$DB"

lib/App/Sandy/Base.pm  view on Meta::CPAN

# Enable auto-flush
STDERR->autoflush(1);

our $LOG_VERBOSE = 1;

sub log_msg {
	my ($msg) = @_;
	return if not defined $msg;
	chomp $msg;
	say STDERR $msg if $LOG_VERBOSE;
}

sub import {
	my ($class, @opts) = @_;
	my $caller = caller;

	# Import as in Moder::Perl
	strict->import;
	feature->import(':5.14');
	utf8->import($caller);