Result:
found more than 549 distributions - search limited to the first 2001 files matching your query
( run in 0.492 )
Alzabo-GUI-Mason
view release on metacpan or search on metacpan
- Made it work under Catalyst (sort of) or mod_perl.
0.10 2004-06-29
- If an Alzabo::Exception::RDBMSRules exception is thrown, the full
exception (with stack trace) is now output to STDERR. This helps
debugging in case the exception is due to an error in Alzabo, as
opposed to user error.
- Some submission handling components were redirecting to the wrong
Amazon-CloudFront-SignedURL
view release on metacpan or search on metacpan
use t::Util;
my $private_key = slurp( File::Spec->catfile( dirname(__FILE__), 'test.pem' ) );
subtest 'invalid arguments' => sub {
throws_ok {
Amazon::CloudFront::SignedURL->new();
}
qr/Attribute \(private_key_string\) is required/;
throws_ok {
Amazon::CloudFront::SignedURL->new( private_key_string => $private_key, );
}
qr/Attribute \(key_pair_id\) is required/;
};
Amazon-DynamoDB
view release on metacpan or search on metacpan
Change: e8d62ef4aef5570bb66eeb396d33db8aaed88fd9
Author: Rusty Conover <rusty@luckydinosaur.com>
Date : 2014-05-12 11:45:18 +0000
Don't include keys that are the empty string which throw validation
errors.
Add a bit more type checking
Bump to version 0.11
Amazon-MWS
view release on metacpan or search on metacpan
lib/Amazon/MWS/Client.pm view on Meta::CPAN
The marketplace id for the calls being made by this object.
=head1 EXCEPTIONS
Any of the L<API METHODS> can throw the following exceptions
(Exception::Class). They are all subclasses of Amazon::MWS::Exception.
=head2 Amazon::MWS::Exception::MissingArgument
The call to the API method was missing a required argument. The name of the
lib/Amazon/MWS/Client.pm view on Meta::CPAN
available at $e->errors, and the entire xml response is available at $e->xml.
=head2 Amazon::MWS::Exception::BadChecksum
If Amazon sends the 'Content-MD5' header and it does not match the content,
this exception will be thrown. The response can be found in $e->response.
=head1 INTERNAL METHODS
=head2 agent
Amazon-S3
view release on metacpan or search on metacpan
lib/Amazon/S3/Bucket.pm view on Meta::CPAN
Takes a key and an optional HTTP method and fetches it from
S3. The default HTTP method is GET.
The method returns C<undef> if the key does not exist in the
bucket and throws an exception (dies) on server errors.
On success, the method returns a HASHREF containing:
=over
lib/Amazon/S3/Bucket.pm view on Meta::CPAN
the multipart process will be completed.
=item fh
File handle of an open file. The file must be greater than the minimum
chunk size for multipart uploads otherwise the method will throw an
exception.
=item abort_on_error
Indicates whether the multipart upload should be aborted if an error
Amazon-SES
view release on metacpan or search on metacpan
lib/Email/Sender/Transport/SES.pm view on Meta::CPAN
my $r = $self->call('SendRawEmail', {
'RawMessage.Data' => MIME::Base64::encode_base64($string)
});
$r->is_success or Email::Sender::Failure->throw("couldn't send message via Amazon SES: " . $r->error_message);
return $self->success;
}
no Moo;
Amazon-SQS-Client
view release on metacpan or search on metacpan
bin/QueueDaemon.pl view on Meta::CPAN
=item 7. To exit the daemon when your handler returns a non-true value
set the --exit-when option to 'false' or in the [error] section of your .ini
file, set 'exit = false'.
=item 8. To exit the daemon if your handler throws an exception,
set the --exit-when option to 'error' or in the [error] section of your .ini
file, set 'exit = error'.
=back
Amazon-Sites
view release on metacpan or search on metacpan
t/02-include-exclude.t view on Meta::CPAN
use Test::More import => [qw( done_testing is_deeply ok )];
use Test::Exception;
use Amazon::Sites;
throws_ok { Amazon::Sites->new( include => [ 'UK' ], exclude => [ 'US' ]) }
qr[You can't specify both include and exclude],
'Can\'t specify both include and exclude';
my $sites = Amazon::Sites->new(exclude => [ 'US' ]);
my $az_us = $sites->site('US');
Ambassador-API-V2
view release on metacpan or search on metacpan
lib/Ambassador/API/V2.pm view on Meta::CPAN
my $response = $api->get($method, \%args);
Call an Ambassador API C<$method> with the given C<%args>.
If successful, it returns an L<Ambassdor::API::V2::Response>.
If it fails, it will throw an L<Ambassador::API::V2::Error>.
See the L<Ambassador API docs|https://docs.getambassador.com/docs/>
for what $methods are available, what C<%args> they take, and which
should be called with C<get> or C<post>.
Ambrosia
view release on metacpan or search on metacpan
lib/Ambrosia/Addons/Accessor.pm view on Meta::CPAN
}
sub accessor
{
no warnings;
return __PACKAGE__->instance($PROCESS_MAP{$$} || throw Ambrosia::error::Exception::BadUsage("First access to Ambrosia::Addons::Accessor without assign to access."), @_);
}
}
sub authenticate
{
Amce-CNA
view release on metacpan or search on metacpan
my $x = eval { Thing->deos_stuff };
my $e = $@;
is($x, undef, "the thing doesn't do stuff");
like($e, qr/object method/, "throws exception");
{
package Thing;
require Amce::CNA;
Amce::CNA->import;
Amethyst
view release on metacpan or search on metacpan
Amethyst/Brain/Infobot/Module/Math.pm view on Meta::CPAN
$content =~ s/\s*$//g;
$content =~ s/\s+/ /g;
# print STDERR "Math: Final stage: '$content'\n";
# Now for the throw outs:
return undef if $content !~ /\S/; # Empty
return undef if # Not an exp
$content !~ /^[-+\/\*\d*\.\s()^\|\&]+$/;
return undef if $content !~ /\d/; # Boring
return undef if # Trivial
Amon2-Auth
view release on metacpan or search on metacpan
lib/Amon2/Auth/Site/Twitter.pm view on Meta::CPAN
my $verifier = $c->req->param('oauth_verifier');
my ($access_token, $access_token_secret, $user_id, $screen_name) = eval {
$nt->request_access_token(verifier => $verifier);
};
if ($@) {
# Net::Twitter::Lite throws exception like following
# GET https://twitter.com/oauth/access_token failed: 401 Unauthorized at /Users/tokuhirom/perl5/perlbrew/perls/perl-5.15.2/lib/site_perl/5.15.2/Net/Twitter/Lite.pm line 237.
return $callback->{on_error}->($@);
} else {
return $callback->{on_finished}->($access_token, $access_token_secret, $user_id, $screen_name);
}
Amon2-CLI
view release on metacpan or search on metacpan
lib/Amon2/CLI.pm view on Meta::CPAN
=head1 DESCRIPTION
Amon2::CLI is B<ALPHA QUALITY>. B<I may change interfaces without a notice>.
This module gives you the easy way of CLI for Amon2 App. It handles to load class, to get options and to throw error.
=head1 CONFIGURE PLUGIN
You can write your own C<MyApp::CLI> class for customizing the way instead of C<Amon2::CLI>.
Amon2-Plugin-LogDispatch
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
# Too far in the future, throw an error.
my $t = time;
if ( $s > $t ) { die <<"END_DIE" }
Your installer $0 has a modification time in the future ($s > $t).
Amon2-Plugin-Web-FormValidator-Simple
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
# Too far in the future, throw an error.
my $t = time;
if ( $s > $t ) { die <<"END_DIE" }
Your installer $0 has a modification time in the future ($s > $t).
Amon2-Web-Dispatcher-RouterSimple-Extended
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
# Too far in the future, throw an error.
my $t = time;
if ( $s > $t ) { die <<"END_DIE" }
Your installer $0 has a modification time in the future ($s > $t).
Amon2
view release on metacpan or search on metacpan
lib/Amon2/Setup/Asset/Bootstrap.pm view on Meta::CPAN
sub files { {
"bootstrap/alert.js" => "/*!\n * Bootstrap alert.js v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/bootstra...
"bootstrap/alert.js.map" => "{\"version\":3,\"file\":\"alert.js\",\"sources\":[\"../src/alert.js\"],\"sourcesContent\":[\"/**\\n * --------------------------------------------------------------------------\\n * Bootstrap (v4.4.1): alert.js\\n * Lic...
"bootstrap/button.js" => "/*!\n * Bootstrap button.js v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/bootst...
"bootstrap/button.js.map" => "{\"version\":3,\"file\":\"button.js\",\"sources\":[\"../src/button.js\"],\"sourcesContent\":[\"/**\\n * --------------------------------------------------------------------------\\n * Bootstrap (v4.4.1): button.js\\n *...
"bootstrap/carousel.js" => "/*!\n * Bootstrap carousel.js v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/bo...
"bootstrap/carousel.js.map" => "{\"version\":3,\"file\":\"carousel.js\",\"sources\":[\"../src/carousel.js\"],\"sourcesContent\":[\"/**\\n * --------------------------------------------------------------------------\\n * Bootstrap (v4.4.1): carousel...
"bootstrap/collapse.js" => "/*!\n * Bootstrap collapse.js v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/bo...
"bootstrap/collapse.js.map" => "{\"version\":3,\"file\":\"collapse.js\",\"sources\":[\"../src/collapse.js\"],\"sourcesContent\":[\"/**\\n * --------------------------------------------------------------------------\\n * Bootstrap (v4.4.1): collapse...
"bootstrap/css/bootstrap-grid.css" => "/*!\n * Bootstrap Grid v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors\n * Copyright 2011-2019 Twitter, Inc.\n * Licensed under MIT (https://github.com/twbs/bootstrap/blob/mast...
"bootstrap/css/bootstrap-grid.css.map" => "{\"version\":3,\"sources\":[\"../../scss/bootstrap-grid.scss\",\"bootstrap-grid.css\",\"../../scss/_grid.scss\",\"../../scss/mixins/_grid.scss\",\"../../scss/mixins/_breakpoints.scss\",\"../../scss/_variab...
"bootstrap/css/bootstrap-grid.min.css" => "/*!\n * Bootstrap Grid v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors\n * Copyright 2011-2019 Twitter, Inc.\n * Licensed under MIT (https://github.com/twbs/bootstrap/blob/...
"bootstrap/css/bootstrap-grid.min.css.map" => "{\"version\":3,\"sources\":[\"../../scss/bootstrap-grid.scss\",\"dist/css/bootstrap-grid.css\",\"../../scss/_grid.scss\",\"../../scss/mixins/_grid.scss\",\"../../scss/mixins/_breakpoints.scss\",\"../.....
"bootstrap/css/bootstrap-reboot.css" => "/*!\n * Bootstrap Reboot v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors\n * Copyright 2011-2019 Twitter, Inc.\n * Licensed under MIT (https://github.com/twbs/bootstrap/blob/...
lib/Amon2/Setup/Asset/Bootstrap.pm view on Meta::CPAN
"bootstrap/css/bootstrap-reboot.min.css.map" => "{\"version\":3,\"sources\":[\"../../scss/bootstrap-reboot.scss\",\"../../scss/_reboot.scss\",\"dist/css/bootstrap-reboot.css\",\"../../scss/vendor/_rfs.scss\",\"bootstrap-reboot.css\",\"../../scss/mi...
"bootstrap/css/bootstrap.css" => "/*!\n * Bootstrap v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors\n * Copyright 2011-2019 Twitter, Inc.\n * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE...
"bootstrap/css/bootstrap.css.map" => "{\"version\":3,\"sources\":[\"../../scss/bootstrap.scss\",\"bootstrap.css\",\"../../scss/_root.scss\",\"../../scss/_reboot.scss\",\"../../scss/_variables.scss\",\"../../scss/vendor/_rfs.scss\",\"../../scss/mixi...
"bootstrap/css/bootstrap.min.css" => "/*!\n * Bootstrap v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors\n * Copyright 2011-2019 Twitter, Inc.\n * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LIC...
"bootstrap/css/bootstrap.min.css.map" => "{\"version\":3,\"sources\":[\"../../scss/bootstrap.scss\",\"../../scss/_root.scss\",\"../../scss/_reboot.scss\",\"dist/css/bootstrap.css\",\"../../scss/vendor/_rfs.scss\",\"bootstrap.css\",\"../../scss/mixi...
"bootstrap/dropdown.js" => "/*!\n * Bootstrap dropdown.js v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/bo...
"bootstrap/dropdown.js.map" => "{\"version\":3,\"file\":\"dropdown.js\",\"sources\":[\"../src/dropdown.js\"],\"sourcesContent\":[\"/**\\n * --------------------------------------------------------------------------\\n * Bootstrap (v4.4.1): dropdown...
"bootstrap/index.js" => "/**\n * --------------------------------------------------------------------------\n * Bootstrap (v4.4.0): index.js\n * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE)\n * ------------------------...
"bootstrap/index.js.map" => "{\"version\":3,\"sources\":[\"../src/index.js\"],\"names\":[\"\$\",\"TypeError\",\"version\",\"fn\",\"jquery\",\"split\",\"minMajor\",\"ltMajor\",\"minMinor\",\"minPatch\",\"maxMajor\",\"Error\"],\"mappings\":\"AAaA;;;;...
"bootstrap/js/bootstrap.bundle.js" => "/*!\n * Bootstrap v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/boo...
"bootstrap/js/bootstrap.bundle.js.map" => "{\"version\":3,\"file\":\"bootstrap.bundle.js\",\"sources\":[\"../../js/src/util.js\",\"../../js/src/alert.js\",\"../../js/src/button.js\",\"../../js/src/carousel.js\",\"../../js/src/collapse.js\",\"../../...
"bootstrap/js/bootstrap.bundle.min.js" => "/*!\n * Bootstrap v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs...
"bootstrap/js/bootstrap.bundle.min.js.map" => "{\"version\":3,\"sources\":[\"../../js/src/util.js\",\"../../js/src/alert.js\",\"../../js/src/button.js\",\"../../js/src/carousel.js\",\"../../js/src/collapse.js\",\"../../node_modules/popper.js/dist/e...
"bootstrap/js/bootstrap.js" => "/*!\n * Bootstrap v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/bootstrap/...
"bootstrap/js/bootstrap.js.map" => "{\"version\":3,\"file\":\"bootstrap.js\",\"sources\":[\"../../js/src/util.js\",\"../../js/src/alert.js\",\"../../js/src/button.js\",\"../../js/src/carousel.js\",\"../../js/src/collapse.js\",\"../../js/src/dropdow...
"bootstrap/js/bootstrap.min.js" => "/*!\n * Bootstrap v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/bootst...
"bootstrap/js/bootstrap.min.js.map" => "{\"version\":3,\"sources\":[\"../../js/src/util.js\",\"../../js/src/alert.js\",\"../../js/src/button.js\",\"../../js/src/carousel.js\",\"../../js/src/collapse.js\",\"../../js/src/dropdown.js\",\"../../js/src/...
"bootstrap/modal.js" => "/*!\n * Bootstrap modal.js v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/bootstra...
"bootstrap/modal.js.map" => "{\"version\":3,\"file\":\"modal.js\",\"sources\":[\"../src/modal.js\"],\"sourcesContent\":[\"/**\\n * --------------------------------------------------------------------------\\n * Bootstrap (v4.4.1): modal.js\\n * Lic...
"bootstrap/popover.js" => "/*!\n * Bootstrap popover.js v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/boot...
"bootstrap/popover.js.map" => "{\"version\":3,\"file\":\"popover.js\",\"sources\":[\"../src/popover.js\"],\"sourcesContent\":[\"/**\\n * --------------------------------------------------------------------------\\n * Bootstrap (v4.4.1): popover.js\...
"bootstrap/scrollspy.js" => "/*!\n * Bootstrap scrollspy.js v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/...
"bootstrap/scrollspy.js.map" => "{\"version\":3,\"file\":\"scrollspy.js\",\"sources\":[\"../src/scrollspy.js\"],\"sourcesContent\":[\"/**\\n * --------------------------------------------------------------------------\\n * Bootstrap (v4.4.1): scrol...
"bootstrap/tab.js" => "/*!\n * Bootstrap tab.js v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/bootstrap/bl...
"bootstrap/tab.js.map" => "{\"version\":3,\"file\":\"tab.js\",\"sources\":[\"../src/tab.js\"],\"sourcesContent\":[\"/**\\n * --------------------------------------------------------------------------\\n * Bootstrap (v4.4.1): tab.js\\n * Licensed un...
"bootstrap/toast.js" => "/*!\n * Bootstrap toast.js v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/bootstra...
"bootstrap/toast.js.map" => "{\"version\":3,\"file\":\"toast.js\",\"sources\":[\"../src/toast.js\"],\"sourcesContent\":[\"/**\\n * --------------------------------------------------------------------------\\n * Bootstrap (v4.4.1): toast.js\\n * Lic...
"bootstrap/tooltip.js" => "/*!\n * Bootstrap tooltip.js v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/boot...
"bootstrap/tooltip.js.map" => "{\"version\":3,\"file\":\"tooltip.js\",\"sources\":[\"../src/tools/sanitizer.js\",\"../src/tooltip.js\"],\"sourcesContent\":[\"/**\\n * --------------------------------------------------------------------------\\n * B...
"bootstrap/util.js" => "/*!\n * Bootstrap util.js v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/bootstrap/...
"bootstrap/util.js.map" => "{\"version\":3,\"file\":\"util.js\",\"sources\":[\"../src/util.js\"],\"sourcesContent\":[\"/**\\n * --------------------------------------------------------------------------\\n * Bootstrap (v4.4.1): util.js\\n * License...
}
}
sub run {
my ($class, $flavor) = @_;
Analizo
view release on metacpan or search on metacpan
t/Analizo/Command.t view on Meta::CPAN
is($return, "command fake executed");
}
sub executing_commands_with_version_argument_is_not_allowed : Tests {
my $analizo = Analizo->new;
throws_ok {
$analizo->execute_command( $analizo->prepare_command('fake', '--version') )
} qr /Invalid option/;
}
__PACKAGE__->runtests;
Anarres-Mud-Driver
view release on metacpan or search on metacpan
lib/Driver/Compiler/Node.pm view on Meta::CPAN
package Anarres::Mud::Driver::Compiler::Node;
# A lot of things throw code into this package's namespace.
use strict;
use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS @NODETYPES);
use Exporter;
use Carp qw(confess);
Android-ElectricSheep-Automator
view release on metacpan or search on metacpan
lib/Android/ElectricSheep/Automator/ADB.pm view on Meta::CPAN
}
my $res = eval {
IPC::Run::run(
\@cmd,
\$in, \$out, \$err,
# AHP: on timeout it throws an exception matching
# /^IPC::Run: .*timed out/
# or specify your own exception name (see doc)
# I can't find what unit the timeout interval is!
IPC::Run::timeout(1000)
)
Aniki
view release on metacpan or search on metacpan
t/lib/t/DB.pm view on Meta::CPAN
if (t::DB::Exception->caught($reason)) {
Test::Builder->new->note($reason->message);
Test::Builder->new->plan(skip_all => "Cannot use $database");
return;
}
die $reason; # rethrow
}
$subclass->$code($database);
});
}
}
t/lib/t/DB.pm view on Meta::CPAN
if ($schema_class->context->db eq 'MySQL') {
eval {
require DBD::mysql;
require Test::mysqld;
};
t::DB::Exception->throw(message => $@) if $@;
Test::Builder->new->note('launch mysqld ...');
my $mysqld = Test::mysqld->new(
my_cnf => {
'skip-networking' => '', # no TCP socket
}
);
t::DB::Exception->throw(message => $Test::mysqld::errstr) unless $mysqld;
my $dbh = DBI->connect($mysqld->dsn(dbname => 'test'), 'root', '', {
AutoCommit => 1,
PrintError => 0,
RaiseError => 1,
t/lib/t/DB.pm view on Meta::CPAN
elsif ($schema_class->context->db eq 'PostgreSQL') {
eval {
require DBD::Pg;
require Test::postgresql;
};
t::DB::Exception->throw(message => $@) if $@;
Test::Builder->new->note('launch postgresql ...');
my $pgsql = Test::postgresql->new();
t::DB::Exception->throw(message => $Test::postgresql::errstr) unless $pgsql;
my $dbh = DBI->connect($pgsql->dsn, '', '', {
AutoCommit => 1,
PrintError => 0,
RaiseError => 1,
Anki-Import
view release on metacpan or search on metacpan
lib/Anki/Import.pm view on Meta::CPAN
# functions for first pass parsing of source data
sub validate_src_file {
logi('Validating source file');
# throw error if file is empty
logf('Source data file is empty.') if !$lines[0];
# outer loop for parsing notes
my %fields; # keeps track of number of fields for each type of note
while (next_line()) {
lib/Anki/Import.pm view on Meta::CPAN
section. If no note types are indicated in your source file, the
"Basic" note type is used.
Note types are used to help C<Anki::Import> ensure other notes of the same type
have the same number of fields. If the notes assigned to a particular note type
do not all have the same number of fields, an error is thrown so be sure each
note has the correct number of fields.
Note: note type sections can be split across the file (i.e. you do not have to
group the notes of a particular note type together).
Announcements
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
# Too far in the future, throw an error.
my $t = time;
if ( $s > $t ) { die <<"END_DIE" }
Your installer $0 has a modification time in the future ($s > $t).
Any-Daemon
view release on metacpan or search on metacpan
lib/Any/Daemon.pm view on Meta::CPAN
{ # re-seed the random number sequence per process
srand(time+$$);
# unhandled errors are to be treated seriously.
my $rc = try { $child_task->(@_) };
if(my $e = $@->wasFatal) { $e->throw(reason => 'ALERT'); $rc = 1 }
$rc;
};
$SIG{CHLD} = sub { $child_died->($max_childs, $run_child) };
$SIG{HUP} = sub
lib/Any/Daemon.pm view on Meta::CPAN
my ($self, $run_task, %args) = @_;
my $reconfig = $self->_mkcall($args{reconfig} || 'reconfigDaemon');
# unhandled errors are to be treated seriously.
my $rc = try { $run_task->(@_) };
if(my $e = $@->wasFatal) { $e->throw(reason => 'ALERT'); $rc = 1 }
$SIG{HUP} = sub
{ notice "daemon received signal HUP";
$reconfig->(keys %childs);
};
Any-Moose-Convert
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
# Too far in the future, throw an error.
my $t = time;
if ( $s > $t ) { die <<"END_DIE" }
Your installer $0 has a modification time in the future ($s > $t).
Any-Renderer
view release on metacpan or search on metacpan
t/Any_Renderer.t view on Meta::CPAN
eval
{
new Any::Renderer ();
};
ASSERT ( $@, "No rendering format requested request throws an error?" );
eval
{
new Any::Renderer ( "!!!");
};
ASSERT ( $@, "Invalid rendering format request throws an error?" );
sub intersects {
my($lhs, $rhs) = @_;
foreach (keys %$lhs) {
return 0 if(exists $rhs->{$_} && ! EQUAL($lhs->{$_}, $rhs->{$_}));
AnyEvent-APNS
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
# Too far in the future, throw an error.
my $t = time;
if ( $s > $t ) { die <<"END_DIE" }
Your installer $0 has a modification time in the future ($s > $t).
AnyEvent-AggressiveIdle
view release on metacpan or search on metacpan
lib/AnyEvent/AggressiveIdle.pm view on Meta::CPAN
....
stop_aggressive_idle $pid;
}
The function will throw an exception if invalid PID is received.
=head1 Continuous process.
Sometimes You need to to something continuous inside idle callback. If
You want to stop idle calls until You have done Your work, You can hold
AnyEvent
view release on metacpan or search on metacpan
lib/AnyEvent.pm view on Meta::CPAN
caller to do that if required. The L<AnyEvent::Strict> module (see also
the C<PERL_ANYEVENT_STRICT> environment variable, below) provides strict
checking of all AnyEvent methods, however, which is highly useful during
development.
As for exception handling (i.e. runtime errors and exceptions thrown while
executing a callback), this is not only highly event-loop specific, but
also not in any way wrapped by this module, as this is the job of the main
program.
The pure perl event loop simply re-throws the exception (usually
within C<< condvar->recv >>), the L<Event> and L<EV> modules call C<<
$Event/EV::DIED->() >>, L<Glib> uses C<< install_exception_handler >> and
so on.
=head1 ENVIRONMENT VARIABLES
lib/AnyEvent.pm view on Meta::CPAN
When set to C<0> (C<off>), then no messages whatsoever will be logged with
everything else at defaults.
When set to C<5> or higher (C<warn>), AnyEvent warns about unexpected
conditions, such as not being able to load the event model specified by
C<PERL_ANYEVENT_MODEL>, or a guard callback throwing an exception - this
is the minimum recommended level for use during development.
When set to C<7> or higher (info), AnyEvent reports which event model it
chooses.
lib/AnyEvent.pm view on Meta::CPAN
$txn->{finished}->recv;
return $txn->{result};
The actual code goes further and collects all errors (C<die>s, exceptions)
that occurred during request processing. The C<result> method detects
whether an exception as thrown (it is stored inside the $txn object)
and just throws the exception, which means connection errors and other
problems get reported to the code that tries to use the result, not in a
random callback.
All of this enables the following usage styles:
( run in 0.492 second using v1.01-cache-2.11-cpan-496ff517765 )