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');
lib/ASNMTAP/Asnmtap/Plugins/Mail.pm view on Meta::CPAN
if ( $debug >= 2 ) {
print ref ($self), "::receiving_fingerprint_mails(): Header\n", $head->stringify, "\n\n";
print ref ($self), "::receiving_fingerprint_mails(): MIME-Version: ", $head->get ('MIME-Version'), "\n";
print ref ($self), "::receiving_fingerprint_mails(): MIME-Type: ", $head->mime_type, "\n";
print ref ($self), "::receiving_fingerprint_mails(): MIME-Encoding: ", $head->mime_encoding, "\n";
print ref ($self), "::receiving_fingerprint_mails(): Content-Type Charset: ", $head->mime_attr ('content-type.charset'), "\n"if ( $head->mime_attr('content-type.charset') );
print ref ($self), "::receiving_fingerprint_mails(): Content-Type Name: ", $head->mime_attr('content-type.name'), "\n" if ( $head->mime_attr('content-type.name') );
print ref ($self), "::receiving_fingerprint_mails(): Multipart Boundary: ", $head->multipart_boundary, "\n" if ( $head->multipart_boundary );
}
lib/ASNMTAP/Asnmtap/Plugins/Mail.pm view on Meta::CPAN
$msgbuffer = $email->Body ( $msgnum );
}
use MIME::Decoder;
unless ( supported MIME::Decoder $head->mime_encoding ) {
print "MIME .... : '". $head->mime_encoding ."' encoding is not supported!\n" if ($debug );
$returnCode = $ERRORS{UNKNOWN};
$$asnmtapInherited->pluginValues ( { stateValue => $returnCode, error => "MIME-Encoding: '". $head->mime_encoding ."' is not supported!" }, $TYPE{APPEND} );
next;
}
# if ( $head->mime_encoding eq 'quoted-printable' or $head->mime_encoding eq '7bit' or $head->mime_encoding eq '8bit' ) {
if ( $head->mime_encoding eq '7bit' ) {
$msgbuffer = MIME::QuotedPrint::decode($msgbuffer);
} else {
use IO::String;
my $ioIN = IO::String->new($msgbuffer);
my $ioOUT = IO::String->new($msgbuffer);
my $decoder = new MIME::Decoder $head->mime_encoding;
$decoder->decode($ioIN, $ioOUT);
$ioIN->close;
$ioOUT->close;
}
view release on metacpan or search on metacpan
lib/ASP4.pm view on Meta::CPAN
$Server->Mail(
from => 'foo@bar.com',
to => 'bar@foo.com',
subject => 'Hello, world!',
'content-type' => 'text/html',
'content-transfer-encoding' => 'base64',
message => encode_base64(<<"HTML")
<html>
<body>
<p>This is an html email.</p>
<p>You can see that <b>this text is bold</b>.</p>
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
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/CLIWrapper.pm view on Meta::CPAN
1;
__END__
=encoding utf-8
=head1 NAME
AWS::CLIWrapper - Wrapper module for aws-cli
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
author/update-aws-lambda-al.pl view on Meta::CPAN
}
1;
__END__
=encoding utf-8
=head1 NAME
AWS::Lambda::AL - AWS Lambda Custom Runtimes based on Amazon Linux
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
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>
</message>
<message name="addCommonPhoneConfigOut">
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
"með blóðnasir"
__END__
=encoding utf-8
=head1 NAME
Acme::3mxA - Turn your perl upside down
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
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
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
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/Aheui.pm view on Meta::CPAN
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
sub new {
my $class = shift;
my %args = @_;
my $source = $args{source} || '';
my $encoding = $args{output_encoding} || Term::Encoding::get_encoding();
my $self = {
_codespace => build_codespace($source),
_stacks => [],
_stack_index => 0,
_x => 0,
_y => 0,
_dx => 0,
_dy => 1,
_encoding => $encoding,
};
bless $self, $class;
return $self;
}
lib/Acme/Aheui.pm view on Meta::CPAN
sub _output_code_as_character {
my ($self, $code) = @_;
my $unichar = pack 'U', $code;
print encode($self->{_encoding}, $unichar);
}
sub _get_input_character_as_code {
my ($self) = @_;
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
lib/Acme/AjiFry.pm view on Meta::CPAN
1;
__END__
=encoding utf8
=head1 NAME
Acme::AjiFry - AjiFry Language (アジフライ語) Translator
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/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/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.04
=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