#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 2;
use Module::ScanDeps;
use lib qw(t/data);

my $map = scan_deps(
    files   => ['t/data/file-glob-no.pl'],
    recurse => 1,
);

ok(not exists $map->{'File/Glob.pm'});

$map = scan_deps(
    files => ['t/data/file-glob-yes.pl'],
    recurse => 1,
);

ok(exists $map->{'File/Glob.pm'});

__END__