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).
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).
view release on metacpan or search on metacpan
share/js/core/ajax.js view on Meta::CPAN
lib.displayError(data.payload.message);
}
return;
}
console.log("AJAX unexpected success response ->" + textStatus + "<- with data", data);
throw textStatus;
})
.fail(function (data, textStatus) {
console.log("AJAX failure", data);
lib.displayResult(textStatus);
logout();
view release on metacpan or search on metacpan
share/public_html/static/browse_gazelle_music.html view on Meta::CPAN
.then(res => res.json())
.then((out) => {
console.log('Checkout this JSON! ', out);
dirsplayjson(out);
})
.catch(err => { throw err });
}
</script>
view release on metacpan or search on metacpan
t/lib/Test/App/MP4Meta/Source/Base.pm view on Meta::CPAN
sub get_film : Test(1) {
my $self = shift;
my $base = $self->{base};
throws_ok { $base->get_film( {} ) } qr/no title/, 'no title';
}
sub get_tv_episode : Test(3) {
my $self = shift;
my $base = $self->{base};
throws_ok { $base->get_tv_episode( {} ) } qr/no title/, 'no title';
throws_ok { $base->get_tv_episode( { show_title => 'foo' } ) }
qr/no season/,
'no season';
throws_ok { $base->get_tv_episode( { show_title => 'foo', season => 1 } ) }
qr/no episode/, 'no episode';
}
1;
view release on metacpan or search on metacpan
lib/App/MaMGal.pm view on Meta::CPAN
};
my $e;
if ($e = Exception::Class->caught('App::MaMGal::SystemException')) {
$self->{logger}->log_exception($e);
} elsif ($e = Exception::Class->caught) {
ref $e ? $e->rethrow : die $e;
}
1;
}
1;
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).
view release on metacpan or search on metacpan
lib/App/MatrixTool/Command/client/list_rooms.pm view on Meta::CPAN
{
my $self = shift;
# the Matrix spec doesn't have a nice way to ask what rooms I'm a member
# of. About the best we can do is a /sync request with a filter that asks
# for just the m.room.create event in each room while throwing away all the
# timeline, account_data and presence.
# See also
# https://github.com/matrix-org/matrix-doc/issues/734
$self->do_json( GET => "/_matrix/client/r0/sync",
view release on metacpan or search on metacpan
Revision history for App-MechaCPAN
0.30 2023-08-22 22:29:58 EDT
- Document the new prebuilt binary feature
- Make the binary download feature not the default for the time being
- Improve the binary download process not to throw an error when not found
- Move --build-reusable to a global option --build-reusable-perl
0.29 2023-04-18 23:32:58 EDT
- Add support to install from a cpanfile without using Deploy
- Add feature to download prebuilt binries for popular linux distros
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).
view release on metacpan or search on metacpan
anything else that DBI supports) and set various paramters. Here is a partial list:
### min_sequence_input_length 6
This sets the smallest sequence input length. If a sequence smaller than this length
is submitted, an exception is thrown and an error page is shown to the user.
### allow_anonymous 1
Whether to allow anonymous people (those that have not authenticated) to submit
jobs for reports.
view release on metacpan or search on metacpan
t/get_config.t view on Meta::CPAN
use_ok( 'App::Module::Template', '_get_config' );
ok( my $config_file = File::Spec->catfile( File::Spec->curdir, 't/.module-template/config' ), 'set config file' );
throws_ok{ _get_config() } qr/\ACould not read configuration file/, 'fails without config file';
ok( my $cfg = _get_config($config_file), 'get config file' );
is( ref $cfg, 'HASH', 'returns hash reference' );
view release on metacpan or search on metacpan
lib/App/MojoSlides/files/public/bootstrap.min.js view on Meta::CPAN
/**
* bootstrap.js v3.0.0 by @fat and @mdo
* Copyright 2013 Twitter Inc.
* http://www.apache.org/licenses/LICENSE-2.0
*/
if(!jQuery)throw new Error("Bootstrap requires jQuery");+function(a){"use strict";function b(){var a=document.createElement("bootstrap"),b={WebkitTransition:"webkitTransitionEnd",MozTransition:"transitionend",OTransition:"oTransitionEnd otransitionen...
view release on metacpan or search on metacpan
lib/App/MtAws/Glacier/ListJobs.pm view on Meta::CPAN
return if $self->{data};
$self->{data} = JSON::XS->new->allow_nonref->decode(${ delete $self->{rawdata} || confess });
# get rid of JSON::XS boolean object, just in case.
# also JSON::XS between versions 1.0 and 2.1 (inclusive) do not allow to modify this field
# (modification of read only error thrown)
$_->{Completed} = !!(delete $_->{Completed}) for @{$self->{data}{JobList}};
}
sub _completed
view release on metacpan or search on metacpan
t/emit-json.t view on Meta::CPAN
alarm 5;
ok my $ret = IPC::Transit::receive(qname => 'test_out');
is $ret->{runner_message_type}, undef, 'first message correctly has no defined runner_message_type';
};
alarm 0;
ok !$@, 'no exception thrown';
ok IPC::Transit::send(qname => 'tqueue', message => {
'.multimodule' => {
control => [
view release on metacpan or search on metacpan
lib/App/Multigit.pm view on Meta::CPAN
->else([qw{git rebase --abort])
->then($repo->curry::report)
;
});
The failure is thrown in a manner that conforms to the expected Future fail
interface, i.e. there is an error message and an error code in there. Following
these is the C<%data> hash that is consistent to all invocations of C<run>. That
means that when you do C<else>, you should be aware that there will be two extra
parameters at the start of the argument list.
view release on metacpan or search on metacpan
lib/ChordPro/lib/JSON/Relaxed.pm view on Meta::CPAN
With option C<prp>, unquoted C<on> is the same as C<true>, and C<off>
is the same as C<false>.
=head1 ERROR HANDLING
If the document cannot be parsed, JSON::Relaxed will throw an
exception.
In legacy mode, JSON::Relaxed returns an undefined
value and sets error indicators in $JSON::Relaxed::err_id and
$JSON::Relaxed::err_msg.
view release on metacpan or search on metacpan
command {
args => [qw(i*)],
stdout => "c dis fis\n",
};
# XXX think about what I* would mean...major 3rd but dim 5th? or throw
# exception for unknown chord?
done_testing 84
view release on metacpan or search on metacpan
transform either surrounded by parentheses or preceded by a comma. Unknown
parameters are ignored.
Not all transforms have an reverse transforms. For example, the I<hash>
transform, which implements cryptographic hashes, is not practically invertible
(we hope). An exception will be thrown if you attempt to use an invalid
transform.
Generally, a reverse transform will decode any variant of the forward transform.
To preserve this invariant, related but incompatible transforms such as base64
and url64 are separate transforms.
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).
view release on metacpan or search on metacpan
public/javascripts/ace.js view on Meta::CPAN
(function(){function o(n){var i=e;n&&(e[n]||(e[n]={}),i=e[n]);if(!i.define||!i.define.packaged)t.original=i.define,i.define=t,i.define.packaged=!0;if(!i.require||!i.require.packaged)r.original=i.require,i.require=r,i.require.packaged=!0}var ACE_NAMES...
window.require(["ace/ace"], function(a) {
if (a) {
a.config.init(true);
a.define = window.define;
}