File Coverage

blib/lib/Dist/Inkt/Role/WriteChanges.pm
Criterion Covered Total %
statement 6 12 50.0
branch 0 4 0.0
condition 0 2 0.0
subroutine 2 3 66.6
pod 0 1 0.0
total 8 22 36.3


line stmt bran cond sub pod time code
1             package Dist::Inkt::Role::WriteChanges;
2              
3             our $AUTHORITY = 'cpan:TOBYINK';
4             our $VERSION = '0.022';
5              
6 1     1   1126 use Moose::Role;
  1         2  
  1         7  
7 1     1   5047 use namespace::autoclean;
  1         3  
  1         16  
8              
9             with 'Dist::Inkt::Role::RDFModel';
10              
11             after BUILD => sub {
12             my $self = shift;
13             unshift @{ $self->targets }, 'Changes';
14             };
15              
16             sub Build_Changes
17             {
18 0     0 0   my $self = shift;
19 0           my $file = $self->targetfile('Changes');
20 0 0         $file->exists and return $self->log('Skipping %s; it already exists', $file);
21 0           $self->log('Writing %s', $file);
22 0 0 0       $self->rights_for_generated_files->{'Changes'} ||= [
23             $self->_inherited_rights
24             ] if $self->DOES('Dist::Inkt::Role::WriteCOPYRIGHT');
25 0           $file->spew_utf8($self->doap_project->changelog);
26             }
27              
28             1;