view release on metacpan or search on metacpan
lib/App/Test/Generator/SchemaExtractor.pm view on Meta::CPAN
$field->{'type'} = 'arrayref';
} elsif($type eq 'SCALAR') {
$field->{'type'} = 'string';
}
}
delete $field->{'callbacks'};
}
return {
input => $schema,
style => 'hash',
lib/App/Test/Generator/SchemaExtractor.pm view on Meta::CPAN
$field->{'type'} = 'arrayref';
} elsif($type eq 'SCALAR') {
$field->{'type'} = 'string';
}
}
delete $field->{'callbacks'};
}
return {
input => $schema,
style => 'hash',
view release on metacpan or search on metacpan
lib/App/TestOnTap/Harness.pm view on Meta::CPAN
(
{
formatter => __getFormatter($args),
jobs => $args->getJobs(),
merge => $args->getMerge(),
callbacks => { after_test => $args->getWorkDirManager()->getResultCollector() },
'exec' => __getExecMapper($args),
scheduler_class => 'App::TestOnTap::Scheduler'
}
);
view release on metacpan or search on metacpan
lib/App/Wallflower.pm view on Meta::CPAN
errors => 1,
);
}
# [ activating option, coderef ]
my @callbacks = (
[
errors => sub {
my ( $url, $response ) = @_;
my ( $status, $headers, $file ) = @$response;
return if $status == 200;
lib/App/Wallflower.pm view on Meta::CPAN
sub new {
my ( $class, %args ) = @_;
my %option = ( _default_options(), %{ $args{option} || {} } );
my $args = $args{args} || [];
my @cb = @{ $args{callbacks} || [] };
# application is required
croak "Option application is required" if !exists $option{application};
# setup TAP
lib/App/Wallflower.pm view on Meta::CPAN
# add the hostname passed via --url to the list built with --host
push @{ $option{host} }, URI->new( $option{url} )->host
if $option{url};
# pre-defined callbacks
push @cb, map $_->[1], grep $option{ $_->[0] }, @callbacks;
# include option
my $path_sep = $Config::Config{path_sep} || ';';
$option{inc} = [ split /\Q$path_sep\E/, join $path_sep,
@{ $option{include} || [] } ];
lib/App/Wallflower.pm view on Meta::CPAN
local $ENV{PLACK_ENV} = $option{environment};
local @INC = ( @{ $option{inc} }, @INC );
my $self = {
option => \%option,
args => $args,
callbacks => \@cb,
seen => {}, # keyed on $url->path
todo => [],
wallflower => Wallflower->new(
application => ref $option{application}
? $option{application}
lib/App/Wallflower.pm view on Meta::CPAN
while ( my $url = $self->_next_todo ) {
# get the response
my $response = $wallflower->get($url);
# run the callbacks
$_->( $url => $response ) for @{ $self->{callbacks} };
# obtain links to resources
my ( $status, $headers, $file ) = @$response;
if ( ( $status == 200 || $status == 304 ) && $follow ) {
$self->_push_todo( links_from( $response => $url ) );
view release on metacpan or search on metacpan
lib/App/Workflow/Lint/Engine.pm view on Meta::CPAN
=head2 apply_fixes
$engine->apply_fixes($workflow, @diagnostics);
Executes fix callbacks for any diagnostics that provide them.
=head2 fix_file
my ($workflow, $diagnostics) = $engine->fix_file($file);
view release on metacpan or search on metacpan
- Add plugin hook for post-processing of coverage data.
1.000091 2021-12-15 12:09:09-08:00 America/Los_Angeles
- Add more reload capabilities (non-perl reloading, callbacks)
1.000090 2021-12-14 12:43:11-08:00 America/Los_Angeles
- Fix bug in status command when only 1 run is present
- Add sort_files_2 for plugins to add settings and future-proof it
1.000079 2021-10-29 10:42:39-07:00 America/Los_Angeles
- smarter reloader, bit via callbacks, not assumptions
1.000078 2021-10-28 15:38:10-07:00 America/Los_Angeles
- Disable the feature from the last commit, it needs rethinking thanks to
things like Moose.
view release on metacpan or search on metacpan
[
'config-file=s',
'Read config from a config file only.',
{
'default' => '$unset',
'callbacks' => {
'exists' => sub { _check_exists( shift ) },
},
},
],
[
[
'command-restart=i',
'If the command exits how many times to retry it, default 0. Set to -1 for infinite.',
{
'default' => 0,
'callbacks' => {
'is_positive' => sub { _check_positive_number( shift ) },
},
},
],
[
view release on metacpan or search on metacpan
xt/author/pod_spelling_system.t view on Meta::CPAN
TODO
filename
filenames
login
callback
callbacks
standalone
VMS
hostname
hostnames
TCP
view release on metacpan or search on metacpan
xt/author/pod_spelling_system.t view on Meta::CPAN
TODO
filename
filenames
login
callback
callbacks
standalone
VMS
hostname
hostnames
TCP
view release on metacpan or search on metacpan
xt/author/pod_spelling_system.t view on Meta::CPAN
TODO
filename
filenames
login
callback
callbacks
standalone
VMS
hostname
hostnames
TCP
view release on metacpan or search on metacpan
.claude/agents/pod-writer.md view on Meta::CPAN
| Command | Use for | Example |
|---------|---------|---------|
| `=opt` | CLI options | `=opt --verbose` |
| `=env` | Environment variables | `=env API_KEY` |
| `=event` | Events | `=event user.created` |
| `=hook` | Hooks/callbacks | `=hook before_save` |
| `=resource` | API resources/features | `=resource servers` |
| `=example` | Usage examples | `=example Basic Usage` |
| `=seealso` | Related modules | `=seealso L<Other::Module>` |
## Complete Example
view release on metacpan or search on metacpan
lib/App/makebeamerinfo/GUI.pm view on Meta::CPAN
}
return \%gui;
}
## callbacks for Tk window
sub getFile {
# read file type to get
my ($self, $file_type) = @_;
my $other_type = ($file_type eq 'pdf') ? 'nav' : 'pdf';
view release on metacpan or search on metacpan
- `fold`/`table`/`nup`/`rule` default to sentinel `_` (not user-set)
- `trim` defaults to `1` (always on unless explicitly `--no-trim`), not style-dependent
- After getoptlong.sh, style defaults are applied only to sentinel values
- Explicit `--fold`/`--no-fold` sets the value to `1`/empty, overriding style
- `filter()` and `plain()` callbacks set `$style` during option parsing
- The `!` marker triggers the callback when option is parsed
```bash
filter() { style=filter; }
plain() { [[ $plain ]] && style=pager || style=nup; }
view release on metacpan or search on metacpan
mimi.fatpack view on Meta::CPAN
}
EOI
DBI_DBD_SQLENGINE
$fatpacked{"DBI/Gofer/Execute.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_EXECUTE';
package DBI::Gofer::Execute;use strict;use warnings;use Carp;use DBI qw(dbi_time);use DBI::Gofer::Request;use DBI::Gofer::Response;use base qw(DBI::Util::_accessor);our$VERSION="0.03";our@all_dbh_methods=sort map {keys %$_}$DBI::DBI_methods{db},$DB...
DBI_GOFER_EXECUTE
$fatpacked{"DBI/Gofer/Request.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_REQUEST';
package DBI::Gofer::Request;use strict;use DBI qw(neat neat_list);use base qw(DBI::Util::_accessor);our$VERSION="0.03";use constant GOf_REQUEST_IDEMPOTENT=>0x0001;use constant GOf_REQUEST_READONLY=>0x0002;our@EXPORT=qw(GOf_REQUEST_IDEMPOTENT GOf_RE...
DBI_GOFER_REQUEST
view release on metacpan or search on metacpan
lib/App/mirai/Future.pm view on Meta::CPAN
my $name = "$f";
$FUTURE_MAP{$name} = $entry;
# Yes, this means we're modifying the callback list: if we later
# add support for debugging the callbacks as well, we'd need to
# take this into account.
$f->on_ready(sub {
my $f = shift;
my (undef, $file, $line) = caller(2);
$FUTURE_MAP{$f}->{status} =
view release on metacpan or search on metacpan
script/mkpkgconfig view on Meta::CPAN
[
'usevars|u:s',
"which variables to output",
{
default => { reverse %Map_usevars }->{ +NEEDED_VARS },
callbacks => {
'valid output variables' => sub {
return 1 if defined $Map_usevars{ $_[0] };
die(
"$_[0] isn't one of 'all', 'req', 'requested', or 'used'\n"
);
view release on metacpan or search on metacpan
[ green-board | >up_opts # white on green ]=
[ slate-board | >up_opts # white on slate ]=
)
##############################################################################
# Option callbacks
##############################################################################
# -h callback: show help from POD
help() {
sed -E \
view release on metacpan or search on metacpan
xt/release/pod_spelling_system.t view on Meta::CPAN
TODO
filename
filenames
login
callback
callbacks
standalone
VMS
hostname
hostnames
TCP
view release on metacpan or search on metacpan
t/oddmuse-wiki.pl view on Meta::CPAN
}
}
}
my @need_cache = keys %todo;
if (keys %todo > 1) { # try parallel access if available
eval { # see code example in LWP::Parallel, not LWP::Parallel::UserAgent (no callbacks here)
require LWP::Parallel::UserAgent;
my $pua = LWP::Parallel::UserAgent->new();
foreach my $uri (keys %todo) {
if (my $res = $pua->register(HTTP::Request->new('GET', $uri))) {
$str .= $res->error_as_HTML;
view release on metacpan or search on metacpan
xt/author/pod_spelling_system.t view on Meta::CPAN
TODO
filename
filenames
login
callback
callbacks
standalone
VMS
hostname
hostnames
TCP
view release on metacpan or search on metacpan
xt/author/pod_spelling_system.t view on Meta::CPAN
TODO
filename
filenames
login
callback
callbacks
standalone
VMS
hostname
hostnames
TCP
view release on metacpan or search on metacpan
examples/calculator.psgi view on Meta::CPAN
);
$daemon->operationsFromWSDL(
$wsdl,
callbacks => {
add => sub {
my ($soap, $data) = @_;
return +{
Result => $data->{parameters}->{x} + $data->{parameters}->{y},
};
view release on metacpan or search on metacpan
xt/author/pod_spelling_system.t view on Meta::CPAN
TODO
filename
filenames
login
callback
callbacks
standalone
VMS
hostname
hostnames
TCP
view release on metacpan or search on metacpan
xt/author/pod_spelling_system.t view on Meta::CPAN
TODO
filename
filenames
login
callback
callbacks
standalone
VMS
hostname
hostnames
TCP
view release on metacpan or search on metacpan
xt/author/pod_spelling_system.t view on Meta::CPAN
TODO
filename
filenames
login
callback
callbacks
standalone
VMS
hostname
hostnames
TCP
view release on metacpan or search on metacpan
xt/author/pod_spelling_system.t view on Meta::CPAN
TODO
filename
filenames
login
callback
callbacks
standalone
VMS
hostname
hostnames
TCP
view release on metacpan or search on metacpan
lib/AppConfig/State.pm view on Meta::CPAN
#
# AppConfig::State.pm
#
# Perl5 module in which configuration information for an application can
# be stored and manipulated. AppConfig::State objects maintain knowledge
# about variables; their identities, options, aliases, targets, callbacks
# and so on. This module is used by a number of other AppConfig::* modules.
#
# Written by Andy Wardley <abw@wardley.org>
#
# Copyright (C) 1997-2007 Andy Wardley. All Rights Reserved.
lib/AppConfig/State.pm view on Meta::CPAN
=head1 OVERVIEW
AppConfig::State is a Perl5 module to handle global configuration variables
for perl programs. It maintains the state of any number of variables,
handling default values, aliasing, validation, update callbacks and
option arguments for use by other AppConfig::* modules.
AppConfig::State is distributed as part of the AppConfig bundle.
=head1 DESCRIPTION
view release on metacpan or search on metacpan
share/files/public/skins/default/jquery-ui-1.9.1.custom/development-bundle/demos/autocomplete/remote-jsonp.html view on Meta::CPAN
<div id="log" style="height: 200px; width: 300px; overflow: auto;" class="ui-widget-content"></div>
</div>
<div class="demo-description">
<p>The Autocomplete widgets provides suggestions while you type into the field. Here the suggestions are cities, displayed when at least two characters are entered into the field.</p>
<p>In this case, the datasource is the <a href="http://geonames.org">geonames.org webservice</a>. While only the city name itself ends up in the input after selecting an element, more info is displayed in the suggestions to help find the right entry....
</div>
</body>
</html>
view release on metacpan or search on metacpan
share/root/socket.io-0.9.16.js view on Meta::CPAN
*/
io.transports = [];
/**
* Keep track of jsonp callbacks.
*
* @api private
*/
io.j = [];
view release on metacpan or search on metacpan
perllib/Arch/Run.pm view on Meta::CPAN
=item B<mode> => I<$accum_mode>
Control how output data is accumulated and passed to B<data> and
B<finish> callbacks.
I<$accum_mode> can be one of
=over 4
perllib/Arch/Run.pm view on Meta::CPAN
read. It will block otherwise.
=item B<poll> I<$timeout>
Check running subprocesses for available output and run callbacks as
appropriate. Wait at most I<$timeout> seconds when no output is
available.
Returns the number of processes that had output available.