line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
#!/usr/bin/perl -w |
2
|
1
|
|
|
1
|
|
147215
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
65
|
|
3
|
|
|
|
|
|
|
|
4
|
1
|
|
|
1
|
|
521
|
use Test::More tests => 16; |
|
1
|
|
|
|
|
15352
|
|
|
1
|
|
|
|
|
6
|
|
5
|
1
|
|
|
1
|
|
628
|
use Test::Exception; |
|
1
|
|
|
|
|
2588
|
|
|
1
|
|
|
|
|
4
|
|
6
|
|
|
|
|
|
|
|
7
|
1
|
|
|
1
|
|
601
|
use Data::Dumper; |
|
1
|
|
|
|
|
7074
|
|
|
1
|
|
|
|
|
62
|
|
8
|
1
|
|
|
1
|
|
6
|
use File::Basename; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
70
|
|
9
|
|
|
|
|
|
|
|
10
|
1
|
|
|
1
|
|
369
|
use lib "../lib"; |
|
1
|
|
|
|
|
799
|
|
|
1
|
|
|
|
|
4
|
|
11
|
|
|
|
|
|
|
|
12
|
1
|
|
|
1
|
|
77163
|
use_ok("Devel::PerlySense"); |
|
1
|
|
|
|
|
770
|
|
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
7
|
|
13
|
1
|
|
|
1
|
|
277
|
use_ok("Devel::PerlySense::Document::Location"); |
|
1
|
|
|
|
|
78
|
|
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
7
|
|
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
|
16
|
1
|
50
|
|
1
|
|
1682
|
BEGIN { -d "t" and chdir("t"); } |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
|
19
|
1
|
|
|
|
|
197
|
ok(my $oPs = Devel::PerlySense->new(), "new ok"); |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
|
23
|
1
|
|
|
|
|
199
|
my $dirData = "data/simple-lib"; |
24
|
1
|
|
|
|
|
3
|
my $fileOrigin = "$dirData/lib/Win32/Word/Writer.pm"; |
25
|
1
|
|
|
|
|
1
|
my $oLocation; |
26
|
1
|
|
|
|
|
3
|
my $fileTarget = "./$dirData/lib/Win32/Word/Writer/Table.pm"; |
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
|
29
|
1
|
|
|
|
|
4
|
ok(! $oPs->oLocationSmartGoTo(file => $fileOrigin, row => 160, col => 7), "Didn't find rhConst"); |
30
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
|
32
|
1
|
|
|
|
|
294
|
ok($oLocation = $oPs->oLocationSmartGoTo(file => $fileOrigin, row => 157, col => 11), "Found source ok, use module"); |
33
|
1
|
|
|
|
|
307
|
like($oLocation->file, qr/Writer.Table\.pm/, " file same"); |
34
|
1
|
|
|
|
|
214
|
is($oLocation->row, 1, " row ok"); |
35
|
1
|
|
|
|
|
213
|
is($oLocation->col, 1, " col ok"); |
36
|
|
|
|
|
|
|
|
37
|
|
|
|
|
|
|
|
38
|
1
|
|
|
|
|
203
|
ok($oLocation = $oPs->oLocationSmartGoTo(file => $fileOrigin, row => 321, col => 20), "Found source ok, on module in class method call"); |
39
|
1
|
|
|
|
|
1026
|
like($oLocation->file, qr/File.Spec\.pm$/, " file ok"); |
40
|
1
|
|
|
|
|
222
|
is($oLocation->row, 1, " row ok"); |
41
|
1
|
|
|
|
|
214
|
is($oLocation->col, 1, " col ok"); |
42
|
|
|
|
|
|
|
|
43
|
|
|
|
|
|
|
|
44
|
1
|
|
|
|
|
192
|
ok($oLocation = $oPs->oLocationSmartGoTo(file => $fileOrigin, row => 156, col => 15), "Found source ok, class in string"); |
45
|
1
|
|
|
|
|
731
|
like($oLocation->file, qr/Writer.Table\.pm/, " file same"); |
46
|
1
|
|
|
|
|
225
|
is($oLocation->row, 1, " row ok"); |
47
|
1
|
|
|
|
|
213
|
is($oLocation->col, 1, " col ok"); |
48
|
|
|
|
|
|
|
|
49
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
|
51
|
|
|
|
|
|
|
|
52
|
|
|
|
|
|
|
|
53
|
|
|
|
|
|
|
|
54
|
|
|
|
|
|
|
__END__ |