view release on metacpan or search on metacpan
- fix Javascript to work on older versions of IE
- add Javascript option to set intial focus
- add CSS + icons to improve accessibility
1.000 2011-04-13 12:26:35 Pacific/Auckland
- Remove redundant reference to Try::Tiny
0.900 2011-04-12 13:55:43 Pacific/Auckland
- Initial release to CPAN
view release on metacpan or search on metacpan
lib/Algorithm/KernelKMeans.pm view on Meta::CPAN
=head1 SYNOPSIS
use Algorithm::KernelKMeans;
use Algorithm::KernelKMeans::Util qw/generate_polynominal_kernel/;
use List::MoreUtils qw/zip/;
use Try::Tiny;
my @vertices = map {
my @values = split /\s/;
my @keys = 0 .. $#values;
+{ zip @keys, @values };
view release on metacpan or search on metacpan
lib/Algorithm/Paxos/Role/Proposer.pm view on Meta::CPAN
use Moose::Role;
use namespace::autoclean;
# ABSTRACT: A Proposer role for the Paxos algorithm
use Try::Tiny;
use Algorithm::Paxos::Exception;
has acceptors => (
isa => 'ArrayRef',
writer => '_set_acceptors',
view release on metacpan or search on metacpan
lib/Alice/Role/Commands.pm view on Meta::CPAN
package Alice::Role::Commands;
use Any::Moose 'Role';
use List::MoreUtils qw/none/;
use Try::Tiny;
use Class::Throwable qw/NetworkRequired InvalidNetwork ChannelRequired
InvalidArguments UnknownCommand/;
our %COMMANDS;
my $SRVOPT = qr/\-(\S+)\s*/;
view release on metacpan or search on metacpan
lib/Amazon/DynamoDB/Simple.pm view on Meta::CPAN
use Amazon::DynamoDB;
use Carp qw/cluck confess carp croak/;
use DDP;
use JSON::XS;
use Moo;
use Try::Tiny;
our $VERSION="0.01";
=head1 NAME
view release on metacpan or search on metacpan
lib/Amazon/MWS.pm view on Meta::CPAN
Basically you take the products which need to be uploaded to Amazon
and create L<Amazon::MWS::XML::Product> objects from them:
use Amazon::MWS::XML::Product;
use Amazon::MWS::Uploader;
use Try::Tiny;
my @upload;
foreach my $product_object (@send_to_amazon) {
my %prod = ....
view release on metacpan or search on metacpan
inc/Test/WWW/Mechanize/PSGI.pm view on Meta::CPAN
use strict;
use warnings;
use Carp;
use HTTP::Message::PSGI;
use Test::WWW::Mechanize;
use Try::Tiny;
use base 'Test::WWW::Mechanize';
our $VERSION = '0.35';
my $Test = Test::Builder->new();
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
HTTP::Tiny 0.034
Hash::MultiValue 0.05
Pod::Usage 1.36
Stream::Buffered 0.02
Test::TCP 2.00
Try::Tiny 0
URI 1.59
parent 0
Stream-Buffered-0.03
pathname: D/DO/DOY/Stream-Buffered-0.03.tar.gz
provides:
cpanfile.snapshot view on Meta::CPAN
requirements:
Carp 0
Exporter 5.57
ExtUtils::MakeMaker 6.30
Test::Builder 0
Try::Tiny 0.07
strict 0
warnings 0
Test-LongString-0.15
pathname: R/RG/RGARCIA/Test-LongString-0.15.tar.gz
provides:
cpanfile.snapshot view on Meta::CPAN
requirements:
ExtUtils::MakeMaker 0
HTTP::Message::PSGI 0
Test::More 0
Test::WWW::Mechanize 0
Try::Tiny 0
Test-Warn-0.30
pathname: C/CH/CHORNY/Test-Warn-0.30.tar.gz
provides:
Test::Warn 0.30
Test::Warn::Categorization 0.30
cpanfile.snapshot view on Meta::CPAN
Test::More 0
perl 5.006
Try-Tiny-0.22
pathname: D/DO/DOY/Try-Tiny-0.22.tar.gz
provides:
Try::Tiny 0.22
requirements:
Carp 0
Exporter 5.57
ExtUtils::MakeMaker 6.30
constant 0
view release on metacpan or search on metacpan
"Pod::Usage" : "0",
"Router::Boom" : "0.07",
"Scalar::Util" : "0",
"Text::Xslate" : "2.0010",
"Time::HiRes" : "0",
"Try::Tiny" : "0.06",
"URI" : "1.54",
"URI::Escape" : "0",
"URI::QueryParam" : "0",
"mro" : "0",
"parent" : "0.223",
view release on metacpan or search on metacpan
lib/Anego/CLI.pm view on Meta::CPAN
use strict;
use warnings;
use utf8;
use Getopt::Long;
use Module::Load;
use Try::Tiny;
use Anego::Logger;
sub run {
my ($self, @args) = @_;
view release on metacpan or search on metacpan
lib/Aniki.pm view on Meta::CPAN
our $VERSION = '1.06';
use SQL::Maker::SQLType qw/sql_type/;
use Class::Inspector;
use Carp qw/croak confess/;
use Try::Tiny;
use Scalar::Util qw/blessed/;
use String::CamelCase qw/camelize/;
use SQL::NamedPlaceholder qw/bind_named/;
sub _noop {}
view release on metacpan or search on metacpan
lib/Any/Template/ProcessDir.pm view on Meta::CPAN
use File::Path qw(make_path remove_tree);
use File::Slurp qw(read_file write_file);
use File::Spec::Functions qw(catfile catdir);
use Moose;
use Moose::Util::TypeConstraints;
use Try::Tiny;
use strict;
use warnings;
our $VERSION = '0.08'; #VERSION
has 'dest_dir' => ( is => 'ro' );
view release on metacpan or search on metacpan
lib/AnyEvent/Campfire/Client.pm view on Meta::CPAN
use AnyEvent::HTTP::ScopedClient;
use AnyEvent::Campfire::Stream;
use URI;
use MIME::Base64;
use JSON::XS;
use Try::Tiny;
extends 'AnyEvent::Campfire';
has 'account' => (
is => 'ro',
view release on metacpan or search on metacpan
lib/AnyEvent/Campfire/Stream.pm view on Meta::CPAN
use AnyEvent;
use AnyEvent::HTTP;
use URI;
use JSON::XS;
use Try::Tiny;
sub BUILD {
my $self = shift;
if ( !$self->authorization || !scalar @{ $self->rooms } ) {
view release on metacpan or search on metacpan
lib/AnyEvent/CouchDB/Exceptions.pm view on Meta::CPAN
AnyEvent::CouchDB::Exceptions - Exception::Class-based exceptions for AnyEvent::CouchDB
=head1 SYNOPSIS
use feature 'switch';
use Try::Tiny;
use Data::Dump 'pp';
use AnyEvent::CouchDB;
my $db = couchdb("food");
try {
view release on metacpan or search on metacpan
lib/AnyEvent/Cron.pm view on Meta::CPAN
use warnings;
use strict;
use DateTime;
use AnyEvent;
use Moose;
use Try::Tiny;
use DateTime::Event::Cron;
use v5.12;
our $VERSION = '0.03';
view release on metacpan or search on metacpan
lib/AnyEvent/Filesys/Notify.pm view on Meta::CPAN
use AnyEvent;
use Path::Iterator::Rule;
use Cwd qw/abs_path/;
use AnyEvent::Filesys::Notify::Event;
use Carp;
use Try::Tiny;
our $VERSION = '1.23';
my $AEFN = 'AnyEvent::Filesys::Notify';
has dirs => ( is => 'ro', isa => 'ArrayRef[Str]', required => 1 );
view release on metacpan or search on metacpan
lib/AnyEvent/GnuPG.pm view on Meta::CPAN
use Exporter 'import';
use AnyEvent;
use AnyEvent::Proc 0.104;
use Email::Address;
use Async::Chain;
use Try::Tiny;
use Carp qw(confess);
use constant RSA_RSA => 1;
use constant DSA_ELGAMAL => 2;
use constant DSA => 3;
lib/AnyEvent/GnuPG.pm view on Meta::CPAN
Asynchronous variant of L</decrypt>.
=head1 API OVERVIEW
The API is accessed through methods on a AnyEvent::GnuPG object which is a wrapper around the B<gpg> program. All methods takes their argument using named parameters, and errors are returned by throwing an exception (using croak). If you wan't to cat...
This modules uses L<AnyEvent::Proc>. For input data, all of L<AnyEvent::Proc/pull> and for output data, all of L<AnyEvent::Proc/pipe> possible handle types are allowed.
The code is based on L<GnuPG> with API compatibility except that L<GnuPG::Tie> is B<not> ported.
view release on metacpan or search on metacpan
lib/AnyEvent/Groonga.pm view on Meta::CPAN
use File::Which qw(which);
use List::MoreUtils qw(any);
use URI;
use URI::Escape;
use JSON;
use Try::Tiny;
use Encode;
use base qw(Class::Accessor::Fast);
our $VERSION = '0.08';
view release on metacpan or search on metacpan
lib/AnyEvent/HTTP/ScopedClient.pm view on Meta::CPAN
use Moose;
use namespace::autoclean;
use URI;
use Try::Tiny;
use MIME::Base64;
use HTTP::Request;
use Encode qw/encode_utf8/;
use AnyEvent::HTTP;
use URI::QueryParam;
view release on metacpan or search on metacpan
lib/AnyEvent/KVStore.pm view on Meta::CPAN
use strict;
use warnings;
use Moo;
use Type::Tiny;
use Try::Tiny;
use Types::Standard qw(Str HashRef);
our $VERSION = '0.1.2';
=head1 SYNOPSIS
view release on metacpan or search on metacpan
lib/AnyEvent/Lingr.pm view on Meta::CPAN
use Carp;
use JSON;
use Log::Minimal;
use Scalar::Util ();
use Try::Tiny;
use URI;
has ['user', 'password'] => (
is => 'ro',
required => 1,
view release on metacpan or search on metacpan
examples/client.pl view on Meta::CPAN
on_im => sub { # simple echo bot
my ($msn, $head, $body) = @_;
$msn->send_message($head->{From}, $body, $head->{'X-MMS-IM-Format'});
given ($body) {
when (/^status (...)$/) {
use Try::Tiny;
try { $msn->set_status($1) } catch { warn $_ };
}
when (/^add (.+)$/) {
warn 'Adding ' . $1;
$msn->add_contact($1);
view release on metacpan or search on metacpan
lib/AnyEvent/Mattermost.pm view on Meta::CPAN
use AnyEvent::WebSocket::Client 0.37;
use Carp;
use Furl;
use JSON;
use Time::HiRes qw( time );
use Try::Tiny;
=head1 SYNOPSIS
use AnyEvent;
use AnyEvent::Mattermost;
view release on metacpan or search on metacpan
"Log::Any::Adapter" : "0",
"PerlX::Maybe" : "0",
"Term::ReadLine" : "0",
"Test::More" : "1.302078",
"Test::Warnings" : "0.026",
"Try::Tiny" : "0.28",
"perl" : "5.010"
}
}
},
"provides" : {
view release on metacpan or search on metacpan
lib/AnyEvent/OWNet.pm view on Meta::CPAN
use AnyEvent;
use AnyEvent::Handle;
use AnyEvent::Socket;
use Carp qw/croak/;
use Sub::Name;
use Try::Tiny;
use AnyEvent::OWNet::Constants;
use AnyEvent::OWNet::Response;
view release on metacpan or search on metacpan
lib/AnyEvent/PgRecvlogical.pm view on Meta::CPAN
use DBD::Pg 3.7.0 ':async';
use AnyEvent;
use AnyEvent::Util 'guard';
use Promises 0.99 backend => ['AnyEvent'], qw(deferred);
use Types::Standard ':all';
use Try::Tiny;
use Carp 'croak';
use curry;
use constant {
AWAIT_INTERVAL => 1,
view release on metacpan or search on metacpan
lib/AnyEvent/Proc.pm view on Meta::CPAN
# ABSTRACT: Run external commands
use AnyEvent;
use AnyEvent::Handle;
use AnyEvent::Util ();
use Try::Tiny;
use Class::Load;
use Exporter qw(import);
use Carp;
use POSIX;
lib/AnyEvent/Proc.pm view on Meta::CPAN
package # hidden
AnyEvent::Proc::W;
use overload '""' => sub { shift->{fileno} };
use Try::Tiny;
sub A { shift->{w} }
sub B { shift->{r} }
sub finish {
view release on metacpan or search on metacpan
lib/AnyEvent/Promise.pm view on Meta::CPAN
use 5.008;
use strict;
use warnings FATAL => 'all';
use AnyEvent;
use Try::Tiny qw//;
use Carp;
=head1 NAME
AnyEvent::Promise - Evented promises
lib/AnyEvent/Promise.pm view on Meta::CPAN
}
my $cvout = AnyEvent->condvar;
$cvin->cb(sub {
my $thenret = shift;
Try::Tiny::try {
my $ret = $thenret->recv;
my $cvret = $fn->($ret);
if ($cvret and ref $cvret eq 'AnyEvent::CondVar') {
$cvret->cb(sub {
my $ret_inner = shift;
Try::Tiny::try {
$cvout->send($ret_inner->recv);
$self->{guard}->end;
}
Try::Tiny::catch {
$self->{rejected} = 1;
$self->{reject}->send(@_);
}
});
}
else {
$cvout->send($cvret);
$self->{guard}->end;
}
}
Try::Tiny::catch {
$self->{rejected} = 1;
$self->{reject}->send(@_);
}
});
$self->{fulfill} = $cvout;
lib/AnyEvent/Promise.pm view on Meta::CPAN
=head2 catch($cb)
Catch raised errors in the callback chain. Exceptions in the promise chain will
jump up to this catch callback, bypassing any other callbacks in the promise
chain. The error caught by L<Try::Tiny> will be sent as arguments to the
callback C<$cb>.
=cut
sub catch {
my ($self, $fn) = @_;
view release on metacpan or search on metacpan
lib/AnyEvent/RabbitMQ/RPC.pm view on Meta::CPAN
use strict;
use warnings;
use AnyEvent::RabbitMQ;
use Try::Tiny;
our $VERSION = '0.5';
sub new {
my $class = shift;