view release on metacpan or  search on metacpan

inc/Module/Install/ExtraTests.pm  view on Meta::CPAN

  package # The newline tells PAUSE, "DO NOT INDEXING!"
  MY;
  sub test_via_harness {
    my $self = shift;

    return $self->SUPER::test_via_harness(@_)
      unless $use_extratests;

    my ($perl, $tests) = @_;
    my $a_str = -d 'xt/author'  ? 'xt/author'  : '';
    my $r_str = -d 'xt/release' ? 'xt/release' : '';

inc/Module/Install/ExtraTests.pm  view on Meta::CPAN

  }

  sub dist_test {
    my ($self, @args) = @_;

    return $self->SUPER::dist_test(@args)
      unless $use_extratests;

    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

inc/SandyMakeMaker.pm  view on Meta::CPAN

use File::ShareDir::Install;

# These two are necessary to keep bmake happy
sub xs_c {
	my $self = shift;
	my $ret = $self->SUPER::xs_c(@_);
	$ret =~ s/\$\*\.xs/\$</g;
	$ret =~ s/\$\*\.c\b/\$@/g;
	return $ret;
}

sub c_o {
	my $self = shift;
	my $ret = $self->SUPER::c_o(@_);
	$ret =~ s/\$\*\.c\b/\$</g;
	$ret =~ s/\$\*\$\(OBJ_EXT\)/\$@/g;
	return $ret;
}

sub const_cccmd {
	my $ret = shift->SUPER::const_cccmd(@_);
	return q{} unless $ret;

	$ret .= ' -o $@';

	return $ret;
}

# Fix shared object path
sub constants {
	my $self = shift;
	my $ret = $self->SUPER::constants(@_);
	$ret =~ s|(?<=\nFULLEXT).*\n| = App/Sandy/RNG\n|;
	$ret =~ s|(?<=\nBASEEXT).*\n| = RNG\n|;
	return $ret;
}

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

           if ( $file =~ m{^/.[^/]+} ) {

           return 0;

           } else {
              return $self->SUPER::libscan($file);
            #return 1;
	   }

	}

 view release on metacpan or  search on metacpan

lib/Net/ManageSieve/Siesh.pm  view on Meta::CPAN

            1;
        } or do {
            die "Cannot load module IO::Socket::SSL\n";
          }
    }
    return $self->SUPER::starttls(@args);
}

sub movescript {
    my ( $self, $source, $target ) = @_;
    my $is_active = $self->is_active($source);

lib/Net/ManageSieve/Siesh.pm  view on Meta::CPAN

}

sub listscripts {
    my ( $self, $unactive ) = @_;
    my (@scripts);
    @scripts = @{ $self->SUPER::listscripts() };
    my $active = delete $scripts[-1];
    if ($unactive) {
        @scripts = grep { $_ ne $active } @scripts;
    }
    return @scripts;
}

sub deletescript {
    my ( $sieve, @scripts ) = @_;
    for my $script (@scripts) {
        $sieve->SUPER::deletescript($script);
    }
    return 1;
}

sub view_script {

lib/Net/ManageSieve/Siesh.pm  view on Meta::CPAN

    return $self->get_active() eq $script;
}

sub get_active {
    my ($self) = @_;
    return $self->SUPER::listscripts()->[-1];
}

sub script_exists {
    my ( $self, $scriptname ) = @_;
    my %script = map { $_ => 1 } $self->listscripts;

 view release on metacpan or  search on metacpan

lib/App/SimpleBackuper/DB/FilesTable.pm  view on Meta::CPAN

sub delete {
	my $self = shift;
	%find_by_parent_id_name_cache = ();
	$find_by_parent_id_name_cache_parent_id = 0;
	return $self->SUPER::delete(@_);
}

1;

 view release on metacpan or  search on metacpan

t/lib/TestsFor/App/SimulateReads/Fastq.pm  view on Meta::CPAN

	QUALITY_SIZE  => 10,
};

sub startup : Tests(startup) {
	my $test = shift;
	$test->SUPER::startup;
	my $class = ref $test;
	$class->mk_classdata('default_fastq');
	$class->mk_classdata('default_attr');
	$class->mk_classdata('seq');
	$class->mk_classdata('seq_len');
}

