view release on metacpan or search on metacpan
lib/Class/Refresh.pm view on Meta::CPAN
# ABSTRACT: refresh your classes during runtime
use Carp 'carp';
use Class::Unload;
use Class::Load;
use Try::Tiny;
our %CACHE;
sub import {
view release on metacpan or search on metacpan
lib/Class/Usul/Crypt/Util.pm view on Meta::CPAN
use Class::Usul::Constants qw( FALSE NUL TRUE );
use Class::Usul::Crypt qw( decrypt default_cipher encrypt );
use Class::Usul::Functions qw( merge_attributes throw );
use Exporter 5.57 qw( import );
use File::DataClass::IO;
use Try::Tiny;
our @EXPORT_OK = qw( decrypt_from_config encrypt_for_config
get_cipher is_encrypted );
my $_args_cache = {};
lib/Class/Usul/Crypt/Util.pm view on Meta::CPAN
=over 3
=item L<Class::Usul>
=item L<Try::Tiny>
=item L<Exporter>
=back
view release on metacpan or search on metacpan
lib/ClickHouse.pm view on Meta::CPAN
use URI;
use URI::Escape;
use URI::QueryParam;
use Carp;
use Scalar::Util qw/looks_like_number/;
use Try::Tiny;
our $AUTOLOAD;
sub new {
my ($class, %opts) = @_;
view release on metacpan or search on metacpan
"Test::LWP::UserAgent" : "0",
"Test::Moose" : "0",
"Test::More" : "0",
"Test::RequiresInternet" : "0",
"Test::TypeTiny" : "0",
"Try::Tiny" : "0",
"blib" : "1.01"
}
}
},
"provides" : {
view release on metacpan or search on metacpan
lib/Code/CutNPaste.pm view on Meta::CPAN
use 5.006;
use autodie;
use Benchmark qw(timediff timestr);
use Try::Tiny;
use Capture::Tiny qw(capture);
use Carp;
use File::Find::Rule;
use File::HomeDir;
use File::Slurp;
view release on metacpan or search on metacpan
lib/Code/Style/Kit.pm view on Meta::CPAN
package My::Kit::Part;
use strict;
use warnings;
sub feature_trytiny_default { 1 }
sub feature_trytiny_export_list { 'Try::Tiny' }
1;
To build the kit:
lib/Code/Style/Kit.pm view on Meta::CPAN
To use the kit:
package My::App;
use My::Kit;
# you now have Try::Tiny imported, plus whatever OtherPart did
=head1 DESCRIPTION
This package simplifies writing "code style kits". A kit (also known
as a "policy") is a module that encapsulates the common pragmas and
lib/Code/Style/Kit.pm view on Meta::CPAN
C<^\w+$>. Some features may be exported by default.
A simple example of a feature, from the synopsis:
sub feature_trytiny_default { 1 }
sub feature_trytiny_export_list { 'Try::Tiny' }
or, equivalently:
sub feature_trytiny_default { 1 }
sub feature_trytiny_export {
my ($self, $caller) = @_;
require Try::Tiny;
Try::Tiny->import::into($caller);
}
The C<feature_*_default> method says that this feature should always
be exported (unless the user explicitly asks us not to). The
C<feature_*_export_list> is a shortcut for the simple case of
view release on metacpan or search on metacpan
lib/Code/TidyAll/Plugin/YAMLFrontMatter.pm view on Meta::CPAN
use Moo;
use Encode qw( decode encode FB_CROAK );
use Path::Tiny qw( path );
use Try::Tiny qw( catch try );
use YAML::PP 0.006 ();
extends 'Code::TidyAll::Plugin';
# This regular expression is based on the regex
view release on metacpan or search on metacpan
lib/Code/TidyAll/Plugin/YAPF.pm view on Meta::CPAN
use warnings;
package Code::TidyAll::Plugin::YAPF;
use IPC::Run3 qw(run3);
use Moo;
use Try::Tiny;
extends 'Code::TidyAll::Plugin';
our $VERSION = '0.18';
sub _build_cmd { 'yapf' }
view release on metacpan or search on metacpan
lib/Code/TidyAll.pm view on Meta::CPAN
use Specio::Library::Builtins;
use Specio::Library::Numeric;
use Specio::Library::Path::Tiny 0.04;
use Specio::Library::String;
use Time::Duration::Parse qw(parse_duration);
use Try::Tiny;
use Moo 2.000000;
our $VERSION = '0.85';
view release on metacpan or search on metacpan
lib/Collectd/Plugins/Riemann/Query.pm view on Meta::CPAN
use warnings;
use Collectd qw( :all );
use Collectd::Plugins::Common qw(recurse_config);
use Riemann::Client;
use Try::Tiny;
#use DDP {
# deparse => 1,
# class => {
# expand => 'all'
# }
view release on metacpan or search on metacpan
t/app/Plack/HTTPParser.t view on Meta::CPAN
left => leaf '@EXPORT',
right => reg_prefix { 'qw',
expr => leaf ' parse_http_request ',
},
},
module { 'Try::Tiny',
},
block { '',
body => if_stmt { 'if',
expr => branch { '&&',
left => single_term_operator { '!',
t/app/Plack/HTTPParser.t view on Meta::CPAN
use strict;
use parent qw(Exporter);
our @EXPORT = qw( parse_http_request );
use Try::Tiny;
{
if (!$ENV{PLACK_HTTP_PARSER_PP} && try { require HTTP::Parser::XS; 1 }) {
*parse_http_request = \&HTTP::Parser::XS::parse_http_request;
} else {
view release on metacpan or search on metacpan
lib/ConditionSystem.pm view on Meta::CPAN
use strict;
use warnings FATAL => 'all';
use Scope::Upper qw( unwind :words );
use Scalar::Util 'blessed';
use Try::Tiny;
use Sub::Exporter -setup => {
exports => [qw( restart with_handlers bind_continue handle restart_case )],
groups => {
default => [qw( restart with_handlers bind_continue handle restart_case )]
lib/ConditionSystem.pm view on Meta::CPAN
my $err = shift;
for my $handles (keys %handlers) {
if($err->isa($handles)) {
my $handler = $handlers{$handles};
$handler = ${$handler}
if blessed($handler) && $handler->isa('Try::Tiny::Catch');
unwind $handler->($err) => UP UP HERE;
return "Well, it should never get here...";
}
}
};
view release on metacpan or search on metacpan
"build_requires" => {
"File::Find" => 0,
"File::Temp" => 0,
"Module::Build" => "0.3601",
"Test::More" => 0,
"Try::Tiny" => 0
},
"configure_requires" => {
"ExtUtils::MakeMaker" => "6.30",
"Module::Build" => "0.3601"
},
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
lib/Config/MVP/Reader/Finder.pm view on Meta::CPAN
#pod
#pod =cut
use Config::MVP::Error;
use Module::Pluggable::Object;
use Try::Tiny;
#pod =method default_search_path
#pod
#pod This is the default search path used to find configuration readers. This
#pod method should return a list, and by default returns:
view release on metacpan or search on metacpan
lib/Config/Model/Tk/Wizard.pm view on Meta::CPAN
package Config::Model::Tk::Wizard 1.379;
use strict;
use warnings;
use Carp;
use Try::Tiny;
use base qw/Tk::Toplevel/;
use vars qw/$icon_path/;
use Log::Log4perl;
view release on metacpan or search on metacpan
lib/Config/Reload.pm view on Meta::CPAN
use Config::ZOMG '1.000000';
use Moo;
use Sub::Quote 'quote_sub';
use Digest::MD5 qw(md5_hex);
use Try::Tiny;
use parent 'Exporter';
our @EXPORT_OK = qw(files_hash);
view release on metacpan or search on metacpan
lib/Config/Station.pm view on Meta::CPAN
use Moo;
use warnings NONFATAL => 'all';
use JSON::MaybeXS;
use IO::All;
use Try::Tiny;
use Module::Runtime 'use_module';
has _debug => (
is => 'ro',
init_arg => undef,
view release on metacpan or search on metacpan
lib/Config/TT2.pm view on Meta::CPAN
use warnings;
package Config::TT2;
use Template;
use Try::Tiny;
use Carp qw(croak);
our $VERSION = '0.53';
=head1 NAME
view release on metacpan or search on metacpan
lib/Config/Wild.pm view on Meta::CPAN
use List::Util qw[ first ];
use File::pushd;
use Path::Tiny qw[ path cwd ];
use Try::Tiny;
use Log::Any '$log';
use namespace::clean;
view release on metacpan or search on metacpan
lib/Config/Yak.pm view on Meta::CPAN
use Config::Any;
use Config::Tiny;
use Hash::Merge;
use Data::Dumper;
use Try::Tiny;
use Data::Structure::Util qw();
subtype 'ArrayRefOfStr',
as 'ArrayRef[Str]';
view release on metacpan or search on metacpan
lib/Confluent/SchemaRegistry.pm view on Meta::CPAN
use warnings;
use JSON::XS;
use REST::Client;
use HTTP::Status qw/:is/;
use Try::Tiny;
use Aspect;
use Avro::Schema;
use version 0.77; our $VERSION = version->declare('v1.0.0');
view release on metacpan or search on metacpan
lib/Consul.pm view on Meta::CPAN
use HTTP::Tiny 0.014;
use URI::Escape qw(uri_escape);
use JSON::MaybeXS qw(JSON);
use Hash::MultiValue;
use Try::Tiny;
use Carp qw(croak);
use Moo;
use Type::Utils qw(class_type);
use Types::Standard qw(Str Int Bool HashRef CodeRef);
view release on metacpan or search on metacpan
lib/Continual/Process/Loop/Mojo.pm view on Meta::CPAN
use parent 'Continual::Process::Loop';
use Mojo::Base 'Mojo::EventEmitter';
use Mojo::IOLoop;
use Try::Tiny;
use Class::Tiny {
on_catch => sub {
Mojo::IOLoop->stop();
die @_;
}
view release on metacpan or search on metacpan
lib/ControlFreak/Logger.pm view on Meta::CPAN
use Carp;
use Log::Log4perl();
use Object::Tiny qw{ config_file };
use Params::Util qw{ _STRING };
use Try::Tiny;
our $CURRENT_SVC_PID;
Log::Log4perl::Layout::PatternLayout::add_global_cspec(
'S', sub { $ControlFreak::Logger::CURRENT_SVC_PID || "-" },
view release on metacpan or search on metacpan
lib/Convert/SSH2.pm view on Meta::CPAN
use Moo;
use MIME::Base64 qw(decode_base64);
use File::Slurp qw(read_file write_file);
use Carp qw(confess);
use Try::Tiny;
use Class::Load qw(load_class);
use Math::BigInt try => 'GMP';
=head1 NAME
lib/Convert/SSH2.pm view on Meta::CPAN
is => 'rw',
);
=head1 METHODS
Generally, errors are fatal. Use L<Try::Tiny> if you want more graceful error handling.
=over
=item new()
view release on metacpan or search on metacpan
lib/Convert/TBX/Basic.pm view on Meta::CPAN
use autodie;
use Path::Tiny;
use Carp;
use Log::Any '$log';
use TBX::Min 0.07;
use Try::Tiny;
use Exporter::Easy (
OK => ['basic2min']
);
use open ':encoding(utf-8)', ':std'; #this ensures output file is UTF-8
view release on metacpan or search on metacpan
"TBX::Checker" => 0,
"Test::Base" => 0,
"Test::Base::Filter" => 0,
"Test::More" => "0.88",
"Test::NoWarnings" => 0,
"Try::Tiny" => 0,
"XML::LibXML" => 0
}
);