view release on metacpan or  search on metacpan

t/Utils.pm  view on Meta::CPAN

                *{ $caller . '::' . $_ } = sub {}
                    for grep { $_ ne 'done_testing' } @Test::More::EXPORT;
                use warnings;
                Test::LeakTrace::no_leaks_ok(sub { $code->() }, 'no leaks ok');
            }
            else {
                $code->();
            }
        }
    }
    strict->import;
    warnings->import;
    utf8->import;
}

sub get_file_contents {
    my $filepath = $FindBin::Bin.'/'.shift;
    open my $fh, $filepath or die "$!: $filepath";
    my $data = do { local $/; <$fh> };
    close $fh;
    return $data;