view release on metacpan or search on metacpan
lib/App/perlfind.pm view on Meta::CPAN
# pass through; maybe someone higher up knows what to do
# with it
push @new_pages, $page;
}
}
$self->SUPER::grand_search_init(\@new_pages, @found);
}
sub opt_V {
my $self = shift;
print "perlfind v$VERSION, ";
$self->SUPER::opt_V(@_);
}
1;
__END__
view release on metacpan or search on metacpan
lib/App/perlminlint/Plugin/LintT.pm view on Meta::CPAN
}
sub gather_opts {
(my MY $plugin, my $fn) = @_;
my @opts = $plugin->SUPER::gather_opts($fn);
#
# Add -Ilib if $fn looks like t/.../*.t
#
if (my ($basedir) = $fn =~ m{^(.*/|)t/}) {
view release on metacpan or search on metacpan
lib/App/perlrdf/Command/RDQL.pm view on Meta::CPAN
sub opt_spec
{
map {
$_->[0] =~ s/sparql/rdql/ if @$_;
$_;
} shift->SUPER::opt_spec
}
sub validate_args
{
my ($self, $opt, $arg) = @_;
$self->usage_error("Must not provide both 'rdql_file' and 'execute' options.")
if exists $opt->{rdql_file} && exists $opt->{execute};
$self->SUPER::validate_args($opt, $arg);
}
sub _sparql
{
require RDF::Query;
my ($self, $opt, $arg) = @_;
my $rdql = $self->SUPER::_sparql($opt, $arg);
my $query = RDF::Query::->new($rdql, { lang => 'rdql' })
or die RDF::Query->error;
return $query->as_sparql;
}
view release on metacpan or search on metacpan
inc/Module/Build/My.pm view on Meta::CPAN
if ($args{from} =~ /\bscript\/.*\.sh$/ and $args{to_dir}) {
my (undef, undef, $file) = File::Spec->splitpath($args{from});
$file =~ s/\.sh$//;
$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
script/_ppgrep view on Meta::CPAN
# $opts{-ref} //= ['replace_with_ref'];
# $opts{-circular} //= ['clone'];
# $opts{-obj} //= ['unbless'];
#
# $opts{'!recurse_obj'} //= 1;
# $class->SUPER::new(%opts);
#}
#
#sub get_cleanser {
# my $class = shift;
# local $creating_singleton = 1;
script/_ppgrep view on Meta::CPAN
# "You probably want to call get_cleanser() yet to get a singleton instead?";
# }
#
# $opts{"JSON::PP::Boolean"} //= ['deref_scalar_one_or_zero'];
#
# $class->SUPER::new(%opts);
#}
#
#sub get_cleanser {
# my $class = shift;
# local $creating_singleton = 1;
script/_ppgrep view on Meta::CPAN
# ($key, $l);
#}
#
#sub merge_ARRAY_ARRAY {
# my ($self, $key, $l, $r) = @_;
# $self->SUPER::merge_ARRAY_ARRAY($key, $l, $r, 'KEEP');
#};
#
#sub merge_ARRAY_HASH {
# my ($self, $key, $l, $r) = @_;
# ($key, $l);
script/_ppgrep view on Meta::CPAN
# ($key, $l);
#}
#
#sub merge_HASH_HASH {
# my ($self, $key, $l, $r) = @_;
# $self->SUPER::merge_HASH_HASH($key, $l, $r, 'KEEP');
#};
#
#1;
## ABSTRACT: Handler for Data::ModeMerge KEEP merge mode
#
view release on metacpan or search on metacpan
script/_reposdb-inline view on Meta::CPAN
# $opts{-ref} //= ['replace_with_ref'];
# $opts{-circular} //= ['clone'];
# $opts{-obj} //= ['unbless'];
#
# $opts{'!recurse_obj'} //= 1;
# $class->SUPER::new(%opts);
#}
#
#sub get_cleanser {
# my $class = shift;
# local $creating_singleton = 1;
script/_reposdb-inline view on Meta::CPAN
# "You probably want to call get_cleanser() yet to get a singleton instead?";
# }
#
# $opts{"JSON::PP::Boolean"} //= ['deref_scalar_one_or_zero'];
#
# $class->SUPER::new(%opts);
#}
#
#sub get_cleanser {
# my $class = shift;
# local $creating_singleton = 1;
script/_reposdb-inline view on Meta::CPAN
# ($key, $l);
#}
#
#sub merge_ARRAY_ARRAY {
# my ($self, $key, $l, $r) = @_;
# $self->SUPER::merge_ARRAY_ARRAY($key, $l, $r, 'KEEP');
#};
#
#sub merge_ARRAY_HASH {
# my ($self, $key, $l, $r) = @_;
# ($key, $l);
script/_reposdb-inline view on Meta::CPAN
# ($key, $l);
#}
#
#sub merge_HASH_HASH {
# my ($self, $key, $l, $r) = @_;
# $self->SUPER::merge_HASH_HASH($key, $l, $r, 'KEEP');
#};
#
#1;
## ABSTRACT: Handler for Data::ModeMerge KEEP merge mode
#
view release on metacpan or search on metacpan
lib/App/riap.pm view on Meta::CPAN
my $old_go_opts = Getopt::Long::Configure();
Getopt::Long::GetOptions(@gospec);
Getopt::Long::Configure($old_go_opts);
$class->_install_cmds;
my $self = $class->SUPER::new();
$self->load_history;
# load from file
$self->load_settings;
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
sub postamble {
my $self = shift;
my ($s2p, $psed) = map { File::Spec->catfile('script', $_) } qw/s2p psed/;
return $self->SUPER::postamble . <<"END";
$psed: $s2p
\$(CP) $s2p $psed
END
}
view release on metacpan or search on metacpan
lib/App/cdif/Command.pm view on Meta::CPAN
# Compatibility: expand array reference in command
sub command {
my $obj = shift;
if (@_) {
my @cmd = map { ref eq 'ARRAY' ? @$_ : $_ } @_;
return $obj->SUPER::command(@cmd);
}
$obj->SUPER::command;
}
# Compatibility wrapper for read_error option
sub option {
my $obj = shift;
if (@_ == 1) {
my $key = shift;
if ($key eq 'read_error') {
my $stderr = $obj->SUPER::option('stderr') // '';
return $stderr eq 'redirect' ? 1 : 0;
}
return $obj->SUPER::option($key);
} else {
while (my($k, $v) = splice @_, 0, 2) {
if ($k eq 'read_error') {
$obj->SUPER::option(stderr => $v ? 'redirect' : undef);
} else {
$obj->SUPER::option($k => $v);
}
}
return $obj;
}
}
view release on metacpan or search on metacpan
lib/App/sdview/Parser/Pod.pm view on Meta::CPAN
method parse_file ( $fh )
{
push @_indentstack, 0;
push @_parastack, [];
$self->SUPER::parse_file( $fh );
return $_parastack[0]->@*;
}
method parse_string ( $str )
{
push @_indentstack, 0;
push @_parastack, [];
$self->SUPER::parse_string_document ( $str );
return $_parastack[0]->@*;
}
my %PARA_TYPES = (
Para => "App::sdview::Para::Plain",
lib/App/sdview/Parser/Pod.pm view on Meta::CPAN
$body = String::Tagged->new;
# Protect a leading equals sign
$str =~ s/^=/E<61>/;
$self->SUPER::parse_string_document( "=pod\n\n$str" );
return $body;
}
method handle_text ( $text )
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
lib/App/termpub.pm view on Meta::CPAN
$self->key_bindings->{'<'} = 'history_back';
$self->key_bindings->{'>'} = 'history_forward';
$self->key_bindings->{'|'} = 'set_width';
$self->key_bindings->{Curses::KEY_RESIZE} = 'handle_resize';
$self->SUPER::run;
}
sub quit_without_saving {
shift->SUPER::quit;
}
sub quit {
my $self = shift;
$self->epub->save_metadata(
{ version => 2, position => $self->get_position } );
$self->SUPER::quit;
}
my %keycodes = (
Curses::KEY_DOWN => '<Down>',
Curses::KEY_UP => '<Up>',
lib/App/termpub.pm view on Meta::CPAN
);
sub goto_position {
my ( $self, $position ) = @_;
$self->set_chapter( $position->{chapter} );
$self->SUPER::goto_position($position);
}
sub get_position {
my $self = shift;
my $position = $self->SUPER::get_position;
$position->{chapter} = $self->chapter;
return $position;
}
sub set_width {
lib/App/termpub.pm view on Meta::CPAN
return;
}
sub handle_resize {
my $self = shift;
$self->SUPER::handle_resize;
$self->render;
$self->update_screen;
}
sub jump_to_toc {
lib/App/termpub.pm view on Meta::CPAN
return;
}
sub next_page {
my $self = shift;
$self->next_chapter if !$self->SUPER::next_page;
}
sub prev_page {
my $self = shift;
$self->prev_chapter if !$self->SUPER::prev_page;
}
sub next_chapter {
my $self = shift;
while (1) {
lib/App/termpub.pm view on Meta::CPAN
}
sub render {
my $self = shift;
my $content = $self->chapters->[ $self->chapter ]->content;
return $self->SUPER::render( decode( 'UTF-8', $content ) );
}
1;
view release on metacpan or search on metacpan
script/wordlist-blossom 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
script/wordlist-wordle 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
script/wordlist 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
bin/zipdetails view on Meta::CPAN
sub new
{
my $class = shift ;
my $self = $class->SUPER::new();
my %fields = (
# fields from the header
'centralHeaderOffset' => 0,
bin/zipdetails view on Meta::CPAN
sub new
{
my $class = shift ;
my $self = $class->SUPER::new();
my %fields = (
'inCentralDir' => 1,
) ;
bin/zipdetails view on Meta::CPAN
# check for existing entry
return $CentralDirectory->{byCentralOffset}{$offset}
if defined $offset && defined $CentralDirectory->{byCentralOffset}{$offset} ;
my $self = $class->SUPER::new();
my %fields = (
'diskNumber' => 0,
'comment' => "",
'ldEntry' => undef,
bin/zipdetails view on Meta::CPAN
sub new
{
my $class = shift ;
my $self = $class->SUPER::new();
my %fields = (
'streamedMatch' => 0,
'readDataDescriptor' => 0,
'cdEntryIndex' => {},
view release on metacpan or search on metacpan
lib/AppConfig/Std.pm view on Meta::CPAN
#-------------------------------------------------------------------
# Use AppConfig's args() method to parse the command-line.
#-------------------------------------------------------------------
$result = $self->SUPER::args($ref);
#-------------------------------------------------------------------
# If the command-line was successfully parsed (returned TRUE),
# then check for the standard command-line switches.
#-------------------------------------------------------------------
lib/AppConfig/Std.pm view on Meta::CPAN
#-------------------------------------------------------------------
# Use AppConfig's getopt() method to parse the command-line.
#-------------------------------------------------------------------
$result = $self->SUPER::getopt($ref);
#-------------------------------------------------------------------
# If the command-line was successfully parsed (returned TRUE),
# then check for the standard command-line switches.
#-------------------------------------------------------------------
view release on metacpan or search on metacpan
lib/Appium/Commands.pm view on Meta::CPAN
has 'get_cmds' => (
is => 'lazy',
builder => sub {
my ($self) = @_;
my $commands = $self->SUPER::get_cmds;
my $appium_commands = {
contexts => {
method => 'GET',
url => 'session/:sessionId/contexts',
view release on metacpan or search on metacpan
inc/A2_Build.pm view on Meta::CPAN
sub find_perl_interpreter
{
my $self = shift @_;
my $perl = $self->SUPER::find_perl_interpreter(@_);
# Convert /usr/bin/perl5.8.6 to /usr/bin/perl:
# (if the latter is a symlink to the former)
my $base = $perl;
if ($base =~ s/[\d.]+$// and -l $base and abs_path($base) eq $perl) {
view release on metacpan or search on metacpan
inc/Module/Install/XSUtil.pm view on Meta::CPAN
# XXX: We must append to PM inside ExtUtils::MakeMaker->new().
sub init_PM {
my $self = shift;
$self->SUPER::init_PM(@_);
while(my($k, $v) = each %ToInstall){
$self->{PM}{$k} = $v;
}
return;
inc/Module/Install/XSUtil.pm view on Meta::CPAN
# append object file names to CCCMD
sub const_cccmd {
my $self = shift;
my $cccmd = $self->SUPER::const_cccmd(@_);
return q{} unless $cccmd;
if (Module::Install::XSUtil::_is_msvc()){
$cccmd .= ' -Fo$@';
}
inc/Module/Install/XSUtil.pm view on Meta::CPAN
return $cccmd
}
sub xs_c {
my($self) = @_;
my $mm = $self->SUPER::xs_c();
$mm =~ s/ \.c /.cpp/xmsg if $UseCplusplus;
return $mm;
}
sub xs_o {
my($self) = @_;
my $mm = $self->SUPER::xs_o();
$mm =~ s/ \.c /.cpp/xmsg if $UseCplusplus;
return $mm;
}
1;
view release on metacpan or search on metacpan
lib/ArangoDB/Document.pm view on Meta::CPAN
use ArangoDB::Constants qw(:api);
use ArangoDB::Edge;
sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
$self->{_api_path} = API_DOCUMENT . '/' . $self;
return $self;
}
sub any_edges {
view release on metacpan or search on metacpan
lib/ArangoDB2/Cursor.pm view on Meta::CPAN
# create new instance
sub new
{
my($class, $arango, $database, $data) = @_;
my $self = $class->SUPER::new($arango, $database);
$self->{data} = $data;
return $self;
}
view release on metacpan or search on metacpan
perllib/Arch/Library.pm view on Meta::CPAN
use Arch::TempFiles qw(temp_dir);
sub _default_fields ($) {
my $this = shift;
return (
$this->SUPER::_default_fields,
fallback_dir => undef,
ready_to_add => 0,
path => undef,
working_revision => undef,
revision_trees => {},
view release on metacpan or search on metacpan
lib/Archive/CAR/v2.pm view on Meta::CPAN
}
}
# Read CAR v1 data
seek( $fh, $data_offset, 0 );
$self->SUPER::read( $fh, $data_size );
return $self;
}
method write ( $fh, $roots, $blocks ) {
lib/Archive/CAR/v2.pm view on Meta::CPAN
my $header_pos = systell($fh);
print {$fh} pack( 'a40', '' );
# Write CAR v1 data
my $data_offset = systell($fh);
$self->SUPER::write( $fh, $roots, $blocks );
my $data_size = systell($fh) - $data_offset;
# Index
my $index_offset = systell($fh);
require Archive::CAR::Indexer;
lib/Archive/CAR/v2.pm view on Meta::CPAN
seek( $fh, $current_pos, 0 );
}
# Override header to include v2 fields and v1 roots as expected in some outputs
method header () {
my $v1_header = $self->SUPER::header;
return { %$v2_header, roots => $v1_header->{roots}, version => 2, };
}
};
#
1;
view release on metacpan or search on metacpan
inc/My/ModuleBuild.pm view on Meta::CPAN
{
$args{requires}->{'Archive::Libarchive::XS'} = 0;
}
}
$class->SUPER::new(%args);
}
1;
view release on metacpan or search on metacpan
inc/My/ModuleBuild.pm view on Meta::CPAN
%args = (%args, Alien::Base::Wrapper->mb_args);
$args{include_dirs} = 'xs';
$args{c_source} = 'xs';
my $self = $class->SUPER::new(%args);
$self->add_to_cleanup(
File::Spec->catfile('xs', 'func.h.tmp'),
File::Spec->catfile('xs', 'func.h'),
'*.core',
inc/My/ModuleBuild.pm view on Meta::CPAN
sub ACTION_build
{
my $self = shift;
$self->depends_on('build_prep');
$self->SUPER::ACTION_build(@_);
}
sub ACTION_test
{
# doesn't seem like this should be necessary, but without
# this, it doesn't call my ACTION_build
my $self = shift;
$self->depends_on('build');
$self->SUPER::ACTION_test(@_);
}
sub ACTION_install
{
# doesn't seem like this should be necessary, but without
# this, it doesn't call my ACTION_build
my $self = shift;
$self->depends_on('build');
$self->SUPER::ACTION_install(@_);
}
my $dir;
my $count = 0;
my $cc;
view release on metacpan or search on metacpan
inc/Module/Install/ExtraTests.pm view on Meta::CPAN
. qq{"-e" "Module::Install::ExtraTests::__harness('Test::Harness', $is_author, '$a_str', '$r_str', '$s_str', \$(TEST_VERBOSE), '\$(INST_LIB)', '\$(INST_ARCHLIB)')" $tests\n};
}
sub dist_test {
my ($self, @args) = @_;
my $text = $self->SUPER::dist_test(@args);
my @lines = split /\n/, $text;
$_ =~ s/ (\S*MAKE\S* test )/ RELEASE_TESTING=1 $1 / for grep { m/ test / } @lines;
return join "\n", @lines;
}
view release on metacpan or search on metacpan
# A stupid hack to get ExtUtils::MakeMaker to write Makefiles that cause items
# listed in OBJECT to be built in the directory they actually exist in.
#
sub const_cccmd {
my ( $self, @args ) = @_;
my $ret = $self->SUPER::const_cccmd(@args);
$ret .= ' -o $@';
return $ret;
}
#
# A small hack to get the bootstrap file to be placed in the src/ directory.
#
sub dynamic_bs {
my ( $self, %args ) = @_;
my $ret = $self->SUPER::dynamic_bs(%args);
$ret =~ s/BOOTSTRAP = \$\(BASEEXT\)\.bs/BOOTSTRAP = src\/\$\(BASEEXT\)\.bs/m;
return $ret;
}
#
# A hack to clean gcov data spewed by Devel::Cover.
#
sub clean {
my ( $self, %args ) = @_;
my $ret = $self->SUPER::clean(%args);
my $srcdir = $self->{'postamble'}->{'srcdir'};
$ret .= sprintf( "\t- \$(RM_F) *.gcov %s/*.gcda %s/*.gcno\n", $srcdir, $srcdir );
return $ret;
view release on metacpan or search on metacpan
xt/lib/ATWDumbbench.pm view on Meta::CPAN
use warnings;
use parent 'Dumbbench';
sub new {
my ( $class, @args ) = @_;
my $self = $class->SUPER::new(@args);
$self->{atw_measure_map} = {};
return $self;
}
sub measurements {
view release on metacpan or search on metacpan
lib/Archive/Zip/DirectoryMember.pm view on Meta::CPAN
sub fileName {
my $self = shift;
my $newName = shift;
$newName =~ s{/?$}{/} if defined($newName);
return $self->SUPER::fileName($newName);
}
# So people don't get too confused. This way it looks like the problem
# is in their code...
sub contents {