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
|
#/usr/bin/env perl
use strict;
use warnings;
# I tried 'require'-ing modules but that did not work.
use Crypt::PasswdMD5; # For the version #.
use Test::More;
use Digest::MD5;
use strict;
use warnings;
# ----------------------
pass('All external modules loaded');
my(@modules) = qw
/
Digest::MD5
strict
warnings
/;
diag "Testing Crypt::PasswdMD5 V $Crypt::PasswdMD5::VERSION";
for my $module (@modules)
{
no strict 'refs';
my($ver) = ${$module . '::VERSION'} || 'N/A';
diag "Using $module V $ver";
}
done_testing;
|
