From 344e176eac1fefeda799434e9c2e7a0fffa37d50 Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Sat, 15 Aug 2015 20:17:16 +0300 Subject: [PATCH] Don't depend on non-core modules --- Makefile.PL | 7 ------- t/examples.t | 14 ++++++++------ 2 files changed, 8 insertions(+), 13 deletions(-) diff --git a/Makefile.PL b/Makefile.PL index fddb4e4..2ff875d 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -9,13 +9,6 @@ WriteMakefile( MIN_PERL_VERSION => '5.14.0', LICENSE => 'perl', SIGN => 1, - PREREQ_PM => { - qw/Storable 0/, - }, - BUILD_REQUIRES => { - qw/File::Basename 0 - File::Slurp 0/, - }, META_MERGE => { dynamic_config => 0, resources => { diff --git a/t/examples.t b/t/examples.t index 60f00fb..63efb10 100644 --- a/t/examples.t +++ b/t/examples.t @@ -1,6 +1,8 @@ -#!/usr/bin/perl -w -use File::Basename qw/fileparse/; -use File::Slurp qw/read_file/; +#!/usr/bin/perl +use 5.014000; +use warnings; + +use IO::Handle; use Mafia; my @examples; @@ -13,7 +15,7 @@ for my $example (@examples) { open STDOUT, '>', \$out; clean; - my $ok = read_file "$example.out"; - eval scalar read_file "$example.pl"; - is $out, $ok, scalar fileparse $example + my $ok = join '', IO::File->new("$example.out", '<')->getlines; + do "$example.pl"; + is $out, $ok, substr $example, length 't/examples/' } -- 2.39.2