File Coverage

blib/lib/Perl/Lint/Policy/BuiltinFunctions/ProhibitStringySplit.pm
Criterion Covered Total %
statement 32 32 100.0
branch 10 10 100.0
condition 12 12 100.0
subroutine 6 6 100.0
pod 0 1 0.0
total 60 61 98.3


line stmt bran cond sub pod time code
1             package Perl::Lint::Policy::BuiltinFunctions::ProhibitStringySplit;
2 134     134   67407 use strict;
  134         196  
  134         3233  
3 134     134   440 use warnings;
  134         163  
  134         2531  
4 134     134   870 use Perl::Lint::Constants::Type;
  134         163  
  134         60357  
5 134     134   592 use parent "Perl::Lint::Policy";
  134         187  
  134         591  
6              
7             use constant {
8 134         28967 DESC => 'String delimiter used with "split"',
9             EXPL => 'Express it as a regex instead',
10 134     134   6758 };
  134         183  
11              
12             sub evaluate {
13 7     7 0 13 my ($class, $file, $tokens, $src, $args) = @_;
14              
15 7         9 my @violations;
16 7         19 for (my $i = 0; my $token = $tokens->[$i]; $i++) {
17 312         188 my $token_type = $token->{type};
18 312         206 my $token_data = $token->{data};
19              
20 312 100 100     664 if ($token_type == BUILTIN_FUNC && $token_data eq 'split') {
21 55         38 $token = $tokens->[++$i];
22              
23 55 100       70 if ($token->{type} == LEFT_PAREN) {
24 28         19 $token = $tokens->[++$i];
25             }
26              
27 55         40 $token_type = $token->{type};
28 55         38 $token_data = $token->{data};
29              
30 55 100 100     252 if (
    100 100        
      100        
31             ($token_type == STRING || $token_type == RAW_STRING) &&
32             $token_data ne ' '
33             ) {
34             push @violations, {
35             filename => $file,
36             line => $token->{line},
37 17         55 description => DESC,
38             explanation => EXPL,
39             policy => __PACKAGE__,
40             };
41             }
42             elsif ($token_type == REG_QUOTE || $token_type == REG_DOUBLE_QUOTE) {
43 18         10 $i += 2;
44 18 100       31 if ($tokens->[$i]->{data} ne ' ') {
45             push @violations, {
46             filename => $file,
47             line => $token->{line},
48 12         38 description => DESC,
49             explanation => EXPL,
50             policy => __PACKAGE__,
51             };
52             }
53             }
54             }
55             }
56              
57 7         22 return \@violations;
58             }
59              
60             1;
61