view release on metacpan or search on metacpan
lib/DBIx/UserDB.pm view on Meta::CPAN
This method creates a user with the information specified in the hash
reference in the database. In the user's hash, at least the fields
I<username> and I<password> should be set.
The methods return true on success and false if there is already a
username with that name in the database. Exception are thrown on
database errors. Additionally, on return, the method will add the UID
of the newly created user.
=cut
view release on metacpan or search on metacpan
lib/Apache2/API/Request.pm view on Meta::CPAN
my @body_names = $req->body;
my @body_names = %$body;
would yield the same thing.
This will throw an L<APR::Request::Error> object whenever L</body_status> returns a non-zero value.
Check L<Apache2::Request> and L<APR::Table> for more information.
=head2 body_status
view release on metacpan or search on metacpan
lib/Apache2/ASP/GlobalASA.pm view on Meta::CPAN
=head2 Script_OnEnd
Called after the script has ended, B<before> any C<PerlCleanupHandler>s are called.
B<NOTE>: This event is not raised if an error is thrown while executing the request.
=head1 BUGS
It's possible that some bugs have found their way into this release.
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
$secret_key, );
};
Test::More::like(
$EVAL_ERROR,
qr/Unsupported encryption type: '$unsupported_type'/,
'_get_cipher_for_type() throws exception on unsupported encryption type.'
);
return TRUE;
}
sub test_get_crypted_password {
view release on metacpan or search on metacpan
is ( 'login_name', $user );
is ( 'role1,role2,role3', $roles );
} 'check_cookie valid';
throws_ok {
Crypt::OdinAuth::check_cookie(
'secret',
Crypt::OdinAuth::cookie_for(
'a_different_secret', 'login_name', 'role1,role2,role3', 'netcat'),
'netcat')
} qr/^Invalid signature$/;
throws_ok {
Crypt::OdinAuth::check_cookie(
'secret',
Crypt::OdinAuth::cookie_for(
'secret', 'login_name', 'role1,role2,role3', 'netcat',
time()-2*Crypt::OdinAuth::OLD_COOKIE),
'netcat')
} qr/^Cookie is old$/;
throws_ok {
Crypt::OdinAuth::check_cookie(
'secret',
Crypt::OdinAuth::cookie_for(
'secret', 'login_name', 'role1,role2,role3', 'netcat', time()+10*60),
'netcat')
view release on metacpan or search on metacpan
lib/Apache2/Authen/Passphrase.pm view on Meta::CPAN
Sets the password of $username to $password.
=item B<pwcheck>(I<$username>, I<$password>)
Checks the given username and password, throwing an exception if the username is invalid or the password is incorrect.
=item B<handler>
The PerlAuthenHandler for use in apache2. It uses Basic Access Authentication.
lib/Apache2/Authen/Passphrase.pm view on Meta::CPAN
A regex that matches valid usernames. Usernames must be at least 2 characters, at most 20 characters, and they may only contain word characters (C<[A-Za-z0-9_]>).
=item B<INVALID_USER>
Exception thrown if the username does not match C<USER_REGEX>.
=item B<BAD_PASSWORD>
Exception thrown if the password is different from the one stored in the user's yml file.
=item B<PASSPHRASE_VERSION>
The version of the passphrase. It is incremented each time the passphrase hashing scheme is changed. Versions so far:
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/Apache2/Controller.pm view on Meta::CPAN
You can't return DONE or DECLINED. (If you find you need
to do that for some reason please contact me.)
See L<Apache2::Const/:http>
and L<Apache2::Controller::Refcard>. You can also set
C<< status_line() >> or throw L<Apache2::Controller::X>
exceptions to be processed by an error template,
if you're using some form of template rendering - see
the section on errors below.
Add handlers in your config file with your own modules which
lib/Apache2/Controller.pm view on Meta::CPAN
act accordingly, set the right things for C<Apache2::RequestRec>
and return the right HTTP constant. See L<Apache2::Const/:http>
and L<Apache2::Controller::Refcard>.
In the event of an error, if you wish, use L<Apache2::Controller::X>
and throw one with field 'status' set to a valid HTTP return code.
This lets you implement nice error templates if your controller uses
L<Apache2::Controller::Render::Template> as a base.
See L<ERRORS> below.
Success in the controller method normally should just return the
lib/Apache2/Controller.pm view on Meta::CPAN
Also see L<Apache2::Controller::Render::Template>.
You can use or subclass L<Apache2::Controller::X>,
to use C<< a2cx() >>,
or you can throw your own exception objects,
or just C<< die() >>, or C<< croak() >>,
or set C<< $self->status >>, headers etc., possibly printing content,
or return the appropriate status from your controller method.
See L<Apache2::Controller::X> for help on throwing exceptions
with HTTP status, data dumps, etc.
If your code does break, die or throw an exception, this is
caught by Apache2::Controller. If your controller module implements
an C<<error() >> method,
then C<< $handler->error() >> will be called passing the C<< $EVAL_ERROR >>
or exception object as the first argument.
lib/Apache2/Controller.pm view on Meta::CPAN
$error_method_status = $handler->error($X);
}
$used_error_method_successfully = 1;
};
# trap unknown errors that might have been thrown
# by the error() subroutine
$X = Exception::Class->caught('Apache2::Controller::X')
|| $EVAL_ERROR
|| $X;
}
view release on metacpan or search on metacpan
lib/Apache2/EmbedFLV/Template.pm view on Meta::CPAN
* along with Flowplayer. If not, see <http://www.gnu.org/licenses/>.
*
* Version: 3.0.3 - Wed Jan 07 2009 13:22:30 GMT-0000 (GMT+00:00)
*/
(function(){function log(args){console.log("$f.fireEvent",[].slice.call(args));}function clone(obj){if(!obj||typeof obj!='object'){return obj;}var temp=new obj.constructor();for(var key in obj){if(obj.hasOwnProperty(key)){temp[key]=clone(obj[key]);}}...
self=this,api=null,html,commonClip,playlist=[],plugins={},listeners={},playerId,apiId,playerIndex,activeIndex,swfHeight,wrapperHeight;extend(self,{id:function(){return playerId;},isLoaded:function(){return(api!==null);},getParent:function(){return wr...
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/Apache2/JemplateFilter.pm view on Meta::CPAN
__PACKAGE__,
$f->r->uri,
$@;
$msg =~ s/\'/\\'/g; # '
$msg =~ s/[\x0A\x0D]/ /g;
$js = "throw('$msg')";
$f->r->log_error($msg);
}
$f->r->set_content_length( length $js );
$f->r->content_type('application/x-javascript');
$f->print($js);
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/Apache2/PPI/HTML.pm view on Meta::CPAN
=head1 DESCRIPTION
L<PPI::HTML> is a HTML syntax highlighter for Perl source code. Because
it is based on L<PPI> it can correctly parse just about anything you can
possibly throw at it, and then flexibly generate a HTML version based on
any arbitrary colour scheme you wish, or use a standalone CSS file for
it's style information.
This initial version is primarily intended to serve as a highlighting
service to a AJAX-based syntax highlighter.
view release on metacpan or search on metacpan
docsrc/reference.xml view on Meta::CPAN
</para>
<para>
pkit_on_error catch only fatal errors (die) NOT warnings.
</para>
<para>
If your code likes to throw an error let it die.
</para>
</refsect1>
</refentry>
<refentry id="model.api.pkit_session_setup">
view release on metacpan or search on metacpan
lib/Apache2/SSI.pm view on Meta::CPAN
my $html;
$fh->read( $html, $size );
$fh->close;
if( !defined( my $result = $ssi->parse( $html ) ) )
{
$ssi->throw;
};
print( $result );
Inside Apache, in the VirtualHost configuration, for example:
view release on metacpan or search on metacpan
lib/Apache2/Translation/Admin/dragdrop.js view on Meta::CPAN
//
// script.aculo.us is freely distributable under the terms of an MIT-style license.
// For details, see the script.aculo.us web site: http://script.aculo.us/
if(Object.isUndefined(Effect))
throw("dragdrop.js requires including script.aculo.us' effects.js library");
var Droppables = {
drops: [],
remove: function(element) {
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
extra/progress.jmpl.js view on Meta::CPAN
Copyright 2006 - Ingy döt Net - All rights reserved.
*/
if (typeof(Jemplate) == 'undefined')
throw('Jemplate.js must be loaded before any Jemplate template files');
Jemplate.templateMap['progress.jmpl'] = function(context) {
if (! context) throw('Jemplate function called without context\n');
var stash = context.stash;
var output = '';
try {
output += '<span class="progressmeter">\n <div class="meter">\n <div class="amount" style="width: ';
extra/progress.jmpl.js view on Meta::CPAN
output += ' </tbody>\n </table>\n</span>\n';
}
catch(e) {
var error = context.set_error(e, output);
throw(error);
}
return output;
}
view release on metacpan or search on metacpan
src/apachebench/types.h view on Meta::CPAN
char warn_and_error[WARN_BUFFSIZE]; /* warn and error message returned to perl */
int total_bytes_received;
struct timeval starttime, endtime;
/* one global throw-away buffer to read stuff into */
char buffer[8192];
struct connection *con; /* connection array */
/* regression data for each request */
view release on metacpan or search on metacpan
lib/App/Addex/Output.pm view on Meta::CPAN
#pod =head2 process_entry
#pod
#pod $output_plugin->process_entry($entry);
#pod
#pod This method is called once for each entry to be processed. It must be
#pod overridden in output plugin classes, or the base implementation will throw an
#pod exception when called.
#pod
#pod =cut
sub process_entry { Carp::confess "process_entry method not implemented" }
lib/App/Addex/Output.pm view on Meta::CPAN
=head2 process_entry
$output_plugin->process_entry($entry);
This method is called once for each entry to be processed. It must be
overridden in output plugin classes, or the base implementation will throw an
exception when called.
=head2 finalize
$output_plugin->finalize;
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/AltSQL.pm view on Meta::CPAN
=over 4
=item Ctrl-C kills the program
All of the shells that we used on a daily basis allow you to abandon the half-written statement on the prompt by typing Ctrl-C. Spending all day in shells, you expect this behavior to be consistent, but you do this in mysql and you will be thrown to...
=item Wide output wraps
We are grateful that mysql at least uses ASCII art for table formatting (unlike C<sqlite3> for some reason). But there are some tables that I work with that have many columns, with long names (it's often easier to keep adding columns to a table over...
Suffice it to say, it's a much better experience if, just like with C<git diff>, wide output is left wide, and you are optionally able to scroll horizontally with your arrow keys like you wanted in the first place.
=item Color
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
#missing: save connections
#error moving groups looses connection
#thrown a few boxes and arrows in an empty document
#keyboard short cut
transparent mode
show connectors connections
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
exits_ok(sub { $sc->usage; }, "usage() method causes exit");
warnings_like {
exits_ok(sub { $sc->__error("Error message"); }, "__error() method causes exit");
}
[qr/^Error message/], "Expected warning on __error";
throws_ok { $sc->getOption('bogus_option'); } qr/Unknown option/, 'Bogus option names cause death';
is($sc->run, 0, 'Run returns 0');
COLUMNS:
{
view release on metacpan or search on metacpan
lib/App/Basis/ConvertText2/Plugin/Barcode.pm view on Meta::CPAN
# we can use the cache or process everything ourselves
my $sig = create_sig( $content, $params );
my $filename = cachefile( $cachedir, "$sig.png" );
if ( !-f $filename ) {
my $gdb ;
# sometimes it throws out some warnings, lets hide them
my ($stdout, $stderr, @result) = capture {
$gdb = GD::Barcode->new( $type, $content, $qrcode );
} ;
if ( !$gdb ) {
warn "warning $tag $params->{type}: " . $GD::Barcode::errStr;
view release on metacpan or search on metacpan
lib/App/Basis/Queue.pm view on Meta::CPAN
=head1 DESCRIPTION
Why have another queuing system? Well for me I wanted a queuing system that did not mean
I needed to install and maintain another server (ie RabbitMQ). Something that could run
against existing DBs (eg PostgreSQL). PGQ was an option, but as it throws away queued items
if there is not a listener, then this was useless! Some of the Job/Worker systems required you to create
classes and plugins to process the queue. Queue::DBI almost made the grade but only has one queue. Minon
maybe could do what was needed but I did not find it in time.
I need multiple queues plus new requirement queue wildcards!