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   1936 use strict;
  3         6  
  3         100  
3 3     3   11 use warnings;
  3         4  
  3         63  
4              
5 3     3   10 use Moo;
  3         4  
  3         13  
6             extends 'Articulate::Item';
7              
8             #with 'Articulate::Role::Item::Format';
9              
10             sub original_format {
11 0     0 0   shift->_meta_accessor('schema/core/originalFormat')->(@_);
12             }
13              
14             sub article_id {
15 0     0 0   my $self = shift;
16 0           $self->location->[-1];
17             }
18              
19             1;