File Coverage

blib/lib/Articulate/Item/Article.pm
Criterion Covered Total %
statement 9 12 75.0
branch n/a
condition n/a
subroutine 3 5 60.0
pod 0 2 0.0
total 12 19 63.1


line stmt bran cond sub pod time code
1             package Articulate::Item::Article;
2 3     3   2430 use strict;
  3         6  
  3         125  
3 3     3   16 use warnings;
  3         5  
  3         86  
4              
5 3     3   16 use Moo;
  3         4  
  3         19  
6             extends 'Articulate::Item';
7             #with 'Articulate::Role::Item::Format';
8              
9             sub original_format {
10 0     0 0   shift->_meta_accessor('schema/core/originalFormat')->(@_);
11             };
12              
13             sub article_id {
14 0     0 0   my $self = shift;
15 0           $self->location->[-1];
16             }
17              
18             1;