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
lib/Captcha/reCAPTCHA/V3.pm view on Meta::CPAN
our $VERSION = "0.14";
use Carp qw(carp croak);
use JSON::MaybeXS;
use Try::Tiny;
use overload(
'""' => sub { $_[0]->name() },
'cmp' => sub { $_[0]->name() cmp $_[1] },
);
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';
view release on metacpan or search on metacpan
lib/Carmel.pm view on Meta::CPAN
> git pull
> carmel install
> carmel exec starman -p 8080 myapp.psgi
# Add a new dependency
> echo "requires 'Try::Tiny';" >> cpanfile
> carmel install
> git commit -am 'Add Try::Tiny'
# Update Plack to the latest
> carmel update Plack
=head2 Production Deployments
view release on metacpan or search on metacpan
t/10-parse_stack_trace.t view on Meta::CPAN
"[redacted]",
"username",
"[redacted]",
],
[],
[ "CODE(0xb3d4f48)", "Try::Tiny::Finally=REF(0xaf503f0)" ],
];
subtest(
'Sensitive information is redacted out.',
sub
t/10-parse_stack_trace.t view on Meta::CPAN
Test.
at test/lib/Spock/test.t line 116
main::test_trace('gift_message', 'Happy\x{a}Birthday\x{a}\x{9}Love,\x{a}\x{9}Timmy', 'password', 'thereisnotry', 'planet', 'degobah', 'ship_zip', 01138, 'username', 'yoda') called at test/lib/Spock/test.t line 61
main::__ANON__() called at /home/spock/site_perl/5.14.2/Try/Tiny.pm line 76
eval {...} called at /home/spock/site_perl/5.14.2/Try/Tiny.pm line 67
Try::Tiny::try('CODE(0xb3d4f48)', 'Try::Tiny::Finally=REF(0xaf503f0)') called at test/lib/Spock/test.t line 69
view release on metacpan or search on metacpan
t/10-parse_stack_trace-single_quotes.t view on Meta::CPAN
bless(
{
arguments_list =>
[
"CODE(0xb3d4f48)",
"Try::Tiny::Finally=REF(0xaf503f0)",
],
arguments_string => "'CODE(0xb3d4f48)', 'Try::Tiny::Finally=REF(0xaf503f0)'",
line => "Try::Tiny::try('CODE(0xb3d4f48)', 'Try::Tiny::Finally=REF(0xaf503f0)') called at test/lib/Spock/test.t line 69",
},
'Carp::Parse::CallerInformation',
),
],
'The parsed stack trace matches the expected output.'
t/10-parse_stack_trace-single_quotes.t view on Meta::CPAN
Test.
at test/lib/Spock/test.t line 116
main::test_trace('gift_message', 'Happy\x{a}Birthday\x{a}\x{9}Love,\x{a}\x{9}Timmy', 'password', 'thereisnotry', 'planet', 'degobah', 'ship_zip', 01138, 'username', 'yoda', 'empty', '') called at test/lib/Spock/test.t line 61
main::__ANON__() called at /home/spock/site_perl/5.14.2/Try/Tiny.pm line 76
eval {...} called at /home/spock/site_perl/5.14.2/Try/Tiny.pm line 67
Try::Tiny::try('CODE(0xb3d4f48)', 'Try::Tiny::Finally=REF(0xaf503f0)') called at test/lib/Spock/test.t line 69
view release on metacpan or search on metacpan
lib/Carp/Proxy.pm view on Meta::CPAN
=head2 arg
I<arg> holds the value of Perl's B<$ARG ($_)>, as harvested from the
invoking environment. This can be handy if you are using
B<Try::Tiny>.
=over 4
=item Builder: None; L<new()|/new> requires I<arg> specification.
view release on metacpan or search on metacpan
lib/Carton/CLI.pm view on Meta::CPAN
use strict;
use warnings;
use Config;
use Getopt::Long;
use Path::Tiny;
use Try::Tiny;
use Module::CoreList;
use Scalar::Util qw(blessed);
use Carton;
use Carton::Builder;
view release on metacpan or search on metacpan
lib/Catalyst/ActionRole/BuildDBICResult.pm view on Meta::CPAN
our $VERSION = '0.04';
use Moose::Role;
use namespace::autoclean;
use Try::Tiny qw(try catch);
use Perl6::Junction qw(any all);
use Catalyst::ActionRole::BuildDBICResult::Types qw(:all);
requires 'name', 'dispatch', 'attributes';
view release on metacpan or search on metacpan
lib/Catalyst/ActionRole/DetachOnDie.pm view on Meta::CPAN
package Catalyst::ActionRole::DetachOnDie;
{
$Catalyst::ActionRole::DetachOnDie::VERSION = '0.001006';
}
use Moose::Role;
use Try::Tiny;
use Scalar::Util qw(blessed);
# ABSTRACT: If something dies in a chain, stop the chain. DEPRECATED IN FAVOR OF CATALYST 5.90040
around execute => sub {
view release on metacpan or search on metacpan
lib/Catalyst/Authentication/Store/CouchDB/User.pm view on Meta::CPAN
use MooseX::NonMoose 0.20;
use CouchDB::Client 0.09 qw ();
use Catalyst::Exception;
use Catalyst::Utils;
use JSON 2.17 qw ();
use Try::Tiny 0.09;
use namespace::autoclean;
extends 'Catalyst::Authentication::User';
view release on metacpan or search on metacpan
lib/Catalyst/Authentication/Store/DBIx/Class/User.pm view on Meta::CPAN
use Moose;
use namespace::autoclean;
extends 'Catalyst::Authentication::User';
use List::MoreUtils 'all';
use Try::Tiny;
has 'config' => (is => 'rw');
has 'resultset' => (is => 'rw');
has '_user' => (is => 'rw');
has '_roles' => (is => 'rw');
view release on metacpan or search on metacpan
lib/Catalyst/Controller/AutoAssets/Handler.pm view on Meta::CPAN
use Carp;
use File::stat qw(stat);
use Catalyst::Utils;
use Time::HiRes qw(gettimeofday tv_interval);
use Storable qw(store retrieve);
use Try::Tiny;
use Data::Dumper::Concise 'Dumper';
require Digest::SHA1;
require MIME::Types;
require Module::Runtime;
view release on metacpan or search on metacpan
lib/Catalyst/Controller/DBIC/API.pm view on Meta::CPAN
use JSON::MaybeXS ();
use Test::Deep::NoTest('eq_deeply');
use MooseX::Types::Moose(':all');
use Moose::Util;
use Scalar::Util( 'blessed', 'reftype' );
use Try::Tiny;
use Catalyst::Controller::DBIC::API::Request;
use DBIx::Class::ResultSet::RecursiveUpdate;
use namespace::autoclean;
has '_json' => (
view release on metacpan or search on metacpan
lib/Catalyst/Controller/DirectoryDispatch.pm view on Meta::CPAN
$Catalyst::Controller::DirectoryDispatch::VERSION = '1.03';
use Moose;
BEGIN { extends 'Catalyst::Controller' }
use JSON;
use Try::Tiny;
use namespace::autoclean;
__PACKAGE__->config(
'default' => 'application/json',
'stash_key' => 'response',
view release on metacpan or search on metacpan
lib/Catalyst/Controller/SimpleCAS.pm view on Meta::CPAN
with 'Catalyst::Controller::SimpleCAS::Role::TextTranscode';
use Catalyst::Controller::SimpleCAS::Content;
use Module::Runtime;
use Try::Tiny;
use Catalyst::Utils;
use Path::Class qw(file dir);
use JSON;
use MIME::Base64;
use String::Random;
view release on metacpan or search on metacpan
lib/Catalyst/Helper/Model/DBIC/Schema.pm view on Meta::CPAN
use MooseX::Types::Moose qw/Str HashRef Bool ArrayRef/;
use Catalyst::Model::DBIC::Schema::Types 'CreateOption';
use List::MoreUtils 'firstidx';
use Scalar::Util 'looks_like_number';
use File::Find 'finddepth';
use Try::Tiny;
use Cwd 'getcwd';
use Module::Runtime 'use_module';
=head1 NAME
view release on metacpan or search on metacpan
lib/Catalyst/Plugin/Authentication/Credential/GooglePlus.pm view on Meta::CPAN
use JSON::WebToken;
use JSON::MaybeXS;
use MIME::Base64;
use LWP::Simple qw(get);
use Date::Parse qw(str2time);
use Try::Tiny;
use strictures 1;
our $VERSION = 0.1;
view release on metacpan or search on metacpan
lib/Catalyst/Authentication/Credential/Remote.pm view on Meta::CPAN
use Moose;
use namespace::autoclean;
with 'MooseX::Emulate::Class::Accessor::Fast';
use Try::Tiny qw/ try catch /;
__PACKAGE__->mk_accessors(
qw/allow_re deny_re cutname_re source realm username_field/);
sub new {
view release on metacpan or search on metacpan
lib/Catalyst/Plugin/BigSitemap/SitemapBuilder.pm view on Meta::CPAN
use Modern::Perl '2010';
use WWW::Sitemap::XML;
use WWW::Sitemap::XML::URL;
use WWW::SitemapIndex::XML;
use Carp;
use Try::Tiny;
use Data::Dumper;
use Moose;
=head1 NAME
view release on metacpan or search on metacpan
lib/Catalyst/Plugin/JSONRPC/Server/Dispatcher.pm view on Meta::CPAN
package Catalyst::Plugin::JSONRPC::Server::Dispatcher;
use v5.36;
use Moo;
use JSON::MaybeXS ();
use Try::Tiny;
use Carp qw/croak/;
use Scalar::Util qw/blessed/;
use Catalyst::Plugin::JSONRPC::Server::Error;
use namespace::clean;
view release on metacpan or search on metacpan
lib/Catalyst/Plugin/OAuth2/AuthorizationServer.pm view on Meta::CPAN
package Catalyst::Plugin::OAuth2::AuthorizationServer;
use v5.36;
use Scalar::Util qw/blessed/;
use JSON::MaybeXS ();
use Try::Tiny;
use URI;
use Catalyst::Plugin::OAuth2::AuthorizationServer::Server;
use Catalyst::Plugin::OAuth2::AuthorizationServer::Error;
our $VERSION = '0.003';
view release on metacpan or search on metacpan
lib/Catalyst/Plugin/OAuth2/ResourceServer.pm view on Meta::CPAN
package Catalyst::Plugin::OAuth2::ResourceServer;
use v5.36;
use Scalar::Util qw/blessed/;
use JSON::MaybeXS ();
use Try::Tiny;
use URI ();
use Catalyst::Plugin::OAuth2::ResourceServer::Server;
use Catalyst::Plugin::OAuth2::ResourceServer::Error;
our $VERSION = '0.003';
view release on metacpan or search on metacpan
lib/Catalyst/Plugin/OIDC.pm view on Meta::CPAN
use Catalyst::Action;
use Carp qw(croak);
use Clone qw(clone);
use List::Util qw(first);
use Scalar::Util qw(blessed);
use Try::Tiny;
use OIDC::Client;
use OIDC::Client::Plugin;
use OIDC::Client::Error;
use OIDC::Client::Error::Authentication;
view release on metacpan or search on metacpan
lib/Catalyst/Plugin/OpenIDConnect.pm view on Meta::CPAN
use Catalyst::Plugin::OpenIDConnect::Utils::Store;
use Catalyst::Plugin::OpenIDConnect::Role::Store;
use Crypt::OpenSSL::RSA;
use Crypt::PK::RSA;
use JSON::MaybeXS qw(encode_json decode_json);
use Try::Tiny;
use DateTime;
use DateTime::Format::ISO8601;
use Data::UUID;
use URI;
view release on metacpan or search on metacpan
lib/Catalyst/Plugin/Session/DynamicExpiry.pm view on Meta::CPAN
package Catalyst::Plugin::Session::DynamicExpiry;
use Moose;
use MRO::Compat;
use Try::Tiny;
use namespace::autoclean;
our $VERSION='0.04';
has [qw/_session_time_to_live/] => ( is => 'rw' );
view release on metacpan or search on metacpan
lib/Catalyst/Plugin/Session/Store/Redis.pm view on Meta::CPAN
/;
use MRO::Compat;
use MIME::Base64 qw(encode_base64 decode_base64);
use Redis;
use Storable qw/nfreeze thaw/;
use Try::Tiny;
__PACKAGE__->mk_classdata(qw/_session_redis_storage/);
sub get_session_data {
my ($c, $key) = @_;