1 files changed, 14 insertions, 14 deletions

diff --git a/lib/ZMQ/FFI/ZMQ2/Socket.pm b/lib/ZMQ/FFI/ZMQ2/Socket.pm
index b6a8d62..1ce820f 100644
--- a/lib/ZMQ/FFI/ZMQ2/Socket.pm
+++ b/lib/ZMQ/FFI/ZMQ2/Socket.pm
@@ -1,9 +1,9 @@
 #
-# Module Generated by Template::Tiny on Mon Mar 21 10:48:46 UTC 2022
+# Module Generated by Template::Tiny on Fri Aug  4 11:16:27 UTC 2023
 #
 
 package ZMQ::FFI::ZMQ2::Socket;
-$ZMQ::FFI::ZMQ2::Socket::VERSION = '1.18';
+$ZMQ::FFI::ZMQ2::Socket::VERSION = '1.19';
 use FFI::Platypus;
 use FFI::Platypus::Buffer;
 use FFI::Platypus::Memory qw(malloc free memcpy);
@@ -350,7 +350,7 @@ sub get {
     my $optval_len;
 
     for ($opt_type) {
-        when (/^(binary|string)$/) {
+        if ($_ =~ /^(binary|string)$/) {
             # ZMQ_IDENTITY uses binary type and can be at most 255 bytes long
             #
             # ZMQ_LAST_ENDPOINT uses string type and expects a buffer large
@@ -391,7 +391,7 @@ sub get {
             }
         }
 
-        when ('int') {
+        elsif ($_ eq 'int') {
             $optval_len = $self->sockopt_sizes->{'int'};
             $self->check_error(
                 'zmq_getsockopt',
@@ -404,7 +404,7 @@ sub get {
             );
         }
 
-        when ('int64_t') {
+        elsif ($_ eq 'int64_t') {
             $optval_len = $self->sockopt_sizes->{'sint64'};
             $self->check_error(
                 'zmq_getsockopt',
@@ -417,7 +417,7 @@ sub get {
             );
         }
 
-        when ('uint64_t') {
+        elsif ($_ eq 'uint64_t') {
             $optval_len = $self->sockopt_sizes->{'uint64'};
             $self->check_error(
                 'zmq_getsockopt',
@@ -430,7 +430,7 @@ sub get {
             );
         }
 
-        default {
+        else {
             croak "unknown type $opt_type";
         }
     }
@@ -451,7 +451,7 @@ sub set {
     }
 
     for ($opt_type) {
-        when (/^(binary|string)$/) {
+        if ($_ =~ /^(binary|string)$/) {
             my ($optval_ptr, $optval_len) = scalar_to_buffer($optval);
             $self->check_error(
                 'zmq_setsockopt',
@@ -464,7 +464,7 @@ sub set {
             );
         }
 
-        when ('int') {
+        elsif ($_ eq 'int') {
             $self->check_error(
                 'zmq_setsockopt',
                 zmq_setsockopt_int(
@@ -476,7 +476,7 @@ sub set {
             );
         }
 
-        when ('int64_t') {
+        elsif ($_ eq 'int64_t') {
             $self->check_error(
                 'zmq_setsockopt',
                 zmq_setsockopt_int64(
@@ -488,7 +488,7 @@ sub set {
             );
         }
 
-        when ('uint64_t') {
+        elsif ($_ eq 'uint64_t') {
             $self->check_error(
                 'zmq_setsockopt',
                 zmq_setsockopt_uint64(
@@ -500,7 +500,7 @@ sub set {
             );
         }
 
-        default {
+        else {
             croak "unknown type $opt_type";
         }
     }
@@ -591,7 +591,7 @@ ZMQ::FFI::ZMQ2::Socket
 
 =head1 VERSION
 
-version 1.18
+version 1.19
 
 =head1 AUTHOR
 
@@ -599,7 +599,7 @@ Dylan Cali <calid1984@gmail.com>
 
 =head1 COPYRIGHT AND LICENSE
 
-This software is copyright (c) 2022 by Dylan Cali.
+This software is copyright (c) 2023 by Dylan Cali.
 
 This is free software; you can redistribute it and/or modify it under
 the same terms as the Perl 5 programming language system itself.