File Coverage

t/PerlySense-Document-Meta-plugin.t
Criterion Covered Total %
statement 44 44 100.0
branch n/a
condition n/a
subroutine 11 11 100.0
pod n/a
total 55 55 100.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   99294 use strict;
  1         2  
  1         61  
3              
4 1     1   485 use Test::More tests => 7;
  1         14336  
  1         7  
5 1     1   632 use Test::Exception;
  1         2525  
  1         4  
6              
7 1     1   600 use Data::Dumper;
  1         5303  
  1         55  
8 1     1   5 use File::Basename;
  1         1  
  1         85  
9 1     1   315 use File::Spec::Functions;
  1         461  
  1         58  
10              
11             #use Carp::Always;
12              
13 1     1   263 use lib "lib";
  1         522  
  1         3  
14 1     1   73589 use_ok("Devel::PerlySense");
  1         868  
  1         3  
  1         1  
  1         7  
15 1     1   284 use_ok("Devel::PerlySense::Document");
  1         75  
  1         2  
  1         1  
  1         7  
16 1     1   192 use_ok("Devel::PerlySense::Document::Meta");
  1         56  
  1         1  
  1         2  
  1         6  
17 1     1   197 use_ok("Devel::PerlySense::Plugin::Syntax::Moose");
  1         439  
  1         2  
  1         1  
  1         7  
18              
19              
20 1         210 ok(my $oMeta = Devel::PerlySense::Document::Meta->new, "Created meta object ok");
21              
22 1         2022 is(
23             scalar $oMeta->aPluginSyntax,
24             1,
25             "Found one plugin",
26             );
27 1         204 isa_ok(($oMeta->aPluginSyntax)[0], "Devel::PerlySense::Plugin::Syntax::Moose");
28              
29              
30              
31              
32             __END__