view release on metacpan or search on metacpan
- Fix missing name for numeric 001 under --trace. Also depend on
IRC::Utils 0.07 for even more numeric names.
- Avoid custom stringifications when dumping objects with --trace
0.38 Tue Apr 26 22:03:37 GMT 2011
- Replace status callbacks with irc_plugin_status events
- Send an irc_network event when the network name changes
- Enabling tracing in --interactive after startup wasn't working
0.37 Mon Apr 25 23:59:48 GMT 2011
- Preserve symlinks in all supplied filenames
view release on metacpan or search on metacpan
lib/PrimaX/InputHistory.pm view on Meta::CPAN
return %profile;
}
# Changes the contents of the evaluation line to the one stored in the history.
# This is used for the up/down key callbacks for the evaluation line. The
# currentRevisions array holds the revisions to the history, and it is reset
# every time the user runs the evaluation line.
sub move_line {
my ($self, $requested_move) = @_;
view release on metacpan or search on metacpan
lib/App/Prove/Elasticsearch/Parser.pm view on Meta::CPAN
sub new {
my ($class, $opts) = @_;
$opts = clone $opts; #Convenience, if we are passing over and over again...
#Load our callbacks
$opts->{'callbacks'} = {
'test' => \&testCallback,
'comment' => \&commentCallback,
'unknown' => \&unknownCallback,
'bailout' => \&bailoutCallback,
'EOF' => \&EOFCallback,
view release on metacpan or search on metacpan
lib/TAP/Harness/MultipleConfig.pm view on Meta::CPAN
use ConfigCache;
sub new {
my ($self, $params) = @_;
$params->{callbacks} = +{
after_test => sub {
my ($filenames) = @_;
my $config = ConfigCache->get_config_by_filename($filenames->[0]);
ConfigCache->push_configs($config);
},
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/App/RabbitTail/FileTailer.pm view on Meta::CPAN
backoff_increment => 0.1,
max_sleep => 10,
fn => $somefile,
cd => sub { warn("Got line " . $_[0]) },
);
$tailer->tail; # Sets up watcher to fire callbacks, returns
# Rest of your code.
# Enter event loop.
AnyEvent->condvar->recv;
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/App/RoboBot/Network/IRC.pm view on Meta::CPAN
$_->join for @{$self->channels};
}
sub disconnect {
# TODO: remove callbacks
# call client->disconnect
}
sub kick {
my ($self, $response, $nick, $message) = @_;
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/big_streams/iBottomMute.pl view on Meta::CPAN
=cut
=head2 sub set_pick
callbacks
send gather number to $iBM
delete output of previous semblance
plus more callbacks following...
=cut
sub set_pick {
lib/App/SeismicUnixGui/big_streams/iBottomMute.pl view on Meta::CPAN
In this case the $variable is empty
1. increment gather
Exit if beyond last gather
2. reset prompt
3. Otherwise display the first semblance
4 ... see following callbacks
=cut
sub set_next {
print("Next...\n");
view release on metacpan or search on metacpan
local/lib/perl5/Net/SFTP/Foreign.pm view on Meta::CPAN
or die "ls failed";
When both C<no_wanted> and C<wanted> rules are used, the C<no_wanted>
rule is applied first and then the C<wanted> one (order is important
if the callbacks have side effects, experiment!).
=item ordered =E<gt> 1
the list of entries is ordered by filename.
local/lib/perl5/Net/SFTP/Foreign.pm view on Meta::CPAN
operations (for instance C<remove> or C<open>) affecting the same
directory are intermixed.
This flag ensures that no callback call (C<wanted>, C<no_wanted>) is
performed in the middle of reading a directory and has to be set if
any of the callbacks can modify the file system.
=item realpath =E<gt> 1
for every file object, performs a realpath operation and populates the
C<realpath> entry.
local/lib/perl5/Net/SFTP/Foreign.pm view on Meta::CPAN
These options have the same effect as on the C<ls> method, allowing to
filter out unwanted entries (note that filename keys contain B<full
paths> here).
The callbacks can also be used to perform some action instead of
creating the full listing of entries in memory (that could use huge
amounts of RAM for big file trees):
$sftp->find($src_dir,
wanted => sub {
view release on metacpan or search on metacpan
lib/App/SimpleScan.pm view on Meta::CPAN
use Module::Pluggable search_path => [qw(App::SimpleScan::Plugin)];
use base qw(Class::Accessor);
__PACKAGE__->mk_accessors(qw(sub_engine tests test_count
next_line_callbacks _deps));
$|++; ##no critic
use App::SimpleScan::TestSpec;
lib/App/SimpleScan.pm view on Meta::CPAN
################################
# Basic class methods.
# Create the object.
# - load and install plugins
# - make object available to test specs for callbacks
# - clear the tests and test count
# - process the command-line options
# - return the object
sub new {
my ($class) = @_;
lib/App/SimpleScan.pm view on Meta::CPAN
$self->_deps(Graph->new);
$self->sub_engine($sub_engine);
# initialize fields first; plugins may expect good values.
$self->next_line_callbacks([]);
$self->tests([]);
$self->test_count(0);
$self->{InputQueue} = [];
# Load and install the plugins.
lib/App/SimpleScan.pm view on Meta::CPAN
# from the magic input filehandle.
sub next_line {
my ($self) = shift;
my $next_line;
# Call and plugin-installed input callbacks.
# These can do whatever they like to the line stack, the
# object, etc.
foreach my $callback (@ {$self->next_line_callbacks() }) {
$callback->($self);
}
# If we have lines on the input queue, read from there.
if (defined $self->{InputQueue}->[0] ) {
lib/App/SimpleScan.pm view on Meta::CPAN
=head2 new
Creates a new instance of the application. Also invokes
all of the basic setup so that when C<go> is called, all
of the plugins are available and all callbacks are in place.
=head2 Instance methods
=head3 Execution methods
lib/App/SimpleScan.pm view on Meta::CPAN
Standard plugin methods that App::SimpleScan will look for;
none of these is required, though you should choose to
implement the ones that you actually need.
=head2 Basic callbacks
=head3 init
The C<init> class method is called by C<App:SimpleScan>
when the plugin class is loaded; the C<App::SimpleScan>
view release on metacpan or search on metacpan
bin/simplenotesync view on Meta::CPAN
Log::Dispatch::File->new(
name => 'debug_file',
min_level => 'debug',
filename => $PROGNAME . '_debug.log',
newline => 1,
callbacks => $sub,
));
}
Log::Any::Adapter->set('Dispatch', dispatcher => $logger);
}
view release on metacpan or search on metacpan
lib/SVN/Dump/Walker.pm view on Meta::CPAN
$SVN::Dump::Walker::VERSION = '1.000';
}
# Base class for higher-level objects that process SVN::Dump streams.
# Does some fundamental handling of SVN::Dump events, then provides
# slightly higher level events to callbacks.
# TODO - Basically done. Think twice if you think it requires
# modification.
use lib qw(../SVN-Dump/lib ./lib);
lib/SVN/Dump/Walker.pm view on Meta::CPAN
C<svn_dump_filename> should contain the name of a Subversion dump
file. It's required.
C<include_regexp> may contain a regular expression defining the
directories and files to include in the walk. Those that don't match
won't trigger callbacks. Optional.
=head2 Public Methods
=head3 walk
view release on metacpan or search on metacpan
socialcalc/simpleedit15.pl view on Meta::CPAN
var heights=[];
function showvalue() {
addmsg(spreadsheet.editor.colwidth, true);
}
// formatting callbacks
// Simple ExpandWiki code for testing
SocialCalc.Callbacks.expand_wiki = function(displayvalue, sheetobj, linkstyle, valueformat) {
view release on metacpan or search on metacpan
inc/File/Find/Rule.pm view on Meta::CPAN
subs stack is exposed in quite the right way. Maybe it'd be better as
a private global hash. Something like $subs{$self} = []; and in
C<DESTROY>, delete $subs{$self}.
That'd make compiling subrules really much easier (no need to pass
@subs in for context), and things that work via a mix of callbacks and
code fragments are possible (you'd probably want this for the stat
tests).
Need to check this currently working version in before I play with
that though.
view release on metacpan or search on metacpan
lib/App/Spec/Run.pm view on Meta::CPAN
my $plugins = $self->spec->plugins || [];
for my $plugin (@$plugins) {
$plugin->init_run($self);
}
my @callbacks;
my $subscriber_events = $self->subscribers;
for my $key (qw/ global_options print_output /) {
my $subscribers = $subscriber_events->{ $key };
for my $sub (@$subscribers) {
my $plugin = $sub->{plugin};
my $method = $sub->{method};
my $callback = sub {
$plugin->$method( run => $self, @_);
};
push @callbacks, $callback;
}
$self->response->add_callbacks($key => \@callbacks);
}
my $argv = $self->argv;
unless ($argv) {
$argv = \@ARGV;
view release on metacpan or search on metacpan
lib/App/TLSMe/Connection.pm view on Meta::CPAN
...
);
=head1 DESCRIPTION
Object-Value that holds handles, callbacks and other information associated with
proxy-backend connection.
=head1 METHODS
=head2 C<new>
view release on metacpan or search on metacpan
lib/App/Tel/Expect.pm view on Meta::CPAN
use strict;
use warnings;
=head1 NAME
App::Tel::Expect - Monkeypatching Expect to support callbacks and large buffer reads
=cut
use POSIX qw(:sys_wait_h :unistd_h); # For WNOHANG and isatty
view release on metacpan or search on metacpan
lib/App/Termcast.pm view on Meta::CPAN
# eventually be deprecated in favor of moving the termcast interaction
# code out to an App::Termcast::Writer module or something, and
# this module should be a simple wrapper that combines that module
# with Term::Filter.
Term::Filter::Callback->new(
callbacks => {
setup => sub {
my ($term) = @_;
$term->add_input_handle($self->socket);
},
winch => sub {
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
my @opt_spec = (
[
'command-restart=i',
'maximum number of command restarts',
{
'callbacks' => {
'is_positive' => sub { _check_positive_number( shift ) },
},
},
],
[
'config-file=s',
'specify a configuration file to use',
{
'callbacks' => {
'exists' => sub { _check_exists( 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
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
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"
);