view release on metacpan or  search on metacpan

examples/app.psgi  view on Meta::CPAN

use MIME::Base64;
use Data::Dumper;
use Plack::Request;

# Settings ========================================
my $username = "xxx";
my $password = "xxx";
my $host = "http://127.0.0.1:4200";
#==================================================

my $http = HTTP::Tiny->new( keep_alive => 1 );

my $app = sub {
    my $env = shift;
    my $auth = $env->{HTTP_AUTHORIZATION};
    if ($auth && $auth =~ /^Basic (.*)$/i) {
        my($user, $pass) = split /:/, (MIME::Base64::decode($1) || ":"), 2;
        $pass = '' unless defined $pass;
        if ($user eq $username && $pass eq $password){
            my $req = Plack::Request->new($env);
            my $content = $req->content;

lib/DBD/Crate.pm  view on Meta::CPAN

    use DBI;

    $imp_data_size = 0;

    sub connect {
        my ($drh, $dburl, $user, $pass, $attr) = @_;
        my $UTF8 = defined $attr->{utf8} ?
                        $attr->{utf8} : 1;

        $JSON = JSON::MaybeXS->new({ utf8 => $UTF8 });
        $HTTP = HTTP::Tiny->new( keep_alive => 1 );

        my @addresses = ($dburl);
        my @addr;
        if ($dburl =~ s/^\[(.*?)\]$/$1/){
            @addresses = split ',', $dburl;
        }

        foreach my $addr (@addresses){
            $addr =~ s/\s+//;
            if (!$addr){