File Coverage

blib/lib/Net/OpenSSH/Parallel/Constants.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Net::OpenSSH::Parallel::Constants;
2              
3             our $VERSION = '0.12';
4              
5 1     1   5 use strict;
  1         2  
  1         27  
6 1     1   5 use warnings;
  1         2  
  1         30  
7 1     1   5 use Carp;
  1         2  
  1         70  
8              
9 1     1   5 use Net::OpenSSH::Constants qw(:all);
  1         2  
  1         312  
10              
11             require Exporter;
12             our @ISA = qw(Exporter);
13              
14             our %EXPORT_TAGS = %Net::OpenSSH::Constants::EXPORT_TAGS;
15             $EXPORT_TAGS{error} = [@{$EXPORT_TAGS{error}}];
16             delete $EXPORT_TAGS{all};
17              
18             our %error = ( OSSH_JOIN_FAILED => 100,
19             OSSH_ABORTED => 101,
20             OSSH_GOTO_FAILED => 102 );
21              
22             our %on_error = ( OSSH_ON_ERROR_IGNORE => 201,
23             OSSH_ON_ERROR_DONE => 202,
24             OSSH_ON_ERROR_ABORT => 203,
25             OSSH_ON_ERROR_ABORT_ALL => 204,
26             OSSH_ON_ERROR_RETRY => 205 );
27              
28             for my $hash (qw(error on_error)) {
29 1     1   9 no strict 'refs';
  1         2  
  1         174  
30             for my $key (keys %$hash) {
31             my $value = $hash->{$key};
32             *{$key} = sub () { $value };
33             push @{$EXPORT_TAGS{$hash}}, $key
34             }
35             }
36              
37             our @EXPORT_OK = map { @{$EXPORT_TAGS{$_}} } keys %EXPORT_TAGS;
38             $EXPORT_TAGS{all} = [@EXPORT_OK];
39              
40             1;
41              
42             __END__