Browse Source

add pieces-show

Brennen Bearnes 8 months ago
parent
commit
eb20ec3720
1 changed files with 39 additions and 0 deletions
  1. 39
    0
      bin/pieces-show

+ 39
- 0
bin/pieces-show View File

@@ -0,0 +1,39 @@
1
+#!/usr/bin/env perl
2
+
3
+=pod
4
+
5
+=head1 NAME
6
+
7
+pieces-show - show details for a marked URI
8
+
9
+=head1 SYNOPSIS
10
+
11
+  pieces-show  show details for a given pieces URI
12
+
13
+  USAGE:
14
+    pieces show [address]
15
+
16
+=head1 AUTHOR
17
+
18
+Brennen Bearnes <bbearnes@gmail.com>
19
+
20
+=cut
21
+
22
+use strict;
23
+use warnings;
24
+use 5.10.0;
25
+
26
+use App::Pieces;
27
+use Getopt::Long;
28
+use Pod::Usage;
29
+
30
+GetOptions(
31
+  # 'config=s' => \$config_file,
32
+  help => sub { pod2usage(0) },
33
+) or pod2usage(2);
34
+
35
+my $p = App::Pieces->new();
36
+
37
+my $piece_id = $p->get($ARGV[0]);
38
+
39
+say $piece_id;

Loading…
Cancel
Save