TT#68300 Do not fetch unused function arguments

Change-Id: I57440dc140124e08e4c93e65f54f1ccd2ca0a0b0

bin/ngcp-credit-warning

@@ -101,7 +101,8 @@ EOF
 
 sub get_data {
     my ($uri, $link, $process_code) = @_;
-    $process_code = sub { my $data = shift; return 0; } unless 'CODE' eq ref $process_code;
+
+    $process_code = sub { return 0 } if 'CODE' ne ref $process_code;
 
     my $client = NGCP::API::Client->new(
         verbose => $opts->{verbose},