view release on metacpan or search on metacpan
lib/CLI/Dispatch.pm view on Meta::CPAN
use strict;
use warnings;
use Carp;
use Getopt::Long ();
use String::CamelCase;
use Try::Tiny;
our $VERSION = '0.21';
# you may want to override these three methods.
view release on metacpan or search on metacpan
lib/CLIPSeqTools/PreprocessApp/annotate_with_conservation.pm view on Meta::CPAN
####################### Load External modules #####################
#######################################################################
use Modern::Perl;
use autodie;
use namespace::autoclean;
use Try::Tiny;
use PDL::Lite; $PDL::BIGPDL = 0; $PDL::BIGPDL++; # enable huge pdls
#######################################################################
####################### Command line options ######################
view release on metacpan or search on metacpan
example/moose-dif/Moose-2.1005-META.json view on Meta::CPAN
"Params::Util" : "1.00",
"Scalar::Util" : "1.19",
"Sub::Exporter" : "0.980",
"Sub::Name" : "0.05",
"Task::Weaken" : "0",
"Try::Tiny" : "0.02",
"perl" : "v5.8.3"
}
},
"test" : {
"requires" : {
view release on metacpan or search on metacpan
corpus/dists/BreadBoard.changes view on Meta::CPAN
- adjusted all the tests to account
for this change.
- adjusted all the docs to now use
this approach instead
- now using Try::Tiny for all exception
handling (except the Deferred service)
* Bread::Board::Service::WithDependencies
- if you want to depend on a parameterized
service, now you can and it will return
view release on metacpan or search on metacpan
lib/CPAN/Local/Plugin/DistroList.pm view on Meta::CPAN
use warnings;
use Path::Class qw(file dir);
use File::Temp;
use URI;
use Try::Tiny;
use LWP::Simple;
use CPAN::DistnameInfo;
use Moose;
extends 'CPAN::Local::Plugin';
view release on metacpan or search on metacpan
lib/CPAN/Local/Plugin/Inject.pm view on Meta::CPAN
use strict;
use warnings;
use CPAN::Inject;
use Path::Class qw(file);
use Try::Tiny qw(try catch);
use Moose;
extends 'CPAN::Local::Plugin';
with 'CPAN::Local::Role::Inject';
use namespace::clean -except => 'meta';
view release on metacpan or search on metacpan
lib/CPAN/Mini/Inject/REST/Client/API.pm view on Meta::CPAN
use Carp qw/confess/;
use HTTP::Request::Common;
use JSON;
use MIME::Base64;
use REST::Client;
use Try::Tiny;
use URI;
has 'host' => (isa => 'Str', is => 'ro', required => 1);
has 'protocol' => (isa => 'Str', is => 'ro', required => 1);
has 'port' => (isa => 'Int', is => 'ro', required => 1);
view release on metacpan or search on metacpan
lib/CPAN/Mini/Inject/REST/Controller/API/Version1_0.pm view on Meta::CPAN
use File::Find::Rule;
use File::Spec::Functions qw/catdir catfile splitpath/;
use File::Temp;
use List::MoreUtils qw/uniq/;
use Parse::CPAN::Meta;
use Try::Tiny;
use namespace::autoclean;
BEGIN {extends 'Catalyst::Controller::REST'; }
__PACKAGE__->config(
view release on metacpan or search on metacpan
lib/CPAN/Mini/Webserver.pm view on Meta::CPAN
use Path::Class;
use PPI;
use PPI::HTML;
use Safe;
use Template::Declare;
use Try::Tiny;
Template::Declare->init( roots => [ 'CPAN::Mini::Webserver::Templates', 'CPAN::Mini::Webserver::Templates::CSS', 'CPAN::Mini::Webserver::Templates::Images', ] );
if ( eval { require HTTP::Server::Simple::Bonjour } ) {
extends 'HTTP::Server::Simple::Bonjour', 'HTTP::Server::Simple::CGI';
view release on metacpan or search on metacpan
lib/CPAN/Reporter/PrereqCheck.pm view on Meta::CPAN
qw/Test::Sys::Info Test::Subs/,
#do not return true value
qw/perlsecret Alt::Crypt::RSA::BigInt/,
#Try::Tiny::Tiny and modules that use it conflict with several modules
'Try::Tiny::Tiny',
'Date::Lectionary::Time',
);
my %loading_conflicts = (
'signatures' => ['Catalyst'],
view release on metacpan or search on metacpan
lib/CPAN/Source.pm view on Meta::CPAN
package CPAN::Source;
use warnings;
use strict;
use feature qw(say);
use Try::Tiny;
use URI;
use Mouse;
use Compress::Zlib;
use LWP::UserAgent;
use XML::Simple qw(XMLin);
view release on metacpan or search on metacpan
"Test::Pod" : "1.41"
}
},
"runtime" : {
"requires" : {
"Try::Tiny" : ">= 0.12, != 0.14",
"perl" : "5.008005"
}
},
"test" : {
"requires" : {
view release on metacpan or search on metacpan
"CPAN::Test::Dummy::Perl5::Build::Fails" : "0",
"install" : "0"
},
"suggests" : {
"CPAN::Test::Dummy::Perl5::Build::DepeFails" : "0",
"Try::Tiny" : "0"
}
},
"configure" : {
"requires" : {
"ExtUtils::MakeMaker" : "6.30"
view release on metacpan or search on metacpan
lib/Labyrinth/Plugin/CPAN/Builder.pm view on Meta::CPAN
use File::Path;
use File::Slurp;
use JSON::XS;
#use Sort::Versions;
use Time::Local;
use Try::Tiny;
use XML::RSS;
#use YAML::XS;
use version;
#use Devel::Size qw(total_size);
view release on metacpan or search on metacpan
lib/CPAN/Testers/WWW/Statistics/Pages.pm view on Meta::CPAN
use JSON;
use Sort::Versions;
use Template;
#use Time::HiRes qw ( time );
use Time::Piece;
use Try::Tiny;
# -------------------------------------
# Variables
my %month = (
view release on metacpan or search on metacpan
t/data/build.fresh.log view on Meta::CPAN
Warning: prerequisite IO::Prompt::Tiny 0 not found.
Warning: prerequisite LWP::Protocol::https 0 not found.
Warning: prerequisite Metabase::Resource 0 not found.
Warning: prerequisite Test::Reporter 1.54 not found.
Warning: prerequisite Test::Reporter::Transport::Metabase 0 not found.
Warning: prerequisite Try::Tiny 0 not found.
Warning: prerequisite URI 0 not found.
Checking if your kit is complete...
Looks good
Generating a Unix-style Makefile
Writing Makefile for App::cpanminus::reporter
t/data/build.fresh.log view on Meta::CPAN
Checking if you have Getopt::Long 0 ... Yes (2.45)
Checking if you have Parse::CPAN::Meta 0 ... Yes (1.4414)
Checking if you have Metabase::Resource 0 ... No
Checking if you have CPAN::Meta::Converter 0 ... Yes (2.150001)
Checking if you have Test::Reporter 1.54 ... No
Checking if you have Try::Tiny 0 ... No
Checking if you have Test::Reporter::Transport::Metabase 0 ... No
Checking if you have IO::Prompt::Tiny 0 ... No
Checking if you have Test::More 0 ... Yes (1.001014)
Checking if you have LWP::Protocol::https 0 ... No
Checking if you have Carp 0 ... Yes (1.36)
==> Found dependencies: URI, Config::Tiny, CPAN::Testers::Common::Client, Capture::Tiny, File::HomeDir, Metabase::Resource, Test::Reporter, Try::Tiny, Test::Reporter::Transport::Metabase, IO::Prompt::Tiny, LWP::Protocol::https
Searching URI on mirror http://mirrors.gossamer-threads.com/CPAN ...
--> Working on URI
Fetching http://mirrors.gossamer-threads.com/CPAN/authors/id/E/ET/ETHER/URI-1.67.tar.gz
-> OK
Unpacking URI-1.67.tar.gz
t/data/build.fresh.log view on Meta::CPAN
Entering Test-Fatal-0.014
Checking configure dependencies from META.json
Checking if you have ExtUtils::MakeMaker 0 ... Yes (7.04)
Configuring Test-Fatal-0.014
Running Makefile.PL
Warning: prerequisite Try::Tiny 0.07 not found.
Checking if your kit is complete...
Looks good
Generating a Unix-style Makefile
Writing Makefile for Test::Fatal
Writing MYMETA.yml and MYMETA.json
-> OK
Checking dependencies from MYMETA.json ...
Checking if you have Try::Tiny 0.07 ... No
Checking if you have warnings 0 ... Yes (1.32)
Checking if you have ExtUtils::MakeMaker 0 ... Yes (7.04)
Checking if you have File::Spec 0 ... Yes (3.56)
Checking if you have Exporter 5.57 ... Yes (5.72)
Checking if you have Test::Builder 0 ... Yes (1.001014)
Checking if you have Test::Builder::Tester 0 ... Yes (1.28)
Checking if you have overload 0 ... Yes (1.25)
Checking if you have strict 0 ... Yes (1.09)
Checking if you have Test::More 0.96 ... Yes (1.001014)
Checking if you have Carp 0 ... Yes (1.36)
==> Found dependencies: Try::Tiny
Searching Try::Tiny on mirror http://mirrors.gossamer-threads.com/CPAN ...
--> Working on Try::Tiny
Fetching http://mirrors.gossamer-threads.com/CPAN/authors/id/D/DO/DOY/Try-Tiny-0.22.tar.gz
-> OK
Unpacking Try-Tiny-0.22.tar.gz
Entering Try-Tiny-0.22
Checking configure dependencies from META.json
t/data/build.fresh.log view on Meta::CPAN
Configuring Try-Tiny-0.22
Running Makefile.PL
Checking if your kit is complete...
Looks good
Generating a Unix-style Makefile
Writing Makefile for Try::Tiny
Writing MYMETA.yml and MYMETA.json
-> OK
Checking dependencies from MYMETA.json ...
Checking if you have strict 0 ... Yes (1.09)
Checking if you have Test::More 0 ... Yes (1.001014)
t/data/build.fresh.log view on Meta::CPAN
All tests successful.
Files=10, Tests=99, 1 wallclock secs ( 0.04 usr 0.01 sys + 0.26 cusr 0.05 csys = 0.36 CPU)
Result: PASS
Manifying 1 pod document
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/lib/perl5/Try/Tiny.pm
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/man/man3/Try::Tiny.0
Appending installation info to /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/lib/perl5/darwin-2level/perllocal.pod
-> OK
Successfully installed Try-Tiny-0.22
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/lib/perl5/darwin-2level/.meta/Try-Tiny-0.22/MYMETA.json
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/lib/perl5/darwin-2level/.meta/Try-Tiny-0.22/install.json
t/data/build.fresh.log view on Meta::CPAN
# Module Want Have
# ------------- ---- --------
# Carp any 1.36
# Exporter 5.57 5.72
# Test::Builder any 1.001014
# Try::Tiny 0.07 0.22
# strict any 1.09
# warnings any 1.32
#
t/00-report-prereqs.t .. ok
All tests successful.
t/data/build.fresh.log view on Meta::CPAN
Appending installation info to /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/lib/perl5/darwin-2level/perllocal.pod
-> OK
Successfully installed Test-Reporter-1.62
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/lib/perl5/darwin-2level/.meta/Test-Reporter-1.62/MYMETA.json
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/lib/perl5/darwin-2level/.meta/Test-Reporter-1.62/install.json
Already tried Try::Tiny. Skipping.
Searching Test::Reporter::Transport::Metabase on mirror http://mirrors.gossamer-threads.com/CPAN ...
--> Working on Test::Reporter::Transport::Metabase
Fetching http://mirrors.gossamer-threads.com/CPAN/authors/id/D/DA/DAGOLDEN/Test-Reporter-Transport-Metabase-1.999009.tar.gz
-> OK
Unpacking Test-Reporter-Transport-Metabase-1.999009.tar.gz
view release on metacpan or search on metacpan
t/data/Haineko-cpanfile view on Meta::CPAN
requires 'Path::Class', '0.24';
requires 'Plack', '1.0027';
requires 'Plack::Middleware::Auth::Basic', '';
requires 'Router::Simple', '0.14';
requires 'Server::Starter', '0.15';
requires 'Try::Tiny', '0.16';
on test => sub {
requires 'Test::More', '0.98';
requires 'Plack::Test', '';
requires 'HTTP::Request', '6.00';
view release on metacpan or search on metacpan
L<Perl::OSType>,
L<Sys::Syslog>,
L<Term::ANSIColor>,
L<Text::SimpleTable>,
L<Time::Local>,
L<Try::Tiny>,
L<URI>,
L<XML::Simple>,
L<YAML>, L<YAML::XS>
=head1 TO DO
view release on metacpan or search on metacpan
ex/get_bim_services.pl view on Meta::CPAN
use warnings;
use strict;
use Getopt::Long;
use File::Basename qw/basename/;
use Try::Tiny;
use JSON;
use CTM::ReadEM 0.181, qw/:all/;
#----> ** fonctions **
ex/get_bim_services.pl view on Meta::CPAN
Exemple d utilisation de C<CTM::ReadEM> : simple recuperation des services du BIM au format JSON.
=head1 DEPENDANCES
C<Getopt::Long>, C<File::Basename>, C<Try::Tiny>, C<JSON>, C<CTM::ReadEM>
=head1 USAGE
./get_bim_services.pl
-x <version de Control-M EM>
view release on metacpan or search on metacpan
lib/CWB/CQP/More.pm view on Meta::CPAN
$CWB::CQP::More::VERSION = '0.08';
use parent CWB::CQP;
use CWB;
use Carp;
use Try::Tiny;
use Encode;
use warnings;
use strict;
use POSIX::Open3;
use CWB::CQP::More::Iterator;
lib/CWB/CQP/More.pm view on Meta::CPAN
# This needs to get fixed... not nice to say "'<b>'"
$cqp->set(Context => [20, 'words'],
LD => "'<b>'",
RD => "'</b>'");
# using Try::Tiny...
try {
$cqp->exec('A = "dog";');
my $result_size = $cqp->size('A');
my @lines = $cqp->cat('A');
} catch {
lib/CWB/CQP/More.pm view on Meta::CPAN
}
=head2 exec
Similar to CWB::CQP->exec, but dying in case of error with the error
message. Useful for use with C<Try::Tiny>. Check the synopsis above
for an example.
=cut
sub exec {
view release on metacpan or search on metacpan
lib/Cache/Elasticache/Memcache.pm view on Meta::CPAN
use Carp;
use IO::Socket::IP;
use IO::Socket::Timeout;
use Cache::Memcached::Fast;
use Try::Tiny;
use Scalar::Util qw(blessed);
our $VERSION = '0.0.5';
=pod
view release on metacpan or search on metacpan
lib/Cache/Isolator.pm view on Meta::CPAN
package Cache::Isolator;
use strict;
use warnings;
use Carp;
use Try::Tiny;
use Time::HiRes;
use List::Util qw/shuffle/;
use Class::Accessor::Lite (
ro => [ qw(cache interval timeout concurrency trial early_expires_ratio expires_before) ],
);
view release on metacpan or search on metacpan
lib/Cache/Memcached/PDeque.pm view on Meta::CPAN
use Cache::Memcached::Fast;
use Carp::Assert;
use Data::Dump;
use Moose;
use Moose::Util::TypeConstraints;
use Try::Tiny;
=head1 NAME
Cache::Memcached::PDeque - Implements a priority deque using memcached as storage
view release on metacpan or search on metacpan
lib/Cache/Profile.pm view on Meta::CPAN
our $VERSION = '0.06';
use Moose;
use Carp;
use Time::HiRes 1.84 qw(tv_interval gettimeofday time clock);
use Try::Tiny;
use Class::MOP;
use namespace::autoclean;
has cache => (
isa => "Object",
view release on metacpan or search on metacpan
lib/Callback/Frame.pm view on Meta::CPAN
L<The Callback::Frame github repo|https://github.com/hoytech/Callback-Frame>
L<AnyEvent::Task> uses Callback::Frame and its docs have more discussion on exception handling in async apps.
This module's C<catch> syntax is of course modeled after "normal language" style exception handling as implemented by L<Try::Tiny> and similar.
This module depends on L<Guard> to maintain the C<$Callback::Frame::active_frames> datastructure and to ensure that C<local> binding updates aren't lost even when exceptions or other non-local returns occur.
L<AnyEvent::Debug> provides an interactive debugger for AnyEvent applications and uses some of the same techniques that Callback::Frame does. L<AnyEvent::Callback> and L<AnyEvent::CallbackStack> sort of solve the dynamic error handler problem. Unlike...
view release on metacpan or search on metacpan
lib/Cantella/Store/UUID.pm view on Meta::CPAN
package Cantella::Store::UUID;
use Moose;
use Try::Tiny;
use Class::MOP;
use Data::GUID;
use File::Copy qw();
use Path::Class qw();
use Cantella::Store::UUID::Util '_mkdirs';
view release on metacpan or search on metacpan
lib/Cantella/Worker/Role/Beanstalk.pm view on Meta::CPAN
=head1 SYNOPSIS
package TestWorkerPool;
use Try::Tiny;
use Moose;
with(
'Cantella::Worker::Role::Worker',
'Cantella::Worker::Role::Beanstalk'
);
view release on metacpan or search on metacpan
build_requires:
ExtUtils::MakeMaker: 6.42
Log::Dispatch::Array: 0
Test::Exception: 0
Test::More: 0
Try::Tiny: 0
configure_requires:
ExtUtils::MakeMaker: 6.42
distribution_type: module
generated_by: 'Module::Install version 0.99'
license: perl
view release on metacpan or search on metacpan
lib/Captcha/Stateless/Text.pm view on Meta::CPAN
no warnings qw(experimental::signatures);
use Sub::Util qw(set_subname); # core
use MIME::Base64 qw(); # core
use Digest::MD5 qw(md5_hex); # core
use Data::Dumper; # core
use Try::Tiny; # libtry-tiny-perl
use Crypt::Mode::CBC; # libcryptx-perl
use JSON qw(to_json from_json); # libjson-perl
use Lingua::EN::Nums2Words; # From CPAN (cpanm Lingua::EN::Nums2Words)
$Data::Dumper::Sortkeys = 1;
Lingua::EN::Nums2Words::set_case('lower');
view release on metacpan or search on metacpan
bin/capo-ctl.pl view on Meta::CPAN
use FindBin qw($Bin $Script);
use lib "$Bin/../lib";
use Log::Log4perl qw(:easy);
use Getopt::Long qw(GetOptions);
use Try::Tiny;
use Captive::Portal;
use Captive::Portal::LockHandle;
$ENV{PATH} = '/sbin:/bin:/usr/sbin:/usr/bin';