app-pieces/bin/pieces-show

#!/usr/bin/env perl

=pod

=head1 NAME

pieces-show - show details for a marked URI

=head1 SYNOPSIS

  pieces-show  show details for a given pieces URI

  USAGE:
    pieces show [address]

=head1 AUTHOR

Brennen Bearnes <bbearnes@gmail.com>

=cut

use strict;
use warnings;
use 5.10.0;

use App::Pieces;
use Getopt::Long;
use Pod::Usage;

GetOptions(
  # 'config=s' => \$config_file,
  help => sub { pod2usage(0) },
) or pod2usage(2);

my $p = App::Pieces->new();

my $piece_id = $p->get($ARGV[0]);

say $piece_id;