File Coverage

blib/lib/Perl/Lint/Policy/Modules/RequireEndWithOne.pm

Criterion	Covered	Total	%
statement	33	34	97.0
branch	5	6	83.3
condition	18	24	75.0
subroutine	7	7	100.0
pod	0	1	0.0
total	63	72	87.5

package Perl::Lint::Policy::Modules::RequireEndWithOne;
use strict;
use warnings;
use utf8;
use Perl::Lint::Constants::Type;
use parent "Perl::Lint::Policy";

use constant {
    DESC => 'Module does not end with "1;"',
    EXPL => 'Must end with a recognizable true value',
};

sub evaluate {
    my ($class, $file, $tokens, $src, $args) = @_;

    my @violations;
    if ($src =~ /\A#!/) { # for shebang. If
        return [];
    }

    my $last_token = $tokens->[-1];
    my $last_token_type = $last_token->{type};
    my $last_token_data = $last_token->{data};
    my $before_last_token = $tokens->[-2];
    my $before_last_token_type = $before_last_token->{type};
    my $before_last_token_data = $before_last_token->{data};
    my $extra_before_token = $tokens->[-3];

    if (!%$last_token || !%$before_last_token) {
        return [];
    }

    if (
        !(
            $before_last_token_type == ASSIGN &&
            $last_token_type == KEY &&
            $last_token_data eq 'pod'
        ) &&
        !(
            (
                !$extra_before_token ||
                $extra_before_token->{type} == SEMI_COLON ||
                $extra_before_token->{type} == RIGHT_BRACE
            ) &&
            $before_last_token_type == INT &&
            $last_token_type == SEMI_COLON &&
            eval($before_last_token_data) == 1 ## no critic: to accept bin, oct and hex decimal
        )
    ) {
        push @violations, {
            filename => $file,
            line     => $last_token->{line},
            description => DESC,
            explanation => EXPL,
            policy => __PACKAGE__,
        };
    }

    return \@violations;
}

1;