Apache-Tika-Async

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "requires" : {
            "ExtUtils::MakeMaker" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "Carp" : "0",
            "Exporter" : "5",
            "Future" : "0",
            "Future::HTTP" : "0",
            "JSON::XS" : "0",
            "Moo" : "2",
            "Try::Tiny" : "0",
            "perl" : "5.020"
         }
      },
      "test" : {
         "requires" : {
            "Data::Dumper" : "0",
            "Test::More" : "0"
         }

META.yml  view on Meta::CPAN

name: Apache-Tika-Async
no_index:
  directory:
    - t
    - inc
requires:
  Carp: '0'
  Exporter: '5'
  Future: '0'
  Future::HTTP: '0'
  JSON::XS: '0'
  Moo: '2'
  Try::Tiny: '0'
  perl: '5.020'
resources:
  license: https://dev.perl.org/licenses/
  repository: git://github.com/Corion/Apache-Tika-Async.git
version: '0.11'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
x_static_install: 1

Makefile.PL  view on Meta::CPAN

    },

    PREREQ_PM => {
        'Exporter'           => '5',    # we need the "import" facility
        # 'Filter::signatures' => 0.15, # we require 5.020 anyway
        'Carp'           => 0,
        'Future'         => 0,
        'Future::HTTP'   => 0,
        'Moo'            => 2,
        'Try::Tiny'      => 0,
        'JSON::XS'       => 0,
    },
    TEST_REQUIRES => {
        'Test::More'   => 0,
        'Data::Dumper' => 0,
    },

    dist                => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
    clean               => { FILES => "$distbase-*" },

    test            => { TESTS => join( ' ', @tests ) },

lib/Apache/Tika/Async.pm  view on Meta::CPAN

package Apache::Tika::Async;
use strict;
use Moo 2;
use JSON::XS qw(decode_json);
use File::Temp 'tempfile';

our $VERSION = '0.11';

=head1 NAME

Apache::Tika::Async - connect to Apache Tika

=head1 SYNOPSIS

lib/Apache/Tika/Connection.pm  view on Meta::CPAN

package Apache::Tika::Connection;
use strict;
use Moo::Role;
use JSON::XS;
our $VERSION = '0.11';

sub decode_response {
    my( $self, $body ) = @_;

    return decode_json( $body );
}

sub process_response {
    my ( $self, $params, $code, $msg, $body, $headers ) = @_;