#!/usr/bin/perl

use Test;
BEGIN { plan 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__