t::Long qw( GetOptionsFromArray );
use HTTP::Tiny;
use HTTP::Tiny::Multipart;
use JSON::PP qw( encode_json decode_json );
use MIME::Base64 qw( encode_base64 );
use Path::Tiny qw( path );
use Class::T
( 'config.json' );
if ( not ref $config_file ) {
$config_file = path( $config_file );
}
croak "Expected config file: $config_file" unless $config_file->is_file;
my $args = decode_json( $config
local $/;
$content = <STDIN>;
}
else {
$content = path( $file )->slurp;
}
my $json = encode_json( {
contents => $content,
highlight => $opts->{highlight} ? \1 : \0,
} );
my $en