package ZMQ::Constants::V4_0_4;
use strict;
use ZMQ::Constants ();
use Storable       ();

my %not_in_v4 = map { ( $_ => 1 ) } qw(

  ZMQ_DELIMITER
  ZMQ_DOWNSTREAM
  ZMQ_HWM
  ZMQ_MAX_VSM_SIZE
  ZMQ_MCAST_LOOP
  ZMQ_MSG_MASK
  ZMQ_MSG_MORE
  ZMQ_MSG_SHARED
  ZMQ_RECOVERY_IVL_MSEC
  ZMQ_SWAP
  ZMQ_UPSTREAM
  ZMQ_VSM

);

my $export_tags = Storable::dclone( \%ZMQ::Constants::EXPORT_TAGS );
$export_tags->{socket} = [
    'ZMQ_FAIL_UNROUTABLE', grep { !$not_in_v4{$_} } @{ $export_tags->{socket} }
];
$export_tags->{message} =
  [ grep { !$not_in_v4{$_} } @{ $export_tags->{message} } ];

ZMQ::Constants::register_set( '4.0.4' => ( tags => $export_tags, ) );

1;