view release on metacpan or search on metacpan
lib/Amazon/SQS/Client.pm view on Meta::CPAN
########################################################################
sub _urlencode {
########################################################################
my ( $self, $value, $path ) = @_;
use URI::Escape qw(uri_escape_utf8);
my $escapepattern = '^A-Za-z0-9\-_.~';
if ($path) {
$escapepattern = $escapepattern . $SLASH;
}
return uri_escape_utf8( $value, $escapepattern );
}
#
# Computes RFC 2104-compliant HMAC signature.
#
view release on metacpan or search on metacpan
lib/Amazon/SQS/Consumer.pm view on Meta::CPAN
use strict;
use warnings;
use base 'Amazon::SQS::ProducerConsumer::Base';
use JSON::XS;
use Encode qw( encode_utf8 is_utf8 );
use constant {
DEFAULT_N_MESSAGES => 10,
DEFAULT_WAIT_SECONDS => 30,
SECONDS_BETWEEN_TRIES => 10
lib/Amazon/SQS/Consumer.pm view on Meta::CPAN
if ( my $message = shift @{$me->{messages}} ) {
$me->{DeleteMessageHandle} = $message->{ReceiptHandle};
my $object;
eval {
my $body = $message->{Body};
$body = encode_utf8( $body ) if is_utf8( $body );
$object = decode_json $body;
};
if ( $@ ) {
say "left bad message in queue; could not decode JSON from $message->{Body}: $@";
} else {
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use strict;
use warnings;
use ExtUtils::MakeMaker;
use 5.0073; # for Encode/utf8
WriteMakefile(
NAME => 'Amazon::SQS::Simple',
AUTHOR => 'Simon Whitaker <sw@netcetera.org>',
VERSION_FROM => 'lib/Amazon/SQS/Simple.pm',
view release on metacpan or search on metacpan
lib/Ambassador/API/V2/Role/HasJSON.pm view on Meta::CPAN
# Configure and cache the JSON object
has json => (
is => 'ro',
default => sub {
return JSON->new->utf8(1);
}
);
1;
view release on metacpan or search on metacpan
lib/Ambrosia/DataProvider.pm view on Meta::CPAN
source_name => 'Employee',
engine_params => 'database=EmployeeDB;host=localhost;',
user => 'test',
password => 'test',
additional_params => { AutoCommit => 0, RaiseError => 1, LongTruncOk => 1 },
additional_action => sub { my $dbh = shift; $dbh->do('SET NAMES utf8')},
},
#........
],
IO => [
{
view release on metacpan or search on metacpan
factpacks/Linux.fact view on Meta::CPAN
WebCalendar => <reply> $who, WebCalendar is a PHP/MySQL application used to maintain a calendar for one or more persons.. URL: http://www.radix.net/~cknudsen/webcalendar/files/WebCalendar-0.9.tar.gz
SDCC-z80 => <reply> $who, SDCC-z80 is a version of the optimising C compiler SDCC targeted to the 8 bit Zilog Z80. URL: http://earthling.net.nz/~michaelh/snapshots/
SPS4Linux => <reply> $who, SPS4Linux is an implementation of the SPS Language. URL: http://www.eilers.net/sps/
XMagick => <reply> $who, XMagick is a library written in C which allows integration of the ImageMagick library with any X application by providing functions which convert between the native X image format (XImage) and the native ImageMagick format (I...
libiconv => <reply> $who, libiconv provides an iconv() implementation for use on systems which don't have one or whose implementation cannot convert from/to Unicode. URL: ftp://ftp.ilog.fr/pub/Users/haible/gnu/libiconv-0.1.tar.gz
libutf8 => <reply> $who, libutf8 provides UTF-8 locale support for use on systems which don't have UTF-8 locales or whose UTF-8 locales are unreasonably slow. URL: ftp://ftp.ilog.fr/pub/Users/haible/utf8/libutf8-0.6.1.tar.gz
as-gps => <reply> $who, as-gps contains a basic support library for accessing the inexpensive ($20) Aisin-Seiki GPS Module previously available at mavin.com. URL: http://www.amphibious.org/gps/as-gps-0.2.tgz
E8Ball => <reply> $who, E8Ball is an epplet that responds to questions you ask it. URL: http://free.house.cx/~adrian/epplets/
gmap => <reply> $who, gmap is a map viewer with emphasis on temporal data. URL: http://academy.cas.cz/~gis/dload.html
keeper => <reply> $who, The keeper library provides a simple-to-use C interface for reading and writing configuration data. URL: http://www.inf.bme.hu/~mszeredi/keeper/keeper.html#dist
BHRPFF => <reply> $who, Ben Hates Reading Poorly Formatted Filenames, or BHRPFF, is a Perl script that will help you to rename your mp3 files so that they are more readable. URL: http://my.yi.org/~brain/bhrpff/bhrpff.tar.gz
view release on metacpan or search on metacpan
use 5.008_001;
use strict;
use warnings;
use utf8;
use Module::Build;
use File::Basename;
use File::Spec;
view release on metacpan or search on metacpan
lib/Amon2/Auth/Site/Hatena.pm view on Meta::CPAN
1;
__END__
=encoding utf8
=head1 NAME
Amon2::Auth::Site::Hatena - Hatena authentication integration for Amon2
view release on metacpan or search on metacpan
use 5.008_001;
use strict;
use warnings;
use utf8;
use Module::Build;
use File::Basename;
use File::Spec;
use CPAN::Meta;
view release on metacpan or search on metacpan
lib/Amon2/Auth/Site/LINE.pm view on Meta::CPAN
package Amon2::Auth::Site::LINE;
use strict;
use warnings;
use utf8;
use URI;
use JSON;
use Mouse;
use LWP::UserAgent;
view release on metacpan or search on metacpan
lib/Amon2/Auth.pm view on Meta::CPAN
our $VERSION = '0.07';
1;
__END__
=encoding utf8
=head1 NAME
Amon2::Auth - Authentication module for Amon2
view release on metacpan or search on metacpan
=encoding utf8
This is Perl module B<Amon2::CLI>.
=begin html
view release on metacpan or search on metacpan
lib/Amon2/DBI.pm view on Meta::CPAN
}
if ($dsn =~ /^dbi:SQLite:/i) {
$attr->{sqlite_unicode} = 1 unless exists $attr->{sqlite_unicode};
}
elsif ($dsn =~ /^dbi:mysql:/i) {
$attr->{mysql_enable_utf8} = 1 unless exists $attr->{mysql_enable_utf8};
}
elsif ($dsn =~ /^dbi:Pg:/i) {
my $dbd_pg_version = eval { require DBD::Pg; (DBD::Pg->VERSION =~ /^([.0-9]+)\./)[0] };
if ( !$@ and $dbd_pg_version < 2.99 ) { # less than DBD::Pg 2.99, pg_enable_utf8 must be set for utf8.
$attr->{pg_enable_utf8} = 1 unless exists $attr->{pg_enable_utf8};
}
}
my $self = $class->SUPER::connect($dsn, $user, $pass, $attr) or die "Cannot connect to server: $DBI::errstr";
return $self;
}
lib/Amon2/DBI.pm view on Meta::CPAN
sub sql { $_[0]->{private_sql} }
1;
__END__
=encoding utf8
=head1 NAME
Amon2::DBI - Simple DBI wrapper
lib/Amon2/DBI.pm view on Meta::CPAN
=item Set AutoInactiveDestroy to true.
If your DBI version is higher than 1.614, Amon2::DBI set AutoInactiveDestroy as true.
=item Set sqlite_unicode and mysql_enable_utf8 and pg_enable_utf8 automatically
Amon2::DBI set sqlite_unicode and mysql_enable_utf8 automatically.
If using DBD::Pg version less than 2.99, pg_enable_utf8 too.
=item Nested transaction management.
Amon2::DBI supports nested transaction management based on RAII like DBIx::Class or DBIx::Skinny. It uses L<DBIx::TransactionManager> internally.
view release on metacpan or search on metacpan
lib/Amon2/Lite.pm view on Meta::CPAN
1;
__END__
=for stopwords TinyURL
=encoding utf8
=head1 NAME
Amon2::Lite - Sinatra-ish framework on Amon2!
view release on metacpan or search on metacpan
lib/Amon2/MobileJP.pm view on Meta::CPAN
package Amon2::MobileJP;
use strict;
use warnings;
use utf8;
use 5.008_001;
our $VERSION = '0.11';
1;
view release on metacpan or search on metacpan
t/01_simple.t view on Meta::CPAN
use Encode;
use File::Spec;
sub dispatch {
my $c = shift;
$c->create_response(200, [], [ encode( utf8 => $c->loc('Hello, %1', 'yappo') ) ]);
}
}
my $app = MyApp::Web->to_app;
view release on metacpan or search on metacpan
lib/Amon2/Plugin/LogDispatch.pm view on Meta::CPAN
}
1;
__END__
=encoding utf8
=head1 NAME
Amon2::Plugin::LogDispatch - Log::Dispatch glue for Amon2
view release on metacpan or search on metacpan
lib/Amon2/Plugin/ShareDir.pm view on Meta::CPAN
}
1;
__END__
=encoding utf8
=head1 NAME
Amon2::Plugin::ShareDir - (EXPERIMENTAL) share directory
view release on metacpan or search on metacpan
lib/Amon2/Plugin/Web/CSRFDefender/Random.pm view on Meta::CPAN
package Amon2::Plugin::Web::CSRFDefender::Random;
use strict;
use warnings;
use utf8;
use 5.008_001;
# DO NOT USE THIS DIRECTLY.
use MIME::Base64 ();
view release on metacpan or search on metacpan
=encoding utf8
This is Perl module B<Amon2::Plugin::Web::ChromeLogger>.
=begin html
view release on metacpan or search on metacpan
lib/Amon2/Plugin/Web/CpanelJSON.pm view on Meta::CPAN
__PACKAGE__->load_plugins(
'Web::CpanelJSON' => {
json => {
ascii => 0,
utf8 => 1,
canonical => 1,
}
}
);
view release on metacpan or search on metacpan
lib/Amon2/Plugin/Web/FillInForm.pm view on Meta::CPAN
1;
__END__
=encoding utf8
=head1 NAME
Amon2::Plugin::Web::FillInForm - HTML::FillInForm with Amon2
view release on metacpan or search on metacpan
lib/Amon2/Plugin/Web/Flash.pm view on Meta::CPAN
package Amon2::Plugin::Web::Flash;
use strict;
use warnings;
use utf8;
our $VERSION = '0.05';
use Amon2::Util;
view release on metacpan or search on metacpan
lib/Amon2/Plugin/Web/FormValidator/Simple.pm view on Meta::CPAN
package Amon2::Plugin::Web::FormValidator::Simple;
use utf8;
use strict;
use warnings;
use 5.008001;
our $VERSION = '0.04';
view release on metacpan or search on metacpan
use 5.008_001;
use strict;
use warnings;
use utf8;
use Module::Build;
use File::Basename;
use File::Spec;
use CPAN::Meta;
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
Exporter 5.57
ExtUtils::MakeMaker 0
MIME::Base64 2
parent 0
perl 5.008001
utf8 0
WWW-Mechanize-1.73
pathname: E/ET/ETHER/WWW-Mechanize-1.73.tar.gz
provides:
WWW::Mechanize 1.73
WWW::Mechanize::Image undef
view release on metacpan or search on metacpan
=encoding utf8
This is Perl module B<Amon2::Plugin::Web::Woothee>.
=begin html
view release on metacpan or search on metacpan
lib/Amon2/Setup/Flavor/Teng.pm view on Meta::CPAN
use strict;
use warnings;
use utf8;
package Amon2::Setup::Flavor::Teng;
use parent qw(Amon2::Setup::Flavor);
our $VERSION = '0.05';
lib/Amon2/Setup/Flavor/Teng.pm view on Meta::CPAN
$self->write_file('lib/<<PATH>>.pm', <<'...');
package <% $module %>;
use strict;
use warnings;
use utf8;
use parent qw/Amon2/;
use 5.008001;
__PACKAGE__->load_plugin(qw/DBI/);
lib/Amon2/Setup/Flavor/Teng.pm view on Meta::CPAN
$self->write_file('lib/<<PATH>>/DB.pm', <<'...');
package <% $module %>::DB;
use strict;
use warnings;
use utf8;
use parent qw(Teng);
1;
...
view release on metacpan or search on metacpan
lib/Amon2/Web/Dispatcher/RouterSimple/Extended.pm view on Meta::CPAN
package MyApp::Web::Dispatcher;
use strict;
use warnings;
use utf8;
use Amon2::Web::Dispatcher::RouterSimple::Extended;
connect '/' => 'Root#index';
# API
submapper '/api/' => API => sub {
get 'foo' => 'foo';
view release on metacpan or search on metacpan
author/assets.pl view on Meta::CPAN
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use 5.008001;
use lib 'lib';
use LWP::UserAgent;
use autodie;
use Data::Dumper;
author/assets.pl view on Meta::CPAN
}
});
})(document);
...
open my $fh, '>:utf8', 'lib/Amon2/Setup/Asset/XSRFTokenJS.pm';
print {$fh} $xslate->render_string(<<'...', +{ file => $0, data => Dumper({ 'js/xsrf-token.js' => $content})});
package Amon2::Setup::Asset::XSRFTokenJS;
use strict;
use warnings;