view release on metacpan or search on metacpan
lib/AnyEvent/GnuPG.pm view on Meta::CPAN
}
};
_eq('progress') && do { last };
_eq('sig_created') && do { last };
_eq('key_created') && do { last };
_eq('key_not_created') && do {
die "the key from batch run has not been created";
};
_eq('session_key') && do { last };
_eq('notation_name') && do { last };
_eq('notation_data') && do { last };
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
$tb->_unoverload_str( \$e1, \$e2 );
# Either they're both references or both not.
my $same_ref = !( !ref $e1 xor !ref $e2 );
my $not_ref = ( !ref $e1 and !ref $e2 );
if( defined $e1 xor defined $e2 ) {
$ok = 0;
}
elsif( !defined $e1 and !defined $e2 ) {
inc/Test/More.pm view on Meta::CPAN
$ok = 0;
}
elsif( $same_ref and( $e1 eq $e2 ) ) {
$ok = 1;
}
elsif($not_ref) {
push @Data_Stack, { type => '', vals => [ $e1, $e2 ] };
$ok = 0;
}
else {
if( $Refs_Seen{$e1} ) {
view release on metacpan or search on metacpan
minil.toml
t/00_load.t
t/01_simple_routes.t
t/02_variables.t
t/03_star_routes.t
t/04_not_found.t
t/05_reg_routes_syntax.t
t/06_allowed_methods.t
t/lib/MockedRequest.pm
t/pod.t
META.yml
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/AnyEvent/I3.pm');
view release on metacpan or search on metacpan
xt/influxdb.t view on Meta::CPAN
{
note "=== create_database ===";
$cv = AE::cv;
$db->create_database(
database => "mydb",
if_not_exists => 1,
on_success => sub { $cv->send("test ok") },
on_error => sub {
$cv->croak("Failed to create database: @_");
}
);
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
{
$tb->_unoverload_str( \$e1, \$e2 );
# Either they're both references or both not.
my $same_ref = !( !ref $e1 xor !ref $e2 );
my $not_ref = ( !ref $e1 and !ref $e2 );
if( defined $e1 xor defined $e2 ) {
$ok = 0;
}
elsif( !defined $e1 and !defined $e2 ) {
inc/Test/More.pm view on Meta::CPAN
$ok = 0;
}
elsif( $same_ref and( $e1 eq $e2 ) ) {
$ok = 1;
}
elsif($not_ref) {
push @Data_Stack, { type => '', vals => [ $e1, $e2 ] };
$ok = 0;
}
else {
if( $Refs_Seen{$e1} ) {
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
$tb->_unoverload_str( \$e1, \$e2 );
# Either they're both references or both not.
my $same_ref = !( !ref $e1 xor !ref $e2 );
my $not_ref = ( !ref $e1 and !ref $e2 );
if( defined $e1 xor defined $e2 ) {
$ok = 0;
}
elsif( !defined $e1 and !defined $e2 ) {
inc/Test/More.pm view on Meta::CPAN
$ok = 0;
}
elsif( $same_ref and( $e1 eq $e2 ) ) {
$ok = 1;
}
elsif($not_ref) {
push @Data_Stack, { type => '', vals => [ $e1, $e2 ] };
$ok = 0;
}
else {
if( $Refs_Seen{$e1} ) {
view release on metacpan or search on metacpan
xt/boilerplate.t view on Meta::CPAN
use warnings;
use Test::More;
plan tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
xt/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/AnyEvent/KVStore/Etcd.pm');
view release on metacpan or search on metacpan
xt/boilerplate.t view on Meta::CPAN
use warnings FATAL => 'all';
use Test::More;
plan tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
xt/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/AnyEvent/KVStore.pm');
view release on metacpan or search on metacpan
lib/AnyEvent/Multilog.pm view on Meta::CPAN
sub shutdown {
my $self = shift;
my $input = $self->run->delegate('input_handle');
confess 'already shutdown, cannot perform further operations' if $self->is_shutdown;
$input->handle->do_not_want;
}
__PACKAGE__->meta->make_immutable;
1;
view release on metacpan or search on metacpan
lib/AnyEvent/Open3/Simple.pm view on Meta::CPAN
my $cv = AnyEvent->condvar;
my $ipc = AnyEvent::Open3::Simple->new(
on_exit => sub { $cv->send },
);
$ipc->run('command_not_found');
$cv->recv;
You might be waiting forever if there is an error starting the
process (if for example you give it a bad command). To handle
this situation you might use croak on the condition variable
lib/AnyEvent/Open3/Simple.pm view on Meta::CPAN
on_error => sub {
my $error = shift;
$cv->croak($error);
},
);
$ipc->run('command_not_found');
$cv->recv;
This will cause the C<recv> to die, printing a useful diagnostic
if the exception isn't caught somewhere else.
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
{
$tb->_unoverload_str( \$e1, \$e2 );
# Either they're both references or both not.
my $same_ref = !( !ref $e1 xor !ref $e2 );
my $not_ref = ( !ref $e1 and !ref $e2 );
if( defined $e1 xor defined $e2 ) {
$ok = 0;
}
elsif( !defined $e1 and !defined $e2 ) {
inc/Test/More.pm view on Meta::CPAN
$ok = 0;
}
elsif( $same_ref and( $e1 eq $e2 ) ) {
$ok = 1;
}
elsif($not_ref) {
push @Data_Stack, { type => '', vals => [ $e1, $e2 ] };
$ok = 0;
}
else {
if( $Refs_Seen{$e1} ) {
view release on metacpan or search on metacpan
lib/AnyEvent/Process.pm view on Meta::CPAN
close $dup->[0];
}
# Close other filedescriptors
if (defined $proc_args{close_all_fds_except}) {
my @not_close = map fileno($_), @{$proc_args{close_all_fds_except}};
AE::log trace => "Closing all other fds except: " . join ', ', @not_close;
push @not_close, fileno $_->[0] foreach @fh_table;
AE::log trace => "Closing all other fds except: " . join ', ', @not_close;
AnyEvent::Util::close_all_fds_except @not_close;
}
# Run the code
my $rtn = $proc_args{code}->(@{$proc_args{args} // []});
exit ($rtn eq int($rtn) ? $rtn : 1);
view release on metacpan or search on metacpan
lib/AnyEvent/REST/Server.pm view on Meta::CPAN
if ($self->can_handle("$self->{connections}{$id}{command} $self->{connections}{$id}{location}")) {
$self->read_http_header($id);
}
else {
$self->send_not_found($id);
}
}
);
}
lib/AnyEvent/REST/Server.pm view on Meta::CPAN
$response .= $body if $body;
$self->{connections}{$id}{handle}->push_write($response);
}
sub send_not_found {
shift->send(shift, 404, {}, '');
}
1;
view release on metacpan or search on metacpan
t/04-commands.t view on Meta::CPAN
}
sub t_get_non_existent_mth1 {
my $redis = shift;
my $t_reply = 'not_undef';
ev_loop(
sub {
my $cv = shift;
t/04-commands.t view on Meta::CPAN
}
sub t_get_non_existent_mth2 {
my $redis = shift;
my $t_reply = 'not_undef';
my $t_err_msg;
ev_loop(
sub {
my $cv = shift;
t/04-commands.t view on Meta::CPAN
}
sub t_mbulk_reply_undef_mth1 {
my $redis = shift;
my $t_reply = 'not_undef';
ev_loop(
sub {
my $cv = shift;
t/04-commands.t view on Meta::CPAN
}
sub t_mbulk_reply_undef_mth2 {
my $redis = shift;
my $t_reply = 'not_undef';
my $t_err_msg;
ev_loop(
sub {
my $cv = shift;
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
$tb->_unoverload_str( \$e1, \$e2 );
# Either they're both references or both not.
my $same_ref = !( !ref $e1 xor !ref $e2 );
my $not_ref = ( !ref $e1 and !ref $e2 );
if( defined $e1 xor defined $e2 ) {
$ok = 0;
}
elsif( !defined $e1 and !defined $e2 ) {
inc/Test/More.pm view on Meta::CPAN
$ok = 0;
}
elsif( $same_ref and( $e1 eq $e2 ) ) {
$ok = 1;
}
elsif($not_ref) {
push @Data_Stack, { type => '', vals => [ $e1, $e2 ] };
$ok = 0;
}
else {
if( $Refs_Seen{$e1} ) {
view release on metacpan or search on metacpan
lib/AnyEvent/Riak.pm view on Meta::CPAN
=item pw
optional, number
=item if_not_modified
optional, boolean
=item if_none_match
view release on metacpan or search on metacpan
t/04-commands.t view on Meta::CPAN
}
sub t_get_non_existent {
my $redis = shift;
my $t_reply = 'not_undef';
my $t_err;
ev_loop(
sub {
my $cv = shift;
t/04-commands.t view on Meta::CPAN
}
sub t_mbulk_reply_undef {
my $redis = shift;
my $t_reply = 'not_undef';
my $t_err;
ev_loop(
sub {
my $cv = shift;
view release on metacpan or search on metacpan
script/google-ime-skk.pl view on Meta::CPAN
my $server_found = sub {
my $val = shift;
$hdl->push_write(SERVER_FOUND . "/$val/\n");
};
my $server_not_found = sub {
$hdl->push_write(SERVER_NOT_FOUND . "\n");
};
my $server_error = sub {
$hdl->push_write(SERVER_ERROR . "\n");
};
# ignore okuri-ari entry
if ($req =~ /([a-z])$/) {
$server_not_found->();
return;
}
if (my $val = $cache->get($req)) {
$server_found->($val);
script/google-ime-skk.pl view on Meta::CPAN
my $val = join '/', @words;
$server_found->($val);
$cache->set($req => $val, $expire);
} else {
$server_not_found->();
}
} else {
$server_error->();
}
};
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/AnyEvent/STOMP.pm');
view release on metacpan or search on metacpan
lib/AnyEvent/Subprocess/Handle.pm view on Meta::CPAN
sub name {
my $self = shift;
return $self->{_name} || "<fd ". fileno($self->fh). ">";
}
sub do_not_want {
my $self = shift;
close $self->fh if $self->fh; # sometimes people close too soon
$self->destroy;
}
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/AnyEvent/Sway.pm');
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
{
$tb->_unoverload_str( \$e1, \$e2 );
# Either they're both references or both not.
my $same_ref = !( !ref $e1 xor !ref $e2 );
my $not_ref = ( !ref $e1 and !ref $e2 );
if( defined $e1 xor defined $e2 ) {
$ok = 0;
}
elsif( !defined $e1 and !defined $e2 ) {
inc/Test/More.pm view on Meta::CPAN
$ok = 0;
}
elsif( $same_ref and( $e1 eq $e2 ) ) {
$ok = 1;
}
elsif($not_ref) {
push @Data_Stack, { type => '', vals => [ $e1, $e2 ] };
$ok = 0;
}
else {
if( $Refs_Seen{$e1} ) {
view release on metacpan or search on metacpan
example/jobserver view on Meta::CPAN
$self->stash(server => $server);
$self->render('server');
}
else
{
$self->reply->not_found;
}
});
} => 'server';
sub get_old_events
example/jobserver view on Meta::CPAN
<script src="http://code.jquery.com/jquery-latest.min.js"></script>
</head>
<body><%= content %></body>
</html>
@@ not_found.html.ep
Not found
view release on metacpan or search on metacpan
lib/AnyEvent/XMPP/Component.pm view on Meta::CPAN
=head1 EVENTS
These additional events can be registered on with C<reg_cb>:
NOTE: The event C<stream_pre_authentication> should _not_ be handled
and just ignored. Don't attach callbacks to it!
=over 4
=item session_ready
view release on metacpan or search on metacpan
ninstr|||n
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
noperl_die|||vn
not_a_number|||
not_incrementable|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
oopsAV|||
oopsHV|||
watch|||
whichsig_pvn||5.015004|
whichsig_pv||5.015004|
whichsig_sv||5.015004|
whichsig|||
win32_croak_not_implemented|||n
with_queued_errors|||
wrap_op_checker||5.015008|
write_to_stderr|||
xs_boot_epilog|||
xs_handshake|||vn
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
view release on metacpan or search on metacpan
nextchar|||
ninstr|||n
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
oopsAV|||
oopsHV|||
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
{
$tb->_unoverload_str( \$e1, \$e2 );
# Either they're both references or both not.
my $same_ref = !( !ref $e1 xor !ref $e2 );
my $not_ref = ( !ref $e1 and !ref $e2 );
if( defined $e1 xor defined $e2 ) {
$ok = 0;
}
elsif( !defined $e1 and !defined $e2 ) {
inc/Test/More.pm view on Meta::CPAN
$ok = 0;
}
elsif( $same_ref and( $e1 eq $e2 ) ) {
$ok = 1;
}
elsif($not_ref) {
push @Data_Stack, { type => '', vals => [ $e1, $e2 ] };
$ok = 0;
}
else {
if( $Refs_Seen{$e1} ) {
view release on metacpan or search on metacpan
t/01_basic.t
t/02_options.t
t/03_html_output.t
t/04_kouetsu.t
t/09_duplication.t
t/10_control_chars_not_gaiji.t
t/20_jis_x_0208.t
xt/01_synopsis_expectation.t
META.yml
MANIFEST
view release on metacpan or search on metacpan
sub ok {
$_[0]->{t}++;
$_[0]->{buffer} .= "ok\n";
}
*not = *not_ok;
sub not_ok {
my($self, $warn) = @_;
if($warn) {
warn "[failure] $warn";
}
while(($k, $v) = each %{$self->{data}}) {
$test = "$k=$v";
if($self->{input} =~ /\[\[$test\]\]/) {
$self->ok();
} else {
$self->not_ok();
print "$test data not found\n";
}
}
}