view release on metacpan or  search on metacpan

bin/pastebin-create2  view on Meta::CPAN

#!perl

#PODNAME: pastebin-create2
use strict;
use warnings;
use WWW::Pastebin::PastebinCom::Create;
use Getopt::Long qw(GetOptions);
use Path::Tiny qw(path);
use v5.10;

my ( $text_input, $format_input, $expiry_input, $privacy_input, $desc_input );

GetOptions(
    'text=s'    => \$text_input,
    'format=s'  => \$format_input,
    'expiry=s'  => \$expiry_input,
    'private=i' => \$privacy_input,
    'desc=s'    => \$desc_input
  )
  or die
"Usage: $0 --text 'TEXT' --format 'none' --expiry 10m --private 0 --desc 'DESCRIPTION'";

my $bin = WWW::Pastebin::PastebinCom::Create->new;

my $uri = $bin->paste(
    text    => $text_input,
    format  => $format_input,
    expiry  => $expiry_input,
    private => $privacy_input,
    desc    => $desc_input
  )
  or die "You need at least to declare --text flag. Debug-message-> "
  . $bin->error;

say "Your paste URL: $bin";

__END__

=pod

=encoding UTF-8

=head1 NAME

pastebin-create2

=head1 VERSION

version 0.15

=head1 AUTHOR

faraco <skelic3@gmail.com>, mfzz <mfzz@cpan.org>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2017 by faraco <skelic3@gmail.com>, mfzz <mfzz@cpan.org>.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut