Hello community,
here is the log from the commit of package perl-Perl-Critic-Freenode for
openSUSE:Factory checked in at 2019-08-28 18:36:01
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Perl-Critic-Freenode (Old)
and /work/SRC/openSUSE:Factory/.perl-Perl-Critic-Freenode.new.7948 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Perl-Critic-Freenode"
Wed Aug 28 18:36:01 2019 rev:8 rq:726562 version:0.030
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Perl-Critic-Freenode/perl-Perl-Critic-Freenode.changes
2019-07-11 13:07:49.575011406 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Perl-Critic-Freenode.new.7948/perl-Perl-Critic-Freenode.changes
2019-08-28 18:36:03.281277731 +0200
@@ -1,0 +2,9 @@
+Tue Aug 27 05:24:24 UTC 2019 - Stephan Kulow <[email protected]>
+
+- updated to 0.030
+ see /usr/share/doc/packages/perl-Perl-Critic-Freenode/Changes
+
+ 0.030 2019-08-26 11:27:15 EDT
+ - Allow signature_enablers to be configured for Prototypes policy (#34)
+
+-------------------------------------------------------------------
Old:
----
Perl-Critic-Freenode-0.029.tar.gz
New:
----
Perl-Critic-Freenode-0.030.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Perl-Critic-Freenode.spec ++++++
--- /var/tmp/diff_new_pack.1SGiML/_old 2019-08-28 18:36:03.969277611 +0200
+++ /var/tmp/diff_new_pack.1SGiML/_new 2019-08-28 18:36:03.969277611 +0200
@@ -17,7 +17,7 @@
Name: perl-Perl-Critic-Freenode
-Version: 0.029
+Version: 0.030
Release: 0
%define cpan_name Perl-Critic-Freenode
Summary: Perl::Critic policies inspired by #perl on
++++++ Perl-Critic-Freenode-0.029.tar.gz -> Perl-Critic-Freenode-0.030.tar.gz
++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl-Critic-Freenode-0.029/Build.PL
new/Perl-Critic-Freenode-0.030/Build.PL
--- old/Perl-Critic-Freenode-0.029/Build.PL 2019-04-26 19:12:45.000000000
+0200
+++ new/Perl-Critic-Freenode-0.030/Build.PL 2019-08-26 17:27:17.000000000
+0200
@@ -84,7 +84,7 @@
"Dan Book <dbook\@cpan.org>"
],
"dist_name" => "Perl-Critic-Freenode",
- "dist_version" => "0.029",
+ "dist_version" => "0.030",
"license" => "artistic_2",
"module_name" => "Perl::Critic::Freenode",
"recursive_test_files" => 1,
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl-Critic-Freenode-0.029/Changes
new/Perl-Critic-Freenode-0.030/Changes
--- old/Perl-Critic-Freenode-0.029/Changes 2019-04-26 19:12:45.000000000
+0200
+++ new/Perl-Critic-Freenode-0.030/Changes 2019-08-26 17:27:17.000000000
+0200
@@ -1,3 +1,6 @@
+0.030 2019-08-26 11:27:15 EDT
+ - Allow signature_enablers to be configured for Prototypes policy (#34)
+
0.029 2019-04-26 13:12:43 EDT
- Added LexicalForeachIterator policy
- Require PPI 1.252+ allowing simplifications to the DeprecatedFeatures and
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl-Critic-Freenode-0.029/META.json
new/Perl-Critic-Freenode-0.030/META.json
--- old/Perl-Critic-Freenode-0.029/META.json 2019-04-26 19:12:45.000000000
+0200
+++ new/Perl-Critic-Freenode-0.030/META.json 2019-08-26 17:27:17.000000000
+0200
@@ -71,111 +71,111 @@
"provides" : {
"Perl::Critic::Freenode" : {
"file" : "lib/Perl/Critic/Freenode.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Freenode::Utils" : {
"file" : "lib/Perl/Critic/Freenode/Utils.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::AmpersandSubCalls" : {
"file" : "lib/Perl/Critic/Policy/Freenode/AmpersandSubCalls.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::ArrayAssignAref" : {
"file" : "lib/Perl/Critic/Policy/Freenode/ArrayAssignAref.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::BarewordFilehandles" : {
"file" : "lib/Perl/Critic/Policy/Freenode/BarewordFilehandles.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::ConditionalDeclarations" : {
"file" : "lib/Perl/Critic/Policy/Freenode/ConditionalDeclarations.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::ConditionalImplicitReturn" : {
"file" :
"lib/Perl/Critic/Policy/Freenode/ConditionalImplicitReturn.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::DeprecatedFeatures" : {
"file" : "lib/Perl/Critic/Policy/Freenode/DeprecatedFeatures.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::DiscouragedModules" : {
"file" : "lib/Perl/Critic/Policy/Freenode/DiscouragedModules.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::DollarAB" : {
"file" : "lib/Perl/Critic/Policy/Freenode/DollarAB.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::Each" : {
"file" : "lib/Perl/Critic/Policy/Freenode/Each.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::EmptyReturn" : {
"file" : "lib/Perl/Critic/Policy/Freenode/EmptyReturn.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::IndirectObjectNotation" : {
"file" : "lib/Perl/Critic/Policy/Freenode/IndirectObjectNotation.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::LexicalForeachIterator" : {
"file" : "lib/Perl/Critic/Policy/Freenode/LexicalForeachIterator.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::LoopOnHash" : {
"file" : "lib/Perl/Critic/Policy/Freenode/LoopOnHash.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::ModPerl" : {
"file" : "lib/Perl/Critic/Policy/Freenode/ModPerl.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::OpenArgs" : {
"file" : "lib/Perl/Critic/Policy/Freenode/OpenArgs.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::OverloadOptions" : {
"file" : "lib/Perl/Critic/Policy/Freenode/OverloadOptions.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::POSIXImports" : {
"file" : "lib/Perl/Critic/Policy/Freenode/POSIXImports.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::PackageMatchesFilename" : {
"file" : "lib/Perl/Critic/Policy/Freenode/PackageMatchesFilename.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::PreferredAlternatives" : {
"file" : "lib/Perl/Critic/Policy/Freenode/PreferredAlternatives.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::Prototypes" : {
"file" : "lib/Perl/Critic/Policy/Freenode/Prototypes.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::StrictWarnings" : {
"file" : "lib/Perl/Critic/Policy/Freenode/StrictWarnings.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::Threads" : {
"file" : "lib/Perl/Critic/Policy/Freenode/Threads.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::Wantarray" : {
"file" : "lib/Perl/Critic/Policy/Freenode/Wantarray.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::WarningsSwitch" : {
"file" : "lib/Perl/Critic/Policy/Freenode/WarningsSwitch.pm",
- "version" : "0.029"
+ "version" : "0.030"
},
"Perl::Critic::Policy::Freenode::WhileDiamondDefaultAssignment" : {
"file" :
"lib/Perl/Critic/Policy/Freenode/WhileDiamondDefaultAssignment.pm",
- "version" : "0.029"
+ "version" : "0.030"
}
},
"release_status" : "stable",
@@ -191,10 +191,10 @@
},
"x_IRC" : "irc://chat.freenode.net/#perl"
},
- "version" : "0.029",
+ "version" : "0.030",
"x_Dist_Zilla" : {
"perl" : {
- "version" : "5.028002"
+ "version" : "5.030000"
},
"plugins" : [
{
@@ -242,7 +242,7 @@
"meta_noindex" : 1
},
"Dist::Zilla::Role::ModuleMetadata" : {
- "Module::Metadata" : "1.000033",
+ "Module::Metadata" : "1.000036",
"version" : "0.006"
}
},
@@ -385,7 +385,7 @@
"branch" : null,
"changelog" : "Changes",
"signed" : 0,
- "tag" : "0.029",
+ "tag" : "0.030",
"tag_format" : "%v",
"tag_message" : "%v"
},
@@ -612,7 +612,7 @@
"class" : "Dist::Zilla::Plugin::InstallGuide",
"config" : {
"Dist::Zilla::Role::ModuleMetadata" : {
- "Module::Metadata" : "1.000033",
+ "Module::Metadata" : "1.000036",
"version" : "0.006"
}
},
@@ -709,7 +709,7 @@
"Graham Knop <[email protected]>",
"William Taylor <[email protected]>"
],
- "x_generated_by_perl" : "v5.28.2",
- "x_serialization_backend" : "Cpanel::JSON::XS version 4.11"
+ "x_generated_by_perl" : "v5.30.0",
+ "x_serialization_backend" : "Cpanel::JSON::XS version 4.12"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl-Critic-Freenode-0.029/META.yml
new/Perl-Critic-Freenode-0.030/META.yml
--- old/Perl-Critic-Freenode-0.029/META.yml 2019-04-26 19:12:45.000000000
+0200
+++ new/Perl-Critic-Freenode-0.030/META.yml 2019-08-26 17:27:17.000000000
+0200
@@ -26,85 +26,85 @@
provides:
Perl::Critic::Freenode:
file: lib/Perl/Critic/Freenode.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Freenode::Utils:
file: lib/Perl/Critic/Freenode/Utils.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::AmpersandSubCalls:
file: lib/Perl/Critic/Policy/Freenode/AmpersandSubCalls.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::ArrayAssignAref:
file: lib/Perl/Critic/Policy/Freenode/ArrayAssignAref.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::BarewordFilehandles:
file: lib/Perl/Critic/Policy/Freenode/BarewordFilehandles.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::ConditionalDeclarations:
file: lib/Perl/Critic/Policy/Freenode/ConditionalDeclarations.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::ConditionalImplicitReturn:
file: lib/Perl/Critic/Policy/Freenode/ConditionalImplicitReturn.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::DeprecatedFeatures:
file: lib/Perl/Critic/Policy/Freenode/DeprecatedFeatures.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::DiscouragedModules:
file: lib/Perl/Critic/Policy/Freenode/DiscouragedModules.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::DollarAB:
file: lib/Perl/Critic/Policy/Freenode/DollarAB.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::Each:
file: lib/Perl/Critic/Policy/Freenode/Each.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::EmptyReturn:
file: lib/Perl/Critic/Policy/Freenode/EmptyReturn.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::IndirectObjectNotation:
file: lib/Perl/Critic/Policy/Freenode/IndirectObjectNotation.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::LexicalForeachIterator:
file: lib/Perl/Critic/Policy/Freenode/LexicalForeachIterator.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::LoopOnHash:
file: lib/Perl/Critic/Policy/Freenode/LoopOnHash.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::ModPerl:
file: lib/Perl/Critic/Policy/Freenode/ModPerl.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::OpenArgs:
file: lib/Perl/Critic/Policy/Freenode/OpenArgs.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::OverloadOptions:
file: lib/Perl/Critic/Policy/Freenode/OverloadOptions.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::POSIXImports:
file: lib/Perl/Critic/Policy/Freenode/POSIXImports.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::PackageMatchesFilename:
file: lib/Perl/Critic/Policy/Freenode/PackageMatchesFilename.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::PreferredAlternatives:
file: lib/Perl/Critic/Policy/Freenode/PreferredAlternatives.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::Prototypes:
file: lib/Perl/Critic/Policy/Freenode/Prototypes.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::StrictWarnings:
file: lib/Perl/Critic/Policy/Freenode/StrictWarnings.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::Threads:
file: lib/Perl/Critic/Policy/Freenode/Threads.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::Wantarray:
file: lib/Perl/Critic/Policy/Freenode/Wantarray.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::WarningsSwitch:
file: lib/Perl/Critic/Policy/Freenode/WarningsSwitch.pm
- version: '0.029'
+ version: '0.030'
Perl::Critic::Policy::Freenode::WhileDiamondDefaultAssignment:
file: lib/Perl/Critic/Policy/Freenode/WhileDiamondDefaultAssignment.pm
- version: '0.029'
+ version: '0.030'
requires:
Carp: '0'
Exporter: '0'
@@ -127,10 +127,10 @@
bugtracker: https://github.com/Grinnz/Perl-Critic-Freenode/issues
homepage: https://github.com/Grinnz/Perl-Critic-Freenode
repository: https://github.com/Grinnz/Perl-Critic-Freenode.git
-version: '0.029'
+version: '0.030'
x_Dist_Zilla:
perl:
- version: '5.028002'
+ version: '5.030000'
plugins:
-
class: Dist::Zilla::Plugin::GithubMeta
@@ -167,7 +167,7 @@
inherit_version: '1'
meta_noindex: '1'
Dist::Zilla::Role::ModuleMetadata:
- Module::Metadata: '1.000033'
+ Module::Metadata: '1.000036'
version: '0.006'
name: '@Author::DBOOK/MetaProvides::Package'
version: '2.004003'
@@ -277,7 +277,7 @@
branch: ~
changelog: Changes
signed: 0
- tag: '0.029'
+ tag: '0.030'
tag_format: '%v'
tag_message: '%v'
Dist::Zilla::Role::Git::Repo:
@@ -445,7 +445,7 @@
class: Dist::Zilla::Plugin::InstallGuide
config:
Dist::Zilla::Role::ModuleMetadata:
- Module::Metadata: '1.000033'
+ Module::Metadata: '1.000036'
version: '0.006'
name: '@Author::DBOOK/InstallGuide'
version: '1.200013'
@@ -519,5 +519,5 @@
- 'Dan Book <[email protected]>'
- 'Graham Knop <[email protected]>'
- 'William Taylor <[email protected]>'
-x_generated_by_perl: v5.28.2
+x_generated_by_perl: v5.30.0
x_serialization_backend: 'YAML::Tiny version 1.73'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Freenode/Utils.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Freenode/Utils.pm
--- old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Freenode/Utils.pm
2019-04-26 19:12:45.000000000 +0200
+++ new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Freenode/Utils.pm
2019-08-26 17:27:17.000000000 +0200
@@ -6,7 +6,7 @@
use Exporter 'import';
use Scalar::Util 'blessed';
-our $VERSION = '0.029';
+our $VERSION = '0.030';
our @EXPORT_OK = qw(is_empty_return is_structural_block);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Freenode.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Freenode.pm
--- old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Freenode.pm 2019-04-26
19:12:45.000000000 +0200
+++ new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Freenode.pm 2019-08-26
17:27:17.000000000 +0200
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.029';
+our $VERSION = '0.030';
1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/AmpersandSubCalls.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/AmpersandSubCalls.pm
---
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/AmpersandSubCalls.pm
2019-04-26 19:12:45.000000000 +0200
+++
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/AmpersandSubCalls.pm
2019-08-26 17:27:17.000000000 +0200
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy::Subroutines::ProhibitAmpersandSigils';
-our $VERSION = '0.029';
+our $VERSION = '0.030';
sub default_severity { $SEVERITY_HIGH }
sub default_themes { 'freenode' }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/ArrayAssignAref.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/ArrayAssignAref.pm
---
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/ArrayAssignAref.pm
2019-04-26 19:12:45.000000000 +0200
+++
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/ArrayAssignAref.pm
2019-08-26 17:27:17.000000000 +0200
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent
'Perl::Critic::Policy::ValuesAndExpressions::ProhibitArrayAssignAref';
-our $VERSION = '0.029';
+our $VERSION = '0.030';
sub default_severity { $SEVERITY_MEDIUM }
sub default_themes { 'freenode' }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/BarewordFilehandles.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/BarewordFilehandles.pm
---
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/BarewordFilehandles.pm
2019-04-26 19:12:45.000000000 +0200
+++
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/BarewordFilehandles.pm
2019-08-26 17:27:17.000000000 +0200
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.029';
+our $VERSION = '0.030';
use constant DESC => 'Using bareword filehandles';
use constant EXPL => 'Bareword filehandles are a legacy feature, creating the
filehandles as package variables. Use lexical, scoped filehandles instead (open
my $fh, ...).';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/ConditionalDeclarations.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/ConditionalDeclarations.pm
---
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/ConditionalDeclarations.pm
2019-04-26 19:12:45.000000000 +0200
+++
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/ConditionalDeclarations.pm
2019-08-26 17:27:17.000000000 +0200
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy::Variables::ProhibitConditionalDeclarations';
-our $VERSION = '0.029';
+our $VERSION = '0.030';
sub default_severity { $SEVERITY_HIGH }
sub default_themes { 'freenode' }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/ConditionalImplicitReturn.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/ConditionalImplicitReturn.pm
---
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/ConditionalImplicitReturn.pm
2019-04-26 19:12:45.000000000 +0200
+++
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/ConditionalImplicitReturn.pm
2019-08-26 17:27:17.000000000 +0200
@@ -9,7 +9,7 @@
use List::Util 'any';
use Perl::Critic::Freenode::Utils qw(is_empty_return is_structural_block);
-our $VERSION = '0.029';
+our $VERSION = '0.030';
use constant DESC => 'Subroutine may implicitly return a conditional
statement';
use constant EXPL => 'When the last statement in a subroutine is a
conditional, the return value may unexpectedly be the evaluated condition.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/DeprecatedFeatures.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/DeprecatedFeatures.pm
---
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/DeprecatedFeatures.pm
2019-04-26 19:12:45.000000000 +0200
+++
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/DeprecatedFeatures.pm
2019-08-26 17:27:17.000000000 +0200
@@ -7,7 +7,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.029';
+our $VERSION = '0.030';
sub supported_parameters { () }
sub default_severity { $SEVERITY_HIGH }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/DiscouragedModules.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/DiscouragedModules.pm
---
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/DiscouragedModules.pm
2019-04-26 19:12:45.000000000 +0200
+++
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/DiscouragedModules.pm
2019-08-26 17:27:17.000000000 +0200
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.029';
+our $VERSION = '0.030';
sub supported_parameters { () }
sub default_severity { $SEVERITY_HIGH }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/DollarAB.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/DollarAB.pm
--- old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/DollarAB.pm
2019-04-26 19:12:45.000000000 +0200
+++ new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/DollarAB.pm
2019-08-26 17:27:17.000000000 +0200
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.029';
+our $VERSION = '0.030';
use constant DESC => 'Using $a or $b outside sort()';
use constant EXPL => '$a and $b are special package variables for use in
sort() and related functions. Declaring them as lexicals like "my $a" may break
sort(). Use different variable names.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/Each.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/Each.pm
--- old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/Each.pm
2019-04-26 19:12:45.000000000 +0200
+++ new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/Each.pm
2019-08-26 17:27:17.000000000 +0200
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.029';
+our $VERSION = '0.030';
use constant DESC => 'each() called';
use constant EXPL => 'The each function may cause undefined behavior when
operating on the hash while iterating. Use a foreach loop over the hash\'s keys
or values instead.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/EmptyReturn.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/EmptyReturn.pm
---
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/EmptyReturn.pm
2019-04-26 19:12:45.000000000 +0200
+++
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/EmptyReturn.pm
2019-08-26 17:27:17.000000000 +0200
@@ -9,7 +9,7 @@
use List::Util 'any';
use Perl::Critic::Freenode::Utils qw(is_empty_return is_structural_block);
-our $VERSION = '0.029';
+our $VERSION = '0.030';
use constant DESC => 'return called with no arguments';
use constant EXPL => 'return with no arguments may return either undef or an
empty list depending on context. This can be surprising for the same reason as
other context-sensitive returns. Return undef or the empty list explicitly.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/IndirectObjectNotation.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/IndirectObjectNotation.pm
---
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/IndirectObjectNotation.pm
2019-04-26 19:12:45.000000000 +0200
+++
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/IndirectObjectNotation.pm
2019-08-26 17:27:17.000000000 +0200
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy::Objects::ProhibitIndirectSyntax';
-our $VERSION = '0.029';
+our $VERSION = '0.030';
sub default_severity { $SEVERITY_HIGHEST }
sub default_themes { 'freenode' }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/LexicalForeachIterator.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/LexicalForeachIterator.pm
---
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/LexicalForeachIterator.pm
2019-04-26 19:12:45.000000000 +0200
+++
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/LexicalForeachIterator.pm
2019-08-26 17:27:17.000000000 +0200
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy::Variables::RequireLexicalLoopIterators';
-our $VERSION = '0.029';
+our $VERSION = '0.030';
sub default_severity { $SEVERITY_HIGH }
sub default_themes { 'freenode' }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/LoopOnHash.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/LoopOnHash.pm
---
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/LoopOnHash.pm
2019-04-26 19:12:45.000000000 +0200
+++
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/LoopOnHash.pm
2019-08-26 17:27:17.000000000 +0200
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy::Variables::ProhibitLoopOnHash';
-our $VERSION = '0.029';
+our $VERSION = '0.030';
sub default_severity { $SEVERITY_HIGH }
sub default_themes { 'freenode' }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/ModPerl.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/ModPerl.pm
--- old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/ModPerl.pm
2019-04-26 19:12:45.000000000 +0200
+++ new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/ModPerl.pm
2019-08-26 17:27:17.000000000 +0200
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.029';
+our $VERSION = '0.030';
use constant DESC => 'Using mod_perl';
use constant EXPL => 'mod_perl is not designed for writing Perl web
applications. Try a Plack-based framework (Web::Simple, Dancer2, Catalyst) or
Mojolicious for a modern approach.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/OpenArgs.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/OpenArgs.pm
--- old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/OpenArgs.pm
2019-04-26 19:12:45.000000000 +0200
+++ new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/OpenArgs.pm
2019-08-26 17:27:17.000000000 +0200
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.029';
+our $VERSION = '0.030';
use constant DESC => 'open() called with less than 3 arguments';
use constant EXPL => 'The one- and two-argument forms of open() parse
functionality from the filename, use the three-argument form instead.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/OverloadOptions.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/OverloadOptions.pm
---
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/OverloadOptions.pm
2019-04-26 19:12:45.000000000 +0200
+++
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/OverloadOptions.pm
2019-08-26 17:27:17.000000000 +0200
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.029';
+our $VERSION = '0.030';
use constant DESC => 'Using overload.pm without a boolean overload or
fallback';
use constant EXPL => 'When using overload.pm to define overloads for an object
class, always define an overload on "bool" explicitly and set the fallback
option. This prevents objects from autogenerating a potentially surprising
boolean overload, and causes operators for which overloads can\'t be
autogenerated to act on the object as they normally would.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/POSIXImports.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/POSIXImports.pm
---
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/POSIXImports.pm
2019-04-26 19:12:45.000000000 +0200
+++
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/POSIXImports.pm
2019-08-26 17:27:17.000000000 +0200
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.029';
+our $VERSION = '0.030';
use constant DESC => 'Using POSIX.pm without an explicit import list';
use constant EXPL => 'Using the POSIX module without specifying an import list
results in importing hundreds of symbols. Import the functions or constants you
want explicitly, or prevent the import with ().';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/PackageMatchesFilename.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/PackageMatchesFilename.pm
---
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/PackageMatchesFilename.pm
2019-04-26 19:12:45.000000000 +0200
+++
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/PackageMatchesFilename.pm
2019-08-26 17:27:17.000000000 +0200
@@ -7,7 +7,7 @@
use Path::Tiny 'path';
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.029';
+our $VERSION = '0.030';
use constant DESC => 'No package matching the module filename';
use constant EXPL => 'A Perl module file is expected to contain a matching
package name, so it can be used after loading it from the filesystem. A module
file that doesn\'t contain a matching package name usually indicates an error.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/PreferredAlternatives.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/PreferredAlternatives.pm
---
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/PreferredAlternatives.pm
2019-04-26 19:12:45.000000000 +0200
+++
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/PreferredAlternatives.pm
2019-08-26 17:27:17.000000000 +0200
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.029';
+our $VERSION = '0.030';
sub supported_parameters { () }
sub default_severity { $SEVERITY_LOW }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/Prototypes.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/Prototypes.pm
---
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/Prototypes.pm
2019-04-26 19:12:45.000000000 +0200
+++
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/Prototypes.pm
2019-08-26 17:27:17.000000000 +0200
@@ -6,19 +6,28 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.029';
+our $VERSION = '0.030';
use constant DESC => 'Using function prototypes';
use constant EXPL => 'Function prototypes (sub foo ($@) { ... }) will usually
not do what you want. Omit the prototype, or use signatures instead.';
-sub supported_parameters { () }
+sub supported_parameters {
+ (
+ {
+ name => 'signature_enablers',
+ description => 'Non-standard modules to recognize as
enabling signatures',
+ behavior => 'string list',
+ },
+ )
+}
+
sub default_severity { $SEVERITY_MEDIUM }
sub default_themes { 'freenode' }
sub applies_to { 'PPI::Document' }
sub violates {
my ($self, $elem) = @_;
-
+
# Check if signatures are enabled
my $includes = $elem->find('PPI::Statement::Include') || [];
foreach my $include (@$includes) {
@@ -27,6 +36,7 @@
return () if $include->pragma eq 'experimental' and $include =~
m/\bsignatures\b/;
return () if $include->module eq 'Mojo::Base' and $include =~
m/-signatures\b/;
return () if $include->module eq 'Mojolicious::Lite' and $include =~
m/-signatures\b/;
+ return () if exists $self->{_signature_enablers}{$include->module};
}
my $prototypes = $elem->find('PPI::Token::Prototype') || [];
@@ -71,7 +81,12 @@
=head1 CONFIGURATION
-This policy is not configurable except for the standard options.
+This policy can be configured to recognize additional modules as enabling the
+C<signatures> feature, by putting an entry in a C<.perlcriticrc> file like
+this:
+
+ [Freenode::Prototypes]
+ signature_enablers = MyApp::Base
=head1 AUTHOR
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/StrictWarnings.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/StrictWarnings.pm
---
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/StrictWarnings.pm
2019-04-26 19:12:45.000000000 +0200
+++
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/StrictWarnings.pm
2019-08-26 17:27:17.000000000 +0200
@@ -8,7 +8,7 @@
use parent 'Perl::Critic::Policy';
use version;
-our $VERSION = '0.029';
+our $VERSION = '0.030';
use constant DESC => 'Missing strict or warnings';
use constant EXPL => 'The strict and warnings pragmas are important to avoid
common pitfalls and deprecated/experimental functionality. Make sure each
script or module contains "use strict; use warnings;" or a module that does
this for you.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/Threads.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/Threads.pm
--- old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/Threads.pm
2019-04-26 19:12:45.000000000 +0200
+++ new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/Threads.pm
2019-08-26 17:27:17.000000000 +0200
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.029';
+our $VERSION = '0.030';
use constant DESC => 'Using interpreter threads';
use constant EXPL => 'Interpreter threads are discouraged, they are not
lightweight and fast as other threads may be. Try an event loop, forks.pm, or
Parallel::Prefork.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/Wantarray.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/Wantarray.pm
--- old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/Wantarray.pm
2019-04-26 19:12:45.000000000 +0200
+++ new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/Wantarray.pm
2019-08-26 17:27:17.000000000 +0200
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.029';
+our $VERSION = '0.030';
use constant DESC => 'wantarray() called';
use constant EXPL => 'Context-sensitive functions lead to unexpected errors or
vulnerabilities. Functions should explicitly return either a list or a scalar
value.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/WarningsSwitch.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/WarningsSwitch.pm
---
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/WarningsSwitch.pm
2019-04-26 19:12:45.000000000 +0200
+++
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/WarningsSwitch.pm
2019-08-26 17:27:17.000000000 +0200
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.029';
+our $VERSION = '0.030';
use constant DESC => 'Using -w switch';
use constant EXPL => 'Don\'t use -w (or -W), it\'s too eager. use warnings;
instead.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/WhileDiamondDefaultAssignment.pm
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/WhileDiamondDefaultAssignment.pm
---
old/Perl-Critic-Freenode-0.029/lib/Perl/Critic/Policy/Freenode/WhileDiamondDefaultAssignment.pm
2019-04-26 19:12:45.000000000 +0200
+++
new/Perl-Critic-Freenode-0.030/lib/Perl/Critic/Policy/Freenode/WhileDiamondDefaultAssignment.pm
2019-08-26 17:27:17.000000000 +0200
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.029';
+our $VERSION = '0.030';
use constant DESC => '<>/<<>>/readline/readdir/each result not explicitly
assigned in while condition';
use constant EXPL => 'When used alone in a while condition, the <>/<<>>
operator, readline, readdir, and each functions assign their result to $_, but
do not localize it. Assign the result to an explicit lexical variable instead
(my $line = <...>, my $dir = readdir ...)';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl-Critic-Freenode-0.029/t/Freenode/DollarAB.run
new/Perl-Critic-Freenode-0.030/t/Freenode/DollarAB.run
--- old/Perl-Critic-Freenode-0.029/t/Freenode/DollarAB.run 2019-04-26
19:12:45.000000000 +0200
+++ new/Perl-Critic-Freenode-0.030/t/Freenode/DollarAB.run 2019-08-26
17:27:17.000000000 +0200
@@ -53,3 +53,11 @@
pairfirst { $a; $b } ();
pairmap { $a; $b } ();
pairwise { $a; $b } ();
+
+## name CustomFunctions
+## failures 0
+## parms { extra_pair_functions => 'foo bar' }
+## cut
+
+foo { $a; $b };
+bar { $a; $b };
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl-Critic-Freenode-0.029/t/Freenode/Prototypes.run
new/Perl-Critic-Freenode-0.030/t/Freenode/Prototypes.run
--- old/Perl-Critic-Freenode-0.029/t/Freenode/Prototypes.run 2019-04-26
19:12:45.000000000 +0200
+++ new/Perl-Critic-Freenode-0.030/t/Freenode/Prototypes.run 2019-08-26
17:27:17.000000000 +0200
@@ -32,6 +32,14 @@
use Mojolicious::Lite -signatures;
sub foo ($foo) { ... }
+## name CustomSignature
+## failures 0
+## parms { signature_enablers => 'MyApp::Base' }
+## cut
+
+use MyApp::Base;
+sub foo ($foo) { ... }
+
## name NoPrototype
## failures 0
## cut
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.029/t/Freenode/StrictWarnings.run
new/Perl-Critic-Freenode-0.030/t/Freenode/StrictWarnings.run
--- old/Perl-Critic-Freenode-0.029/t/Freenode/StrictWarnings.run
2019-04-26 19:12:45.000000000 +0200
+++ new/Perl-Critic-Freenode-0.030/t/Freenode/StrictWarnings.run
2019-08-26 17:27:17.000000000 +0200
@@ -77,3 +77,9 @@
use 5.10.1;
use warnings;
+## name CustomImporter
+## failures 0
+## parms { extra_importers => 'MyApp::Base' }
+## cut
+
+use MyApp::Base;
