view release on metacpan or search on metacpan
#define PERL_NO_GET_CONTEXT
#ifdef ENABLE_DEBUG
#define TRACEME(x) do { \
if (SvTRUE(perl_get_sv("AVLTree::ENABLE_DEBUG", TRUE))) \
{ PerlIO_stdoutf (x); PerlIO_stdoutf ("\n"); } \
} while (0)
#else
#define TRACEME(x)
#endif
view release on metacpan or search on metacpan
lib/AWS/ARN.pm view on Meta::CPAN
__END__
=pod
=encoding utf-8
=head1 NAME
AWS::ARN - module to parse and generate ARNs
view release on metacpan or search on metacpan
t/01__base_dir.t view on Meta::CPAN
};
done_testing;
__END__
# vi: set ts=4 sw=4 sts=0 et ft=perl fenc=utf-8 ff=unix :
view release on metacpan or search on metacpan
lib/AWS/CLIWrapper.pm view on Meta::CPAN
1;
__END__
=encoding utf-8
=head1 NAME
AWS::CLIWrapper - Wrapper module for aws-cli
lib/AWS/CLIWrapper.pm view on Meta::CPAN
# for Emacsen
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# indent-tabs-mode: nil
# coding: utf-8
# End:
# vi: set ts=4 sw=4 sts=0 et ft=perl fenc=utf-8 ff=unix :
view release on metacpan or search on metacpan
lib/AWS/CloudFront/Signer.pm view on Meta::CPAN
use VSO;
use HTTP::Request::Common;
use HTTP::Date 'time2str';
use MIME::Base64 qw(encode_base64);
use URI::Escape qw(uri_escape_utf8);
use URI::QueryParam;
use URI::Escape;
use URI;
use Digest::HMAC_SHA1 'hmac_sha1';
use Digest::MD5 'md5';
lib/AWS/CloudFront/Signer.pm view on Meta::CPAN
sub _urlencode
{
my ($unencoded ) = @_;
return uri_escape_utf8( $unencoded, '^A-Za-z0-9_-' );
}# end _urlencode()
1;# return true:
view release on metacpan or search on metacpan
author/perl-stripper/perl-stripper/handler.pl view on Meta::CPAN
use v5.36;
use utf8;
use lib "$ENV{'LAMBDA_TASK_ROOT'}/local/lib/perl5";
use lib "$ENV{'LAMBDA_TASK_ROOT'}/local/lib/perl5/aarch64-linux";
use Perl::Strip;
use Plack::Request;
view release on metacpan or search on metacpan
lib/AWS/SQS/Simple.pm view on Meta::CPAN
use warnings ;
use strict ;
use Carp ;
use utf8 ;
use LWP::UserAgent ;
use HTTP::Headers ;
use URI::Escape ;
lib/AWS/SQS/Simple.pm view on Meta::CPAN
foreach my $key( keys %$params ) {
next unless $key =~ m/$to_escape/ ;
next unless exists $params->{ $key } ;
my $octets = encode( 'utf-8-strict', $params->{ $key } ) ;
$params->{ $key } = escape( $octets ) ;
}
my $uri_str = join('&', map { $_ . '=' . $params->{$_} } keys %$params ) ;
lib/AWS/SQS/Simple.pm view on Meta::CPAN
return $digest ;
}
=head2 _get_signed_query
This function utf8 encodes and uri escapes the parameters passed to generate the signed string.
=cut
sub _get_signed_query {
lib/AWS/SQS/Simple.pm view on Meta::CPAN
my $to_sign ;
for my $key( sort keys %$params ) {
$to_sign .= '&' if $to_sign ;
my $key_octets = encode('utf-8-strict', $key ) ;
my $value_octets = encode('utf-8-strict', $params->{ $key } ) ;
$to_sign .= escape( $key_octets ) . '=' . escape( $value_octets ) ;
}
lib/AWS/SQS/Simple.pm view on Meta::CPAN
sub escape {
my ($str) = @_;
return uri_escape_utf8( $str,'^A-Za-z0-9\-_.~' ) ;
}
=head2 _generate_timestamp
Calculate current TimeStamp
view release on metacpan or search on metacpan
lib/AWS/Signature/V2.pm view on Meta::CPAN
package AWS::Signature::V2;
use Moo;
use Digest::SHA qw(hmac_sha256_base64);
use URI::Escape;
use Encode qw/decode_utf8/;
our $VERSION = "0.01";
has aws_access_key => (is => 'rw', required => 1, builder => 1);
has aws_secret_key => (is => 'rw', required => 1, builder => 1);
lib/AWS/Signature/V2.pm view on Meta::CPAN
sub _build_aws_secret_key { $ENV{AWS_SECRET_KEY} }
sub sign {
my ($self, $url) = @_;
my %eq = map { split /=/, $_ } split /&/, $url->query();
my %q = map { $_ => decode_utf8( uri_unescape( $eq{$_} ) ) } keys %eq;
$q{Keywords} =~ s/\+/ /g if $q{Keywords};
$q{AWSAccessKeyId} = $self->aws_access_key;
$q{Timestamp} ||= do {
my ( $ss, $mm, $hh, $dd, $mo, $yy ) = gmtime();
join '',
sprintf( '%04d-%02d-%02d', $yy + 1900, $mo + 1, $dd ), 'T',
sprintf( '%02d:%02d:%02d', $hh, $mm, $ss ), 'Z';
};
$q{Version} ||= '2010-09-01';
my $sq = join '&',
map { $_ . '=' . uri_escape_utf8( $q{$_}, "^A-Za-z0-9\-_.~" ) }
sort keys %q;
my $tosign = join "\n", 'GET', $url->host, $url->path, $sq;
my $signature = hmac_sha256_base64( $tosign, $self->aws_secret_key );
$signature .= '=' while length($signature) % 4; # padding required
$q{Signature} = $signature;
lib/AWS/Signature/V2.pm view on Meta::CPAN
1;
__END__
=encoding utf-8
=head1 NAME
AWS::Signature::V2 - Create a version 2 signature for AWS services
view release on metacpan or search on metacpan
lib/AWS/XRay.pm view on Meta::CPAN
}
1;
__END__
=encoding utf-8
=head1 NAME
AWS::XRay - AWS X-Ray tracing library
view release on metacpan or search on metacpan
share/AXLAPI.wsdl view on Meta::CPAN
<?xml version="1.0" encoding="utf-8"?>
<!-- Copyright (c) 2002 Cisco Systems, Inc. -->
<definitions xmlns:http="http://schemas.xmlsoap.org/wsdl/http/" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:s="http://www.w3.org/2001/XMLSchema" xmlns:s0="http://www.cisco.com/AXLAPIService/" xmlns:soapenc="http://schemas.xmlsoap.org/so...
<import namespace="http://www.cisco.com/AXL/API/7.1" location="AXLSoap.xsd"></import>
<message name="addCommonPhoneConfigIn">
<part name="parameters" element="xsd1:addCommonPhoneConfig"></part>
view release on metacpan or search on metacpan
acelib/freeout.c view on Meta::CPAN
freeOut (text) ;
}
/************************************************/
void freeOutf (char *format,...)
{
va_list args ;
stackClear (outBuf) ;
va_start (args,format) ;
vsprintf (stackText (outBuf,0), format,args) ;
va_end (args) ;
if (strlen(stackText (outBuf,0)) >= BUFSIZE)
messcrash ("abusing freeOutf with too long a string: \n%s",
outBuf) ;
freeOut (stackText (outBuf,0)) ;
}
view release on metacpan or search on metacpan
lib/Acme/2zicon.pm view on Meta::CPAN
}
1;
__END__
=encoding utf-8
=head1 NAME
Acme::2zicon - It's new $module
view release on metacpan or search on metacpan
lib/Acme/3mxA.pm view on Meta::CPAN
use utf8;
package Acme::3mxA;
sub import {
Acme::ÇmÉ”A->import;
}
"með blóðnasir"
__END__
=encoding utf-8
=head1 NAME
Acme::3mxA - Turn your perl upside down
=head1 SYNOPSIS
use utf8; use Acme::ÇmÉ”A;
ɹÇpun uÊop Êou Çɹ,noâ…„ #
=head1 DESCRIPTION
view release on metacpan or search on metacpan
lib/Acme/Acotie.pm view on Meta::CPAN
1;
__END__
=for stopwords Namespace namespace Kogai
=encoding utf8
=head1 NAME
Acme::Acotie - Crash of Namespace
view release on metacpan or search on metacpan
lib/Acme/Addslashes.pm view on Meta::CPAN
package Acme::Addslashes;
use utf8;
# ABSTRACT: Perl twist on the most useful PHP function ever - addslashes
=encoding utf-8
=head1 NAME
Acme::Addslashes - Perl twist on the most useful PHP function ever - addslashes
lib/Acme/Addslashes.pm view on Meta::CPAN
The only function exported by this module. Will literally add slashes to anything.
Letters, numbers, punctuation, whitespace, unicode symbols.
You name it, this function can add a slash to it.
Will return you a C<utf8> encoded string containing your original string, but with
enough slashes added to make Freddy Krueger jealous.
=cut
# The addslashes function. It is documented above. -- JAITKEN
lib/Acme/Addslashes.pm view on Meta::CPAN
# I think these slashes could be longer -- SKINGTON
# You forgot the last slash -- JAITKEN
my $safe_string = join("\N{U+0338}", @unsafe_array) . "\N{U+0338}";
# Return the safe string using the return function of PERL -- JAITKEN
return encode("utf8", $safe_string);
}
# The end of the module. -- JAITKEN
1;
view release on metacpan or search on metacpan
lib/Acme/Aheui.pm view on Meta::CPAN
package Acme::Aheui;
use utf8;
use strict;
use warnings;
use Term::ReadKey;
use Term::Encoding;
use Encode qw/encode/;
=encoding utf8
=head1 NAME
Acme::Aheui - an aheui interpreter
lib/Acme/Aheui.pm view on Meta::CPAN
our $VERSION = '0.05';
=head1 SYNOPSIS
use utf8;
use Acme::Aheui;
my $interpreter = Acme::Aheui->new( source => 'ì•„í¬' );
$interpreter->execute();
=head1 DESCRIPTION
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
}
1;
__END__
=encoding utf-8
#line 128
view release on metacpan or search on metacpan
eg/rewrite.pl view on Meta::CPAN
#!/usr/bin/env perl
use 5.12.4;
use strict;
use warnings;
use utf8;
use FindBin;
use lib ("$FindBin::Bin/../lib");
use Acme::AjiFry::Perl;
view release on metacpan or search on metacpan
inc/Module/Install/TestBase.pm view on Meta::CPAN
$self->requires('Filter::Util::Call');
}
1;
=encoding utf8
#line 70
view release on metacpan or search on metacpan
lib/Acme/Alien/__cpu_model.pm view on Meta::CPAN
use parent 'Alien::Base';
=pod
=encoding utf8
=head1 NAME
Acme::Alien::__cpu_model - Provides the __cpu_model symbol
view release on metacpan or search on metacpan
lib/Acme/AllThePerlIsAStage.pm view on Meta::CPAN
1;
__END__
=encoding utf-8
=head1 NAME
Acme::AllThePerlIsAStage - Grok perl stages for scripts and modules under use and require–uncompiled and compiled
view release on metacpan or search on metacpan
lib/Acme/Alt/Dep/Test.pod view on Meta::CPAN
=for comment
DO NOT EDIT. This Pod was generated by Swim v0.1.31.
See http://github.com/ingydotnet/swim-pm#readme
=encoding utf8
=head1 NAME
Acme::Alt::Dep::Test - Test Depping on an Alted Module
view release on metacpan or search on metacpan
lib/Acme/Ane.pm view on Meta::CPAN
}
1;
__END__
=encoding utf-8
=head1 NAME
Acme::Ane - Ane means big sister.
view release on metacpan or search on metacpan
lib/Acme/AsciiEmoji.pm view on Meta::CPAN
Version 1.02
=cut
=encoding utf8
=head1 SYNOPSIS
use Acme::AsciiEmoji;
...
view release on metacpan or search on metacpan
lib/Acme/AtIncPolice.pm view on Meta::CPAN
1;
__END__
=encoding utf-8
=head1 NAME
Acme::AtIncPolice - The police that opponents to @INC contamination
view release on metacpan or search on metacpan
lib/Acme/AwesomeQuotes.pm view on Meta::CPAN
use strict;
use warnings;
use utf8;
use 5.008_003;
package Acme::AwesomeQuotes;
BEGIN {
$Acme::AwesomeQuotes::VERSION = '0.02';
}
binmode STDIN, ':utf8';
binmode STDOUT, ':utf8';
binmode STDERR, ':utf8';
use Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(GetAwesome);
our @EXPORT = qw(GetAwesome);
lib/Acme/AwesomeQuotes.pm view on Meta::CPAN
1; # This is a module, so it must return true.
__END__
=pod
=encoding utf-8
=head1 NAME
Acme::AwesomeQuotes - Make your text awesome!
view release on metacpan or search on metacpan
lib/Acme/BABYMETAL.pm view on Meta::CPAN
1;
__END__
=encoding utf-8
=head1 NAME
Acme::BABYMETAL - All about Japanese metal idol unit "BABYMETAL"
view release on metacpan or search on metacpan
=encoding utf8
This is Perl module B<Acme::BayaC>.
=begin html
view release on metacpan or search on metacpan
lib/Acme/Be/Modern.pm view on Meta::CPAN
use Modern::Perl;
use Filter::Util::Call;
=encoding utf-8
=head1 NAME
Acme::Be::Modern - enables your script to "be modern"
view release on metacpan or search on metacpan
lib/Acme.pod view on Meta::CPAN
=for comment
DO NOT EDIT. This Pod was generated by Swim.
See http://github.com/ingydotnet/swim-pm#readme
=encoding utf8
=head1 NAME
Acme - The Base of Perfection