File Coverage

blib/lib/Dist/Zooky/DistIni/MetaNoIndex.pm
Criterion Covered Total %
statement 19 26 73.0
branch 2 4 50.0
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 28 37 75.6


line stmt bran cond sub pod time code
1             package Dist::Zooky::DistIni::MetaNoIndex;
2             $Dist::Zooky::DistIni::MetaNoIndex::VERSION = '0.22';
3             # ABSTRACT: Dist::Zooky DistIni plugin for MetaNoIndex
4              
5 2     2   1035 use strict;
  2         3  
  2         57  
6 2     2   7 use warnings;
  2         3  
  2         63  
7 2     2   7 use Module::Load::Conditional qw[check_install];
  2         3  
  2         111  
8 2     2   8 use Moose;
  2         2  
  2         13  
9              
10             with 'Dist::Zooky::Role::DistIni';
11              
12             sub content {
13 2     2 1 2 my $self = shift;
14             return unless
15 2 50       8 check_install( module => 'Dist::Zilla::Plugin::MetaNoIndex' );
16 2 50       3602 if ( my $noindex = $self->metadata->{no_index} ) {
17 0         0 my $content = "[MetaNoIndex]\n";
18 0         0 foreach my $type ( keys %{ $noindex } ) {
  0         0  
19 0         0 $content .= join "\n", map { "$type = " . $_ } @{ $noindex->{$type} };
  0         0  
  0         0  
20             }
21 0         0 return $content;
22             }
23 2         35 return;
24             }
25              
26             __PACKAGE__->meta->make_immutable;
27 2     2   11461 no Moose;
  2         4  
  2         7  
28              
29             qq[No Index, No Problem];
30              
31             __END__
32              
33             =pod
34              
35             =encoding UTF-8
36              
37             =head1 NAME
38              
39             Dist::Zooky::DistIni::MetaNoIndex - Dist::Zooky DistIni plugin for MetaNoIndex
40              
41             =head1 VERSION
42              
43             version 0.22
44              
45             =head1 METHODS
46              
47             =over
48              
49             =item C<content>
50              
51             Returns C<content> for adding to C<dist.ini>.
52              
53             =back
54              
55             =head1 AUTHOR
56              
57             Chris Williams <chris@bingosnet.co.uk>
58              
59             =head1 COPYRIGHT AND LICENSE
60              
61             This software is copyright (c) 2017 by Chris Williams.
62              
63             This is free software; you can redistribute it and/or modify it under
64             the same terms as the Perl 5 programming language system itself.
65              
66             =cut