diff options
author | Guillermo Ramos | 2019-09-01 23:14:09 +0200 |
---|---|---|
committer | Guillermo Ramos | 2019-09-01 23:14:09 +0200 |
commit | 4ab6e09e1197f1a0e9fce9a3a3a5ce821c0d6194 (patch) | |
tree | f7a5b80419d9e4093e7e6101e29d38f8b4b672af | |
parent | 1d8f3d43ded6d604e31bc83d47771d7294dcdf9a (diff) | |
download | tgutils-4ab6e09e1197f1a0e9fce9a3a3a5ce821c0d6194.tar.gz |
Enable stictures
-rw-r--r-- | lib/TgLib/Api.pm | 3 | ||||
-rw-r--r-- | lib/TgLib/Cache.pm | 3 | ||||
-rw-r--r-- | lib/TgLib/Env.pm | 3 | ||||
-rw-r--r-- | lib/TgLib/Logger.pm | 3 | ||||
-rwxr-xr-x | tgrecv | 3 | ||||
-rwxr-xr-x | tgsend | 3 |
6 files changed, 18 insertions, 0 deletions
diff --git a/lib/TgLib/Api.pm b/lib/TgLib/Api.pm index e643a42..66c808f 100644 --- a/lib/TgLib/Api.pm +++ b/lib/TgLib/Api.pm @@ -1,5 +1,8 @@ package TgLib::Api; +use strict; +use warnings; + use JSON qw<encode_json decode_json>; use HTTP::Request; use LWP::UserAgent; diff --git a/lib/TgLib/Cache.pm b/lib/TgLib/Cache.pm index dbbf252..b1a3c2d 100644 --- a/lib/TgLib/Cache.pm +++ b/lib/TgLib/Cache.pm @@ -1,5 +1,8 @@ package TgLib::Cache; +use strict; +use warnings; + use Storable qw<store retrieve>; use File::Basename qw<dirname>; use File::Path qw<make_path>; diff --git a/lib/TgLib/Env.pm b/lib/TgLib/Env.pm index c019a2c..9cb86be 100644 --- a/lib/TgLib/Env.pm +++ b/lib/TgLib/Env.pm @@ -1,5 +1,8 @@ package TgLib::Env; +use strict; +use warnings; + use parent qw<Exporter>; our @EXPORT = qw<$HOME $CONFIG_HOME $CACHE_HOME $TOKEN>; diff --git a/lib/TgLib/Logger.pm b/lib/TgLib/Logger.pm index 17a111d..c80d22b 100644 --- a/lib/TgLib/Logger.pm +++ b/lib/TgLib/Logger.pm @@ -1,5 +1,8 @@ package TgLib::Logger; +use strict; +use warnings; + use parent qw<Exporter>; our @EXPORT = qw<new debug info warn>; @@ -7,6 +7,9 @@ # Dependencies: HTTP-Message, JSON ################################################################################ +use strict; +use warnings; + $main::VERSION = "0.1.1"; use Getopt::Long qw(:config auto_version); @@ -7,6 +7,9 @@ # Dependencies: HTTP-Message, JSON ################################################################################ +use strict; +use warnings; + $main::VERSION = "0.1.1"; use Getopt::Long qw(:config auto_version); |