#!/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__