Group
Extension

Matches 2

Net-WURFL-ScientiaMobile ( P/PA/PASSANI/Net-WURFL-ScientiaMobile-1.0.3.tar.gz, PASSANI, 2012; MetaCPAN )
Net-WURFL-ScientiaMobile/lib/Net/WURFL/ScientiaMobile.pm ( view source; MetaCPAN )
escription => 'API Authentication error, your request signature is invalid',
    },
);
use JSON qw(decode_json);
use List::Util qw(first sum);
use LWP::UserAgent;
use Module::Load qw(load);
use Moo;
u
(is => 'rw'); # The HTTP Request (PSGI env) that is being evaluated
has '_json'                 => (is => 'rw'); # The raw json response from the server
has '_report_data'          => (is => 'rw', def
;
    }
    
    my $request_path = @{$self->_search_capabilities} == 0
        ? '/v1/json/'
        : '/v1/json/search:(' . join(',', @{$self->_search_capabilities}) . ')';
    
    # Prepare reques
Net-WURFL-ScientiaMobile ( P/PA/PASSANI/Net-WURFL-ScientiaMobile-1.0.3.tar.gz, PASSANI, 2012; MetaCPAN )
Net-WURFL-ScientiaMobile/lib/Net/WURFL/ScientiaMobile/Cache/Cookie.pm ( view source; MetaCPAN )
package Net::WURFL::ScientiaMobile::Cache::Cookie;
use Moo;

use JSON qw(decode_json encode_json);
use Plack::Request;

with 'Net::WURFL::ScientiaMobile::Cache';

has 'cookie_name'       => (is => 'rw
 return 0 unless $request->cookies->{$self->cookie_name};
    
    my $cookiedata = eval { decode_json($request->cookies->{$self->cookie_name}) };
    return 0 unless ref $cookiedata eq 'HASH';
    re
abilities => $capabilities,
    };
    
    $self->cookies({
        $self->cookie_name => encode_json($data),
    });
}

sub setDeviceFromID { 1 }
sub getMtime        { 0 }
sub setMtime        { 1 }

Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.