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/Docker.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::Docker - Perl client for the Docker Engine API
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)
#