File Coverage

blib/lib/Dist/Inkt/Role/ReadMetaDir.pm
Criterion Covered Total %
statement 1 3 33.3
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 2 4 50.0


line stmt bran cond sub pod time code
1             package Dist::Inkt::Role::ReadMetaDir;
2              
3             our $AUTHORITY = 'cpan:TOBYINK';
4             our $VERSION = '0.021';
5              
6 1     1   1431 use Moose::Role;
  0            
  0            
7             use RDF::TrineX::Functions 'parse';
8             use namespace::autoclean;
9              
10             with 'Dist::Inkt::Role::RDFModel';
11              
12             after PopulateModel => sub {
13             my $self = shift;
14             for my $file ($self->sourcefile('meta')->children)
15             {
16             next unless $file =~ /\.(pret|pretdsl|ttl|turtle|nt|ntriples|rdf|rdfx)$/i;
17            
18             $self->log('Reading %s', $file);
19             $file =~ /\.pret$/
20             ? do {
21             require RDF::TrineX::Parser::Pretdsl;
22             parse($file, into => $self->model, using => 'RDF::TrineX::Parser::Pretdsl'->new)
23             }: parse($file, into => $self->model);
24             }
25             };
26              
27             1;