#!/usr/bin/env perl

# Copyright (c) 2015-2019 Christian Jaeger, copying@christianjaeger.ch
# This is free software. See the file COPYING.md that came bundled
# with this file.

# load repl with most of the more interesting functional-perl packages
# loaded

use strict; use warnings; use warnings FATAL => 'uninitialized';

use Cwd 'abs_path';
our ($mydir, $myname); BEGIN {
    my $location= (-l $0) ? abs_path ($0) : $0;
    $location=~ /(.*?)([^\/]+?)_?\z/s or die "?";
    ($mydir, $myname)=($1,$2);
}

my $repl= "$mydir/perlrepl";

exec $^X,
    $repl,
    qw(
    --name fperl
    -t
    -m Method::Signatures
    -m Function::Parameters=:strict
    -m Sub::Call::Tail
    -M FunctionalPerl=:all
    ), @ARGV
    or exit 127;

