Add compile_file function

lib/Minilisp.pm

@@ -613,4 +613,14 @@ sub compile {
   return $parsed;
 }
 
+sub compile_file {
+  my $file = shift;
+
+  open(my $fh, "<", $file) or die "Could not open $file: $!";
+  my $script = do { local $/; <$fh> };
+  close($fh);
+
+  return compile($script);
+}
+
 1;

tool/run.pl

@@ -0,0 +1,17 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use FindBin;
+use lib "$FindBin::Bin/../lib";
+use Minilisp;
+
+my $scriptfile = shift;
+
+die "No script file provided." unless defined $scriptfile && -f $scriptfile;
+
+my $parsed = Minilisp::compile_file($scriptfile);
+
+$parsed->($ctx);
+
+exit 0;

tool/test-runner.pl

@@ -13,14 +13,7 @@ my $scriptfile = shift;
 
 die "No script file provided." unless defined $scriptfile && -f $scriptfile;
 
-open(my $fh, "<", $scriptfile) or die "Could not open $scriptfile: $!";
-my $script = do { local $/; <$fh> };
-close($fh);
-
-# Remove shebang
-$script =~ s/^#!.*\n//;
-
-my $parsed = Minilisp::compile($script);
+my $parsed = Minilisp::compile_file($scriptfile);
 
 my $plan = 0;