perlcritic: use strict, use warnings

This commit is contained in:
Your Name 2021-08-19 16:36:43 -04:00 committed by Graham Christensen
parent d3feb8b9a5
commit 4677a7c894
92 changed files with 103 additions and 1 deletions

View file

@ -1,5 +1,7 @@
# IMPORTANT: if you delete this file your app will not work as # IMPORTANT: if you delete this file your app will not work as
# expected. you have been warned # expected. you have been warned
use strict;
use warnings;
use inc::Module::Install; use inc::Module::Install;
name 'Hydra'; name 'Hydra';

View file

@ -1,5 +1,8 @@
package Hydra::Config; package Hydra::Config;
use strict;
use warnings;
our %configGeneralOpts = (-UseApacheInclude => 1, -IncludeAgain => 1, -IncludeRelative => 1); our %configGeneralOpts = (-UseApacheInclude => 1, -IncludeAgain => 1, -IncludeRelative => 1);
1; 1;

View file

@ -1,6 +1,7 @@
package Hydra::Event; package Hydra::Event;
use strict; use strict;
use warnings;
use Hydra::Event::BuildFinished; use Hydra::Event::BuildFinished;
use Hydra::Event::BuildStarted; use Hydra::Event::BuildStarted;
use Hydra::Event::StepFinished; use Hydra::Event::StepFinished;

View file

@ -1,6 +1,7 @@
package Hydra::Helper::AddBuilds; package Hydra::Helper::AddBuilds;
use strict; use strict;
use warnings;
use utf8; use utf8;
use Encode; use Encode;
use JSON; use JSON;

View file

@ -2,6 +2,7 @@ package Hydra::Helper::CatalystUtils;
use utf8; use utf8;
use strict; use strict;
use warnings;
use Exporter; use Exporter;
use Readonly; use Readonly;
use Nix::Store; use Nix::Store;

View file

@ -1,6 +1,7 @@
package Hydra::Helper::Email; package Hydra::Helper::Email;
use strict; use strict;
use warnings;
use Email::MIME; use Email::MIME;
use Email::Sender::Simple qw(sendmail); use Email::Sender::Simple qw(sendmail);
use Exporter 'import'; use Exporter 'import';

View file

@ -1,6 +1,7 @@
package Hydra::Helper::Escape; package Hydra::Helper::Escape;
use strict; use strict;
use warnings;
use base qw(Exporter); use base qw(Exporter);
use Hydra::Helper::AttributeSet; use Hydra::Helper::AttributeSet;

View file

@ -1,6 +1,7 @@
package Hydra::Helper::Nix; package Hydra::Helper::Nix;
use strict; use strict;
use warnings;
use Exporter; use Exporter;
use File::Path; use File::Path;
use File::Basename; use File::Basename;

View file

