| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
#!/usr/bin/perl -w |
|
2
|
1
|
|
|
1
|
|
112442
|
use strict; |
|
|
1
|
|
|
|
|
3
|
|
|
|
1
|
|
|
|
|
66
|
|
|
3
|
|
|
|
|
|
|
|
|
4
|
1
|
|
|
1
|
|
549
|
use Test::More tests => 55; |
|
|
1
|
|
|
|
|
14687
|
|
|
|
1
|
|
|
|
|
7
|
|
|
5
|
1
|
|
|
1
|
|
630
|
use Test::Exception; |
|
|
1
|
|
|
|
|
2515
|
|
|
|
1
|
|
|
|
|
4
|
|
|
6
|
|
|
|
|
|
|
|
|
7
|
1
|
|
|
1
|
|
207
|
use File::Basename; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
94
|
|
|
8
|
1
|
|
|
1
|
|
261
|
use File::Spec::Functions; |
|
|
1
|
|
|
|
|
471
|
|
|
|
1
|
|
|
|
|
58
|
|
|
9
|
1
|
|
|
1
|
|
405
|
use Data::Dumper; |
|
|
1
|
|
|
|
|
6120
|
|
|
|
1
|
|
|
|
|
57
|
|
|
10
|
|
|
|
|
|
|
|
|
11
|
1
|
|
|
1
|
|
338
|
use lib "../lib"; |
|
|
1
|
|
|
|
|
535
|
|
|
|
1
|
|
|
|
|
3
|
|
|
12
|
|
|
|
|
|
|
|
|
13
|
1
|
|
|
1
|
|
70032
|
use_ok("Devel::PerlySense"); |
|
|
1
|
|
|
|
|
698
|
|
|
|
1
|
|
|
|
|
3
|
|
|
|
1
|
|
|
|
|
3
|
|
|
|
1
|
|
|
|
|
7
|
|
|
14
|
1
|
|
|
1
|
|
274
|
use_ok("Devel::PerlySense::Document::Location"); |
|
|
1
|
|
|
|
|
76
|
|
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
1
|
|
|
|
1
|
|
|
|
|
8
|
|
|
15
|
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
|
|
17
|
1
|
50
|
|
1
|
|
2032
|
BEGIN { -d "t" and chdir("t"); } |
|
18
|
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
|
|
20
|
1
|
|
|
|
|
196
|
ok(my $oPs = Devel::PerlySense->new(), "new ok"); |
|
21
|
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
|
|
24
|
1
|
|
|
|
|
198
|
my $dirData = "data/simple-lib"; |
|
25
|
1
|
|
|
|
|
3
|
my $fileOrigin = "$dirData/lib/Win32/Word/Writer.pm"; |
|
26
|
1
|
|
|
|
|
2
|
my $text; |
|
27
|
1
|
|
|
|
|
1
|
my $oLocation; |
|
28
|
1
|
|
|
|
|
2
|
my $rex; |
|
29
|
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
|
|
31
|
1
|
|
|
|
|
15
|
print "\n* Docs for method call\n"; |
|
32
|
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
#Should be reinstated / changed to either report the variable or not find anything at all, once variables are parsed for |
|
35
|
1
|
|
|
|
|
5
|
ok($oLocation = $oPs->oLocationSmartDoc(file => $fileOrigin, row => 420, col => 17), "Didn't find hOpt"); |
|
36
|
1
|
|
|
|
|
346
|
is($oLocation->file, $fileOrigin, " In correct file"); |
|
37
|
1
|
|
|
|
|
220
|
is($oLocation->row, 1, " row"); |
|
38
|
1
|
|
|
|
|
620
|
is($oLocation->col, 1, " col"); |
|
39
|
|
|
|
|
|
|
|
|
40
|
|
|
|
|
|
|
|
|
41
|
|
|
|
|
|
|
|
|
42
|
1
|
|
|
|
|
192
|
$text = q{METHODS - ADDING TEXT |
|
43
|
|
|
|
|
|
|
NewParagraph([heading => $level], [style => $name]) |
|
44
|
|
|
|
|
|
|
Start a new paragraph of heading $level or with style $name. The style |
|
45
|
|
|
|
|
|
|
overrides heading. The style should be a paragraph style. |
|
46
|
|
|
|
|
|
|
|
|
47
|
|
|
|
|
|
|
The default style is "Normal".}; |
|
48
|
1
|
|
|
|
|
6
|
ok($oLocation = $oPs->oLocationSmartDoc(file => $fileOrigin, row => 423, col => 21), "Found POD ok"); |
|
49
|
1
|
|
|
|
|
333
|
is($oLocation->rhProperty->{text}, $text, " Found POD text ok"); |
|
50
|
1
|
|
|
|
|
224
|
is($oLocation->file, $fileOrigin, " In correct file"); |
|
51
|
1
|
|
|
|
|
622
|
is($oLocation->row, 438, " row"); |
|
52
|
1
|
|
|
|
|
213
|
is($oLocation->col, 1, " col"); |
|
53
|
1
|
|
|
|
|
210
|
is($oLocation->rhProperty->{docType}, "hint", " docType method"); |
|
54
|
1
|
|
|
|
|
211
|
is($oLocation->rhProperty->{found}, "method", " docType method"); |
|
55
|
1
|
|
|
|
|
219
|
is($oLocation->rhProperty->{name}, "NewParagraph", " name"); |
|
56
|
|
|
|
|
|
|
|
|
57
|
|
|
|
|
|
|
|
|
58
|
1
|
|
|
|
|
185
|
$text = q{METHODS - ADDING TEXT |
|
59
|
|
|
|
|
|
|
Write($text) |
|
60
|
|
|
|
|
|
|
Append $text to the document (using the current style etc).}; |
|
61
|
1
|
|
|
|
|
4
|
ok($oLocation = $oPs->oLocationSmartDoc(file => $fileOrigin, row => 429, col => 14), "Found POD ok"); |
|
62
|
1
|
|
|
|
|
302
|
is($oLocation->rhProperty->{text}, $text, " Found POD text ok"); |
|
63
|
1
|
|
|
|
|
217
|
is($oLocation->file, $fileOrigin, " In correct file"); |
|
64
|
1
|
|
|
|
|
210
|
is($oLocation->row, 391, " row"); |
|
65
|
1
|
|
|
|
|
210
|
is($oLocation->col, 1, " col"); |
|
66
|
1
|
|
|
|
|
248
|
is($oLocation->rhProperty->{docType}, "hint", " docType method"); |
|
67
|
1
|
|
|
|
|
205
|
is($oLocation->rhProperty->{found}, "method", " docType method"); |
|
68
|
1
|
|
|
|
|
206
|
is($oLocation->rhProperty->{name}, "Write", " name"); |
|
69
|
|
|
|
|
|
|
|
|
70
|
|
|
|
|
|
|
|
|
71
|
|
|
|
|
|
|
|
|
72
|
1
|
|
|
|
|
183
|
print "\n* Docs for module POD\n"; |
|
73
|
|
|
|
|
|
|
|
|
74
|
|
|
|
|
|
|
|
|
75
|
1
|
|
|
|
|
5
|
$rex = qr{Win32::Word::Writer::Table - Add tables to Word documents}s; |
|
76
|
1
|
|
|
|
|
4
|
ok($oLocation = $oPs->oLocationSmartDoc(file => $fileOrigin, row => 157, col => 14), "Found module POD ok"); |
|
77
|
1
|
|
|
|
|
293
|
like($oLocation->rhProperty->{text}, $rex, " Found POD text ok"); |
|
78
|
1
|
|
|
|
|
209
|
like($oLocation->file, qr/Writer.Table\.pm/, " In correct file"); |
|
79
|
1
|
|
|
|
|
292
|
is($oLocation->row, 1, " row"); |
|
80
|
1
|
|
|
|
|
210
|
is($oLocation->col, 1, " col"); |
|
81
|
1
|
|
|
|
|
208
|
is($oLocation->rhProperty->{"found"}, "module", " docType module"); |
|
82
|
1
|
|
|
|
|
205
|
is($oLocation->rhProperty->{docType}, "document", " docType module"); |
|
83
|
1
|
|
|
|
|
205
|
is($oLocation->rhProperty->{name}, "Win32::Word::Writer::Table", " name"); |
|
84
|
|
|
|
|
|
|
|
|
85
|
|
|
|
|
|
|
|
|
86
|
|
|
|
|
|
|
|
|
87
|
1
|
|
|
|
|
184
|
$rex = qr{Win32::Word::Writer - Create Microsoft Word documents}s; |
|
88
|
1
|
|
|
|
|
5
|
ok($oLocation = $oPs->oLocationSmartDoc(file => $fileOrigin, row => 201, col => 3), "Found nothing, in between tokens"); |
|
89
|
1
|
|
|
|
|
302
|
like($oLocation->rhProperty->{text}, $rex, " Found POD text ok"); |
|
90
|
1
|
|
|
|
|
212
|
like($oLocation->file, qr/Writer\.pm/, " In correct file"); |
|
91
|
1
|
|
|
|
|
212
|
is($oLocation->row, 1, " row"); |
|
92
|
1
|
|
|
|
|
211
|
is($oLocation->col, 1, " col"); |
|
93
|
1
|
|
|
|
|
207
|
is($oLocation->rhProperty->{"found"}, "module", " docType module"); |
|
94
|
1
|
|
|
|
|
207
|
is($oLocation->rhProperty->{docType}, "document", " docType module"); |
|
95
|
1
|
|
|
|
|
206
|
is($oLocation->rhProperty->{name}, "Win32::Word::Writer", " name"); |
|
96
|
|
|
|
|
|
|
|
|
97
|
|
|
|
|
|
|
|
|
98
|
1
|
|
|
|
|
185
|
ok( $oPs->oLocationSmartDoc(file => $fileOrigin, row => 420, col => 5234), "Didn't find anything at point at far right, returned entire POD for the file"); |
|
99
|
1
|
|
|
|
|
301
|
like($oLocation->rhProperty->{text}, $rex, " Found POD text ok"); |
|
100
|
1
|
|
|
|
|
209
|
like($oLocation->file, qr/Writer\.pm/, " In correct file"); |
|
101
|
1
|
|
|
|
|
207
|
is($oLocation->row, 1, " row"); |
|
102
|
1
|
|
|
|
|
208
|
is($oLocation->col, 1, " col"); |
|
103
|
1
|
|
|
|
|
206
|
is($oLocation->rhProperty->{"found"}, "module", " docType module"); |
|
104
|
1
|
|
|
|
|
206
|
is($oLocation->rhProperty->{docType}, "document", " docType module"); |
|
105
|
1
|
|
|
|
|
205
|
is($oLocation->rhProperty->{name}, "Win32::Word::Writer", " name"); |
|
106
|
|
|
|
|
|
|
|
|
107
|
|
|
|
|
|
|
|
|
108
|
|
|
|
|
|
|
|
|
109
|
|
|
|
|
|
|
|
|
110
|
1
|
|
|
|
|
187
|
print "\n* Docs for class method POD in base class\n"; |
|
111
|
|
|
|
|
|
|
|
|
112
|
|
|
|
|
|
|
|
|
113
|
1
|
|
|
|
|
3
|
$dirData = "data/project-lib"; |
|
114
|
1
|
|
|
|
|
2
|
$fileOrigin = "$dirData/Game/Application.pm"; |
|
115
|
1
|
|
|
|
|
3
|
my $rexFile = qr/Game.Object.Worm.pm/; |
|
116
|
|
|
|
|
|
|
|
|
117
|
1
|
|
|
|
|
2
|
$text = q{CLASS METHODS |
|
118
|
|
|
|
|
|
|
loadFile($file) |
|
119
|
|
|
|
|
|
|
Bogus test method to have something to test with. |
|
120
|
|
|
|
|
|
|
|
|
121
|
|
|
|
|
|
|
From <Game::Object::Worm>}; |
|
122
|
1
|
|
|
|
|
5
|
ok($oLocation = $oPs->oLocationSmartDoc(file => $fileOrigin, row => 167, col => 44), "Found POD ok"); |
|
123
|
1
|
|
|
|
|
300
|
is($oLocation->rhProperty->{text}, $text, " Found POD text ok"); |
|
124
|
1
|
|
|
|
|
210
|
like($oLocation->file, $rexFile, " In correct file"); |
|
125
|
1
|
|
|
|
|
210
|
is($oLocation->row, 355, " row"); |
|
126
|
1
|
|
|
|
|
218
|
is($oLocation->col, 1, " col"); |
|
127
|
1
|
|
|
|
|
203
|
is($oLocation->rhProperty->{docType}, "hint", " docType method"); |
|
128
|
1
|
|
|
|
|
204
|
is($oLocation->rhProperty->{found}, "method", " docType method"); |
|
129
|
1
|
|
|
|
|
204
|
is($oLocation->rhProperty->{name}, "loadFile", " name"); |
|
130
|
|
|
|
|
|
|
|
|
131
|
|
|
|
|
|
|
|
|
132
|
|
|
|
|
|
|
|
|
133
|
|
|
|
|
|
|
|
|
134
|
|
|
|
|
|
|
|
|
135
|
|
|
|
|
|
|
__END__ |