view release on metacpan or search on metacpan
lib/Browsermob/Server.pm view on Meta::CPAN
my $self = shift;
my $ua = $self->ua;
my $res = $ua->get('http://' . $self->server_addr . ':' . $self->server_port . '/proxy');
if ($res->is_success) {
my $list = from_json($res->decoded_content)->{proxyList};
my @proxies = map {
$_->{port};
} @$list;
view release on metacpan or search on metacpan
share/stub.pl view on Meta::CPAN
}
close $out;
while ( my $len = read( DATA, my $buf, 4081 ) ) {
my $decoded = MIME::Base64::decode_base64($buf);
syswrite( $in, $decoded ) or die("Failed to syswrite(): $!");
}
close $in;
waitpid( $pid, 0 );
view release on metacpan or search on metacpan
lib/Bundle/WATERKIP/CLI/Azure/Password.pm view on Meta::CPAN
my $ua = LWP::UserAgent->new();
$ua->default_header("Authorization", "Bearer $token");
my $res = $ua->get($self->_cli_args->{use_at});
if($res->is_success) {
say $res->decoded_content;
return;
}
say $token;
die $res->status_line;
view release on metacpan or search on metacpan
lib/Business/BR/CNJ/NumberExtractor.pm view on Meta::CPAN
die $req->status_line if !$req->is_success;
# text/html
if ( $req->header( 'Content-type' ) eq 'text/html' ) {
my $dom = Mojo::DOM->new( $req->decoded_content );
return cnj_extract_numbers( $dom->all_text );
# Everything else
} else {
return cnj_extract_numbers( $req->decoded_content );
}
}
1;
view release on metacpan or search on metacpan
lib/Business/Bitcoin/Request.pm view on Meta::CPAN
}
sub _decode58 {
my $todecode = shift;
$todecode =~ tr/A-HJ-NP-Za-km-z/a-km-zA-HJ-NP-Z/;
my $decoded = decode_base58($todecode);
}
sub _encode58 {
my $encoded = encode_base58(shift);
$encoded =~ tr/a-km-zA-HJ-NP-Z/A-HJ-NP-Za-km-z/;
view release on metacpan or search on metacpan
lib/Business/Bitpay.pm view on Meta::CPAN
my $http_response = $self->{ua}->request($self->prepare_request(@_));
Carp::croak($http_response->status_line)
unless $http_response->is_success;
my $response = decode_json($http_response->decoded_content);
if (my $error = $response->{error}) {
my $messages = $error->{messages};
Carp::croak("$error->{message}: ",
join(', ', map {"$_ ($messages->{$_})"} keys %$messages));
view release on metacpan or search on metacpan
lib/Business/CPI/Gateway/PayPal/IPN.pm view on Meta::CPAN
has is_valid => (
is => 'lazy',
default => sub {
my $self = shift;
for ($self->response->decoded_content) {
return 0 if /^INVALID$/;
return 1 if /^VERIFIED$/;
die "Vague response: " . $_;
}
view release on metacpan or search on metacpan
bin/postdanmark.pl view on Meta::CPAN
my $ua = LWP::UserAgent->new;
my $response = $ua->get($url);
if ( $response->is_success ) {
my $content = $response->decoded_content;
my $ctx = Digest::MD5->new;
$ctx->add($content);
my $digest = $ctx->hexdigest;
view release on metacpan or search on metacpan
t/002-Spec-analysis.t view on Meta::CPAN
my $edi = Business::EDI->new('d08a') or die "Business::EDI->new('d08a') failed";
ok($perl = ordrsp_data, "DATA handle read and decode" );
$perl or die "DATA handle not decoded successfully";
# note("ref(\$obj): " . ref($perl));
# note(" \$obj : " . $perl );
$Data::Dumper::Indent = 1;
view release on metacpan or search on metacpan
DirectConnect.pm view on Meta::CPAN
This method will return the value for an item returned from FedEx. Refer to
the C<Business::FedEx::Constants> %FE_RE hash to see all possible values.
=item $t->rbuf()
Returns the decoded string portion of the FedEx reply.
=item $t->hash_ret()
Returns a hash of the FedEx reply values
view release on metacpan or search on metacpan
zlib/contrib/blast/blast.c view on Meta::CPAN
* more "natural" ordering starting with all zeros and incrementing.
*/
local int decode(struct state *s, struct huffman *h)
{
int len; /* current number of bits in code */
int code; /* len bits being decoded */
int first; /* first code of length len */
int count; /* number of codes of length len */
int index; /* index of first code of length len in symbol table */
int bitbuf; /* bits from stream */
int left; /* bits left in next or left to process */
zlib/contrib/blast/blast.c view on Meta::CPAN
*/
local int decomp(struct state *s)
{
int lit; /* true if literals are coded */
int dict; /* log2(dictionary size) - 6 */
int symbol; /* decoded symbol, extra bits for distance */
int len; /* length for copy */
unsigned dist; /* distance for copy */
int copy; /* copy counter */
unsigned char *from, *to; /* copy pointers */
static int virgin = 1; /* build tables once */
view release on metacpan or search on metacpan
lib/Business/MollieAPI.pm view on Meta::CPAN
my $self = shift;
my $req = shift;
$req->header('Authorization', 'Bearer ' . $self->api_key);
my $ua = LWP::UserAgent->new();
my $res = $ua->request($req);
my $data = decode_json($res->decoded_content);
$self->log_response({ request => $req, response => $res });
return $data;
}
1;
view release on metacpan or search on metacpan
lib/Business/Mondo/Client.pm view on Meta::CPAN
Make a request to the Mondo API:
my $data = $Client->api_get( 'location',\%params );
May return a the decoded response data as a hash/array/string depending
on the reposonse type
=cut
sub api_get {
view release on metacpan or search on metacpan
lib/Business/Monzo/Client.pm view on Meta::CPAN
Make a request to the Monzo API:
my $data = $Client->api_get( 'location',\%params );
May return a the decoded response data as a hash/array/string depending
on the reposonse type
=cut
sub api_get {
view release on metacpan or search on metacpan
my $paircodeResponse = '{"data":[{"policies":[{"policy":"id", "method":"require", "params":["TfLAXsWtvWpSgqMYjJ1QvJEx2Bdob1mDeK4"]}], "resource":"Gd1q7mZJQU5zGoHAFsh1bmYEcWYQnzHZW6sjWatxtEr2", "token":"9nYwJ7KRRAcH1rXwJZRonXYrJJjcwAUowTC63UVLSYaC...
my $invoiceResponse = '{"facade":"pos/invoice", "data": {"url":"https://paul.bp:8088/invoice?id=FAdAZK8FwmHyUZSzRvT9GW", "status":"new", "btcPrice":"0.035314", "btcDue":"0.035314", "price":10, "currency":"USD", "exRates":{"USD":283.1700000000001}...
my $getTokens = '{"data": [{"pos/invoice":"7zjXTgeWaTj7xXNBA1qV7iBGGHJZNiLjPXNquHdk8BUN"}, {"pos":"HwC497kDGihPFUDiPfbedj6etbrVHyKQaiFHPGspYHHV"}]}';
my $httpd = run_http_server {
my $request = shift;
my $decoded = decode_json($request->content) if $request->content;
my $uri = $request->uri;
my $method = $request->method;
if ($uri->path eq '/postthis') {
}
return do {
if ($method eq "POST") {
if( $uri->path eq '/postthis' && $decoded->{"token"} && $decoded->{"facade"} ) {
[
200,
[ 'Content-Type' => 'application/json' ],
[ '{"facade":"correct", "token":"correct"}']
]
} elsif( $decoded->{"pairingCode"} && $uri->path eq '/tokens' ) {
[
200,
[ 'Content-Type' => 'application/json' ],
[ $paircodeResponse ]
]
view release on metacpan or search on metacpan
lib/Business/OnlinePayment/IPayment/Response.pm view on Meta::CPAN
}
=head3 raw_url
Accessor for the raw, undecoded url (used for the checksum).
=cut
has raw_url => (is => 'rw');
=head3 url_is_valid($raw_undecoded_url)
You may ask for the validation of the url, which comes with a checksum
attached. For this you should have already provided the security key
and you should pass the raw undecoded url as argument.
Alternatively, if you set the attribute C<raw_url> in the constructor
or with the accessor, you can call url_is_valid without arguments.
Return false on failure, true on success
view release on metacpan or search on metacpan
InternetSecure.pm view on Meta::CPAN
=head2 Character encoding
When using non-ASCII characters, all data provided to B<contents>() should
have been decoded beforehand via the C<Encode> module, unless your data is in
ISO-8859-1 and you haven't meddled with the C<encoding> pragma. (Please
don't.)
InternetSecure currently does not handle characters outside of ISO-8859-1, so
these will be replaced with C<?> before being transmitted.
view release on metacpan or search on metacpan
lib/Business/PayPoint/MCPE.pm view on Meta::CPAN
# use Data::Dumper; print STDERR Dumper(\$resp);
unless ($resp->is_success) {
return wantarray ? (error => $resp->status_line) : { error => $resp->status_line };
}
my @parts = split('&', $resp->decoded_content);
my %parts;
foreach my $p (@parts) {
my ($a, $b) = split('=', $p, 2);
$a =~ s/^(int|flt|str|dat)//;
$parts{$a} = uri_unescape($b);
view release on metacpan or search on metacpan
lib/Business/Stripe/Webhook.pm view on Meta::CPAN
my $error = $webhook->error();
=head2 process
This method processes the webhook sent from Stripe. It checks the Stripe Signature if a C<signing_secret> parameter has been included and calls the defined subroutine to handle the Stripe event. Each subroutine is passed a JSON decoded Event Object...
my $result = $webhook->process();
This method takes no parameters.
view release on metacpan or search on metacpan
lib/Business/Tax/VAT/Validation.pm view on Meta::CPAN
$request->content(_in_soap_envelope($vatNumber, $countryCode));
$request->content_type("text/xml; charset=utf-8");
my $response = $ua->request($request);
return $countryCode . '-' . $vatNumber if $self->_is_res_ok( $response->code, $response->decoded_content );
}
sub _check_hmrc {
my ($self, $vatNumber, $countryCode) = @_;
my $ua = $self->_get_ua();
my $request = HTTP::Request->new(GET => $self->{hmrc_baseurl}.$vatNumber);
$request->header(Accept => 'application/vnd.hmrc.1.0+json');
my $response = $ua->request($request);
$self->{res} = $response->decoded_content;
if ($response->code == 200) {
my $data = decode_json($self->{res});
$self->{information}->{name} = $data->{target}->{name};
my $line = 1;
my $address = "";
view release on metacpan or search on metacpan
lib/Business/YQL.pm view on Meta::CPAN
=back
=head2 q
Submits the YQL query, this method simply takes a string to send to Y! API, and returns the decoded JSON response n the form of a Perl object if the request was valid.
q("SELECT * from geo.places WHERE text='SFO'")
=head1 AUTHOR
view release on metacpan or search on metacpan
lib/Business/cXML.pm view on Meta::CPAN
$self->{remote},
'Content-Type' => 'text/xml; charset="UTF-8"',
'Content' => $req,
);
if ($res->is_success) {
$res = $res->decoded_content;
my $msg = new Business::cXML::Transmission $res;
unless (defined blessed($msg)) {
# We have an error status code
return $self->_warning('send(21) ' . ($msg->[0] == 406 ? 'response XML validation' : 'response cXML traversal') . ' failure', $res);
};
view release on metacpan or search on metacpan
lib/Business/eWAY/RapidAPI.pm view on Meta::CPAN
# print '<h2>POST Error: ' . $resp->status_line . ' URL: ' . $url. ' </h2> <pre>';
# die Dumper(\$resp);
}
return $resp->decoded_content;
}
no Moo;
1;
view release on metacpan or search on metacpan
lib/Business/iDEAL/Adyen.pm view on Meta::CPAN
sub banklist {
my $self = shift;
my $res = $self->{_ua}->get($self->_url('banklist'));
if ($res->is_success) {
return $self->_parse_xml($res->decoded_content)->{'bank'};
} else {
$self->{_error} = $res->status_line;
return undef;
}
}
view release on metacpan or search on metacpan
lib/Business/iDEAL/Mollie.pm view on Meta::CPAN
sub banklist {
my $self = shift;
my $res = $self->{'_ua'}->get($self->{'_baseurl'}.'?a=banklist');
if ($res->is_success) {
return _parse_output($res->decoded_content)->{'bank'};
} else {
$self->{'_error'} = $res->status_line;
}
}
lib/Business/iDEAL/Mollie.pm view on Meta::CPAN
# Put the action value in $parms
$parms->{'a'} = 'fetch';
my $res = $self->{'_ua'}->post($self->{'_baseurl'}, $parms);
if ($res->is_success) {
return _parse_output($res->decoded_content)->{'order'};
} else {
$self->{'_error'} = $res->status_line;
}
}
lib/Business/iDEAL/Mollie.pm view on Meta::CPAN
# Put the action value in $parms
$parms->{'a'} = 'check';
my $res = $self->{'_ua'}->post($self->{'_baseurl'}, $parms);
if ($res->is_success) {
return _parse_output($res->decoded_content)->{'order'};
} else {
$self->{'_error'} = $res->status_line;
}
}
view release on metacpan or search on metacpan
t/samples.t view on Meta::CPAN
{ filename => 'googlejp.atom',
exp_num => 25,
exp_partial => [
sh( id => '1404701402|tag:blogger.com,1999:blog-20042392.post-2515664455683743324',
## status text should be decoded.
text => 'ã‚ãŸã‚‰ã—ã„「ã”ã¡ãã†ãƒ•ã‚©ãƒˆã€ã§ã€ã‚ãªãŸãŒã©ã‚“ãªé£Ÿé€šã‹ãƒã‚§ãƒƒã‚¯ã—ã¾ã—ょã†ã€‚',
## if there are multiple <link>s, use rel="alternate".
busybird => sh( status_permalink => 'http://feedproxy.google.com/~r/GoogleJapanBlog/~3/RP_M-WXr_6I/blog-post.html',
original => sh( id => 'tag:blogger.com,1999:blog-20042392.post-2515664455683743324' )),
view release on metacpan or search on metacpan
lib/BusyBird/Main.pm view on Meta::CPAN
=head2 $timeline = $main->timeline($name)
Returns the C<$timeline> whose name is C<$name> from the C<$main>.
C<$timeline> is a L<BusyBird::Timeline> object.
If C<$name> includes Unicode characters, it must be a character string (decoded string), not a binary string (encoded string).
If there is no timeline named C<$name> in C<$main>, a new timeline is created, installed and returned.
In L<BusyBird::Main>, timeline names must not contain a slash "/", because it confuses Web API.
If C<$name> contains a slash, the timeline IS created and returned, but it's NOT installed in the C<$main> object.
view release on metacpan or search on metacpan
t/26-oo_public.t view on Meta::CPAN
my $random = Bytes::Random::Secure->new( Bits => 64, NonBlocking=>1, Weak=>1 );
is( length $random->bytes(10), 10, 'bytes(10) returns ten bytes.' );
is( length decode_base64($random->bytes_base64(111)), 111,
'decode_base64() can be decoded, and returns correct number of bytes.');
like( $random->bytes_base64(111,"\n\n"), qr/\n\n/,
'bytes_base64(111,"\n\n"): EOL handled properly.' );
is( length decode_qp( $random->bytes_qp(200) ), 200,
'bytes_qp(): Decodable Quoted Printable returned.'
view release on metacpan or search on metacpan
src/sparse-0.4.4/perl/t/include/disas/bfd.h view on Meta::CPAN
int bytes_per_chunk;
enum bfd_endian display_endian;
/* Results from instruction decoders. Not all decoders yet support
this information. This info is set each time an instruction is
decoded, and is only valid for the last such instruction.
To determine whether this decoder supports this information, set
insn_info_valid to 0, decode an instruction, then check it. */
char insn_info_valid; /* Branch info has been set. */
view release on metacpan or search on metacpan
lib/CAM/PDF.pm view on Meta::CPAN
}
$self->fixDecode(\$streamdata, $filtername, shift @parms);
my $length = length $streamdata;
#warn "decoded length: $oldlength -> $length\n";
if ($save)
{
my $objnum = $dict->{StreamData}->{objnum};
my $gennum = $dict->{StreamData}->{gennum};