line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
#!/usr/bin/perl -w |
2
|
1
|
|
|
1
|
|
177604
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
67
|
|
3
|
|
|
|
|
|
|
|
4
|
1
|
|
|
1
|
|
526
|
use Test::More tests => 7; |
|
1
|
|
|
|
|
18884
|
|
|
1
|
|
|
|
|
9
|
|
5
|
1
|
|
|
1
|
|
1624
|
use Test::Exception; |
|
1
|
|
|
|
|
2594
|
|
|
1
|
|
|
|
|
4
|
|
6
|
|
|
|
|
|
|
|
7
|
1
|
|
|
1
|
|
217
|
use File::Basename; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
105
|
|
8
|
1
|
|
|
1
|
|
1018
|
use File::Spec::Functions; |
|
1
|
|
|
|
|
472
|
|
|
1
|
|
|
|
|
63
|
|
9
|
|
|
|
|
|
|
|
10
|
1
|
|
|
1
|
|
349
|
use lib "../lib"; |
|
1
|
|
|
|
|
550
|
|
|
1
|
|
|
|
|
4
|
|
11
|
|
|
|
|
|
|
|
12
|
1
|
|
|
1
|
|
88771
|
use_ok("Devel::PerlySense"); |
|
1
|
|
|
|
|
629
|
|
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
7
|
|
13
|
1
|
|
|
1
|
|
272
|
use_ok("Devel::PerlySense::Document::Location"); |
|
1
|
|
|
|
|
76
|
|
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
7
|
|
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
|
16
|
1
|
50
|
|
1
|
|
1483
|
BEGIN { -d "t" and chdir("t"); } |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
|
19
|
1
|
|
|
|
|
199
|
ok(my $oPs = Devel::PerlySense->new(), "new ok"); |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
|
23
|
1
|
|
|
|
|
194
|
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->oLocationSmartGoTo(file => $fileOrigin, row => 391, col => 53), "Found source ok, on method"); |
30
|
1
|
|
|
|
|
306
|
like($oLocation->file, $rexFile, " file same"); |
31
|
1
|
|
|
|
|
210
|
is($oLocation->row, 44, " row ok"); |
32
|
1
|
|
|
|
|
210
|
is($oLocation->col, 1, " col ok"); |
33
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
|
35
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
|
37
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
|
39
|
|
|
|
|
|
|
__END__ |