—

              
#!/usr/bin/env perl
HideShow 38 lines of Pod
=pod
=head1 NAME
wrt-config - show configuration values, including defaults
=head1 USAGE
    wrt config
    # Specify a different config file:
    wrt config --config ./wrt.json ...
=head1 DESCRIPTION
C<wrt-config> displays configuration values for the current wrt repository,
including both those overridden in the current F<wrt.json> and those set
by default.
For now, this just uses C<Data::Dumper>, and outputs a whole bunch of stuff
that may not be very interesting, since basically all the values are jammed
into a single object.  Ideally, it could show which values are defaults and
which have been set from a config file or derived from the structure of the
archive.
=head1 LICENSE
    wrt is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.
=head1 AUTHOR
Brennen Bearnes <code@p1k3.com>
=cut
use 5.10.0;
use strict;
use warnings;
no  warnings 'uninitialized';
use Data::Dumper;
use App::WRT;
use Carp;
use Getopt::Long;
use Pod::Usage;
# Handle options, including help generated from the POD above.  See:
# - http://perldoc.perl.org/Getopt/Long.html#User-defined-subroutines-to-handle-options
# - https://metacpan.org/pod/Pod::Usage
# - http://michael.thegrebs.com/2014/06/08/Pod-Usage/
my $config_file = 'wrt.json';
GetOptions(
  'config=s' => \$config_file,
  help       => sub { pod2usage(0) },
) or pod2usage(2);
unless (-e $config_file) {
  croak "No wrt config file found.  Tried: $config_file";
}
my $w = App::WRT::new_from_file($config_file);
# With --stdin, take names of entries to display from standard input, one line
# per name.  Otherwise, take names from arguments.
print Dumper($w);
exit(0);