File Coverage

t/PerlySense-Document-use.t
Criterion Covered Total %
statement 28 28 100.0
branch 1 2 50.0
condition n/a
subroutine 7 7 100.0
pod n/a
total 36 37 97.3


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   198007 use strict;
  1         2  
  1         64  
3              
4 1     1   575 use Test::More tests => 5;
  1         15841  
  1         7  
5 1     1   1107 use Test::Exception;
  1         2761  
  1         4  
6              
7              
8 1     1   497 use lib "../lib";
  1         559  
  1         4  
9              
10 1     1   107958 use_ok("Devel::PerlySense");
  1         581  
  1         1  
  1         2  
  1         7  
11 1     1   1475 use_ok("Devel::PerlySense::Document");
  1         111  
  1         2  
  1         1  
  1         9  
12              
13              
14 1 50   1   5736 BEGIN { -d "t" and chdir("t"); }
15              
16              
17 1         216 ok(my $oDocument = Devel::PerlySense::Document->new(oPerlySense => Devel::PerlySense->new()), "new ok");
18              
19 1         194 my $dirData = "data/project-lib";
20 1         3 my $fileOrigin = "$dirData/Game/Object/Worm.pm";
21              
22 1         5 ok($oDocument->parse(file => $fileOrigin), "Parsed file ok");
23              
24 1         304 is_deeply([ sort $oDocument->aNameModuleUse() ],
25             [ sort qw/
26             Data::Dumper
27             Game::Location
28             Game::Direction
29             Game::Event::Timed
30             Exception::Class
31             Class::MethodMaker
32             / ], "Found used modules ok");
33              
34              
35              
36              
37             __END__