Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
TestML	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
TestBridge.pm	10.52 KB	-r--r--r--	2014-12-27 11:48
TestUtils.pm	1.05 KB	-r--r--r--	2014-12-27 11:48

Rename

package TestUtils;

use strict;
use warnings;

use Exporter   ();
use File::Spec ();
use File::Find ();

our @ISA    = qw{ Exporter };
our @EXPORT = qw{
    find_tml_files
    json_class
    slurp
    test_data_directory
    test_data_file
};

sub find_tml_files {
    my $dir = shift;
    my @files;
    File::Find::find(
        sub { push @files, $File::Find::name if -f and /\.tml$/ },
        $dir
    );
    return @files;
}

# Prefer JSON to JSON::PP; skip if we don't have at least one
sub json_class {
    for (qw/JSON JSON::PP/) {
        return $_ if eval "require $_; 1";
    }
    return;
}

sub test_data_directory {
    return File::Spec->catdir( 't', 'data' );
}

sub test_data_file {
    return File::Spec->catfile( test_data_directory(), shift );
}

sub slurp {
    my $file = shift;
    local $/ = undef;
    open( FILE, " $file" ) or die "open($file) failed: $!";
    binmode( FILE, $_[0] ) if @_ > 0;
    # binmode(FILE); # disable perl's BOM interpretation
    my $source = <FILE>;
    close( FILE ) or die "close($file) failed: $!";
    $source;
}