File Coverage

blib/lib/Stardoc/Module.pm
Criterion Covered Total %
statement 5 5 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod 0 1 0.0
total 7 8 87.5


line stmt bran cond sub pod time code
1             ##
2             # name: Stardoc::Module
3             # abstract: Stardoc Module base class
4             # author: Ingy döt Net
5             # copyright: 2011
6             # license: perl
7              
8             package Stardoc::Module;
9 1     1   949 use Mouse;
  1         2  
  1         9  
10              
11             has file => (is => 'ro');
12             has string => (is => 'ro');
13              
14             has meta => (is => 'ro', default => sub {+{}});
15              
16             has sections => (
17             is => 'ro',
18             default => sub{[]},
19             );
20              
21             sub has_doc {
22 2     2 0 2 my ($self) = @_;
23 2         15 return exists $self->meta->{name};
24             }
25              
26             1;