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;
# end of generated version module
EOV
close VERSION ;
$self->SUPER::ACTION_build(@_);
}
sub ACTION_dist
{
my $self = shift;
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
Check if inheritance affects which constructor should be used.
Patterns:
- use parent/base statements
- @ISA array
- SUPER::new calls
- parent class methods
=cut
sub _check_inheritance_for_constructor {
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
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
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
#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} ) {
# 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';
view release on metacpan or search on metacpan
t/App/cdif/Command.pm view on Meta::CPAN
}
}
sub new {
my $class = shift;
my $obj = $class->SUPER::new;
$obj->command(@_) if @_;
$obj;
}
sub command {
view release on metacpan or search on metacpan
t/Command.pm view on Meta::CPAN
$ENV{PERL5LIB} = join ':', @INC;
sub new {
my $class = shift;
my $obj = $class->SUPER::new();
$obj->command([ $^X, qw(-Ilib), @_ ]);
$obj;
}
sub exec {
view release on metacpan or search on metacpan
lib/App/cdnget/Downloader.pm view on Meta::CPAN
}
sub DESTROY
{
my $self = shift;
$self->SUPER::DESTROY;
}
sub throw
{
my $self = shift;
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
die("Could not determine home directory!");
sub new
{
my ($class, @args) = @_;
my $self = $class->SUPER::new(@args);
$self->{_metabase_api} = 'https://metabase.cpantesters.org/api/v1/';
$self->{_metabase_file} = "File::Spec"->catfile(
$HOME,
qw< .cpantesters metabase_id.json >,
# don't get sent based on incorrect info.
sub install_module
{
my ($self, @args) = @_;
delete $self->{_current_dist};
$self->SUPER::install_module(@args);
}
sub resolve_name
{
my ($self, @args) = @_;
my $dist = $self->SUPER::resolve_name(@args);
$self->{_current_dist} = $dist;
return $dist;
}
sub cpants_report
view release on metacpan or search on metacpan
lib/App/cpm/Resolver/Fixed.pm view on Meta::CPAN
my %package;
for my $argv (@_) {
my ($package, $fixed_version) = split /\@/, $argv;
$package{$package} = $fixed_version;
}
my $self = $class->SUPER::new;
$self->{_packages} = \%package;
$self;
}
sub resolve {
lib/App/cpm/Resolver/Fixed.pm view on Meta::CPAN
if ($version_range) {
$version_range .= ", == $fixed_version";
} else {
$version_range = "== $fixed_version";
}
$self->SUPER::resolve({ %$argv, version_range => $version_range });
}
1;
view release on metacpan or search on metacpan
tlib/xmlstuff.pl view on Meta::CPAN
}
sub new {
my ($class, $path, %opts) = @_;
my $self = bless {%opts}, $class;
my $zip = $self->{zip} = $self->SUPER::new(); # Archive::Zip->new();
note "> Opening ",qsh($path)," at ",(caller(0))[2] if $self->{debug};
confess "Error reading $path ($!)"
unless $zip->read($path) == AZ_OK;
$self->{orig_path} //= $path;
$self
view release on metacpan or search on metacpan
lib/Perinci/CmdLine/dux.pm view on Meta::CPAN
$r->{args}{out} = [];
}
$r->{args}{-dux_cli} = 1;
$self->SUPER::action_call($r);
}
sub hook_format_result {
my ($self, $r) = @_;
lib/Perinci/CmdLine/dux.pm view on Meta::CPAN
if ($r->{res} && $r->{res}[0] == 200 && $r->{args}{-dux_cli}) {
# insert out to result, so it can be displayed
$r->{res}[2] = $r->{args}{out};
}
$self->SUPER::hook_format_result($r);
}
sub hook_display_result {
no warnings 'uninitialized';
view release on metacpan or search on metacpan
script/_finddo view on Meta::CPAN
#
# $opts{"JSON::XS::Boolean"} //= ['one_or_zero'];
#
# $opts{"Cpanel::JSON::XS::Boolean"} //= ['one_or_zero'];
#
# $class->SUPER::new(%opts);
#}
#
#sub get_cleanser {
# my $class = shift;
# state $singleton = $class->new;
script/_finddo 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;
# state $singleton = $class->new;
script/_finddo 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/_finddo 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;
#
#__END__
view release on metacpan or search on metacpan
script/_genpw-base56 view on Meta::CPAN
#
# $opts{"JSON::XS::Boolean"} //= ['one_or_zero'];
#
# $opts{"Cpanel::JSON::XS::Boolean"} //= ['one_or_zero'];
#
# $class->SUPER::new(%opts);
#}
#
#sub get_cleanser {
# my $class = shift;
# state $singleton = $class->new;
script/_genpw-base56 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;
# state $singleton = $class->new;
script/_genpw-base56 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/_genpw-base56 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;
#
#__END__
view release on metacpan or search on metacpan
script/_genpw-base58 view on Meta::CPAN
#
# $opts{"JSON::XS::Boolean"} //= ['one_or_zero'];
#
# $opts{"Cpanel::JSON::XS::Boolean"} //= ['one_or_zero'];
#
# $class->SUPER::new(%opts);
#}
#
#sub get_cleanser {
# my $class = shift;
# state $singleton = $class->new;
script/_genpw-base58 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;
# state $singleton = $class->new;
script/_genpw-base58 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/_genpw-base58 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;
#
#__END__
view release on metacpan or search on metacpan
script/_genpw-base64 view on Meta::CPAN
#
# $opts{"JSON::XS::Boolean"} //= ['one_or_zero'];
#
# $opts{"Cpanel::JSON::XS::Boolean"} //= ['one_or_zero'];
#
# $class->SUPER::new(%opts);
#}
#
#sub get_cleanser {
# my $class = shift;
# state $singleton = $class->new;
script/_genpw-base64 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;
# state $singleton = $class->new;
script/_genpw-base64 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/_genpw-base64 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;
#
#__END__
view release on metacpan or search on metacpan
script/_genpw-id 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/_genpw-id 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/_genpw-id 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/_genpw-id 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/_genpw-ind 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/_genpw-ind 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/_genpw-ind 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/_genpw-ind 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/FlashVideo/Mechanize.pm view on Meta::CPAN
use strict;
use base "WWW::Mechanize";
sub new {
my $class = shift;
my $browser = $class->SUPER::new(autocheck => 0);
$browser->agent_alias("Windows Mozilla");
my $proxy = $App::get_flash_videos::opt{proxy};
if($proxy && $proxy !~ /^\w+:/) {
my $port = ($proxy =~ /:(\d+)/)[0] || 1080;
lib/FlashVideo/Mechanize.pm view on Meta::CPAN
sub get {
my($self, @rest) = @_;
print STDERR "-> GET $rest[0]\n" if $App::get_flash_videos::opt{debug};
my $r = $self->SUPER::get(@rest);
if($App::get_flash_videos::opt{debug}) {
my $text = join " ", $self->response->code,
$self->response->header("Content-type"), "(" . length($self->content) . ")";
$text .= ": " . DBI::data_string_desc($self->content) if eval { require DBI };
lib/FlashVideo/Mechanize.pm view on Meta::CPAN
FlashVideo::Utils::error("Failed decoding as $charset: $@") if $@;
}
}
}
return $self->SUPER::update_html($html);
}
sub _parse_charset {
my($field) = @_;
return(($field =~ /;\s*charset=([-_.:a-z0-9]+)/i)[0]);
view release on metacpan or search on metacpan
lib/App/gh/Git.pm view on Meta::CPAN
push(@args, '-cmdline', $cmdline);
push(@args, '-value', $value);
push(@args, '-outputref', $outputref);
$self->SUPER::new(-text => 'command returned error', @args);
}
sub stringify {
my $self = shift;
my $text = $self->SUPER::stringify;
$self->cmdline() . ': ' . $text . ': ' . $self->value() . "\n";
}
sub cmdline {
my $self = shift;