File Coverage

blib/lib/Biblio/SICI/Role/RecursiveLink.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Biblio::SICI::Role::RecursiveLink;
2             {
3             $Biblio::SICI::Role::RecursiveLink::VERSION = '0.04';
4             }
5              
6             # ABSTRACT: Role to provide a "link" to the parent Biblio::SICI
7              
8 3     3   2739 use strict;
  3         8  
  3         120  
9 3     3   18 use warnings;
  3         6  
  3         347  
10              
11 3     3   19 use Moo::Role;
  3         4  
  3         24  
12 3     3   970 use Sub::Quote;
  3         5  
  3         526  
13              
14              
15             has '_sici' => (
16             is => 'ro',
17             required => 1,
18             isa => quote_sub(q{ my ($val) = @_; die unless ( $val->isa('Biblio::SICI') ) }),
19             weak => 1,
20             );
21              
22              
23             1;
24              
25             __END__