view release on metacpan or search on metacpan
lib/API/Stripe.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::Stripe - Stripe.com API Client
view release on metacpan or search on metacpan
lib/API/Trello.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::Trello - Trello.com API Client
view release on metacpan or search on metacpan
lib/API/Twitter.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::Twitter - Twitter.com API Client
view release on metacpan or search on metacpan
lib/API/Wunderlist.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::Wunderlist - Wunderlist.com API Client
view release on metacpan or search on metacpan
t/Plack-Middleware-APISchema-RequestValidator.t view on Meta::CPAN
subtest 'when valid utf8 request' => sub {
test_psgi $middleware => sub {
my $server = shift;
my $res = $server->(
POST '/bmi',
Content_Type => 'application/json; charset=UTF-8',
Content => encode_json({weight => 50, height => 1.6}),
);
is $res->code, 200;
done_testing;
}
view release on metacpan or search on metacpan
lib/ASNMTAP/Asnmtap/Plugins/Mail.pm view on Meta::CPAN
if ( $self->{_mailType} ) {
use Time::Local;
my ($localYear, $localMonth, $currentYear, $currentMonth, $currentDay, $currentHour, $currentMin, $currentSec) = ((localtime)[5], (localtime)[4], ((localtime)[5] + 1900), ((localtime)[4] + 1), (localtime)[3,2,1,0]);
my $mailEpochtime = timelocal($currentSec, $currentMin, $currentHour, $currentDay, $localMonth, $localYear);
$message = "<?xml version=\"1.0\" encoding=\"UTF-8\"?><!DOCTYPE FingerprintEmail SYSTEM \"dtd/FingerprintEmail-1.0.dtd\"><FingerprintEmail><Schema Value=\"1.0\"/><Fingerprint From=\"". $self->{_mail}->{from} ."\" To=\"". $self->{_mail}->{to} ."\"...
} else {
use ASNMTAP::Time qw(&get_datetimeSignal);
$message = $self->{_subject_} ."\n". $self->{_branding_} ."\n". $self->{_timestamp_} .' '. get_datetimeSignal() ."\n". $self->{_status_} ."\n";
}
lib/ASNMTAP/Asnmtap/Plugins/Mail.pm view on Meta::CPAN
use MIME::Parser;
my $parser = new MIME::Parser;
$parser->output_to_core(1);
$parser->decode_bodies(1);
use constant HEADER => '<?xml version="1.0" encoding="UTF-8"?>';
use constant SYSTEM => 'dtd/FingerprintEmail-1.0.dtd';
use constant FOOTER => '</FingerprintEmail>';
my $fingerprintXML = HEADER .'<!DOCTYPE FingerprintEmail SYSTEM "'. SYSTEM .'"><FingerprintEmail>';
my $debug = $$asnmtapInherited->getOptionsValue ('debug');
view release on metacpan or search on metacpan
lib/AWS/CLI/Config.pm view on Meta::CPAN
1;
__END__
=encoding UTF-8
=head1 NAME
AWS::CLI::Config - Interface to access AWS CLI configs and credentials
view release on metacpan or search on metacpan
lib/AWS/CloudFront/Request/CreateDistribution.pm view on Meta::CPAN
my $s = shift;
my $uri = 'https://cloudfront.amazonaws.com/2010-11-01/distribution';
my $xml = <<"XML";
<?xml version="1.0" encoding="UTF-8"?>
<DistributionConfig xmlns="http://cloudfront.amazonaws.com/doc/2010-11-01/">
@{[ $s->_origin_xml ]}
<CallerReference>@{[ $s->CallerReference ]}</CallerReference>
@{[ $s->CNAME ? q(<CNAME>) . $s->CNAME . q(</CNAME>) : '' ]}
<Comment>@{[ $s->Comment ]}</Comment>
view release on metacpan or search on metacpan
"class" : "Dist::Zilla::Plugin::GenerateFile::FromShareDir",
"config" : {
"Dist::Zilla::Plugin::GenerateFile::FromShareDir" : {
"destination_filename" : "CONTRIBUTING.md",
"dist" : "Dist-Zilla-PluginBundle-MAXMIND",
"encoding" : "UTF-8",
"has_xs" : 0,
"location" : "build",
"source_filename" : "CONTRIBUTING.md"
},
"Dist::Zilla::Role::RepoFileInjector" : {
view release on metacpan or search on metacpan
lib/AWS/S3/Request/DeleteMulti.pm view on Meta::CPAN
my $s = shift;
my $objects = join "\n", map { "<Object><Key>@{[ $_ ]}</Key></Object>" } @{ $s->keys };
my $xml = <<"XML";
<?xml version="1.0" encoding="UTF-8"?>
<Delete>
$objects
</Delete>
XML
view release on metacpan or search on metacpan
Revision history for Perl extension AWS-XRay
0.12 2022-05-11T03:46:44Z
- encode JSON as UTF-8 encoded string (#22 @hitode909)
- capture() may die on invalid names. (#20 @fujiwara)
- fix race condition of creating the directory (#19 @shogo82148)
- Create XRay control directory only if necessary (#18 @melo)
- Support IMDSv2 (#16 @shogo82148)
view release on metacpan or search on metacpan
share/AXLSoap.xsd view on Meta::CPAN
<?xml version="1.0" encoding="UTF-8"?>
<!-- Autogenerated file -->
<xsd:schema targetNamespace="http://www.cisco.com/AXL/API/7.1" xmlns:axlapi="http://www.cisco.com/AXL/API/7.1" xmlns:xsd="http://www.w3.org/2001/XMLSchema" elementFormDefault="unqualified" attributeFormDefault="unqualified" version="1.0">
<xsd:annotation>
<xsd:documentation><![CDATA[
share/AXLSoap.xsd view on Meta::CPAN
<xsd:simpleType name="XWinCharSet">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="iso-8859-1"/>
<xsd:enumeration value="iso-8859-2"/>
<xsd:enumeration value="UTF-8 Unicode"/>
<xsd:enumeration value="UTF-7 Unicode"/>
<xsd:enumeration value="windows-1251"/>
<xsd:enumeration value="Shift_JIS"/>
<xsd:enumeration value="windows-1253"/>
<xsd:enumeration value="GB2312"/>
<xsd:enumeration value="BIG5"/>
<xsd:enumeration value="KSC5061"/>
<xsd:enumeration value="UTF-8"/>
<xsd:enumeration value="windows-1254"/>
<xsd:enumeration value="windows-1255"/>
<xsd:enumeration value="windows-1256"/>
<xsd:enumeration value="iso-8859-6"/>
<xsd:enumeration value="iso-8859-8-l"/>
view release on metacpan or search on metacpan
lib/Acme/3mxA.pm view on Meta::CPAN
Source filter usage means __DATA__ and probably other things don't work.
=item *
Assumes UTF-8 in places it probably shouldn't.
=back
=head1 SEE ALSO
view release on metacpan or search on metacpan
<?xml version="1.0" encoding="UTF-8"?>
<projectDescription>
<name>Acme-AbhiIsNot</name>
<comment></comment>
<projects>
</projects>
view release on metacpan or search on metacpan
0.1.1 2012-04-10
[ DOCUMENTATION ]
* UTF-8 encode the POD so people can actually get the joke.
0.1.0 2012-04-10
** First Public Release **
view release on metacpan or search on metacpan
lib/Acme/Affinity.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
Acme::Affinity - Compute the affinity between two people
view release on metacpan or search on metacpan
lib/Acme/Alien/DontPanic.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
Acme::Alien::DontPanic - Test Module for Alien::Base::ModuleBuild
view release on metacpan or search on metacpan
lib/Acme/Alien/DontPanic2.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
Acme::Alien::DontPanic2 - Test Module for Alien::Base + Alien::Build
view release on metacpan or search on metacpan
lib/Acme/AutoloadAll.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
Acme::AutoloadAll - Use every function everywhere.
view release on metacpan or search on metacpan
lib/Acme/BayaC.pm view on Meta::CPAN
1;
__END__
=encoding UTF-8
=head1 NAME
Acme::BayaC - one line description
view release on metacpan or search on metacpan
lib/Acme/Boolean.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
Acme::Boolean - There is more then one way to be true.
view release on metacpan or search on metacpan
lib/Acme/CM/Get.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
Acme::CM::Get - Shortcut to retrieve Acme::CPANModules list
view release on metacpan or search on metacpan
lib/Acme/CPAN/Testers/DevelCheckOS.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
Acme::CPAN::Testers::DevelCheckOS - Show Devel::CheckOS results on CPANTesters machine
view release on metacpan or search on metacpan
lib/Acme/CPAN/Testers/NA.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
Acme::CPAN::Testers::NA - generate an NA test report
view release on metacpan or search on metacpan
lib/Acme/CPAN/Testers/UNKNOWN.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
Acme::CPAN::Testers::UNKNOWN - generate an UNKNOWN test report
view release on metacpan or search on metacpan
CONTRIBUTING view on Meta::CPAN
* <http://en.wikipedia.org/wiki/Indent_style#Allman_style>
* <http://www.derkarl.org/why_to_tabs.html>
I nominally encode all source files as UTF-8, though in practice most of
them use a 7-bit-safe ASCII-compatible subset of UTF-8.
AUTHOR
Toby Inkster <tobyink@cpan.org>.
COPYRIGHT AND LICENCE
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
sub HAVE_UTF8 () { $] >= 5.007003 }
BEGIN {
if ( HAVE_UTF8 ) {
# The string eval helps hide this from Test::MinimumVersion
eval "require utf8;";
die "Failed to load UTF-8 support" if $@;
}
# Class structure
require 5.004;
$YAML::Tiny::VERSION = '1.40';
t/000-report-versions.t view on Meta::CPAN
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
# Try to decode as utf8
utf8::decode($string) if HAVE_UTF8;
view release on metacpan or search on metacpan
examples/templates/lib/Acme/CPANAuthors/BackPAN/OneHundred.pm view on Meta::CPAN
Lyrics copyright Ralf Hütter
>
__END__
=encoding UTF-8
=head1 NAME
Acme::CPANAuthors::BackPAN::OneHundred - The CPAN Authors who have 100+ distributions on BackPAN
view release on metacpan or search on metacpan
lib/Acme/CPANAuthors/British.pm view on Meta::CPAN
United we stand one and all
>
__END__
=encoding UTF-8
=head1 NAME
Acme::CPANAuthors::British - We are British CPAN authors
view release on metacpan or search on metacpan
lib/Acme/CPANAuthors/CPAN/MostScripts.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
Acme::CPANAuthors::CPAN::MostScripts - Authors with the most number of scripts on CPAN