File Coverage

blib/lib/Dist/Inkt/Role/WriteChanges.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::WriteChanges;
2              
3             our $AUTHORITY = 'cpan:TOBYINK';
4             our $VERSION = '0.021';
5              
6 1     1   2075 use Moose::Role;
  0            
  0            
7             use namespace::autoclean;
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             my $self = shift;
19             my $file = $self->targetfile('Changes');
20             $file->exists and return $self->log('Skipping %s; it already exists', $file);
21             $self->log('Writing %s', $file);
22             $self->rights_for_generated_files->{'Changes'} ||= [
23             $self->_inherited_rights
24             ] if $self->DOES('Dist::Inkt::Role::WriteCOPYRIGHT');
25             $file->spew_utf8($self->doap_project->changelog);
26             }
27              
28             1;