TT#16321 Fix perlcritic errors

Change-Id: I57eee209b9824c0af5a7c2ab5fc7ac8af8755244
8 years ago · 897978bbf9
parent 2894d8b486
commit 897978bbf9
1 changed files with 3 additions and 1 deletions
--- a/4
+++ b/4
@ -1,5 +1,7 @@
 #!/usr/bin/perl -w
+
 use strict;
+use warnings;

 use English;
 use Readonly;
@ -60,7 +62,7 @@ EOF
        $from, $dest, $mailbox, $caller, $duration, $date, $body;

    eval {
-        my $client = new NGCP::API::Client;
+        my $client = NGCP::API::Client->new();

        my $res = $client->request('GET', "/api/subscribers/?alias=$mailbox");
        unless($res->is_success) {