view release on metacpan or  search on metacpan

inc/My/Module/Recommend.pm  view on Meta::CPAN

3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
use strict;
use warnings;
 
use Carp;
use Config;
 
use My::Module::Recommend::Any qw{ __any };
 
my ( $is_5_010, $is_5_012 );
 
if ( $] ge '5.012' ) {
    $is_5_012 = $is_5_010 = 1;
} elsif ( $] ge '5.010' ) {
    $is_5_010 = 1;
};
 
my %misbehaving_os = map { $_ => 1 } qw{ MSWin32 cygwin };
 
my @optionals = (
    __any( 'Config::Identity'           => <<'EOD' ),
      This module is used to parse the user's identity file, which
      provides default attribute values, and which can be encrypted with
      gpg2. If you do not intend to make use of the identity file,