LabKey-Query

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

    requires => {
        'LWP::UserAgent' => 0,
        'HTTP::Request' => 0,
        'Data::Dumper' => 0,
        'JSON' => 2,
        'File::Spec' => 0,
        'File::HomeDir' => 0,
        'FileHandle' => 0,
        'URI' => 0,
        'Carp' => 0,
        'IO::Socket::SSL' => 0
    },

    configure_requires => {
        'Module::Build' => 0.42
    },

    add_to_cleanup => [ 'LabKey-Query-*' ],

    meta_merge => {
        resources => {

META.json  view on Meta::CPAN

         }
      },
      "runtime" : {
         "requires" : {
            "Carp" : "0",
            "Data::Dumper" : "0",
            "File::HomeDir" : "0",
            "File::Spec" : "0",
            "FileHandle" : "0",
            "HTTP::Request" : "0",
            "IO::Socket::SSL" : "0",
            "JSON" : "2",
            "LWP::UserAgent" : "0",
            "URI" : "0"
         }
      }
   },
   "provides" : {
      "LabKey::Query" : {
         "file" : "lib/LabKey/Query.pm",
         "version" : "1.07"

META.yml  view on Meta::CPAN

  LabKey::Query:
    file: lib/LabKey/Query.pm
    version: '1.07'
requires:
  Carp: '0'
  Data::Dumper: '0'
  File::HomeDir: '0'
  File::Spec: '0'
  FileHandle: '0'
  HTTP::Request: '0'
  IO::Socket::SSL: '0'
  JSON: '2'
  LWP::UserAgent: '0'
  URI: '0'
resources:
  Issues: https://www.labkey.org/home/Developer/issues/issues-list.view?issues-issues.area~eq=Perl%20Client%20API
  homepage: https://www.labkey.org/Documentation/wiki-page.view?name=viewAPIs
  license: http://www.apache.org/licenses/LICENSE-2.0.txt
  repository: https://github.com/LabKey/labkey-api-perl
version: '1.07'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

lib/LabKey/Query.pm  view on Meta::CPAN

use Carp;


# Force all SSL connections to use TLSv1 or greater protocol. This is required for 
# MacOSX and older Windows workstations.
# 
# Credit to @chrisrth on stackoverflow (http://stackoverflow.com/a/20305596)
# See https://www.labkey.org/issues/home/Developer/issues/details.view?issueId=22146
# for more information.
# 
use IO::Socket::SSL;
my $context = new IO::Socket::SSL::SSL_Context(
	SSL_version => 'tlsv1'
);
IO::Socket::SSL::set_default_context($context);

use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request::Common;
use URI;


use vars qw($VERSION);

our $VERSION = "1.07";