line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
#!/usr/bin/perl -w |
2
|
1
|
|
|
1
|
|
108702
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
62
|
|
3
|
|
|
|
|
|
|
|
4
|
1
|
|
|
1
|
|
483
|
use Test::More tests => 15; |
|
1
|
|
|
|
|
14324
|
|
|
1
|
|
|
|
|
6
|
|
5
|
1
|
|
|
1
|
|
633
|
use Test::Exception; |
|
1
|
|
|
|
|
2511
|
|
|
1
|
|
|
|
|
4
|
|
6
|
|
|
|
|
|
|
|
7
|
1
|
|
|
1
|
|
598
|
use Data::Dumper; |
|
1
|
|
|
|
|
5265
|
|
|
1
|
|
|
|
|
50
|
|
8
|
1
|
|
|
1
|
|
5
|
use File::Basename; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
80
|
|
9
|
1
|
|
|
1
|
|
298
|
use File::Spec::Functions; |
|
1
|
|
|
|
|
450
|
|
|
1
|
|
|
|
|
59
|
|
10
|
|
|
|
|
|
|
|
11
|
1
|
|
|
1
|
|
261
|
use lib "../lib"; |
|
1
|
|
|
|
|
537
|
|
|
1
|
|
|
|
|
3
|
|
12
|
|
|
|
|
|
|
|
13
|
1
|
|
|
1
|
|
71000
|
use_ok("Devel::PerlySense"); |
|
1
|
|
|
|
|
615
|
|
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
11
|
|
14
|
1
|
|
|
1
|
|
313
|
use_ok("Devel::PerlySense::Document"); |
|
1
|
|
|
|
|
85
|
|
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
8
|
|
15
|
1
|
|
|
1
|
|
194
|
use_ok("Devel::PerlySense::Document::Meta"); |
|
1
|
|
|
|
|
56
|
|
|
1
|
|
|
|
|
199
|
|
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
9
|
|
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
|
18
|
1
|
50
|
|
1
|
|
1576
|
BEGIN { -d "t" and chdir("t"); } |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
|
21
|
1
|
|
|
|
|
206
|
my $dirData = "data/project-lib"; |
22
|
1
|
|
|
|
|
1
|
my $oMeta; |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
{ |
26
|
1
|
|
|
|
|
2
|
my $fileOrigin = "$dirData/Game/Object/Worm/Bot.pm"; |
|
1
|
|
|
|
|
3
|
|
27
|
1
|
|
|
|
|
5
|
ok(my $oDocument = Devel::PerlySense::Document->new(oPerlySense => Devel::PerlySense->new()), "new ok"); |
28
|
|
|
|
|
|
|
|
29
|
1
|
|
|
|
|
190
|
ok($oDocument->parse(file => $fileOrigin), "Parsed file ok"); |
30
|
|
|
|
|
|
|
|
31
|
1
|
|
|
|
|
320
|
$oMeta = $oDocument->oMeta; |
32
|
1
|
|
|
|
|
4
|
is_deeply([sort @{$oMeta->raNameModuleBase}], [ |
|
1
|
|
|
|
|
24
|
|
33
|
|
|
|
|
|
|
sort qw/ |
34
|
|
|
|
|
|
|
Game::Object::Worm |
35
|
|
|
|
|
|
|
/], " correct used modules"); |
36
|
|
|
|
|
|
|
} |
37
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
|
39
|
|
|
|
|
|
|
|
40
|
|
|
|
|
|
|
{ |
41
|
1
|
|
|
|
|
6256
|
my $fileOrigin = "$dirData/Game/Object/Worm/ShaiHulud.pm"; |
|
1
|
|
|
|
|
4
|
|
42
|
1
|
|
|
|
|
9
|
ok(my $oDocument = Devel::PerlySense::Document->new(oPerlySense => Devel::PerlySense->new()), "new ok"); |
43
|
|
|
|
|
|
|
|
44
|
1
|
|
|
|
|
217
|
ok($oDocument->parse(file => $fileOrigin), "Parsed file ok"); |
45
|
|
|
|
|
|
|
|
46
|
1
|
|
|
|
|
318
|
$oMeta = $oDocument->oMeta; |
47
|
1
|
|
|
|
|
19
|
is_deeply([sort @{$oMeta->raNameModuleBase}], [ |
|
1
|
|
|
|
|
326
|
|
48
|
|
|
|
|
|
|
sort qw/ |
49
|
|
|
|
|
|
|
Game::Object::Worm |
50
|
|
|
|
|
|
|
Game::Lawn |
51
|
|
|
|
|
|
|
/], " correct used modules"); |
52
|
|
|
|
|
|
|
} |
53
|
|
|
|
|
|
|
|
54
|
|
|
|
|
|
|
|
55
|
|
|
|
|
|
|
|
56
|
|
|
|
|
|
|
{ |
57
|
1
|
|
|
|
|
3665
|
my $fileOrigin = "$dirData/Game/Object/Worm/Shaitan.pm"; |
|
1
|
|
|
|
|
17
|
|
58
|
1
|
|
|
|
|
12
|
ok(my $oDocument = Devel::PerlySense::Document->new(oPerlySense => Devel::PerlySense->new()), "new ok"); |
59
|
|
|
|
|
|
|
|
60
|
1
|
|
|
|
|
263
|
ok($oDocument->parse(file => $fileOrigin), "Parsed file ok"); |
61
|
|
|
|
|
|
|
|
62
|
1
|
|
|
|
|
618
|
$oMeta = $oDocument->oMeta; |
63
|
1
|
|
|
|
|
11
|
is_deeply([sort @{$oMeta->raNameModuleBase}], [ |
|
1
|
|
|
|
|
204
|
|
64
|
|
|
|
|
|
|
sort qw/ |
65
|
|
|
|
|
|
|
Game::Lawn |
66
|
|
|
|
|
|
|
Game::Object::Worm |
67
|
|
|
|
|
|
|
/], " correct used modules"); |
68
|
|
|
|
|
|
|
} |
69
|
|
|
|
|
|
|
|
70
|
|
|
|
|
|
|
|
71
|
|
|
|
|
|
|
|
72
|
|
|
|
|
|
|
|
73
|
|
|
|
|
|
|
{ |
74
|
1
|
|
|
|
|
2429
|
my $fileOrigin = "data/inc-lib/SubClass.pm"; |
|
1
|
|
|
|
|
2
|
|
75
|
1
|
|
|
|
|
8
|
ok(my $oDocument = Devel::PerlySense::Document->new(oPerlySense => Devel::PerlySense->new()), "new ok"); |
76
|
|
|
|
|
|
|
|
77
|
1
|
|
|
|
|
192
|
ok($oDocument->parse(file => $fileOrigin), "Parsed file ok"); |
78
|
|
|
|
|
|
|
|
79
|
1
|
|
|
|
|
308
|
$oMeta = $oDocument->oMeta; |
80
|
1
|
|
|
|
|
9
|
is_deeply([sort @{$oMeta->raNameModuleBase}], [ |
|
1
|
|
|
|
|
137
|
|
81
|
|
|
|
|
|
|
sort qw/ |
82
|
|
|
|
|
|
|
Class::IsaAssignmentScalar |
83
|
|
|
|
|
|
|
|
84
|
|
|
|
|
|
|
Class::IsaAssignmentList1 |
85
|
|
|
|
|
|
|
Class::IsaAssignmentList2 |
86
|
|
|
|
|
|
|
|
87
|
|
|
|
|
|
|
Class::IsaAssignmentQwList1 |
88
|
|
|
|
|
|
|
Class::IsaAssignmentQwList2 |
89
|
|
|
|
|
|
|
|
90
|
|
|
|
|
|
|
Class::PushIsa |
91
|
|
|
|
|
|
|
Class::PushAnotherIsa |
92
|
|
|
|
|
|
|
|
93
|
|
|
|
|
|
|
Class::UseBaseScalar |
94
|
|
|
|
|
|
|
|
95
|
|
|
|
|
|
|
Class::UseBaseBareList1 |
96
|
|
|
|
|
|
|
Class::UseBaseBareList2 |
97
|
|
|
|
|
|
|
|
98
|
|
|
|
|
|
|
Class::UseBaseList1 |
99
|
|
|
|
|
|
|
Class::UseBaseList2 |
100
|
|
|
|
|
|
|
|
101
|
|
|
|
|
|
|
Class::UseBaseQw1 |
102
|
|
|
|
|
|
|
Class::UseBaseQw2 |
103
|
|
|
|
|
|
|
|
104
|
|
|
|
|
|
|
/], " correct used modules"); |
105
|
|
|
|
|
|
|
} |
106
|
|
|
|
|
|
|
|
107
|
|
|
|
|
|
|
|
108
|
|
|
|
|
|
|
|
109
|
|
|
|
|
|
|
|
110
|
|
|
|
|
|
|
__END__ |