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.
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/Archive/ByteBoozer.pm view on Meta::CPAN
sub crunch {
my $params = { @_ };
validate(
@_, {
source => { type => HANDLE, isa => 'IO::Handle', callbacks => {
is_not_the_same_as_target => sub { exists $_[1]->{target} && refaddr $_[0] != refaddr $_[1]->{target} },
} },
target => { type => HANDLE, isa => 'IO::Handle', callbacks => {
is_not_the_same_as_source => sub { exists $_[1]->{source} && refaddr $_[0] != refaddr $_[1]->{source} },
} },
attach_decruncher => { type => SCALAR, optional => 1, callbacks => {
is_valid_memory_address => sub { looks_like_number $_[0] && $_[0] >= 0x0000 && $_[0] <= 0xffff },
} },
make_executable => { type => SCALAR, optional => 1, callbacks => {
is_valid_memory_address => sub { looks_like_number $_[0] && $_[0] >= 0x0000 && $_[0] <= 0xffff },
} },
precede_initial_address => { type => SCALAR, optional => 1, callbacks => {
is_valid_memory_address => sub { looks_like_number $_[0] && $_[0] >= 0x0000 && $_[0] <= 0xffff },
} },
relocate_output => { type => SCALAR, optional => 1, callbacks => {
is_valid_memory_address => sub { looks_like_number $_[0] && $_[0] >= 0x0000 && $_[0] <= 0xffff },
} },
relocate_output_up_to => { type => SCALAR, optional => 1, callbacks => {
is_valid_memory_address => sub { looks_like_number $_[0] && $_[0] >= 0x0000 && $_[0] <= 0xffff },
} },
replace_initial_address => { type => SCALAR, optional => 1, callbacks => {
is_valid_memory_address => sub { looks_like_number $_[0] && $_[0] >= 0x0000 && $_[0] <= 0xffff },
} },
verbose => { type => SCALAR, optional => 1, regex => qr/^\d+$/ },
}
);
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/Archive/Libarchive/FFI/Callback.pm view on Meta::CPAN
use strict;
use warnings;
use 5.008;
# ABSTRACT: Libarchive callbacks
our $VERSION = '0.0902'; # VERSION
package
Archive::Libarchive::FFI;
lib/Archive/Libarchive/FFI/Callback.pm view on Meta::CPAN
CB_SEEK => 6,
CB_SWITCH => 7,
CB_BUFFER => 8,
};
my %callbacks;
do {
no warnings 'redefine';
sub _attach_function ($$$;$)
{
lib/Archive/Libarchive/FFI/Callback.pm view on Meta::CPAN
};
my $myopen = FFI::Raw::Callback->new(sub {
my($archive) = @_;
my $status = eval {
$callbacks{$archive}->[CB_OPEN]->($archive, $callbacks{$archive}->[CB_DATA]);
};
if($@)
{
warn $@;
return ARCHIVE_FATAL();
lib/Archive/Libarchive/FFI/Callback.pm view on Meta::CPAN
my $mywrite = FFI::Raw::Callback->new(sub
{
my($archive, $null, $ptr, $size) = @_;
my $buffer = buffer_to_scalar($ptr, $size);
my $status = eval {
$callbacks{$archive}->[CB_WRITE]->($archive, $callbacks{$archive}->[CB_DATA], $buffer);
};
if($@)
{
warn $@;
return ARCHIVE_FATAL();
lib/Archive/Libarchive/FFI/Callback.pm view on Meta::CPAN
my $myread = FFI::Raw::Callback->new(sub
{
my($archive, $null, $optr) = @_;
my($status, $buffer) = eval {
$callbacks{$archive}->[CB_READ]->($archive, $callbacks{$archive}->[CB_DATA]);
};
if($@)
{
warn $@;
return ARCHIVE_FATAL();
lib/Archive/Libarchive/FFI/Callback.pm view on Meta::CPAN
my $myskip = FFI::Raw::Callback->new(sub
{
my($archive, $null, $request) = @_;
my $status = eval {
$callbacks{$archive}->[CB_SKIP]->($archive, $callbacks{$archive}->[CB_DATA], $request);
};
if($@)
{
warn $@;
return ARCHIVE_FATAL();
lib/Archive/Libarchive/FFI/Callback.pm view on Meta::CPAN
my $myseek = FFI::Raw::Callback->new(sub
{
my($archive, $null, $offset, $whence) = @_;
my $status = eval {
$callbacks{$archive}->[CB_SEEK]->($archive, $callbacks{$archive}->[CB_DATA], $offset, $whence);
};
if($@)
{
warn $@;
return ARCHIVE_FATAL();
lib/Archive/Libarchive/FFI/Callback.pm view on Meta::CPAN
my $myclose = FFI::Raw::Callback->new(sub
{
my($archive) = @_;
my $status = eval {
$callbacks{$archive}->[CB_CLOSE]->($archive, $callbacks{$archive}->[CB_DATA]);
};
if($@)
{
warn $@;
return ARCHIVE_FATAL();
lib/Archive/Libarchive/FFI/Callback.pm view on Meta::CPAN
}, _int, _ptr, _ptr);
_attach_function 'archive_write_open', [ _ptr, _ptr, _ptr, _ptr, _ptr ], _int, sub
{
my($cb, $archive, $cd, $open, $write, $close) = @_;
$callbacks{$archive}->[CB_DATA] = $cd;
if(defined $open)
{
$callbacks{$archive}->[CB_OPEN] = $open;
$open = $myopen;
}
if(defined $write)
{
$callbacks{$archive}->[CB_WRITE] = $write;
$write = $mywrite;
}
if(defined $close)
{
$callbacks{$archive}->[CB_CLOSE] = $close;
$close = $myclose;
}
$cb->($archive, undef, $open||0, $write||0, $close||0);
};
lib/Archive/Libarchive/FFI/Callback.pm view on Meta::CPAN
}
_attach_function 'archive_read_open2', [ _ptr, _ptr, _ptr, _ptr, _ptr, _ptr ], _int, sub
{
my($cb, $archive, $cd, $open, $read, $skip, $close) = @_;
$callbacks{$archive}->[CB_DATA] = $cd;
if(defined $open)
{
$callbacks{$archive}->[CB_OPEN] = $open;
$open = $myopen;
}
if(defined $read)
{
$callbacks{$archive}->[CB_READ] = $read;
$read = $myread;
}
if(defined $skip)
{
$callbacks{$archive}->[CB_SKIP] = $skip;
$skip = $myskip;
}
if(defined $close)
{
$callbacks{$archive}->[CB_CLOSE] = $close;
$close = $myclose;
}
$cb->($archive, undef, $open||0, $read||0, $skip||0, $close||0);
};
sub archive_read_set_callback_data ($$)
{
my($archive, $data) = @_;
$callbacks{$archive}->[CB_DATA] = $data;
ARCHIVE_OK();
}
foreach my $name (qw( open read skip close seek ))
{
my $const = 'CB_' . uc $name;
my $wrapper = eval '# line '. __LINE__ . ' "' . __FILE__ . "\n" . qq{
sub
{
my(\$cb, \$archive, \$callback) = \@_;
\$callbacks{\$archive}->[$const] = \$callback;
\$cb->(\$archive, \$my$name);
}
};die $@ if $@;
_attach_function "archive_read_set_$name\_callback", [ _ptr, _ptr ], _int;
lib/Archive/Libarchive/FFI/Callback.pm view on Meta::CPAN
_attach_function 'archive_read_open_memory', [ _ptr, _ptr, _size_t ], _int, sub
{
my($cb, $archive, $buffer) = @_;
my $length = do { use bytes; length $buffer };
my $ptr = FFI::Raw::MemPtr->new_from_buf($buffer, $length);
$callbacks{$archive}->[CB_BUFFER] = $ptr; # TODO: CB_BUFFER or CB_DATA (or something else?)
$cb->($archive, $ptr, $length);
};
}
else
{
lib/Archive/Libarchive/FFI/Callback.pm view on Meta::CPAN
_attach_function archive_version_number() >= 3000000 ? 'archive_read_free' : [ archive_read_finish => 'archive_read_free' ], [ _ptr ], _int, sub
{
my($cb, $archive) = @_;
my $ret = $cb->($archive);
delete $callbacks{$archive};
$ret;
};
_attach_function archive_version_number() >= 3000000 ? 'archive_write_free' : [ archive_write_finish => 'archive_write_free' ], [ _ptr ], _int, sub
{
my($cb, $archive) = @_;
my $ret = $cb->($archive);
delete $callbacks{$archive};
$ret;
};
my %lookups;
lib/Archive/Libarchive/FFI/Callback.pm view on Meta::CPAN
=encoding UTF-8
=head1 NAME
Archive::Libarchive::FFI::Callback - Libarchive callbacks
=head1 VERSION
version 0.0902
lib/Archive/Libarchive/FFI/Callback.pm view on Meta::CPAN
=head1 DESCRIPTION
This document provides information of callback routines for writing
custom input/output interfaces to the libarchive perl bindings. The
first two arguments passed into all callbacks are:
=over 4
=item $archive
lib/Archive/Libarchive/FFI/Callback.pm view on Meta::CPAN
=back
For the variable name / types conventions used in this document, see
L<Archive::Libarchive::FFI::Function>.
The expected return value for all callbacks EXCEPT the read callback
is a standard integer libarchive status value (example: C<ARCHIVE_OK>
or C<ARCHIVE_FATAL>).
If your callback dies (throws an exception), it will be caught at the
Perl level. The error will be sent to standard error via L<warn|perlfunc#warn>
and C<ARCHIVE_FATAL> will be passed back to libarchive.
=head2 data
There is a data field for callbacks associated with each $archive object.
It can be any native Perl type (example: scalar, hashref, coderef, etc).
You can set this by calling
L<archive_read_set_callback_data|Archive::Libarchive::FFI::Function#archive_read_set_callback_data>,
or by passing the data argument when you "open" the archive using
L<archive_read_open|Archive::Libarchive::FFI::Function#archive_read_open>,
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/Archive/Libarchive/XS/Callback.pm view on Meta::CPAN
CB_SKIP => 5,
CB_SEEK => 6,
CB_BUFFER => 7,
};
my %callbacks;
sub ARCHIVE_FATAL ();
sub ARCHIVE_OK ();
sub archive_read_set_callback_data ($$)
{
my($archive, $data) = @_;
$callbacks{$archive}->[CB_DATA] = $data;
ARCHIVE_OK;
}
foreach my $name (qw( open read skip close seek ))
{
my $const = 'CB_' . uc $name;
eval '# line '. __LINE__ . ' "' . __FILE__ . "\n" . qq{
sub archive_read_set_$name\_callback (\$\$)
{
my(\$archive, \$callback) = \@_;
\$callbacks{\$archive}->[$const] = \$callback;
_archive_read_set_$name\_callback(\$archive, \$callback);
}
}; die $@ if $@;
}
lib/Archive/Libarchive/XS/Callback.pm view on Meta::CPAN
my $uc_name = uc $name;
eval '# line '. __LINE__ . ' "' . __FILE__ . "\n" . qq{
sub _my$name
{
my \$archive = shift;
my \$status = eval { \$callbacks{\$archive}->[CB_$uc_name]->(\$archive, \$callbacks{\$archive}->[CB_DATA],\@_) };
if(\$\@)
{
warn \$\@;
return ARCHIVE_FATAL;
}
lib/Archive/Libarchive/XS/Callback.pm view on Meta::CPAN
sub _myread
{
my($archive) = @_;
my ($status, $buffer) = eval {
$callbacks{$archive}->[CB_READ]->(
$archive,
$callbacks{$archive}->[CB_DATA],
)
};
if($@)
{
warn $@;
return (ARCHIVE_FATAL, undef);
}
$callbacks{$archive}->[CB_BUFFER] = \$buffer;
($status, $callbacks{$archive}->[CB_BUFFER]);
}
sub _mywrite
{
my($archive, $buffer) = @_;
my $status = eval {
$callbacks{$archive}->[CB_WRITE]->(
$archive,
$callbacks{$archive}->[CB_DATA],
$buffer,
)
};
if($@)
{
lib/Archive/Libarchive/XS/Callback.pm view on Meta::CPAN
}
sub archive_read_open ($$$$$)
{
my($archive, $data, $opencb, $readcb, $closecb) = @_;
$callbacks{$archive}->[CB_DATA] = $data if defined $data;
$callbacks{$archive}->[CB_OPEN] = $opencb if defined $opencb;
$callbacks{$archive}->[CB_READ] = $readcb if defined $readcb;
$callbacks{$archive}->[CB_CLOSE] = $closecb if defined $closecb;
my $ret = _archive_read_open($archive, $data, $opencb, $readcb, $closecb);
$ret;
}
sub archive_read_open2 ($$$$$$)
{
my($archive, $data, $opencb, $readcb, $skipcb, $closecb) = @_;
$callbacks{$archive}->[CB_DATA] = $data if defined $data;
$callbacks{$archive}->[CB_OPEN] = $opencb if defined $opencb;
$callbacks{$archive}->[CB_READ] = $readcb if defined $readcb;
$callbacks{$archive}->[CB_SKIP] = $skipcb if defined $skipcb;
$callbacks{$archive}->[CB_CLOSE] = $closecb if defined $closecb;
my $ret = _archive_read_open2($archive, $data, $opencb, $readcb, $skipcb, $closecb);
$ret;
}
sub archive_write_open ($$$$$)
{
my($archive, $data, $opencb, $writecb, $closecb) = @_;
$callbacks{$archive}->[CB_DATA] = $data if defined $data;
$callbacks{$archive}->[CB_OPEN] = $opencb if defined $opencb;
$callbacks{$archive}->[CB_WRITE] = $writecb if defined $writecb;
$callbacks{$archive}->[CB_CLOSE] = $closecb if defined $closecb;
my $ret = _archive_write_open($archive, $data, $opencb, $writecb, $closecb);
$ret;
}
sub archive_read_free ($)
{
my($archive) = @_;
my $ret = _archive_read_free($archive);
delete $callbacks{$archive};
$ret;
}
sub archive_write_free ($)
{
my($archive) = @_;
my $ret = _archive_write_free($archive);
delete $callbacks{$archive};
$ret;
}
sub archive_set_error
{
lib/Archive/Libarchive/XS/Callback.pm view on Meta::CPAN
=head1 DESCRIPTION
This document provides information of callback routines for writing
custom input/output interfaces to the libarchive perl bindings. The
first two arguments passed into all callbacks are:
=over 4
=item $archive
lib/Archive/Libarchive/XS/Callback.pm view on Meta::CPAN
=back
For the variable name / types conventions used in this document, see
L<Archive::Libarchive::XS::Function>.
The expected return value for all callbacks EXCEPT the read callback
is a standard integer libarchive status value (example: C<ARCHIVE_OK>
or C<ARCHIVE_FATAL>).
If your callback dies (throws an exception), it will be caught at the
Perl level. The error will be sent to standard error via L<warn|perlfunc#warn>
and C<ARCHIVE_FATAL> will be passed back to libarchive.
=head2 data
There is a data field for callbacks associated with each $archive object.
It can be any native Perl type (example: scalar, hashref, coderef, etc).
You can set this by calling
L<archive_read_set_callback_data|Archive::Libarchive::XS::Function#archive_read_set_callback_data>,
or by passing the data argument when you "open" the archive using
L<archive_read_open|Archive::Libarchive::XS::Function#archive_read_open>,
view release on metacpan or search on metacpan
lib/Archive/Libarchive.pm view on Meta::CPAN
Support calls allow L<Archive::Libarchive> to decide when to use a feature; "set" calls
enable the feature unconditionally.
=item "Open" a particular data source
This can be using callbacks for a custom source, or one of the pre-canned data sources supported directly by
L<Archive::Libarchive>.
=item Iterate over the contents
Ask alternatively for "header" or entry/file metadata (which is represented by a L<Archive::Libarchive::Entry> instance),
lib/Archive/Libarchive.pm view on Meta::CPAN
file handle.
=head2 List contents of archive with custom read functions
Sometimes, none of the packaged open methods will work for you. In that case, you can use the lower-level C<open>
method, which accepts a number of callbacks. For this example we will use the C<open>, C<read> and C<close>
callbacks.
use 5.020;
use Archive::Libarchive qw( :const );
my $r = Archive::Libarchive::ArchiveRead->new;
lib/Archive/Libarchive.pm view on Meta::CPAN
say $e->pathname;
}
$r->close;
For full power of read callbacks see the L<open method's documentation|Archive::Libarchive::ArchiveRead/open>.
When writing to an archive the L<Archive::Libarchive::ArchiveWrite> class also has its own
L<open method and callbacks|Archive::Libarchive::ArchiveWrite/open>.
=head2 A universal decompressor / defilter-er
The "raw" format handler treats arbitrary binary input as a single-element archive. This allows you to get the
output of a libarchive filter chain, including files with multiple encodings, such as C<gz.uu> files:
view release on metacpan or search on metacpan
lib/Archive/TAP/Convert.pm view on Meta::CPAN
$formatter->prepare;
my $session;
my $aggregator = TAP::Harness::Archive->aggregator_from_archive({
archive => $args{archive},
parser_callbacks => {
ALL => sub {
$session->result( $_[0] );
},
},
made_parser_callback => sub {
view release on metacpan or search on metacpan
unzip-6.0/amiga/filedate.c view on Meta::CPAN
#include "crypt.h" /* just so we can tell if CRYPT is supported */
#if (!defined(FUNZIP) && !defined(UTIL))
#include "timezone.h" /* for AMIGA-specific timezone callbacks */
#ifndef SUCCESS
# define SUCCESS (-1L)
# define FAILURE 0L
#endif
view release on metacpan or search on metacpan
lib/Argon/Client.pm view on Meta::CPAN
sub BUILD {
my ($self, $args) = @_;
if ($self->channel) {
# Set callbacks
$self->channel->on_msg(K('_notify', $self));
$self->channel->on_err(K('_error', $self));
$self->channel->on_close(K('_close', $self));
if ($self->channel->is_ready) {
view release on metacpan or search on metacpan
lib/Array/IntSpan/Fields.pm view on Meta::CPAN
sub adapt_range_in_cb
{
my $self = shift;
# the callbacks will be called with ($start, $end,$payload) or
# ($start,$end)
my @callbacks = @_ ;
return map
{
my $old_cb = $_; # required for closure to work
defined $old_cb ?
lib/Array/IntSpan/Fields.pm view on Meta::CPAN
my ($s_int,$e_int,$value) = @_ ;
my ($s,$e) = $self->int_to_field($s_int,$e_int) ;
$old_cb->($s,$e,$value);
}
: undef ;
} @callbacks ;
}
sub get_element
{
my ($self,$idx) = @_;
view release on metacpan or search on metacpan
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
callans
callant
callants
callas
callback
callbacks
callboy
callboys
called
caller
callers
view release on metacpan or search on metacpan
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
callans
callant
callants
callas
callback
callbacks
callboy
callboys
called
caller
callers