view release on metacpan or search on metacpan
lib/API/DeutscheBahn/Fahrplan.pm view on Meta::CPAN
use JSON::XS ();
use URI ();
use URI::Encode qw(uri_encode);
use URI::QueryParam ();
=encoding utf-8
=head1 NAME
API::DeutscheBahn::Fahrplan - Deutsche Bahn Fahrplan API Client
view release on metacpan or search on metacpan
lib/API/Eulerian/EDW/Parser/CSV.pm view on Meta::CPAN
my ( $class, $path, $uuid ) = @_;
my $self;
my $file;
my $fd;
if( open( $file, '<:encoding(utf8)', $path ) ) {
$self = $class->SUPER::new( $path, $uuid );
$self->{ _FILE } = $file;
$self->{ _PARSER } = Text::CSV->new( {
binary => 1,
auto_diag => 1,
view release on metacpan or search on metacpan
lib/API/Facebook.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::Facebook - Facebook.com API Client
view release on metacpan or search on metacpan
lib/API/GitForge.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::GitForge - generic interface to APIs of sites like GitHub, GitLab etc.
view release on metacpan or search on metacpan
lib/API/Github.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::Github - Github.com API Client
view release on metacpan or search on metacpan
lib/API/Google.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::Google - Perl library for easy access to Google services via their API
view release on metacpan or search on metacpan
lib/API/Handle.pm view on Meta::CPAN
, lazy => 1
, required => 1
, default => sub {
require XML::TreePP;
return new XML::TreePP (
output_encoding => 'UTF-8'
, utf8_flag => 1
, attr_prefix => '-'
, indent => 2
, use_ixhash => 1
);
view release on metacpan or search on metacpan
lib/API/INSEE/Sirene.pm view on Meta::CPAN
__END__
=pod
=encoding utf8
=head1 NAME
API::INSEE::Sirene - An interface for the Sirene API of INSEE
view release on metacpan or search on metacpan
add_database.pl view on Meta::CPAN
my $db_creation_result = API::ISPManager::db::create( {
%connection_params,
name => $db_name,
dbtype => 'MySQL',
dbencoding => 'default',
dbuser => 'newuser',
dbusername => $db_user,
dbpassword => $db_pass,
dbconfirm => $db_pass,
} );
view release on metacpan or search on metacpan
lib/API/Instagram.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::Instagram - Object Oriented Interface for the Instagram REST and Search APIs
view release on metacpan or search on metacpan
lib/API/MailboxOrg.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::MailboxOrg - Perl library to work with the API for the Mailbox.org API
view release on metacpan or search on metacpan
lib/API/Medium.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::Medium - Talk with medium.com using their REST API
view release on metacpan or search on metacpan
lib/API/MikroTik.pm view on Meta::CPAN
}
1;
=encoding utf8
=head1 NAME
API::MikroTik - Non-blocking interface to MikroTik API
view release on metacpan or search on metacpan
lib/API/Name.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::Name - Name.com API Client
view release on metacpan or search on metacpan
lib/API/ParallelsWPB.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::ParallelsWPB - client for Parallels Presence Builder API
view release on metacpan or search on metacpan
lib/API/Plesk.pm view on Meta::CPAN
sub render_xml {
my ($self, $hash) = @_;
my $xml = _render_xml($hash);
$xml = qq|<?xml version="1.0" encoding="UTF-8"?><packet version="$self->{api_version}">$xml</packet>|;
$xml;
}
# renders xml from hash
view release on metacpan or search on metacpan
lib/API/PleskExpand.pm view on Meta::CPAN
# packet version override for
my $packet_version = $self->{'api_version'};
return unless $xml_request;
my $xml_packet_struct = <<" DOC";
<?xml version="1.0" encoding="UTF-8"?>
<packet version="$packet_version">
$xml_request
</packet>
DOC
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/Vultr.pm view on Meta::CPAN
return $self->_request( $self->_make_uri('/iso'), {%body} );
}
1;
=encoding utf8
=head1 Name
API::Vultr
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
lib/APISchema.pm view on Meta::CPAN
our $VERSION = "1.37";
1;
__END__
=encoding utf-8
=head1 NAME
APISchema - Schema for API
view release on metacpan or search on metacpan
lib/APNS/Agent.pm view on Meta::CPAN
}
1;
__END__
=encoding utf-8
=head1 NAME
APNS::Agent - agent server for APNS
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
t/compat/base/headers.t view on Meta::CPAN
$h = mk(
allow => "GET",
content => "none",
content_type => "text/html",
content_md5 => "dummy",
content_encoding => "gzip",
content_foo => "bar",
last_modified => "yesterday",
expires => "tomorrow",
etag => "abc",
date => "today",
t/compat/base/headers.t view on Meta::CPAN
ok( $h->content_is_xhtml );
ok( $h->content_is_xml );
is( $h->content_type( "text/html;\n charSet = \"ISO-8859-1\"; Foo=1 " ),
"application/xhtml+xml" );
is( $h->content_encoding, undef );
is( $h->content_encoding( "gzip" ), undef );
is( $h->content_encoding, "gzip" );
is( j( $h->header_field_names ), "Content-Encoding|Content-Type" );
is( $h->content_language, undef );
is( $h->content_language( "no" ), undef );
is( $h->content_language, "no" );
view release on metacpan or search on metacpan
lib/ARGV/JSON.pm view on Meta::CPAN
1;
__END__
=encoding utf-8
=head1 NAME
ARGV::JSON - Parses @ARGV for accessing JSON via C<< <> >>
view release on metacpan or search on metacpan
lib/ARSObject.pm view on Meta::CPAN
}
$a{-data} .="MIME-Version: 1.0\cM\cJ";
$a{-data} .='Content-type: ' .($a{-html} ? 'text/html' : 'text/plain')
.'; charset=' .($a{-charset}||$s->charset())
."\cM\cJ";
$a{-data} .='Content-Transfer-Encoding: ' .($a{-encoding} ||'8bit') ."\cM\cJ";
$a{-data} .="\cM\cJ";
$a{-data} .=$a{-html} ||$a{-text} ||'';
}
local $^W=undef;
$s->smtp->mail($a{-sender} =~/<\s*([^<>]+)\s*>/ ? $1 : $a{-sender})
view release on metacpan or search on metacpan
example/GetFilter.pl view on Meta::CPAN
# NOTES
# Notic that parenthesis are printed, although they are not
# explicitly part of the node information. They are derived
# from the ordering of the tree, instead. If you want to actually
# *evaluate* the expression, you will have to derive the
# parenthetical encoding from the tree ordering.
#
# Here is an example equation and how it is encoded:
#
# ((10 + 2) / 3)
#
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;
}