File Coverage

blib/lib/ZMQ/Constants/V4_0_4.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package ZMQ::Constants::V4_0_4;
2 1     1   6 use strict;
  1         2  
  1         40  
3 1     1   5 use ZMQ::Constants ();
  1         2  
  1         16  
4 1     1   1245 use Storable ();
  1         4929  
  1         163  
5              
6             my %not_in_v4 = map { ( $_ => 1 ) } qw(
7              
8             ZMQ_DELIMITER
9             ZMQ_DOWNSTREAM
10             ZMQ_HWM
11             ZMQ_MAX_VSM_SIZE
12             ZMQ_MCAST_LOOP
13             ZMQ_MSG_MASK
14             ZMQ_MSG_MORE
15             ZMQ_MSG_SHARED
16             ZMQ_RECOVERY_IVL_MSEC
17             ZMQ_SWAP
18             ZMQ_UPSTREAM
19             ZMQ_VSM
20              
21             );
22              
23             my $export_tags = Storable::dclone( \%ZMQ::Constants::EXPORT_TAGS );
24             $export_tags->{socket} = [
25             'ZMQ_FAIL_UNROUTABLE', grep { !$not_in_v4{$_} } @{ $export_tags->{socket} }
26             ];
27             $export_tags->{message} =
28             [ grep { !$not_in_v4{$_} } @{ $export_tags->{message} } ];
29              
30             ZMQ::Constants::register_set( '4.0.4' => ( tags => $export_tags, ) );
31              
32             1;