view release on metacpan or search on metacpan
lib/Plack/App/AtteanX/Query/Cache.pm view on Meta::CPAN
use Redis;
use LWP::UserAgent::CHICaching;
use AtteanX::Model::SPARQLCache::LDF;
use AtteanX::QueryPlanner::Cache::LDF;
use AtteanX::Query::Cache;
use Try::Tiny;
extends 'Plack::App::AtteanX::Endpoint';
with 'MooX::Log::Any';
sub prepare_app {
view release on metacpan or search on metacpan
File::ShareDir: 0
File::Slurp: 0
List::MoreUtils: 0
Moo: 1.006
MooX::Log::Any: 0
Try::Tiny: 0
Type::Tiny: 0
namespace::clean: 0
perl: 5.14.0
resources:
IRC: irc://irc.perl.org/#perlrdf
view release on metacpan or search on metacpan
Attean: 0.013
DateTime::Format::W3CDTF: 0
LMDB_File: 0
Math::Cartesian::Product: 1.008
Moo: 1.006
Try::Tiny: 0
Type::Tiny: 0
namespace::clean: 0
perl: 5.14.0
resources:
IRC: irc://irc.perl.org/#perlrdf
view release on metacpan or search on metacpan
lib/Audio/Nama.pm view on Meta::CPAN
use Tickit::Console;
use Tickit::Widgets qw(Static Entry ScrollBox VBox);
use Tickit::Widget::Entry::Plugin::History;
use Tickit::Widget::Entry::Plugin::Completion;
use Tie::Simple;
use Try::Tiny;
use Path::Tiny;
# use File::HomeDir;# Assign.pm
# use File::Slurp; # several
# use List::Util; # Fade.pm
# use List::MoreUtils; # Effects.pm
view release on metacpan or search on metacpan
lib/Audio/TinySoundFont.pm view on Meta::CPAN
use warnings;
our $VERSION = '0.12';
use autodie;
use Carp;
use Try::Tiny;
use Scalar::Util qw/blessed/;
use Moo;
use Types::Standard qw/ArrayRef HashRef GlobRef Str Int Num InstanceOf/;
view release on metacpan or search on metacpan
lib/Audit/DBI.pm view on Meta::CPAN
use warnings;
use Carp;
use Data::Validate::Type;
use Storable;
use Try::Tiny;
use Audit::DBI::Event;
use Audit::DBI::Utils;
view release on metacpan or search on metacpan
lib/Authen/HTTP/Signature.pm view on Meta::CPAN
use 5.010;
use Authen::HTTP::Signature::Parser;
use HTTP::Request::Common;
use File::Slurp qw(read_file);
use Try::Tiny;
my $req = POST('http://example.com/foo?param=value&pet=dog',
Content_Type => 'application/json',
Content_MD5 => 'Sd/dVLAcvNLSq16eXua5uQ==',
Content_Length => 18,
lib/Authen/HTTP/Signature.pm view on Meta::CPAN
default => sub { 'Signature' },
);
=head1 METHODS
Errors are generally fatal. Use L<Try::Tiny> for more graceful error handling.
=cut
sub _update_signing_string {
my $self = shift;
view release on metacpan or search on metacpan
lib/Authen/SCRAM.pm view on Meta::CPAN
=head1 SYNOPSIS
use Authen::SCRAM::Client;
use Authen::SCRAM::Server;
use Try::Tiny;
### CLIENT SIDE ###
$client = Authen::SCRAM::Client->new(
username => 'johndoe',
view release on metacpan or search on metacpan
lib/Authen/U2F.pm view on Meta::CPAN
use namespace::autoclean;
use Types::Standard -types, qw(slurpy);
use Type::Params qw(compile);
use Try::Tiny;
use Carp qw(croak);
use Math::Random::Secure qw(irand);
use MIME::Base64 3.11 qw(encode_base64url decode_base64url);
use Crypt::OpenSSL::X509 1.806;
view release on metacpan or search on metacpan
lib/Avro/Protocol.pm view on Meta::CPAN
use strict;
use warnings;
use Carp;
use JSON::MaybeXS ();
use Try::Tiny;
use Avro::Protocol::Message;
use Avro::Schema;
use Error;
use Object::Tiny qw{
name
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
Specio::Declare 0
Specio::Exporter 0
Specio::Library::Builtins 0
Specio::Library::Numeric 0
Specio::Library::String 0
Try::Tiny 0
XSLoader 0
base 0
integer 0
namespace::autoclean 0.19
overload 0
cpanfile.snapshot view on Meta::CPAN
List::Util 1.33
Module::Runtime 0
Params::ValidationCompiler 0.13
Specio::Library::Builtins 0
Specio::Library::String 0
Try::Tiny 0
constant 0
namespace::autoclean 0
parent 0
perl 5.008004
strict 0
cpanfile.snapshot view on Meta::CPAN
Module::Implementation 0.09
requirements:
Carp 0
ExtUtils::MakeMaker 0
Module::Runtime 0.012
Try::Tiny 0
strict 0
warnings 0
Module-Runtime-0.016
pathname: Z/ZE/ZEFRAM/Module-Runtime-0.016.tar.gz
provides:
cpanfile.snapshot view on Meta::CPAN
Scalar::Util 0
Storable 0
Sub::Quote 0
Test::Fatal 0
Test::More 0.96
Try::Tiny 0
XString 0
overload 0
parent 0
perl 5.008
re 0
cpanfile.snapshot view on Meta::CPAN
requirements:
Carp 0
Exporter 5.57
ExtUtils::MakeMaker 0
Test::Builder 0
Try::Tiny 0.07
strict 0
warnings 0
Test-Pod-1.52
pathname: E/ET/ETHER/Test-Pod-1.52.tar.gz
provides:
cpanfile.snapshot view on Meta::CPAN
requirements:
ExtUtils::MakeMaker 0
Try-Tiny-0.30
pathname: E/ET/ETHER/Try-Tiny-0.30.tar.gz
provides:
Try::Tiny 0.30
requirements:
Carp 0
Exporter 5.57
ExtUtils::MakeMaker 0
constant 0
view release on metacpan or search on metacpan
log.modules-5.006002-nt view on Meta::CPAN
pass Class::C3
pass Scope::Guard
pass MRO::Compat
skip Time::HiRes
pass Class::Data::Inheritable
pass Try::Tiny
pass Devel::GlobalDestruction
pass Class::MOP
skip Moose
pass Test::Deep #TODO 5.6
pass Carp::Clan
view release on metacpan or search on metacpan
AutoPrereqs.finder = :MainModule ; only look in main module for runtime prereqs
AutoPrereqs.skip[0] = ^B::Hooks::EndOfScope
AutoPrereqs.skip[1] = ^Devel::Hide$
Test::ReportPrereqs.include[0] = DynaLoader
Test::ReportPrereqs.include[1] = Module::Runtime
Test::ReportPrereqs.include[2] = Try::Tiny
[Prereqs]
perl = 5.006001
Scalar::Util = 0
view release on metacpan or search on metacpan
lib/Devel/CodeObserver.pm view on Meta::CPAN
return 0;
}
package Devel::CallTrace::Result;
use Try::Tiny;
use constant { DEBUG => 0 };
sub new {
my $class = shift;
my %args = @_==1 ? %{$_[0]} : @_;
view release on metacpan or search on metacpan
inc/Test/Fatal.pm view on Meta::CPAN
}
# ABSTRACT: incredibly simple helpers for testing code with exceptions
use Carp ();
use Try::Tiny 0.07;
use Exporter 5.57 'import';
our @EXPORT = qw(exception);
our @EXPORT_OK = qw(exception success dies_ok lives_ok);
view release on metacpan or search on metacpan
eg/nagios2bugzilla/talktobugzilla.pl view on Meta::CPAN
use BZ::Client;
use BZ::Client::Bug;
use BZ::Client::Bug::Comment;
use BZ::Client::Bugzilla;
use Path::Tiny;
use Try::Tiny; # nb this is slow. see http://perladvent.org/2016/2016-12-12.html
use Sys::Hostname qw/ hostname /;
use Log::Log4perl;
use DateTime;
use Nagios::Cmd; # replace nagios_command
use Data::Dumper;
view release on metacpan or search on metacpan
lib/Backup/Omni/Utils.pm view on Meta::CPAN
package Backup::Omni::Utils;
our $VERSION = '0.01';
use Try::Tiny;
use Backup::Omni::Exception;
use Params::Validate ':all';
use DateTime::Format::Strptime;
use Backup::Omni::Class
view release on metacpan or search on metacpan
lib/Bb/Collaborate/Ultra/Connection.pm view on Meta::CPAN
use warnings; use strict;
use Crypt::JWT qw(encode_jwt decode_jwt);
use JSON;
use Mouse;
use REST::Client;
use Try::Tiny;
use Bb::Collaborate::Ultra::Connection::Token;
=head1 NAME
Bb::Collaborate::Ultra::Connection - manage a server connection
view release on metacpan or search on metacpan
lib/Bb/Collaborate/V3/_Content.pm view on Meta::CPAN
use warnings; use strict;
use Mouse;
use Carp;
use Try::Tiny;
use MIME::Base64;
use File::Basename;
extends 'Bb::Collaborate::V3';
view release on metacpan or search on metacpan
lib/BeamX/Peer/Emitter.pm.orig view on Meta::CPAN
# ABSTRACT: Beam::Emitter with peer-to-peer messaging
use Types::Standard ':all';
use Safe::Isa;
use Scalar::Util qw[ refaddr ];
use Try::Tiny;
use Moo::Role;
our %LoopDetect;
view release on metacpan or search on metacpan
lib/Bencher/Scenario/ExceptionHandling.pm view on Meta::CPAN
MARKDOWN
code_template => q|{ local $@; local $SIG{__DIE__}; eval { <code_try:raw> }; if ($@) { <code_catch:raw> } }|,
},
{
name => "Try::Tiny",
module => 'Try::Tiny',
description => <<'MARKDOWN',
MARKDOWN
code_template => q|use Try::Tiny; try { <code_try:raw> } catch { <code_catch:raw> }|,
},
],
precision => 7,
datasets => [
{name=>'empty try, empty catch', args=>{code_try=>'', code_catch=>''}},
lib/Bencher/Scenario/ExceptionHandling.pm view on Meta::CPAN
=head1 BENCHMARKED MODULES
Version numbers shown below are the versions used when running the sample benchmark.
L<Try::Tiny> 0.31
=head1 BENCHMARK PARTICIPANTS
=over
lib/Bencher/Scenario/ExceptionHandling.pm view on Meta::CPAN
=item * Try::Tiny (perl_code)
Code template:
use Try::Tiny; try { <code_try:raw> } catch { <code_catch:raw> }
lib/Bencher/Scenario/ExceptionHandling.pm view on Meta::CPAN
#table1#
{dataset=>"die in try, empty catch"}
+-----------------------------------------+-----------+-----------+-----------------------+-----------------------+---------+---------+
| participant | rate (/s) | time (μs) | pct_faster_vs_slowest | pct_slower_vs_fastest | errors | samples |
+-----------------------------------------+-----------+-----------+-----------------------+-----------------------+---------+---------+
| Try::Tiny | 310000 | 3.23 | 0.00% | 602.22% | 2.1e-09 | 8 |
| eval-localize-die-signal-and-eval-error | 1000000 | 1 | 207.56% | 128.32% | 1.2e-08 | 9 |
| builtin-try | 1700000 | 0.6 | 438.20% | 30.48% | 1.1e-09 | 7 |
| naive-eval | 2170000 | 0.46 | 602.22% | 0.00% | 3.6e-10 | 8 |
+-----------------------------------------+-----------+-----------+-----------------------+-----------------------+---------+---------+
lib/Bencher/Scenario/ExceptionHandling.pm view on Meta::CPAN
e 1000000/s 223% -- -40% -54%
b 1700000/s 438% 66% -- -23%
n 2170000/s 602% 117% 30% --
Legends:
T:T: participant=Try::Tiny
b: participant=builtin-try
e: participant=eval-localize-die-signal-and-eval-error
n: participant=naive-eval
The above result presented as chart:
lib/Bencher/Scenario/ExceptionHandling.pm view on Meta::CPAN
#table2#
{dataset=>"empty try, empty catch"}
+-----------------------------------------+-----------+-----------+-----------------------+-----------------------+---------+---------+
| participant | rate (/s) | time (μs) | pct_faster_vs_slowest | pct_slower_vs_fastest | errors | samples |
+-----------------------------------------+-----------+-----------+-----------------------+-----------------------+---------+---------+
| Try::Tiny | 397000 | 2.52 | 0.00% | 6147.90% | 5.8e-10 | 8 |
| eval-localize-die-signal-and-eval-error | 1700000 | 0.59 | 328.63% | 1357.65% | 6.5e-10 | 7 |
| builtin-try | 8400000 | 0.12 | 2022.06% | 194.43% | 1.9e-10 | 7 |
| naive-eval | 25000000 | 0.04 | 6147.90% | 0.00% | 8e-11 | 7 |
+-----------------------------------------+-----------+-----------+-----------------------+-----------------------+---------+---------+
lib/Bencher/Scenario/ExceptionHandling.pm view on Meta::CPAN
e 1700000/s 327% -- -79% -93%
b 8400000/s 2000% 391% -- -66%
n 25000000/s 6200% 1374% 200% --
Legends:
T:T: participant=Try::Tiny
b: participant=builtin-try
e: participant=eval-localize-die-signal-and-eval-error
n: participant=naive-eval
The above result presented as chart:
lib/Bencher/Scenario/ExceptionHandling.pm view on Meta::CPAN
#table3#
+---------------------+-----------+-------------------+-----------------------+-----------------------+---------+---------+
| participant | time (ms) | mod_overhead_time | pct_faster_vs_slowest | pct_slower_vs_fastest | errors | samples |
+---------------------+-----------+-------------------+-----------------------+-----------------------+---------+---------+
| Try::Tiny | 14 | 8.4 | 0.00% | 145.39% | 1.8e-05 | 7 |
| perl -e1 (baseline) | 5.6 | 0 | 145.39% | 0.00% | 1.6e-05 | 7 |
+---------------------+-----------+-------------------+-----------------------+-----------------------+---------+---------+
The above result formatted in L<Benchmark.pm|Benchmark> style:
lib/Bencher/Scenario/ExceptionHandling.pm view on Meta::CPAN
Rate T:T perl -e1 (baseline)
T:T 71.4/s -- -60%
perl -e1 (baseline) 178.6/s 150% --
Legends:
T:T: mod_overhead_time=8.4 participant=Try::Tiny
perl -e1 (baseline): mod_overhead_time=0 participant=perl -e1 (baseline)
The above result presented as chart:
#IMAGE: share/images/bencher-result-3.png|/tmp/VHOUgvh_oa/bencher-result-3.png
view release on metacpan or search on metacpan
share/P6STD/CursorBase.pmc view on Meta::CPAN
use File::Copy;
use YAML::XS;
use Storable;
use Encode;
use Scalar::Util 'refaddr';
use Try::Tiny;
use Term::ANSIColor;
our $BLUE = color 'blue';
our $GREEN = color 'green';
our $CYAN = color 'cyan';
view release on metacpan or search on metacpan
lib/BenchmarkAnything/Storage/Backend/SQL.pm view on Meta::CPAN
$BenchmarkAnything::Storage::Backend::SQL::VERSION = '0.029';
use 5.008;
use utf8;
use strict;
use warnings;
use Try::Tiny;
use Data::Dumper;
my $hr_default_config = {
select_cache => 0,
default_aggregation => 'min',
view release on metacpan or search on metacpan
lib/BerkeleyDB/Easy.pm view on Meta::CPAN
use BerkeleyDB::Easy;
my $db = BerkeleyDB::Easy::Btree->new();
my $err;
use Try::Tiny;
try { $db->get('asdf', 666) } catch { $err = $_ };
use feature 'say';
say $err;
view release on metacpan or search on metacpan
lib/Biblio/SICI/Util.pm view on Meta::CPAN
}
use Exporter 'import';
our @EXPORT_OK = qw( calculate_check_char titleCode_from_title );
use Try::Tiny;
sub titleCode_from_title {
my $title = shift;
view release on metacpan or search on metacpan
requires 'Carp';
requires 'Bio::Perl';
requires 'Log::Log4perl';
requires 'Try::Tiny';
requires 'Test::Most';
requires 'Test::LeakTrace';
requires 'Module::Build';
view release on metacpan or search on metacpan
lib/Bio/FastParsers/Roles/Clusterable.pm view on Meta::CPAN
use autodie;
use feature qw(say);
use Carp;
use Sort::Naturally;
use Try::Tiny;
# private attributes
has '_members_for' => (
view release on metacpan or search on metacpan
bin/gonz_obo2dict.pl view on Meta::CPAN
use Bio::Gonzales::GO::Util qw/get_recursive_related_terms_by_types/;
use Data::Stag;
use GO::Parser;
use GO::Model::Graph;
use Try::Tiny;
use Getopt::Long::Descriptive;
my ( $opt, $usage ) = describe_options(
'%c %o <obo file>',
view release on metacpan or search on metacpan
lib/Bio/Grid/Run/SGE/Log/Notify/Mail.pm view on Meta::CPAN
our $VERSION = '0.066'; # VERSION
use Email::Sender::Simple qw(sendmail);
use Email::Simple;
use Email::Simple::Creator;
use Email::Sender::Transport::SMTP;
use Try::Tiny;
has server => ( is => 'rw', required => 1 );
has 'to' => ( is => 'rw', required => 1 );
has 'from' => ( is => 'rw', required => 1 );
has log => ( is => 'rw', 'required' => 1 );
view release on metacpan or search on metacpan
bin/performance_test.pl view on Meta::CPAN
use warnings;
use Bio::HTS::Tabix;
use Data::Dumper;
use feature qw(say);
use Try::Tiny;
use Benchmark qw/cmpthese timethese/;
use Sapientia::Util::Bed;
die "File " . $ARGV[0] . " doesn't exist" unless -e $ARGV[0];