@ -1,6 +1,7 @@
package Hydra::Model::DB; package Hydra::Model::DB;
use strict; use strict;
use warnings;
use base 'Catalyst::Model::DBIC::Schema'; use base 'Catalyst::Model::DBIC::Schema';
sub getHydraPath { sub getHydraPath {

View file

@ -1,6 +1,7 @@
package Hydra::Plugin; package Hydra::Plugin;
use strict; use strict;
use warnings;
use Module::Pluggable use Module::Pluggable
search_path => "Hydra::Plugin", search_path => "Hydra::Plugin",
instantiate => 'new'; instantiate => 'new';

View file

@ -1,6 +1,7 @@
package Hydra::Plugin::BazaarInput; package Hydra::Plugin::BazaarInput;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use Digest::SHA qw(sha256_hex); use Digest::SHA qw(sha256_hex);
use File::Path; use File::Path;

View file

@ -1,6 +1,7 @@
package Hydra::Plugin::BitBucketPulls; package Hydra::Plugin::BitBucketPulls;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use HTTP::Request; use HTTP::Request;
use LWP::UserAgent; use LWP::UserAgent;

View file

@ -1,6 +1,7 @@
package Hydra::Plugin::BitBucketStatus; package Hydra::Plugin::BitBucketStatus;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use HTTP::Request; use HTTP::Request;
use JSON; use JSON;

View file

@ -1,6 +1,7 @@
package Hydra::Plugin::CircleCINotification; package Hydra::Plugin::CircleCINotification;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use HTTP::Request; use HTTP::Request;
use LWP::UserAgent; use LWP::UserAgent;

View file

@ -1,6 +1,7 @@
package Hydra::Plugin::CompressLog; package Hydra::Plugin::CompressLog;
use strict; use strict;
use warnings;
use utf8; use utf8;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use Hydra::Helper::CatalystUtils; use Hydra::Helper::CatalystUtils;

View file

@ -1,6 +1,7 @@
package Hydra::Plugin::CoverityScan; package Hydra::Plugin::CoverityScan;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use File::Basename; use File::Basename;
use LWP::UserAgent; use LWP::UserAgent;

View file

@ -1,6 +1,7 @@
package Hydra::Plugin::DarcsInput; package Hydra::Plugin::DarcsInput;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use Digest::SHA qw(sha256_hex); use Digest::SHA qw(sha256_hex);
use File::Path; use File::Path;

View file

@ -1,6 +1,7 @@
package Hydra::Plugin::DeclarativeJobsets; package Hydra::Plugin::DeclarativeJobsets;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use Hydra::Helper::AddBuilds; use Hydra::Helper::AddBuilds;

View file

@ -2,6 +2,7 @@ package Hydra::Plugin::EmailNotification;
use utf8; use utf8;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use POSIX qw(strftime); use POSIX qw(strftime);
use Template; use Template;

View file

@ -1,6 +1,7 @@
package Hydra::Plugin::GitInput; package Hydra::Plugin::GitInput;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use Digest::SHA qw(sha256_hex); use Digest::SHA qw(sha256_hex);
use File::Path; use File::Path;

View file

@ -1,6 +1,7 @@
package Hydra::Plugin::GiteaStatus; package Hydra::Plugin::GiteaStatus;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use HTTP::Request; use HTTP::Request;

View file

@ -1,6 +1,7 @@
package Hydra::Plugin::GithubPulls; package Hydra::Plugin::GithubPulls;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use HTTP::Request; use HTTP::Request;
use LWP::UserAgent; use LWP::UserAgent;

View file

@ -1,6 +1,7 @@
package Hydra::Plugin::GithubRefs; package Hydra::Plugin::GithubRefs;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use HTTP::Request; use HTTP::Request;
use LWP::UserAgent; use LWP::UserAgent;

View file

@ -1,6 +1,7 @@
package Hydra::Plugin::GithubStatus; package Hydra::Plugin::GithubStatus;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use HTTP::Request; use HTTP::Request;
use JSON; use JSON;

View file

@ -15,6 +15,7 @@
package Hydra::Plugin::GitlabPulls; package Hydra::Plugin::GitlabPulls;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use HTTP::Request; use HTTP::Request;
use LWP::UserAgent; use LWP::UserAgent;

View file

@ -1,6 +1,7 @@
package Hydra::Plugin::GitlabStatus; package Hydra::Plugin::GitlabStatus;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use HTTP::Request; use HTTP::Request;
use JSON; use JSON;

View file

@ -1,6 +1,7 @@
package Hydra::Plugin::HipChatNotification; package Hydra::Plugin::HipChatNotification;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use LWP::UserAgent; use LWP::UserAgent;
use Hydra::Helper::CatalystUtils; use Hydra::Helper::CatalystUtils;

View file

@ -1,6 +1,7 @@
package Hydra::Plugin::InfluxDBNotification; package Hydra::Plugin::InfluxDBNotification;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use HTTP::Request; use HTTP::Request;
use LWP::UserAgent; use LWP::UserAgent;

View file

@ -1,6 +1,7 @@
package Hydra::Plugin::MercurialInput; package Hydra::Plugin::MercurialInput;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use Digest::SHA qw(sha256_hex); use Digest::SHA qw(sha256_hex);
use File::Path; use File::Path;

View file

@ -1,6 +1,7 @@
package Hydra::Plugin::PathInput; package Hydra::Plugin::PathInput;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use POSIX qw(strftime); use POSIX qw(strftime);
use Hydra::Helper::Nix; use Hydra::Helper::Nix;

View file

@ -1,6 +1,7 @@
package Hydra::Plugin::RunCommand; package Hydra::Plugin::RunCommand;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use experimental 'smartmatch'; use experimental 'smartmatch';
use JSON; use JSON;

View file

@ -1,6 +1,7 @@
package Hydra::Plugin::S3Backup; package Hydra::Plugin::S3Backup;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use File::Temp; use File::Temp;
use File::Basename; use File::Basename;

View file

@ -1,6 +1,7 @@
package Hydra::Plugin::SlackNotification; package Hydra::Plugin::SlackNotification;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use HTTP::Request; use HTTP::Request;
use LWP::UserAgent; use LWP::UserAgent;

View file

@ -1,6 +1,7 @@
package Hydra::Plugin::SoTest; package Hydra::Plugin::SoTest;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use Hydra::Helper::CatalystUtils; use Hydra::Helper::CatalystUtils;
use HTTP::Request; use HTTP::Request;

View file

@ -1,6 +1,7 @@
package Hydra::Plugin::SubversionInput; package Hydra::Plugin::SubversionInput;
use strict; use strict;
use warnings;
use parent 'Hydra::Plugin'; use parent 'Hydra::Plugin';
use Digest::SHA qw(sha256_hex); use Digest::SHA qw(sha256_hex);
use Hydra::Helper::Nix; use Hydra::Helper::Nix;

View file

@ -1,3 +1,5 @@
package Hydra::View::JSON; package Hydra::View::JSON;
use strict;
use warnings;
use base qw(Catalyst::View::JSON); use base qw(Catalyst::View::JSON);
1; 1;

View file

@ -1,5 +1,7 @@
package Hydra::View::NARInfo; package Hydra::View::NARInfo;
use strict;
use warnings;
use File::Basename; use File::Basename;
use Hydra::Helper::CatalystUtils; use Hydra::Helper::CatalystUtils;
use MIME::Base64; use MIME::Base64;
@ -7,7 +9,6 @@ use Nix::Manifest;
use Nix::Store; use Nix::Store;
use Nix::Utils; use Nix::Utils;
use base qw/Catalyst::View/; use base qw/Catalyst::View/;
use strict;
sub process { sub process {
my ($self, $c) = @_; my ($self, $c) = @_;

View file

@ -1,6 +1,7 @@
package Hydra::View::NixClosure; package Hydra::View::NixClosure;
use strict; use strict;
use warnings;
use base qw/Catalyst::View/; use base qw/Catalyst::View/;
use IO::Pipe; use IO::Pipe;

View file

@ -1,6 +1,7 @@
package Hydra::View::NixExprs; package Hydra::View::NixExprs;
use strict; use strict;
use warnings;
use base qw/Catalyst::View/; use base qw/Catalyst::View/;
use Hydra::Helper::Nix; use Hydra::Helper::Nix;
use Hydra::Helper::Escape; use Hydra::Helper::Escape;

View file

@ -1,6 +1,7 @@
package Hydra::View::NixLog; package Hydra::View::NixLog;
use strict; use strict;
use warnings;
use base qw/Catalyst::View/; use base qw/Catalyst::View/;
use Hydra::Helper::CatalystUtils; use Hydra::Helper::CatalystUtils;

View file

@ -1,6 +1,7 @@
package Hydra::View::NixManifest; package Hydra::View::NixManifest;
use strict; use strict;
use warnings;
use base qw/Catalyst::View/; use base qw/Catalyst::View/;
use Hydra::Helper::Nix; use Hydra::Helper::Nix;
use Nix::Store; use Nix::Store;

View file

@ -1,6 +1,7 @@
package Hydra::View::NixNAR; package Hydra::View::NixNAR;
use strict; use strict;
use warnings;
use base qw/Catalyst::View/; use base qw/Catalyst::View/;
use Hydra::Helper::CatalystUtils; use Hydra::Helper::CatalystUtils;

View file

@ -1,6 +1,7 @@
package Hydra::View::TT; package Hydra::View::TT;
use strict; use strict;
use warnings;
use base 'Catalyst::View::TT'; use base 'Catalyst::View::TT';
use Hydra::Helper::Nix; use Hydra::Helper::Nix;
use Time::Seconds; use Time::Seconds;

View file

@ -1,6 +1,7 @@
#! /usr/bin/env perl #! /usr/bin/env perl
use strict; use strict;
use warnings;
use utf8; use utf8;
use Hydra::Model::DB; use Hydra::Model::DB;

View file

@ -1,6 +1,7 @@
#! /usr/bin/env perl #! /usr/bin/env perl
use strict; use strict;
use warnings;
use Hydra::Schema; use Hydra::Schema;
use Hydra::Helper::Nix; use Hydra::Helper::Nix;
use Hydra::Model::DB; use Hydra::Model::DB;

View file

@ -1,5 +1,8 @@
#! /usr/bin/env perl #! /usr/bin/env perl
use strict;
use warnings;
BEGIN { BEGIN {
$ENV{CATALYST_SCRIPT_GEN} = 40; $ENV{CATALYST_SCRIPT_GEN} = 40;
} }

View file

@ -1,6 +1,7 @@
#! /usr/bin/env perl #! /usr/bin/env perl
use strict; use strict;
use warnings;
use utf8; use utf8;
use Config::General; use Config::General;
use Data::Dump qw(dump); use Data::Dump qw(dump);

View file

@ -1,6 +1,7 @@
#! /usr/bin/env perl #! /usr/bin/env perl
use strict; use strict;
use warnings;
use Hydra::Schema; use Hydra::Schema;
use Hydra::Helper::Nix; use Hydra::Helper::Nix;
use Hydra::Model::DB; use Hydra::Model::DB;

View file

@ -1,6 +1,7 @@
#! /usr/bin/env perl #! /usr/bin/env perl
use strict; use strict;
use warnings;
use utf8; use utf8;
use Getopt::Long; use Getopt::Long;
use HTTP::Server::PSGI; use HTTP::Server::PSGI;

View file

@ -1,6 +1,7 @@
#! /usr/bin/env perl #! /usr/bin/env perl
use strict; use strict;
use warnings;
use File::Basename; use File::Basename;
use Fcntl; use Fcntl;
use IO::File; use IO::File;

View file

@ -1,6 +1,7 @@
#! /usr/bin/env perl #! /usr/bin/env perl
use strict; use strict;
use warnings;
use utf8; use utf8;
use Hydra::Helper::Nix; use Hydra::Helper::Nix;
use Net::Statsd; use Net::Statsd;

View file

@ -1,5 +1,8 @@
#! /usr/bin/env perl #! /usr/bin/env perl
use strict;
use warnings;
BEGIN { BEGIN {
$ENV{CATALYST_SCRIPT_GEN} = 40; $ENV{CATALYST_SCRIPT_GEN} = 40;
} }

View file

@ -1,6 +1,7 @@
#! /usr/bin/env perl #! /usr/bin/env perl
use strict; use strict;
use warnings;
use File::Path; use File::Path;
use File::stat; use File::stat;
use File::Basename; use File::Basename;

View file

@ -1,4 +1,6 @@
use Cwd; use Cwd;
use strict;
use warnings;
die "$0: dbi connection string required \n" if scalar @ARGV != 1; die "$0: dbi connection string required \n" if scalar @ARGV != 1;

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
my %ctx = test_init(hydra_config => q| my %ctx = test_init(hydra_config => q|

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
my %ctx = test_init( my %ctx = test_init(

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
my %ctx = test_init(hydra_config => q| my %ctx = test_init(hydra_config => q|

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
use Data::Dumper; use Data::Dumper;
my %ctx = test_init(); my %ctx = test_init();

View file

@ -1,5 +1,6 @@
use feature 'unicode_strings'; use feature 'unicode_strings';
use strict; use strict;
use warnings;
use Setup; use Setup;
use IO::Uncompress::Bunzip2 qw(bunzip2); use IO::Uncompress::Bunzip2 qw(bunzip2);
use Archive::Tar; use Archive::Tar;

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
use Data::Dumper; use Data::Dumper;
my %ctx = test_init(); my %ctx = test_init();

View file

@ -1,5 +1,6 @@
use feature 'unicode_strings'; use feature 'unicode_strings';
use strict; use strict;
use warnings;
use Setup; use Setup;
use JSON qw(decode_json encode_json); use JSON qw(decode_json encode_json);

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
my %ctx = test_init(); my %ctx = test_init();

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
use Data::Dumper; use Data::Dumper;
my %ctx = test_init(); my %ctx = test_init();

View file

@ -1,5 +1,6 @@
use feature 'unicode_strings'; use feature 'unicode_strings';
use strict; use strict;
use warnings;
use Setup; use Setup;
use JSON qw(decode_json encode_json); use JSON qw(decode_json encode_json);

View file

@ -1,5 +1,6 @@
use feature 'unicode_strings'; use feature 'unicode_strings';
use strict; use strict;
use warnings;
use Setup; use Setup;
use JSON qw(decode_json encode_json); use JSON qw(decode_json encode_json);

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Hydra::Event; use Hydra::Event;
use Test2::V0; use Test2::V0;

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
my %ctx = test_init(); my %ctx = test_init();

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
my %ctx = test_init(); my %ctx = test_init();

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
my %ctx = test_init(); my %ctx = test_init();

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
use Data::Dumper; use Data::Dumper;
use Test2::V0; use Test2::V0;

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
my %ctx = test_init(); my %ctx = test_init();

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
my %ctx = test_init(); my %ctx = test_init();

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
use JSON; use JSON;
use File::Copy; use File::Copy;

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
my %ctx = test_init(); my %ctx = test_init();

View file

@ -1,5 +1,6 @@
use feature 'unicode_strings'; use feature 'unicode_strings';
use strict; use strict;
use warnings;
use Setup; use Setup;
my %ctx = test_init(); my %ctx = test_init();

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
my %ctx = test_init(); my %ctx = test_init();

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
use TestScmInput; use TestScmInput;

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
use TestScmInput; use TestScmInput;

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
use TestScmInput; use TestScmInput;

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
use TestScmInput; use TestScmInput;

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
use TestScmInput; use TestScmInput;

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
use TestScmInput; use TestScmInput;

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
use TestScmInput; use TestScmInput;

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
use TestScmInput; use TestScmInput;

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use Setup; use Setup;
use TestScmInput; use TestScmInput;

View file

@ -1,6 +1,7 @@
package Setup; package Setup;
use strict; use strict;
use warnings;
use Exporter; use Exporter;
use Test::PostgreSQL; use Test::PostgreSQL;
use File::Temp; use File::Temp;

View file

@ -1,5 +1,6 @@
use feature 'unicode_strings'; use feature 'unicode_strings';
use strict; use strict;
use warnings;
use Setup; use Setup;
my %ctx = test_init( my %ctx = test_init(

View file

@ -1,4 +1,5 @@
use strict; use strict;
use warnings;
use File::Basename; use File::Basename;
use Hydra::Model::DB; use Hydra::Model::DB;
use Hydra::Helper::Nix; use Hydra::Helper::Nix;

View file

@ -1,5 +1,6 @@
use feature 'unicode_strings'; use feature 'unicode_strings';
use strict; use strict;
use warnings;
use Setup; use Setup;
my %ctx = test_init(); my %ctx = test_init();

View file

@ -1,5 +1,6 @@
use feature 'unicode_strings'; use feature 'unicode_strings';
use strict; use strict;
use warnings;
use Setup; use Setup;
my %ctx = test_init(); my %ctx = test_init();

View file

@ -1,5 +1,6 @@
use feature 'unicode_strings'; use feature 'unicode_strings';
use strict; use strict;
use warnings;
use Setup; use Setup;
my %ctx = test_init(); my %ctx = test_init();

View file

@ -1,3 +1,5 @@
use strict;
use warnings;
use LWP::UserAgent; use LWP::UserAgent;
use JSON; use JSON;