view release on metacpan or  search on metacpan

t/40_stubb.t  view on Meta::CPAN

        or die "Failed to open $file for reading: $!\n";
    my $slurp = <$fh>;
    close $fh;

    return $slurp;

}

sub new_stubb {

    local @ARGV = @_;

    return File::Stubb->init;

}

$ENV{ STUBB_TEMPLATES } = $TEMPLATES;

my $stubb;

$stubb = new_stubb($TMP, 'basic');