File Coverage

blib/lib/HiD/App/Command/config.pm
Criterion Covered Total %
statement 31 31 100.0
branch 2 2 100.0
condition n/a
subroutine 10 10 100.0
pod n/a
total 43 43 100.0


line stmt bran cond sub pod time code
1             # ABSTRACT: dump configuration
2              
3              
4             package HiD::App::Command::config;
5             our $AUTHORITY = 'cpan:GENEHACK';
6             $HiD::App::Command::config::VERSION = '1.99';
7 4     4   17611 use Moose;
  4         10  
  4         35  
8             extends 'HiD::App::Command';
9 4     4   27564 use namespace::autoclean;
  4         9  
  4         42  
10              
11 4     4   415 use 5.014; # strict, unicode_strings
  4         16  
12 4     4   26 use utf8;
  4         10  
  4         55  
13 4     4   128 use autodie;
  4         9  
  4         32  
14 4     4   21582 use warnings qw/ FATAL utf8 /;
  4         13  
  4         236  
15 4     4   26 use open qw/ :std :utf8 /;
  4         10  
  4         62  
16 4     4   740 use charnames qw/ :full /;
  4         11  
  4         37  
17              
18 4     4   3320 use Data::Printer return_value => 'dump';
  4         117665  
  4         56  
19              
20             sub _run {
21 4     4   17 my( $self , $opts , $args ) = @_;
22              
23 4 100       22 $args = [ 'config' ] unless $args->[0];
24              
25 4         14 my $out;
26 4         118 $out .= p $self->hid->$_ foreach @$args;
27              
28 4         14279 print $out;
29             }
30              
31             __PACKAGE__->meta->make_immutable;
32             1;
33              
34             __END__
35              
36             =pod
37              
38             =encoding UTF-8
39              
40             =head1 NAME
41              
42             HiD::App::Command::config - dump configuration
43              
44             =head1 SYNOPSIS
45              
46             $ hid config
47             \ {
48             destination "_site",
49             include_dir "_includes",
50             layout_dir "_layouts",
51             posts_dir "_posts",
52             source "."
53             }
54             $ hid config pages
55             [ massive output elided ]
56              
57             =head1 DESCRIPTION
58              
59             Dumps the active configuration (using L<Data::Printer>)
60              
61             If given an argument, will dump the corresponding attribute from the active
62             L<HiD> instance. This can be useful when debugging, because it allows you to
63             see precisely what data structures are being built.
64              
65             =head1 SEE ALSO
66              
67             See L<HiD::App::Command> for additional command line options supported by all
68             sub commands.
69              
70             =head1 VERSION
71              
72             version 1.99
73              
74             =head1 AUTHOR
75              
76             John SJ Anderson <genehack@genehack.org>
77              
78             =head1 COPYRIGHT AND LICENSE
79              
80             This software is copyright (c) 2015 by John SJ Anderson.
81              
82             This is free software; you can redistribute it and/or modify it under
83             the same terms as the Perl 5 programming language system itself.
84              
85             =cut