view release on metacpan or search on metacpan
lib/Flux/Simple.pm view on Meta::CPAN
sub array_out {
my ($arrayref) = @_;
return Flux::Simple::ArrayOut->new($arrayref);
}
sub mapper(&;&) {
my ($cb, $commit_cb) = @_;
my @args = (cb => $cb);
push @args, commit_cb => $commit_cb if defined $commit_cb;
return Flux::Mapper::Anon->new(@args);
view release on metacpan or search on metacpan
lib/Form/Factory/Processor.pm view on Meta::CPAN
$meta->features->{$name} = $args;
}
sub deferred_value(&) {
my $code = shift;
return Form::Factory::Processor::DeferredValue->new(
code => $code,
);
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
ok $actual eq $expected,
$name . "\n" . Text::Diff::diff(\$expected, \$actual);
}
}
sub run(&;$) {
(my ($self), @_) = find_my_self(@_);
my $callback = shift;
for my $block (@{$self->block_list}) {
$block->run_filters unless $block->is_filtered;
&{$callback}($block);
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
ok $actual eq $expected,
$name . "\n" . Text::Diff::diff(\$expected, \$actual);
}
}
sub run(&;$) {
(my ($self), @_) = find_my_self(@_);
my $callback = shift;
for my $block (@{$self->block_list}) {
$block->run_filters unless $block->is_filtered;
&{$callback}($block);
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
ok $actual eq $expected,
$name . "\n" . Text::Diff::diff(\$expected, \$actual);
}
}
sub run(&;$) {
(my ($self), @_) = find_my_self(@_);
my $callback = shift;
for my $block (@{$self->block_list}) {
$block->run_filters unless $block->is_filtered;
&{$callback}($block);
view release on metacpan or search on metacpan
t/lib/Test/Resub.pm view on Meta::CPAN
use Carp qw(croak);
use Storable qw(dclone);
use Scalar::Util qw(weaken);
sub default_replacement_sub { sub {} }
sub set_prototype(&$) {
if (_implements('Scalar::Util','set_prototype')) {
goto \&Scalar::Util::set_prototype;
} else {
my $code = shift;
my $proto = shift;
view release on metacpan or search on metacpan
lib/Chj/xperlfunc.pm view on Meta::CPAN
defined $pid or croak "xfork: $!";
$pid
}
# thread-like API; incomplete, for sure.
sub xfork_(&) {
@_ == 1 or fp_croak_arity 1;
my ($thunk) = @_;
my $pid = xfork;
if ($pid) {
$pid
view release on metacpan or search on metacpan
lib/Future/Utils.pm view on Meta::CPAN
(This is equivalent to using C<< Future->call >>, but is duplicated here for
completeness).
=cut
sub call(&)
{
my ( $code ) = @_;
return Future->call( $code );
}
lib/Future/Utils.pm view on Meta::CPAN
(This can be considered similar to C<call-with-escape-continuation> as found
in some Scheme implementations).
=cut
sub call_with_escape(&)
{
my ( $code ) = @_;
my $escape_f = Future->new;
lib/Future/Utils.pm view on Meta::CPAN
# redo
undef $$trialp;
}
}
sub repeat(&@)
{
my $code = shift;
my %args = @_;
# This makes it easier to account for other conditions
lib/Future/Utils.pm view on Meta::CPAN
Code that specifically wishes to catch failures in trial futures and retry
the block should use C<try_repeat> specifically.
=cut
sub try_repeat(&@)
{
# defeat prototype
&repeat( @_, try => 1 );
}
lib/Future/Utils.pm view on Meta::CPAN
This function used to be called C<repeat_until_success>, and is currently
aliased as this name as well.
=cut
sub try_repeat_until_success(&@)
{
my $code = shift;
my %args = @_;
# TODO: maybe merge while/until conditions one day...
lib/Future/Utils.pm view on Meta::CPAN
This function is also available under the name of simply C<fmap> to emphasise
its similarity to perl's C<map> keyword.
=cut
sub fmap_concat(&@)
{
my $code = shift;
my %args = @_;
_fmap( $code, %args, collect => "array" )->then( sub {
lib/Future/Utils.pm view on Meta::CPAN
This function is also available under the shorter name of C<fmap1>.
=cut
sub fmap_scalar(&@)
{
my $code = shift;
my %args = @_;
_fmap( $code, %args, collect => "scalar" )
lib/Future/Utils.pm view on Meta::CPAN
This function is also available under the shorter name of C<fmap0>.
=cut
sub fmap_void(&@)
{
my $code = shift;
my %args = @_;
_fmap( $code, %args, collect => "void" )
view release on metacpan or search on metacpan
lib/Game/RaycastFOV.pm view on Meta::CPAN
}
last if $blocked;
}
}
sub swing_circle(&$$$$) {
push @_, 0, pi2;
goto &sub_circle;
}
# for reference; converted to XS in version 2.02 with the following
view release on metacpan or search on metacpan
lib/Games/FrozenBubble/LevelEditor.pm view on Meta::CPAN
$list_browser_file_start_offset = -1;
display_levelset_list_browser(0,0);
}
sub iter_rowscols(&) {
my ($f) = @_;
local ($::row, $::col);
foreach $::row (0 .. $NUM_ROWS - 1) {
foreach $::col (0 .. ($POS_1P{p1}{right_limit}-$POS_1P{p1}{left_limit})/$BUBBLE_SIZE - 1 - odd($::row)) {
&$f;
view release on metacpan or search on metacpan
lib/Games/Minesweeper.pm view on Meta::CPAN
$e->area->x, $e->area->y);
1;
}
sub around(&$$;$) {
my ($func, $x, $y, $data) = @_;
my $ret;
$ret = $func->($x-1, $y-1, $data) if $x > 0 && $y > 0;
$ret |= $func->($x, $y-1, $data) if $y > 0;
$ret |= $func->($x+1, $y-1, $data) if $x < $field_width -1 && $y >0;
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
ok $actual eq $expected,
$name . "\n" . Text::Diff::diff(\$expected, \$actual);
}
}
sub run(&;$) {
(my ($self), @_) = find_my_self(@_);
my $callback = shift;
for my $block (@{$self->block_list}) {
$block->run_filters unless $block->is_filtered;
&{$callback}($block);
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
ok $actual eq $expected, $name;
diag Text::Diff::diff(\$expected, \$actual);
}
}
sub run(&;$) {
(my ($self), @_) = find_my_self(@_);
my $callback = shift;
for my $block (@{$self->block_list}) {
$block->run_filters unless $block->is_filtered;
&{$callback}($block);
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
ok $actual eq $expected,
$name . "\n" . Text::Diff::diff(\$expected, \$actual);
}
}
sub run(&;$) {
(my ($self), @_) = find_my_self(@_);
my $callback = shift;
for my $block (@{$self->block_list}) {
$block->run_filters unless $block->is_filtered;
&{$callback}($block);
view release on metacpan or search on metacpan
lib/Getopt/EX/autocolor.pm view on Meta::CPAN
my $max = $opt->{max} || 65535;
my($r, $g, $b) = @_;
int(($r * 30 + $g * 59 + $b * 11) / $max); # 0 .. 100
}
sub call(&@) { $_[0]->(@_[1..$#_]) }
sub finalize {
my $mod = shift;
# default to do nothing.
view release on metacpan or search on metacpan
t/01_colormap.t view on Meta::CPAN
use constant {
RESET => "\e[m\e[K",
};
sub rgb24(&) {
my $sub = shift;
local $Getopt::EX::Colormap::RGB24 = 1;
$sub->();
}
view release on metacpan or search on metacpan
lib/Gimp.pm view on Meta::CPAN
sub register_callback($$) {
push @{$callback{$_[0]}}, $_[1];
warn "$$-register_callback(@_)" if $Gimp::verbose >= 2;
}
sub on_query(&) { register_callback "query", $_[0] }
sub on_net (&) { register_callback "net" , $_[0] }
sub on_lib (&) { register_callback "lib" , $_[0] }
sub on_run (&) { register_callback "run" , $_[0] }
sub on_quit (&) { register_callback "quit" , $_[0] }
sub on_proc (&) { register_callback "proc" , $_[0] }
view release on metacpan or search on metacpan
t/lib/Local/Test/Exception.pm view on Meta::CPAN
# Support Exporter < 5.57
require Exporter;
our @ISA = qw(Exporter); ## no critic (ClassHierarchies::ProhibitExplicitISA)
our @EXPORT_OK = qw(exception);
sub exception(&) {
my ($code) = @_;
my $e;
{
local $@; ## no critic (Variables::RequireInitializationForLocalVars)
view release on metacpan or search on metacpan
Note that this is the only auto-exported function.
=cut
sub git_cmd_try(&$) {
my ($code, $errmsg) = @_;
my @result;
my $err;
my $array = wantarray;
try {
view release on metacpan or search on metacpan
lib/GitHub/Apps/Auth.pm view on Meta::CPAN
use Crypt::JWT qw/encode_jwt/;
use Furl;
use JSON qw/decode_json/;
use Time::Moment;
sub _lazy(&) {
return GitHub::Apps::Auth::Lazy->new($_[0]);
}
use overload
"\"\"" => sub { shift->issued_token },
lib/GitHub/Apps/Auth.pm view on Meta::CPAN
package
GitHub::Apps::Auth::Lazy;
sub _lazy(&) {
return GitHub::Apps::Auth::Lazy->new($_[0]);
}
use overload
'""' => sub { shift->{sub}->() . "" },
view release on metacpan or search on metacpan
lib/Github/Hooks/Receiver/Declare.pm view on Meta::CPAN
use parent 'Exporter';
our @EXPORT = qw/receiver secret on/;
our $_RECEIVER;
sub receiver(&) {
my $code = shift;
local $_RECEIVER = Github::Hooks::Receiver->new;
$code->();
$_RECEIVER;
}
view release on metacpan or search on metacpan
lib/Graph/Grammar.pm view on Meta::CPAN
Subroutine is evaluated with three parameters: graph, center vertex and its neighbour matching the following neighbour condition.
Subroutine should evaluate to true if condition is fulfilled.
=cut
sub EDGE(&) { Graph::Grammar::Rule::Edge->new( $_[0] ) }
=head2 C<NO_MORE_VERTICES>
When used before the rule action in a rule, restricts the number of center vertex neighbours to vertex conditions.
view release on metacpan or search on metacpan
maint-travis-ci/lib/tools.pm view on Meta::CPAN
package tools;
use Cwd qw(cwd);
use Config;
sub capture_stdout(&) {
require Capture::Tiny;
goto &Capture::Tiny::capture_stdout;
}
sub diag {
view release on metacpan or search on metacpan
maint-travis-ci/lib/tools.pm view on Meta::CPAN
package tools;
use Cwd qw(cwd);
use Config;
sub capture_stdout(&) {
require Capture::Tiny;
goto &Capture::Tiny::capture_stdout;
}
sub diag {
view release on metacpan or search on metacpan
maint-travis-ci/lib/tools.pm view on Meta::CPAN
package tools;
use Cwd qw(cwd);
use Config;
sub capture_stdout(&) {
require Capture::Tiny;
goto &Capture::Tiny::capture_stdout;
}
sub diag {
view release on metacpan or search on metacpan
lib/Graphics/Raylib.pm view on Meta::CPAN
Begins drawing, calls C<< $coderef->() >> and ends drawing. See examples.
=cut
sub draw(&) {
my $block = shift;
BeginDrawing();
$block->();
EndDrawing();
lib/Graphics/Raylib.pm view on Meta::CPAN
Begins 3D drawing, calls C<< $coderef->() >> and ends drawing. See examples.
=cut
sub draw3D(&) {
my $block = shift;
BeginDrawing();
$block->();
EndDrawing();
view release on metacpan or search on metacpan
lib/GrowthForecast/Aggregator/Declare.pm view on Meta::CPAN
our @EXPORT = qw(gf section db db_multi callback);
our $_SECTION;
our @_QUERIES;
sub gf(&) {
local @_QUERIES;
$_[0]->();
return @_QUERIES;
}
view release on metacpan or search on metacpan
lib/Gtk2/CV/Jobber.pm view on Meta::CPAN
sub enable() {
--$disabled or scheduler;
}
sub inhibit(&) {
disable;
eval {
$_[0]->();
};
{
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
ok $actual eq $expected,
$name . "\n" . Text::Diff::diff(\$expected, \$actual);
}
}
sub run(&;$) {
(my ($self), @_) = find_my_self(@_);
my $callback = shift;
for my $block (@{$self->block_list}) {
$block->run_filters unless $block->is_filtered;
&{$callback}($block);
view release on metacpan or search on metacpan
lib/HTML/Builder.pm view on Meta::CPAN
}
sub _attr { die }
sub attr(&) {
my $code = shift;
### in attr...
_attr($code->());
}