sub setup : Tests(setup) {
	my $test = shift;
	my %child_arg = @_;
	$test->SUPER::setup;

	my %default_attr = (
		quality_profile => SEQ_SYS,
		read_size       => QUALITY_SIZE,
		%child_arg

 view release on metacpan or  search on metacpan

lib/Slaughter/Transport/git.pm  view on Meta::CPAN

=cut

sub new
{
    my ( $class, %args ) = @_;
    return $class->SUPER::new(%args);
}


=head2 _init

 view release on metacpan or  search on metacpan

socialcalc/third-party/lib/PocketIO.pm  view on Meta::CPAN

use Plack::Util::Accessor qw(resource handler class instance method);

use PocketIO::Resource;

sub new {
    my $self = shift->SUPER::new(@_);

    $self->handler($self->_get_handler);

    return $self;
}

 view release on metacpan or  search on metacpan

inc/Spiffy.pm  view on Meta::CPAN

# This line is here to convince "autouse" into believing we are autousable.
sub can {
    ($_[1] eq 'import' and caller()->isa('autouse'))
        ? \&Exporter::import        # pacify autouse's equality test
        : $_[0]->SUPER::can($_[1])  # normal case
}

# TODO
#
# Exported functions like field and super should be hidden so as not to

 view release on metacpan or  search on metacpan

lib/App/SpamcupNG/Error/Bounce.pm  view on Meta::CPAN

=cut

sub new {
    my ( $class, $message_ref ) = @_;
    return $class->SUPER::new( $message_ref, 1 );
}

=head2 message

Overrided from the parent class, adding required behavior.

 view release on metacpan or  search on metacpan

lib/App/SpreadRevolutionaryDate/MsgMaker/RevolutionaryDate/Calendar.pm  view on Meta::CPAN

      unless $locale_arg =~ /^(?:en|fr|it|es)$/;

    $locale_class = 'App::SpreadRevolutionaryDate::MsgMaker::RevolutionaryDate::Locale::' . $locale_arg;
  }

  $self = $self->SUPER::set(%args);

  if ($locale_class) {
    try_load_class($locale_class)
      or die "Cannot import locale class $locale_class\n";
    load_class($locale_class);

 view release on metacpan or  search on metacpan

inc/Menlo/Sqitch.pm  view on Meta::CPAN

    while (<DATA>) {
        chomp;
        last unless s/^\s+//;
        $deps{$_} = 1;
    }
    shift->SUPER::new(
        @_,
        _remove   => [],
        _bld_deps => \%deps,
    );
}

sub find_prereqs {
    my ($self, $dist) = @_;
    # Menlo defaults to config, test, runtime. We just want to bundle runtime.
    $dist->{want_phases} = ['runtime'];
    return $self->SUPER::find_prereqs($dist);
}

sub configure {
    my $self = shift;
    my $cmd = $_[0];
    return $self->SUPER::configure(@_) if ref $cmd ne 'ARRAY';
    # Always use vendor install dirs. Hack for
    # https://github.com/miyagawa/cpanminus/issues/581.
    if ($cmd->[1] eq 'Makefile.PL') {
        push @{ $cmd } => 'INSTALLDIRS=vendor';
    } elsif ($cmd->[1] eq 'Build.PL') {
        push @{ $cmd } => '--installdirs', 'vendor';
    }
    return $self->SUPER::configure(@_);
}

sub save_meta {
    my $self = shift;
    my ($module, $dist) = @_;
    # Record if we've installed a build-only dependency.
    my $dname = $dist->{meta}{name};
    push @{ $self->{_remove} } => $module if $self->{_bld_deps}{$dname};
    $self->SUPER::save_meta(@_);
}

sub remove_build_dependencies {
    # Uninstall modules for distributions not actually needed to run Sqitch.
    my $self = shift;

 view release on metacpan or  search on metacpan

lib/App/Standby/Group.pm  view on Meta::CPAN

# your code here ...
sub _config_values {
    my $self = shift;
    my $key = shift;

    return $self->SUPER::_config_values($key, $self->group_id());
}

sub _update_services {
    my $self = shift;
    my $contact_ref = shift;

 view release on metacpan or  search on metacpan

lib/App/Stash.pm  view on Meta::CPAN

=cut

sub new {
    my $class = shift;
    my $self  = $class->SUPER::new(@_);

    unless ( $self->application ) {
        my $caller = (caller)[0];
        $self->application($caller);
    }

 view release on metacpan or  search on metacpan

lib/App/StaticImageGallery/Base/NeedDir.pm  view on Meta::CPAN

use DateTime;
use parent 'App::StaticImageGallery::Base::Any';

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);
    my %args = @_;

    if ( defined $args{dir} and ref( $args{dir} ) eq 'App::StaticImageGallery::Dir' ) {
        $self->{_dir} = $args{dir};
    } else {

 view release on metacpan or  search on metacpan

local/lib/perl5/Module/Build/Cookbook.pm  view on Meta::CPAN

      code => <<'SUBCLASS' );

  sub ACTION_install {
      my $self = shift;
      # YOUR CODE HERE
      $self->SUPER::ACTION_install;
  }
  SUBCLASS

  $class->new(
      module_name => 'Your::Module',

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

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;

Build.PL  view on Meta::CPAN

# end of generated version module
EOV

close VERSION ;

$self->SUPER::ACTION_build(@_);
}

sub ACTION_dist
{
my $self = shift;

Build.PL  view on Meta::CPAN

else
	{
	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/Test/Generator/SchemaExtractor.pm  view on Meta::CPAN

Examines C<new> methods to determine required and optional parameters, validation requirements, and default values. This enables test generators to provide appropriate constructor arguments when object instantiation is needed.

=item * B<Inheritance Relationship Handling>

Detects parent classes through C<use parent>, C<use base>, and C<@ISA> declarations. Identifies when methods use C<SUPER::> calls and determines whether the current class or a parent class constructor should be used for object instantiation.

=item * B<External Object Dependency Detection>

Identifies when methods create or depend on objects from other classes, enabling proper test setup with mock objects or real dependencies.

lib/App/Test/Generator/SchemaExtractor.pm  view on Meta::CPAN

#             use base, and @ISA declarations.
#
# Entry:      $current_package - current package
#                                name string.
#             $method_body     - method source string
#                                (checked for SUPER::
#                                calls).
#
# Exit:       Returns an inheritance_info hashref
#             if any inheritance information is
#             found, or undef otherwise.

lib/App/Test/Generator/SchemaExtractor.pm  view on Meta::CPAN

			push @parent_classes, @isa_parents;
			$inheritance_info{isa_array} = \@isa_parents;
		}
	}

	# 3. Check if method uses SUPER:: calls
	if ($method_body && $method_body =~ /SUPER::/) {
		$inheritance_info{uses_super} = 1;
		if ($method_body =~ /SUPER::new/) {
			$inheritance_info{calls_super_new} = 1;
		}
	}

	# 4. Check if current package has its own new method

 view release on metacpan or  search on metacpan

lib/App/TestOnTap/Harness.pm  view on Meta::CPAN

sub new
{
	my $class = shift;
	my $args = shift;

	my $self = $class->SUPER::new
								(
									{
										formatter => __getFormatter($args),
										jobs => $args->getJobs(),
										merge => $args->getMerge(),

lib/App/TestOnTap/Harness.pm  view on Meta::CPAN

		{
			# the normal case is to run with a 'real' harness that parses
			# TAP, handles parallelization, formatters and all that
			#
			$wdmgr->beginTestRun();
			my $aggregator = $self->SUPER::runtests(@pairs); 
			$wdmgr->endTestRun($self->{testontap}->{args}, $aggregator);
			$failed = $aggregator->failed() || 0;
		}
		else
		{

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

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;

Build.PL  view on Meta::CPAN

		{
		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/VW/Install.pm  view on Meta::CPAN

use File::ShareDir 'module_dir';

sub options {
  my ($class) = @_;
  (
    $class->SUPER::options,
  );
}

our %systems;
$systems{debian} = {};

 view release on metacpan or  search on metacpan

lib/App/Web/VPKBuilder.pm  view on Meta::CPAN

use Plack::Request;
use Sort::ByExample qw/sbe/;
use YAML qw/LoadFile/;

sub new {
	my $self = shift->SUPER::new(@_);
	$self->{cfg} = {};
	for (sort <cfg/*>) {
		my $cfg = LoadFile $_;
		$self->{cfg} = merge $self->{cfg}, $cfg
	}

 view release on metacpan or  search on metacpan

lib/App/Widget/JSApp.pm  view on Meta::CPAN

# it does multiple inheritance.
sub _init {
    &App::sub_entry if ($App::trace);
    my ($self) = @_;
    $self->{onload_handler} = "context.onLoad();" if (!$self->{onload_handler});
    $self->SUPER::_init();
    &App::sub_exit() if ($App::trace);
}

sub html {
    &App::sub_entry if ($App::trace);

 view release on metacpan or  search on metacpan

lib/App/Widget/AppFrame.pm  view on Meta::CPAN

        #$self->{noframe} = $selector_widget->get_selected("noframe");

        return 1;
    }
    else {
        return $self->SUPER::handle_event($wname, $event, @args);
    }
}


######################################################################

 view release on metacpan or  search on metacpan

lib/App/Wx/PodEditor/Frame.pm  view on Meta::CPAN

our $VERSION = 0.01;

sub new {
    my( $class ) = shift;
    
    my( $this ) = $class->SUPER::new( @_ );

    $this->CreateMyMenuBar();
    
    $this->CreateStatusBar(1);
    $this->SetToolBar( $this->_toolbar );

 view release on metacpan or  search on metacpan

lib/App/Ylastic/CostAgent.pm  view on Meta::CPAN

#   * upload -- whether to upload data to Ylastic (default is false)
#--------------------------------------------------------------------------#

sub new {
  my $class = shift;
  my $self = $class->SUPER::new( @_ );

  croak __PACKAGE__ . " requires a valid 'config_file' argument\n"
    unless $self->config_file && -r $self->config_file;

  $self->{logger} ||= Log::Dispatchouli->new({ident => __PACKAGE__, to_self => 1});

 view release on metacpan or  search on metacpan

lib/App/Zapzi/Transformers/POD.pm  view on Meta::CPAN

             "--infile=$infile", "--outfile=$outfile");
    croak('Could not transform POD') unless -s $outfile;

    my $html = path($outfile)->slurp;

    return $self->SUPER::transform($html);
}

# _extract_title and _extract_text inherited from parent

1;

 view release on metacpan or  search on metacpan

script/_chinese-zodiac-of  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/_chinese-zodiac-of  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/_chinese-zodiac-of  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/_chinese-zodiac-of  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

Makefile.PL  view on Meta::CPAN

sub postamble {
	my $self = shift;
	my $a2p = $self->catfile('$(INST_BIN)', 'a2p$(EXE_EXT)');
	my @ret = (
		$self->SUPER::postamble,
		'OBJ = hash$(OBJ_EXT) str$(OBJ_EXT) util$(OBJ_EXT) walk$(OBJ_EXT) a2p$(OBJ_EXT)',
		'',
		"$a2p : \$(OBJ)"
	);
	if ($^O eq 'MSWin32' && $Config{cc} =~ /^cl/) {

 view release on metacpan or  search on metacpan

bin/_after  view on Meta::CPAN

#my $HAS_FLOCK = $Config{d_flock} || $Config{d_fcntl_can_lock} || $Config{d_lockf};
#
#my $trace_level = Log::Any::Adapter::Util::numeric_level('trace');
#sub new {
#    my ( $class, $file, @args ) = @_;
#    return $class->SUPER::new( file => $file, log_level => $trace_level, @args );
#}
#
#sub init {
#    my $self = shift;
#    if ( exists $self->{log_level} ) {

bin/_after  view on Meta::CPAN

#    my $class = shift;
#    if ( defined $Log::Any::OverrideDefaultAdapterClass
#        && $Log::Any::OverrideDefaultAdapterClass eq __PACKAGE__ )
#    {
#        my $category = pop @_;
#        return $class->SUPER::new( category => $category );
#    }
#    else {
#        return $class->SUPER::new(@_);
#    }
#}
#
#foreach my $method ( Log::Any::Adapter::Util::detection_methods() ) {
#    no strict 'refs';