view release on metacpan or search on metacpan
lib/App/NoPAN/Installer/Configure.pm view on Meta::CPAN
sub build {
my ($self, $nopan) = @_;
$self->shell_exec('autoreconf -i')
unless -e 'configure';
$self->shell_exec('./configure');
$self->SUPER::build($nopan);
}
1;
view release on metacpan or search on metacpan
lib/App/Nopaste/Service/AnyPastebin.pm view on Meta::CPAN
$mech->{__username} = $args{username}
if exists($args{username}) && $args{username};
$mech->{__password} = $args{password}
if exists($args{password}) && $args{password};
return $self->SUPER::get($mech => @_);
}
sub post_content {
my ($self, %args) = @_;
view release on metacpan or search on metacpan
lib/App/Nopaste/Service/Linode.pm view on Meta::CPAN
my %args = @_;
$args{username} ||= 'no';
$args{password} ||= 'spam';
return $self->SUPER::get($mech => %args);
}
sub post_content {
my ($self, %args) = @_;
my $content = $self->SUPER::post_content(%args);
# On p.linode.com the code2 parameter is called code2z for some
# reason.
$content->{code2z} = delete $content->{code2};
view release on metacpan or search on metacpan
1.02 Fri Jan 29 09:52:00 2010
- Change namespace from CGI::Office::* to App::Office::* after discussion with Matt Trout
1.01 Thu Jan 7 15:39:00 2010
- Add MANIFEST and MYMETA.yml
- Change call from SUPER::cgiapp to global_prerun to match other CGI-Office-* modules
1.00 Thu Dec 31 10:48:00 2009
- Rename from Local::Contacts.
- Remove Apache-specific code.
- Split into N controllers, using CGI::Application::Dispatch.
view release on metacpan or search on metacpan
lib/App/Oozie/Deploy/Template/ttree.pm view on Meta::CPAN
our $VERSION = '0.020'; # VERSION
sub new {
my($class, $log_collector, @pass_through) = @_;
my $self = $class->SUPER::new(
@pass_through,
);
$self->{log_collector} = $log_collector;
return $self;
}
sub run {
my($self, @args) = @_;
local @ARGV = @args;
return $self->SUPER::run();
}
sub emit_warn {
my($self, $msg) = @_;
return$self->{log_collector}->(
view release on metacpan or search on metacpan
lib/App/PDFLibrarian/QueryDialog/impl.pm view on Meta::CPAN
sub new {
my ($class, $pdffile, $query_db_name, $query_value, $query_values, $error_message) = @_;
# create dialog
my $self = $class->SUPER::new(undef, -1, "Import $pdffile - App::PDFLibrarian", &Wx::wxDefaultPosition, &Wx::wxDefaultSize, wxDIALOG_NO_PARENT | wxDEFAULT_DIALOG_STYLE);
# set dialog icon
my $icon = Wx::ArtProvider::GetIcon(Wx::ArtProvider::wxART_QUESTION, Wx::ArtProvider::wxART_CMN_DIALOG);
$self->SetIcon($icon);
view release on metacpan or search on metacpan
lib/App/PLab/Calibrations.pm view on Meta::CPAN
sub win_inidefaults
{
my $w = $_[0];
my @rc = $w-> rect;
return (
$w-> SUPER::win_inidefaults,
XCalibration => 1.0,
YCalibration => 1.0,
);
}
lib/App/PLab/Calibrations.pm view on Meta::CPAN
tabs => [ @nbpages, 'Calibrations'],
pageCount => scalar(@nbpages) + 1,
);
my $pg = $nb-> pageCount;
$w-> SUPER::opt_propcreate( $dlg, $nb, $nbpages);
# Calibrations
my %spinPrf = (
size => [ 265, 20],
min => 0.0001,
max => 10,
lib/App/PLab/Calibrations.pm view on Meta::CPAN
}
sub opt_proppush
{
my ( $w, $dlg, $nb, $nbpages) = @_;
$w-> SUPER::opt_proppush( $dlg, $nb, $nbpages);
# Calibrations
$nbpages-> XC-> value($w->{ini}->{XCalibration});
$nbpages-> YC-> value($w->{ini}->{YCalibration});
}
sub opt_proppop
{
my ( $w, $dlg, $nb, $nbpages, $mr) = @_;
$w-> SUPER::opt_proppop( $dlg, $nb, $nbpages, $mr);
# Calibrations
if ( $mr) {
my ( $xc, $yc) = ( $nbpages-> XC->value, $nbpages-> YC->value);
$w-> modified( 1) if
$w->{ini}->{XCalibration} != $xc ||
view release on metacpan or search on metacpan
lib/App/PS1.pm view on Meta::CPAN
},
);
sub new {
my ($class, $params) = @_;
my $self = $class->SUPER::new($params);
$self->safe( $ENV{UNICODE_UNSAFE} ) if !defined $self->safe;
$self->theme("default") if !defined $self->theme;
$theme{ $self->theme } ||= {};
view release on metacpan or search on metacpan
lib/App/PerlShell/LexPersist.pm view on Meta::CPAN
$params{$_} = $cfg{$_};
}
}
}
my $self = $class->SUPER::new(@_);
$self->{package} = $package;
# following line avoids ugly error if first command in shell is
# $var = ... without the "my"
$PACKAGE = $package;
lib/App/PerlShell/LexPersist.pm view on Meta::CPAN
\$App::PerlShell::LexPersist::PACKAGE = __PACKAGE__;
}
END_PERL
# Hand off to the parent version
return $self->SUPER::prepare( $code, @_ );
}
# Modifications to the package are tracked at compile-time
sub compile {
my $self = shift;
my $sub = $self->SUPER::compile(@_);
# Save the package state
$self->set_package($PACKAGE);
return $sub;
view release on metacpan or search on metacpan
code => q{
sub ACTION_docs {
use Pod::Select;
my $self = shift;
podselect({ -output => 'README.pod' }, 'lib/App/PhotoDB.pm');
return $self->SUPER::ACTION_docs;
}
}
);
my $builder = $class->new(
view release on metacpan or search on metacpan
script/pick view on Meta::CPAN
#}
#
#sub _init_read {
# my $self = shift;
#
# $self->SUPER::_init_read;
# $self->{_res} = {};
# $self->{_merge} = undef;
# $self->{_num_seen_section_lines} = 0;
# $self->{_cur_section} = $self->{default_section};
# $self->{_arrayified} = {};
view release on metacpan or search on metacpan
sub ACTION_author_test
{
my $self = shift;
local $self->{properties}{test_files} = 'xt/author/*.t' ;
$self->SUPER::ACTION_test();
}
sub ACTION_dist
{
my $self = shift;
{
print "git not found, 'Changes' will not be generated from git log!\n" ;
}
}
$self->SUPER::ACTION_test() ;
#~ $self->ACTION_author_test() ;
$self->SUPER::ACTION_dist();
};
EOC
;
view release on metacpan or search on metacpan
#---------------------------------
sub ACTION_build {
my ($s) = @_;
$s->_readme();
$s->SUPER::ACTION_build;
}
# Only for the maintainer on "Build build".
sub _readme {
my ($s) = @_;
sub ACTION_install {
my ($s) = @_;
$s->_clear_cache;
$s->_check_for_source_command if os_type eq "Unix";
$s->SUPER::ACTION_install;
}
sub ACTION_clean {
my ($s) = @_;
$s->_clear_cache;
$s->SUPER::ACTION_clean;
}
sub ACTION_test {
my ($s) = @_;
$s->_clear_cache;
$s->SUPER::ACTION_test;
}
sub _clear_cache {
my $home = $ENV{HOME} // $ENV{USERPROFILE} // $ENV{LOGDIR};
for ( glob qq("$home/.cache/my_pod*.cache") ) {
view release on metacpan or search on metacpan
lib/App/Pods2Site/SiteBuilder/BasicFramesTreeTOC.pm view on Meta::CPAN
sub new
{
my $class = shift;
my $self = $class->SUPER::new(@_);
$self->{maxtocdepth} = -1;
return $self;
}
view release on metacpan or search on metacpan
lib/App/Presto/ShellUI.pm view on Meta::CPAN
$self->arg_processor->process($args);
1;
} or do {
warn "Error preparsing args @$args: $@";
};
return $self->SUPER::call_command(@_);
}
sub ornaments {
shift->{term}->ornaments(@_);
}
view release on metacpan or search on metacpan
lib/PrimaX/InputHistory.pm view on Meta::CPAN
# This has the standard profile of an InputLine widget, except that it knows
# about navigation keys and other things useful for the History.
sub profile_default
{
my %def = %{$_[ 0]-> SUPER::profile_default};
# These lines are somewhat patterned from the Prima example called 'editor'
my @acc = (
# Navigation scrolls through the command history
['Previous Line', 'Up', kb::Up, sub {$_[0]->move_line(-1)}]
lib/PrimaX/InputHistory.pm view on Meta::CPAN
# This stage initializes the inputline. I believe this is the appropriate stage
# for (1) setting the properties above (2) loading the history file data, and
# (3) connecting to the output widget.
sub init {
my $self = shift;
my %profile = $self->SUPER::init(@_);
foreach ( qw(pageLines promptFormat currentLine outputWidget storeType) ) {
$self->{$_} = $profile{$_};
}
# Store the history and revisions:
view release on metacpan or search on metacpan
lib/TAP/Parser/Iterator/Stream/Selectable.pm view on Meta::CPAN
my ( $self, $args ) = @_;
unless ( $args->{handle} ) {
die "handle argument must be specified.\n";
}
my $chunk_size = delete $args->{_chunk_size} || 65536;
return unless ( $self->SUPER::_initialize( $args->{handle} ) );
$self->{out} = $args->{handle};
$self->{err} = $args->{handle};
$self->{sel} = IO::Select->new( $args->{handle} );
$self->{pid} = '';
$self->{exit} = undef;
view release on metacpan or search on metacpan
lib/App/Prove/Elasticsearch/Harness.pm view on Meta::CPAN
# inject parser_class as Test::Rail::Parser.
sub new {
my $class = shift;
my $arg_for = shift;
$arg_for->{parser_class} = 'App::Prove::Elasticsearch::Parser';
my $self = $class->SUPER::new($arg_for);
return $self;
}
sub make_parser {
my ($self, $job) = @_;
my $args = $self->SUPER::_get_parser_args($job);
my @relevant_keys =
qw{SERVER_HOST SERVER_PORT CLIENT_INDEXER CLIENT_BLAMER CLIENT_VERSIONER CLIENT_PLATFORMER CLIENT_AUTODISCOVER};
my @keys_filtered = grep {
my $subj = $_;
lib/App/Prove/Elasticsearch/Harness.pm view on Meta::CPAN
$km =~ s/_/./g;
$args->{$km} = $ENV{$key};
$self->{$km} = $ENV{$key};
}
$self->SUPER::_make_callback('parser_args', $args, $job->as_array_ref);
my $parser = $self->SUPER::_construct($self->SUPER::parser_class, $args);
$self->SUPER::_make_callback('made_parser', $parser, $job->as_array_ref);
my $session =
$self->SUPER::formatter->open_test($job->description, $parser);
return ($parser, $session);
}
sub runtests {
lib/App/Prove/Elasticsearch/Harness.pm view on Meta::CPAN
if ($ENV{CLIENT_AUTODISCOVER}) {
my $searcher = $self->_require_deps();
@tests = $self->_filter_tests_with_results($searcher, @tests);
}
return $self->SUPER::runtests(@tests);
}
sub _filter_tests_with_results {
my ($self, $searcher, @tests) = @_;
my $indexer = $ENV{CLIENT_INDEXER};
view release on metacpan or search on metacpan
lib/TAP/Harness/Metrics.pm view on Meta::CPAN
}
sub new {
my ($ref,@opt)=@_;
my $class=ref($ref)||$ref;
my $self=$class->SUPER::new(@opt);
while(my ($k,$v)=each(%options)) { $$self{$k}=$v }
if($$self{type} eq 'module') {
$$self{modulef}=verifyCallback($$self{module},$$self{f});
if(my $cfg=$$self{module}->can('configureHarness')) {
my %config=&$cfg();
lib/TAP/Harness/Metrics.pm view on Meta::CPAN
return $self;
}
sub make_parser {
my ($self,@args)=@_;
my ($parser,$session)=$self->SUPER::make_parser(@args);
$parser->configure(callback=>sub { $self->save(@_) });
return ($parser,$session);
}
sub import {
view release on metacpan or search on metacpan
lib/TAP/Harness/MultipleConfig.pm view on Meta::CPAN
my ($filenames) = @_;
my $config = ConfigCache->get_config_by_filename($filenames->[0]);
ConfigCache->push_configs($config);
},
};
$self->SUPER::new($params);
}
1;
__END__
view release on metacpan or search on metacpan
lib/App/Prove/Plugin/MySQLPool.pm view on Meta::CPAN
my $share_file = $ENV{ PERL_APP_PROVE_PLUGIN_MYSQLPOOL_SHARE_FILE }
or return;
Test::mysqld::Pool->new( share_file => $share_file )->dealloc_unused;
$self->SUPER::close_test(@_);
}
}
{
package TAP::Formatter::MySQLPool;
use parent 'TAP::Formatter::Console';
sub open_test {
my $self = shift;
bless $self->SUPER::open_test(@_), 'TAP::Formatter::MySQLPool::Session';
}
}
1;
__END__
view release on metacpan or search on metacpan
lib/App/Prove/Plugin/TraceUse.pm view on Meta::CPAN
my $fn = "$tf";
## add the traceuse option
$_[0]->{switches} = ["-d:TraceUse=hidecore,output:$fn"];
my $obj = $self->SUPER::new(@_);
$obj->{collected_dependencies} = [];
my $trace_use_sub = sub {
view release on metacpan or search on metacpan
inc/Module/Build/My.pm view on Meta::CPAN
if ($args{from} =~ /\bscript\/.*\.pl$/ and $args{to_dir}) {
my (undef, undef, $file) = File::Spec->splitpath($args{from});
$file =~ s/\.pl$//;
$args{to} = File::Spec->catfile($args{to_dir}, $file);
delete $args{to_dir};
return $self->SUPER::copy_if_modified(%args);
}
return $self->SUPER::copy_if_modified(%args);
};
$self->SUPER::process_script_files;
}
1;
view release on metacpan or search on metacpan
.claude/skills/perl-io-async-future/SKILL.md view on Meta::CPAN
my ($self, %params) = @_;
for my $key (qw(host port on_connect on_error)) {
$self->{$key} = delete $params{$key} if exists $params{$key};
}
$self->{host} //= 'localhost';
$self->SUPER::configure(%params); # MUST chain — unknown keys die here
}
sub host { $_[0]->{host} }
```
**Rules:**
- `delete` your keys from `%params` before `SUPER::configure` — leftover keys throw `configure_unknown`.
- Parameter validation/defaults go in `configure`, **not** `new` (Notifier owns construction).
- A Notifier only knows its loop after `$loop->add($notifier)` — anything that calls `$self->loop` must run after that.
- Child notifiers (`IO::Async::Stream`, `IO::Async::Timer`) attach via `$self->add_child($child)`; they inherit the loop automatically.
---
.claude/skills/perl-io-async-future/SKILL.md view on Meta::CPAN
- **Local-variable-only Future** → silent GC. Hold it on `$self`.
- **Async sub whose caller drops the Future** → "lost its returning future". Hold the result.
- **Strong `$self` capture in callback chain** → object never destroyed; reconnect loops leak. `weaken` it.
- **Forgetting to `delete` the held Future on completion** → stale guards block future operations.
- **Not chaining `SUPER::configure`** → defaults silently missing, or unknown keys silently accepted.
- **Returning a Future from `async sub` without `await`** → double-wrapped result.
- **Calling `$self->loop` before `$loop->add($self)`** → `loop` is undef.
- **Mixing `then` and `on_done` thinking they're the same** → `on_done` returns the original Future, your "chain" is actually two parallel observers.
- **Cancelling a Future inside its own callback** → undefined; cancel from outside.
- **Using `Future->new` instead of `$loop->new_future`** when you need loop-aware behavior (the loop variant integrates with timeouts and is the recommended form inside Notifier subclasses).
view release on metacpan or search on metacpan
lib/App/RecordStream/Aggregator/Concatenate.pm view on Meta::CPAN
{
my $class = shift;
my $delim = shift;
my $field = shift;
my $this = $class->SUPER::new($field);
$this->{'delim'} = $delim;
return $this;
}
lib/App/RecordStream/Aggregator/Concatenate.pm view on Meta::CPAN
{
my $class = shift;
my $delim = shift;
my $valuation = shift;
my $this = $class->SUPER::new_from_valuation($valuation);
$this->{'delim'} = $delim;
return $this;
}
view release on metacpan or search on metacpan
lib/App/Regather/Config.pm view on Meta::CPAN
my $logger = delete $_{logger};
my $fg = delete $_{fg};
my $verbose = delete $_{verbose};
my $nodes = delete $_{add_nodes};
my $self = $class->SUPER::new(%_);
$self->{logger} = $logger;
$self->{verbose} = $verbose;
$self->get_ldap_config_file;
view release on metacpan or search on metacpan
inc/Pod/Markdown.pm view on Meta::CPAN
# ABSTRACT: Convert POD to Markdown
use parent qw(Pod::Parser);
sub initialize {
my $self = shift;
$self->SUPER::initialize(@_);
$self->_private;
$self;
}
sub _private {
view release on metacpan or search on metacpan
lib/App/Repository/MySQL.pm view on Meta::CPAN
$columns = $self->_get_default_columns($table) if (!$columns);
my $nrows = 0;
my $import_method = $options->{import_method} || $self->{import_method} || "";
if ($import_method eq "basic") {
$nrows = $self->SUPER::import_rows($table, $columns, $file, $options);
}
elsif ($import_method eq "insert") {
$nrows = $self->insert_rows($table, $columns, $file, $options);
}
elsif ($import_method eq "insert_mysql") {
lib/App/Repository/MySQL.pm view on Meta::CPAN
sub export_rows {
&App::sub_entry if ($App::trace);
my ($self, $table, $params, $file, $options) = @_;
if ($options->{export_method} && $options->{export_method} eq "basic") {
$self->SUPER::export_rows($table, $file, $options);
}
else {
my $columns = $options->{columns} || $self->{table}{$table}{columns};
my $where_clause = $self->_mk_where_clause($table, $params, $options);
my $sql = "select\n " . join(",\n ", @$columns);
view release on metacpan or search on metacpan
sub ACTION_author_test
{
my $self = shift;
local $self->{properties}{test_files} = 'xt/author/*.t' ;
$self->SUPER::ACTION_test();
}
sub ACTION_build
{
my $self = shift;
EOV
close VERSION ;
}
$self->SUPER::ACTION_build(@_);
}
sub ACTION_dist
{
my $self = shift;
{
print "git not found, 'Changes' will not be generated from git log!\n" ;
}
}
$self->SUPER::ACTION_test() ;
#~ $self->ACTION_author_test() ;
$self->SUPER::ACTION_dist();
};
EOC
view release on metacpan or search on metacpan
lib/App/ReslirpTunnel.pm view on Meta::CPAN
my $sl = $parent_dir->child('latest.reslirp-tunnel.log');
unlink $sl if -l $sl;
symlink $fn, $sl;
};
}
$self->SUPER::_init_logger(log_level => $level, log_to_stderr => $log_to_stderr, log_file => $fn);
}
sub _set_signal_handlers {
my $self = shift;
my $signal_count = 0;