#!/usr/bin/env perl
# First created: Thu Jul 24 2025 12:47:02 PM -04:00 [EDT]

use strict;
use v5.18;
use utf8;
use warnings;
use Data::Dumper qw/Dumper/;
# use Perl::ImportReport;
use Env qw/MANPATH INFOPATH PATH/;
# ---------------------- ### ---------------------- #
# BEGIN {
#  require Env; Env->import( grep( /[A-Z]*PATH/ , keys %ENV ) );
# }
# ---------------------- ### ---------------------- #


my ($symname);
use vars ('$sym');
foreach $symname ( sort keys %main::Env:: ) {
    local *sym = $main::Env::{$symname};
    say "\@$symname array is populated" if @sym;
    say "\%$symname hash  is populated" if %sym;
}

# Try with ImportReport - doesn't work
### -------------------- ### ----------------------- #
# my $object = Perl::ImportReport->new( $INC{'Env.pm'} )
#             || die "Invalid value for PPI document source";
# say Dumper( $object->get_import_report('imports') );
### -------------------- ### ----------------------- #


__END__