line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
#!/usr/bin/perl -w |
2
|
1
|
|
|
1
|
|
121356
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
63
|
|
3
|
|
|
|
|
|
|
|
4
|
1
|
|
|
1
|
|
477
|
use Test::More tests => 12; |
|
1
|
|
|
|
|
25346
|
|
|
1
|
|
|
|
|
9
|
|
5
|
1
|
|
|
1
|
|
3728
|
use Test::Exception; |
|
1
|
|
|
|
|
3174
|
|
|
1
|
|
|
|
|
4
|
|
6
|
|
|
|
|
|
|
|
7
|
1
|
|
|
1
|
|
767
|
use Data::Dumper; |
|
1
|
|
|
|
|
6482
|
|
|
1
|
|
|
|
|
56
|
|
8
|
|
|
|
|
|
|
|
9
|
1
|
|
|
1
|
|
353
|
use lib "../lib"; |
|
1
|
|
|
|
|
701
|
|
|
1
|
|
|
|
|
4
|
|
10
|
|
|
|
|
|
|
|
11
|
1
|
|
|
1
|
|
89505
|
use_ok("Devel::PerlySense::Document::Location"); |
|
1
|
|
|
|
|
372
|
|
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
14
|
|
12
|
1
|
|
|
1
|
|
1428
|
use_ok("Devel::PerlySense::Document"); |
|
1
|
|
|
|
|
1883
|
|
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
10
|
|
13
|
1
|
|
|
1
|
|
290
|
use_ok("Devel::PerlySense"); |
|
1
|
|
|
|
|
84
|
|
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
6
|
|
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
|
16
|
1
|
50
|
|
1
|
|
1431
|
BEGIN { -d "t" and chdir("t"); } |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
|
19
|
1
|
|
|
|
|
192
|
ok(my $oLocation = Devel::PerlySense::Document::Location->new(file => "thefile.pm", row => 33, col => 3), "new ok"); |
20
|
1
|
|
|
|
|
208
|
$oLocation->rhProperty->{pod} = "=head1 Yup!"; |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
|
23
|
1
|
|
|
|
|
9
|
ok(my $oLocationClone = $oLocation->clone, "Clone ok"); |
24
|
|
|
|
|
|
|
|
25
|
1
|
|
|
|
|
211
|
is($oLocationClone->file, $oLocation->file, " file ok"); |
26
|
1
|
|
|
|
|
213
|
is($oLocationClone->row, $oLocation->row, " row ok"); |
27
|
1
|
|
|
|
|
210
|
is($oLocationClone->col, $oLocation->col, " col ok"); |
28
|
1
|
|
|
|
|
208
|
is_deeply($oLocationClone->rhProperty, $oLocation->rhProperty, " rhProperty ok"); |
29
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
|
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
|
34
|
1
|
|
|
|
|
413
|
note("As Info"); |
35
|
|
|
|
|
|
|
|
36
|
1
|
|
|
|
|
44
|
ok( |
37
|
|
|
|
|
|
|
$oLocation = Devel::PerlySense::Document::Location->new( |
38
|
|
|
|
|
|
|
file => "thefile.pm", |
39
|
|
|
|
|
|
|
row => 33, |
40
|
|
|
|
|
|
|
col => 3, |
41
|
|
|
|
|
|
|
), |
42
|
|
|
|
|
|
|
"new ok", |
43
|
|
|
|
|
|
|
); |
44
|
1
|
|
|
|
|
193
|
is_deeply( |
45
|
|
|
|
|
|
|
$oLocation->rhInfo, |
46
|
|
|
|
|
|
|
{ file => "thefile.pm", row => 33, col => 3 }, |
47
|
|
|
|
|
|
|
"Got the correct rhInfo", |
48
|
|
|
|
|
|
|
); |
49
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
|
51
|
1
|
|
|
|
|
411
|
$oLocation->rhProperty->{class_name} = "Game::Object"; |
52
|
|
|
|
|
|
|
|
53
|
1
|
|
|
|
|
7
|
is_deeply( |
54
|
|
|
|
|
|
|
$oLocation->rhInfo, |
55
|
|
|
|
|
|
|
{ |
56
|
|
|
|
|
|
|
file => "thefile.pm", |
57
|
|
|
|
|
|
|
row => 33, |
58
|
|
|
|
|
|
|
col => 3, |
59
|
|
|
|
|
|
|
class_name => "Game::Object", |
60
|
|
|
|
|
|
|
}, |
61
|
|
|
|
|
|
|
"Got the correct rhInfo with rhProperty set", |
62
|
|
|
|
|
|
|
); |
63
|
|
|
|
|
|
|
|
64
|
|
|
|
|
|
|
|
65
|
|
|
|
|
|
|
|
66
|
|
|
|
|
|
|
|
67
|
|
|
|
|
|
|
__END__ |