From: Chris Nehren Date: Sun, 4 Sep 2011 07:28:42 +0000 (-0400) Subject: standardize on strictures+autodie+Test::Most where applicable X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2a007b5af21217cd22d8cdc34c189d279e3b96c5;p=p5sagit%2FPromulger.git standardize on strictures+autodie+Test::Most where applicable --- diff --git a/lib/App/Promulger.pm b/lib/App/Promulger.pm index 1cce07d..b6be419 100644 --- a/lib/App/Promulger.pm +++ b/lib/App/Promulger.pm @@ -1,6 +1,6 @@ package App::Promulger; -use strict; -use warnings; +use strictures 1; +use autodie; use App::Cmd::Setup -app; diff --git a/lib/App/Promulger/Command.pm b/lib/App/Promulger/Command.pm index 1c699c6..9d377de 100644 --- a/lib/App/Promulger/Command.pm +++ b/lib/App/Promulger/Command.pm @@ -1,6 +1,6 @@ package App::Promulger::Command; -use strict; -use warnings; +use strictures 1; +use autodie; use App::Cmd::Setup -command; diff --git a/lib/App/Promulger/Command/members.pm b/lib/App/Promulger/Command/members.pm index 3499540..bd19cb1 100644 --- a/lib/App/Promulger/Command/members.pm +++ b/lib/App/Promulger/Command/members.pm @@ -1,6 +1,6 @@ package App::Promulger::Command::members; -use strict; -use warnings; +use strictures 1; +use autodie; use App::Promulger -command; use Promulger::List; diff --git a/lib/App/Promulger/Command/msg.pm b/lib/App/Promulger/Command/msg.pm index 28a2131..275047e 100644 --- a/lib/App/Promulger/Command/msg.pm +++ b/lib/App/Promulger/Command/msg.pm @@ -1,6 +1,6 @@ package App::Promulger::Command::msg; -use strict; -use warnings; +use strictures 1; +use autodie; use App::Promulger -command; use parent 'App::Promulger::Command'; diff --git a/lib/App/Promulger/Command/newlist.pm b/lib/App/Promulger/Command/newlist.pm index 2b79775..d05a38b 100644 --- a/lib/App/Promulger/Command/newlist.pm +++ b/lib/App/Promulger/Command/newlist.pm @@ -1,6 +1,6 @@ package App::Promulger::Command::newlist; -use strict; -use warnings; +use strictures 1; +use autodie; use App::Promulger -command; use Promulger::List; diff --git a/lib/App/Promulger/Command/newsub.pm b/lib/App/Promulger/Command/newsub.pm index 6afce38..cb4978f 100644 --- a/lib/App/Promulger/Command/newsub.pm +++ b/lib/App/Promulger/Command/newsub.pm @@ -1,6 +1,6 @@ package App::Promulger::Command::newsub; -use strict; -use warnings; +use strictures 1; +use autodie; use App::Promulger -command; use Promulger::List; diff --git a/lib/App/Promulger/Command/rmlist.pm b/lib/App/Promulger/Command/rmlist.pm index 389bdb2..dc09e81 100644 --- a/lib/App/Promulger/Command/rmlist.pm +++ b/lib/App/Promulger/Command/rmlist.pm @@ -1,6 +1,6 @@ package App::Promulger::Command::rmlist; -use strict; -use warnings; +use strictures 1; +use autodie; use App::Promulger -command; use Promulger::List; diff --git a/lib/App/Promulger/Command/rmsub.pm b/lib/App/Promulger/Command/rmsub.pm index f081f5b..2067c17 100644 --- a/lib/App/Promulger/Command/rmsub.pm +++ b/lib/App/Promulger/Command/rmsub.pm @@ -1,6 +1,6 @@ package App::Promulger::Command::rmsub; -use strict; -use warnings; +use strictures 1; +use autodie; use App::Promulger -command; use Promulger::List; diff --git a/lib/Promulger.pm b/lib/Promulger.pm index af77ebf..7c36f47 100644 --- a/lib/Promulger.pm +++ b/lib/Promulger.pm @@ -1,6 +1,6 @@ package Promulger; -use strict; -use warnings; +use strictures 1; +use autodie; our $VERSION = '0.000001'; # 0.0.1 diff --git a/lib/Promulger/Config.pm b/lib/Promulger/Config.pm index 47ffee7..6e68dad 100644 --- a/lib/Promulger/Config.pm +++ b/lib/Promulger/Config.pm @@ -1,6 +1,6 @@ package Promulger::Config; -use strict; -use warnings; +use strictures 1; +use autodie; use Config::General; diff --git a/lib/Promulger/List.pm b/lib/Promulger/List.pm index 354e8f7..7040046 100644 --- a/lib/Promulger/List.pm +++ b/lib/Promulger/List.pm @@ -1,5 +1,6 @@ package Promulger::List; use Moo; +use autodie; use autodie ':all'; use Carp; diff --git a/script/make_message b/script/make_message index aa4d20d..0f275d8 100644 --- a/script/make_message +++ b/script/make_message @@ -1,6 +1,6 @@ #!/usr/bin/perl -use strict; -use warnings; +use strictures 1; +use autodie; use Email::MIME; use File::Slurp 'read_file'; diff --git a/script/mm2pmg b/script/mm2pmg index b167230..78e6889 100644 --- a/script/mm2pmg +++ b/script/mm2pmg @@ -1,6 +1,6 @@ #!/usr/bin/perl -use strict; -use warnings; +use strictures 1; +use autodie; use Promulger::List; diff --git a/script/pmg b/script/pmg index c340348..a4333e6 100755 --- a/script/pmg +++ b/script/pmg @@ -1,6 +1,6 @@ #!/usr/bin/perl -use strict; -use warnings; +use strictures 1; +use autodie; use App::Promulger; diff --git a/t/00compile.t b/t/00compile.t index 7edd1ea..929f606 100644 --- a/t/00compile.t +++ b/t/00compile.t @@ -1,4 +1,5 @@ use strictures 1; +use autodie; use Test::Most; use_ok('Promulger'); diff --git a/t/list.t b/t/list.t index a398ab9..4c95eb6 100644 --- a/t/list.t +++ b/t/list.t @@ -1,10 +1,10 @@ #!/usr/bin/perl use strictures 1; use autodie; +use Test::Most; use File::Temp (); use Path::Class; -use Test::Most; use aliased 'Promulger::List'; # no alias here so we don't risk colliding with perl's own Config.pm -- apeiron,