File Coverage

blib/lib/Dist/Inkt/Profile/TOBYINK.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Dist::Inkt::Profile::TOBYINK;
2              
3             our $AUTHORITY = 'cpan:TOBYINK';
4             our $VERSION = '0.024';
5              
6 1     1   1055 use Moose;
  1         447451  
  1         15  
7 1     1   6935 use Types::Standard qw(Bool);
  1         53383  
  1         9  
8 1     1   1148 use namespace::autoclean;
  1         6127  
  1         4  
9              
10             extends 'Dist::Inkt';
11              
12             with qw(
13             Dist::Inkt::Role::ReadMetaDir
14             Dist::Inkt::Role::ProcessDOAP
15             Dist::Inkt::Role::ProcessDOAPDeps
16             Dist::Inkt::Role::CPANfile
17             Dist::Inkt::Role::DetermineRightsFromRdf
18             Dist::Inkt::Role::CopyStandardDocuments
19             Dist::Inkt::Role::CopyFiles
20             Dist::Inkt::Role::MetaProvides
21             Dist::Inkt::Role::MetaProvidesScripts
22             Dist::Inkt::Role::StaticInstall
23             Dist::Inkt::Role::WriteMakefilePL
24             Dist::Inkt::Role::WriteMetaJSON
25             Dist::Inkt::Role::WriteMetaYML
26             Dist::Inkt::Role::WriteDOAP
27             Dist::Inkt::Role::WriteChanges
28             Dist::Inkt::Role::WriteCOPYRIGHT
29             Dist::Inkt::Role::WriteCREDITS
30             Dist::Inkt::Role::WriteLICENSE
31             Dist::Inkt::Role::WriteREADME
32             Dist::Inkt::Role::WriteINSTALL
33             Dist::Inkt::Role::SignDistribution
34             Dist::Inkt::Role::Release
35             Dist::Inkt::Role::Test::Whitespace
36             Dist::Inkt::Role::Test::BumpedVersion
37             Dist::Inkt::Role::Test::SaneVersions
38             Dist::Inkt::Role::Test::TestSuite
39             Dist::Inkt::Role::Test::Kwalitee
40             Dist::Inkt::Role::Test::Changes
41             Dist::Inkt::Role::Hg
42             );
43              
44             has skip_installation => ( is => "ro", isa => Bool, default => 0 );
45              
46             before Release => sub
47             {
48             my $self = shift;
49             return if $self->skip_installation;
50             my $tarball = Path::Tiny::path($_[0] || sprintf('%s.tar.gz', $self->targetdir));
51             $self->log("Installing locally...");
52             if (system("cpanm", $tarball)) {
53             die "Could not be installed locally!";
54             }
55             };
56              
57             after Release => sub
58             {
59             my $self = shift;
60            
61             require Path::Tiny;
62             my $dest = Path::Tiny::path("~")->child("perl5/published");
63             return $self->log("$dest does not exist; cannot move tarball safely away")
64             unless -d $dest;
65            
66             my $tarball = Path::Tiny::path($_[0] || sprintf('%s.tar.gz', $self->targetdir));
67             $self->log("Moving $tarball to $dest");
68             $tarball->move( $dest->child($tarball->basename) );
69             };
70              
71             1;
72              
73             __END__
74              
75             =pod
76              
77             =encoding utf-8
78              
79             =head1 NAME
80              
81             Dist::Inkt::Profile::TOBYINK - a Dist::Inkt profile for TOBYINK
82              
83             =head1 BUGS
84              
85             Please report any bugs to
86             L<http://rt.cpan.org/Dist/Display.html?Queue=Dist-Inkt-Profile-TOBYINK>.
87              
88             =head1 SEE ALSO
89              
90             L<Dist::Inkt>, L<Dist::Inkt::DOAP>.
91              
92             =head1 AUTHOR
93              
94             Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
95              
96             =head1 COPYRIGHT AND LICENCE
97              
98             This software is copyright (c) 2014 by Toby Inkster.
99              
100             This is free software; you can redistribute it and/or modify it under
101             the same terms as the Perl 5 programming language system itself.
102              
103             =head1 DISCLAIMER OF WARRANTIES
104              
105             THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
106             WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
107             MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
108