line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package App::MigrateToTest2V0::Rule::ReplaceUseTestMoreToUseTest2V0; |
2
|
4
|
|
|
4
|
|
1060
|
use strict; |
|
4
|
|
|
|
|
10
|
|
|
4
|
|
|
|
|
138
|
|
3
|
4
|
|
|
4
|
|
22
|
use warnings; |
|
4
|
|
|
|
|
10
|
|
|
4
|
|
|
|
|
145
|
|
4
|
4
|
|
|
4
|
|
30
|
use parent 'App::MigrateToTest2V0::Rule'; |
|
4
|
|
|
|
|
10
|
|
|
4
|
|
|
|
|
30
|
|
5
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
sub apply { |
7
|
14
|
|
|
14
|
0
|
55
|
my ($class, $doc) = @_; |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
my $use = $doc->find_first(sub { |
10
|
135
|
|
|
135
|
|
1909
|
my (undef, $elem) = @_; |
11
|
135
|
|
100
|
|
|
581
|
return $elem->isa('PPI::Statement::Include') && $elem->module eq 'Test::More'; |
12
|
14
|
|
|
|
|
162
|
}); |
13
|
14
|
100
|
|
|
|
394
|
return unless $use; |
14
|
|
|
|
|
|
|
|
15
|
4
|
|
|
|
|
16
|
my $module_name_token = $use->schild(1); |
16
|
4
|
|
|
|
|
74
|
$module_name_token->set_content('Test2::V0'); |
17
|
|
|
|
|
|
|
|
18
|
4
|
100
|
|
|
|
32
|
return unless $use->arguments; |
19
|
|
|
|
|
|
|
|
20
|
2
|
|
|
|
|
102
|
my $arg_kind = ($use->arguments)[0]; |
21
|
|
|
|
|
|
|
# add statement |
22
|
2
|
100
|
|
|
|
69
|
if ($arg_kind eq 'tests') { |
|
|
50
|
|
|
|
|
|
23
|
|
|
|
|
|
|
# plan tests => ...; |
24
|
1
|
|
|
|
|
23
|
my $test_num = ($use->arguments)[2]; |
25
|
1
|
|
|
|
|
36
|
my $plan_stmt = PPI::Statement->new; |
26
|
1
|
|
|
|
|
13
|
$plan_stmt->add_element(PPI::Token::Whitespace->new("\n")); |
27
|
1
|
|
|
|
|
95
|
$plan_stmt->add_element(PPI::Token::Word->new('plan')); |
28
|
1
|
|
|
|
|
22
|
$plan_stmt->add_element(PPI::Token::Whitespace->new(' ')); |
29
|
1
|
|
|
|
|
31
|
$plan_stmt->add_element(PPI::Token::Word->new('tests')); |
30
|
1
|
|
|
|
|
31
|
$plan_stmt->add_element(PPI::Token::Whitespace->new(' ')); |
31
|
1
|
|
|
|
|
19
|
$plan_stmt->add_element(PPI::Token::Operator->new('=>')); |
32
|
1
|
|
|
|
|
20
|
$plan_stmt->add_element(PPI::Token::Whitespace->new(' ')); |
33
|
1
|
|
|
|
|
25
|
$plan_stmt->add_element($test_num->clone); |
34
|
1
|
|
|
|
|
47
|
$plan_stmt->add_element(PPI::Token::Structure->new(';')); |
35
|
1
|
|
|
|
|
36
|
$use->insert_after($plan_stmt); |
36
|
|
|
|
|
|
|
} elsif ($arg_kind eq 'skip_all') { |
37
|
|
|
|
|
|
|
# skip_all ...; |
38
|
1
|
|
|
|
|
35
|
my $skip_reason = ($use->arguments)[2]; |
39
|
1
|
|
|
|
|
36
|
my $skip_all_stmt = PPI::Statement->new; |
40
|
1
|
|
|
|
|
14
|
$skip_all_stmt->add_element(PPI::Token::Whitespace->new("\n")); |
41
|
1
|
|
|
|
|
31
|
$skip_all_stmt->add_element(PPI::Token::Word->new('skip_all')); |
42
|
1
|
|
|
|
|
19
|
$skip_all_stmt->add_element(PPI::Token::Whitespace->new(' ')); |
43
|
1
|
|
|
|
|
25
|
$skip_all_stmt->add_element($skip_reason->clone); |
44
|
1
|
|
|
|
|
32
|
$skip_all_stmt->add_element(PPI::Token::Structure->new(';')); |
45
|
1
|
|
|
|
|
23
|
$use->insert_after($skip_all_stmt); |
46
|
|
|
|
|
|
|
} |
47
|
|
|
|
|
|
|
|
48
|
|
|
|
|
|
|
# remove arguments |
49
|
2
|
|
|
|
|
162
|
my $elem = $module_name_token->next_sibling; |
50
|
2
|
|
|
|
|
58
|
while ($elem->content ne ';') { |
51
|
12
|
|
|
|
|
104
|
my $next = $elem->next_sibling; |
52
|
12
|
|
|
|
|
245
|
$elem->remove; |
53
|
12
|
|
|
|
|
408
|
$elem = $next; |
54
|
|
|
|
|
|
|
} |
55
|
|
|
|
|
|
|
} |
56
|
|
|
|
|
|
|
|
57
|
|
|
|
|
|
|
1; |