File Coverage

blib/lib/Perl/Critic/Policy/Dancer2/ProhibitUnrecommendedKeywords.pm

Criterion	Covered	Total	%
statement	28	29	96.5
branch	6	6	100.0
condition	5	6	83.3
subroutine	10	11	90.9
pod	4	4	100.0
total	53	56	94.6

our $VERSION = '0.4000'; # VERSION
our $AUTHORITY = 'cpan:GEEKRUTH'; # AUTHORITY
# ABSTRACT: Trigger perlcritic alerts on unrecommended Dancer2 keywords
use 5.006001;
use strict;
use warnings;
use Readonly;

use Perl::Critic::Utils qw{
    :booleans :characters :severities :classification :data_conversion
};
use base 'Perl::Critic::Policy';


Readonly::Hash my %unrecommended_words =>
    ( { params => q{body_parameters', 'route_parameters', or 'query_parameters} }, );
Readonly::Scalar my $EXPL =>
    'You are using a Dancer2 keyword that is not recommended, and may be deprecated in the future.';

   my ( $self, $elem, $doc ) = @_;
   my $included = $doc->find_any(
      sub {
         $_[1]->isa('PPI::Statement::Include')
             and defined( $_[1]->module() )
             and ( $_[1]->module() eq 'Dancer2' )
             and $_[1]->type() eq 'use';
      }
   );
   return if !$included;
   if ( defined $unrecommended_words{$elem} ) {
      my $alternative = $unrecommended_words{$elem};
      my $desc        = qq{Use '$alternative' instead of unrecommended Dancer2 keyword '$elem'};
      return $self->violation( $desc, $EXPL, $elem );
   }
   return;
}

1;


=pod

=encoding UTF-8

=head1 NAME

Perl::Critic::Policy::Dancer2::ProhibitUnrecommendedKeywords - Trigger perlcritic alerts on unrecommended Dancer2 keywords

=head1 VERSION

version 0.4000

=head1 DESCRIPTION

The L<Dancer2> team has a deprecation policy, detailed at
L<Dancer2::DeprecationPolicy>, that will, in time, cause certain
keywords to be removed from the Dancer2 codebase. The keywords
addressed in this policy have newer substitutes and/or have been
suggested for deprecation.

=head1 AFFILIATION

This policy is part of L<Perl::Critic::Dancer2>.

=head1 CONFIGURATION

This Policy is not configurable except for the standard options.

=head1 AUTHOR

D Ruth Holloway <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2022 by D Ruth Holloway.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut