1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
#/usr/bin/env perl
use strict;
use warnings;
# I tried 'require'-ing modules but that did not work.
use Tree::Simple; # For the version #.
use Test::More;
use constant;
use Scalar::Util;
use strict;
use warnings;
# ----------------------
pass('All external modules loaded');
my(@modules) = qw
/
constant
Scalar::Util
strict
warnings
/;
diag "Testing Tree::Simple V $Tree::Simple::VERSION";
for my $module (@modules)
{
no strict 'refs';
my($ver) = ${$module . '::VERSION'} || 'N/A';
diag "Using $module V $ver";
}
done_testing;
|
