line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
#!/usr/bin/perl -w |
2
|
1
|
|
|
1
|
|
131134
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
93
|
|
3
|
|
|
|
|
|
|
|
4
|
1
|
|
|
1
|
|
473
|
use Test::More tests => 8; |
|
1
|
|
|
|
|
18052
|
|
|
1
|
|
|
|
|
406
|
|
5
|
1
|
|
|
1
|
|
1901
|
use Test::Exception; |
|
1
|
|
|
|
|
2681
|
|
|
1
|
|
|
|
|
4
|
|
6
|
|
|
|
|
|
|
|
7
|
1
|
|
|
1
|
|
219
|
use File::Basename; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
392
|
|
8
|
1
|
|
|
1
|
|
436
|
use File::Spec::Functions; |
|
1
|
|
|
|
|
520
|
|
|
1
|
|
|
|
|
63
|
|
9
|
|
|
|
|
|
|
|
10
|
1
|
|
|
1
|
|
263
|
use lib "../lib"; |
|
1
|
|
|
|
|
538
|
|
|
1
|
|
|
|
|
4
|
|
11
|
|
|
|
|
|
|
|
12
|
1
|
|
|
1
|
|
103537
|
use_ok("Devel::PerlySense"); |
|
1
|
|
|
|
|
593
|
|
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
6
|
|
13
|
1
|
|
|
1
|
|
270
|
use_ok("Devel::PerlySense::Document::Location"); |
|
1
|
|
|
|
|
75
|
|
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
0
|
|
|
1
|
|
|
|
|
7
|
|
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
|
16
|
1
|
50
|
|
1
|
|
1407
|
BEGIN { -d "t" and chdir("t"); } |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
|
19
|
1
|
|
|
|
|
195
|
ok(my $oPs = Devel::PerlySense->new(), "new ok"); |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
|
23
|
1
|
|
|
|
|
246
|
my $dirData = "data/project-lib"; |
24
|
1
|
|
|
|
|
2
|
my $fileOrigin = "$dirData/Game/Lawn.pm"; |
25
|
1
|
|
|
|
|
2
|
my $oLocation; |
26
|
1
|
|
|
|
|
4
|
my $rexFile = qr/Game.Location.pm$/; |
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
|
29
|
1
|
|
|
|
|
4
|
ok($oLocation = $oPs->oLocationSmartDoc(file => $fileOrigin, row => 391, col => 53), "Found source ok, on method"); |
30
|
1
|
|
|
|
|
311
|
like($oLocation->file, $rexFile, " file same"); |
31
|
1
|
|
|
|
|
210
|
is($oLocation->row, 44, " row ok"); |
32
|
1
|
|
|
|
|
218
|
is($oLocation->col, 1, " col ok"); |
33
|
1
|
|
|
|
|
216
|
is( |
34
|
|
|
|
|
|
|
$oLocation->rhProperty->{text}, |
35
|
|
|
|
|
|
|
q{PROPERTIES |
36
|
|
|
|
|
|
|
top |
37
|
|
|
|
|
|
|
Top coordinate |
38
|
|
|
|
|
|
|
|
39
|
|
|
|
|
|
|
Default: 0}, |
40
|
|
|
|
|
|
|
" doc text ok", |
41
|
|
|
|
|
|
|
); |
42
|
|
|
|
|
|
|
|
43
|
|
|
|
|
|
|
|
44
|
|
|
|
|
|
|
|
45
|
|
|
|
|
|
|
|
46
|
|
|
|
|
|
|
|
47
|
|
|
|
|
|
|
__END__ |