Add new show command

CHANGES

@@ -1,5 +1,9 @@
 Revision history
 
+v.next (Not release yet)
+
+ - Added new `show` command to display expanded .serge configurations (#40).
+
 1.2 October 29, 2016
 
  - Make TS File serialization pluggable (see #11)

doc/pod/serge-show.pod

@@ -0,0 +1,19 @@
+=head1 NAME
+
+serge-show - Show expanded version of a configuration file
+
+=head1 SYNOPSIS
+
+C<< serge show <configuration-file> >>
+
+Where C<< <configuration-file> >> is a path to a specific .serge file.
+
+=head1 DESCRIPTION
+
+B<serge-show> prints out the interpreted configuration file by applying all
+inheritance rules. This is useful to check the full configuration that will be
+used by Serge.
+
+=head1 SEE ALSO
+
+Part of L<serge> suite.

lib/Serge/Command/show.pm

@@ -0,0 +1,34 @@
+package Serge::Command::show;
+use parent Serge::Command;
+
+use strict;
+
+use Config::Neat::Inheritable;
+use Config::Neat::Render;
+
+sub get_commands {
+ return {
+ show => {
+ handler => \&run,
+ info => 'Show expanded version of a configuration file',
+ need_config => 1,
+ },
+ }
+}
+
+sub run {
+ my ($self) = @_;
+
+ my @config_files = $self->{parent}->get_config_files;
+ die "Multiple configuration files not allowed\n" unless $#config_files == 0;
+
+ my $cfg = Config::Neat::Inheritable->new();
+ my $data = $cfg->parse_file($config_files[0]);
+
+ my $renderer = Config::Neat::Render->new();
+ print $renderer->render($data);
+
+ return 0;
+}
+
+1;