line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
#!/usr/bin/perl -w |
2
|
1
|
|
|
1
|
|
109450
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
93
|
|
3
|
1
|
|
|
1
|
|
466
|
use Test::More tests => 7; |
|
1
|
|
|
|
|
14318
|
|
|
1
|
|
|
|
|
7
|
|
4
|
1
|
|
|
1
|
|
605
|
use Test::Exception; |
|
1
|
|
|
|
|
2515
|
|
|
1
|
|
|
|
|
4
|
|
5
|
|
|
|
|
|
|
|
6
|
1
|
|
|
1
|
|
204
|
use File::Basename; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
101
|
|
7
|
1
|
|
|
1
|
|
265
|
use File::Spec::Functions; |
|
1
|
|
|
|
|
492
|
|
|
1
|
|
|
|
|
61
|
|
8
|
|
|
|
|
|
|
|
9
|
1
|
|
|
1
|
|
260
|
use lib "../lib", "lib"; |
|
1
|
|
|
|
|
520
|
|
|
1
|
|
|
|
|
4
|
|
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
|
13
|
1
|
|
|
1
|
|
70332
|
use_ok("Devel::PerlySense"); |
|
1
|
|
|
|
|
883
|
|
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
6
|
|
14
|
|
|
|
|
|
|
|
15
|
1
|
|
|
|
|
273
|
ok(my $oPs = Devel::PerlySense->new(), "new ok"); |
16
|
1
|
|
|
|
|
219
|
isa_ok($oPs->oProject, "Devel::PerlySense::Project", " oProject property"); |
17
|
1
|
|
|
|
|
261
|
isa_ok($oPs->oHome, "Devel::PerlySense::Home", " oHome property"); |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
|
20
|
1
|
|
|
|
|
221
|
is($oPs->fileFromModule("Foo"), "Foo.pm", "fileFromModule ok"); |
21
|
1
|
|
|
|
|
200
|
is($oPs->fileFromModule("Foo::Bar"), catfile("Foo", "Bar") . ".pm", "fileFromModule ok"); |
22
|
1
|
|
|
|
|
197
|
is($oPs->fileFromModule("Foo::Bar::Baz"), catfile("Foo", "Bar", "Baz") . ".pm", "fileFromModule ok"); |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
__END__ |