Result:
found more than 771 distributions - search limited to the first 2001 files matching your query
( run in 1.335 )
App-GitHooks-Plugin-BlockNOCOMMIT
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-GitHooks-Plugin-BlockProductionCommits
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-GitHooks-Plugin-DetectCommitNoVerify
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-GitHooks-Plugin-ForceBranchNamePattern
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-GitHooks-Plugin-ForceRegularUpdate
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-GitHooks-Plugin-MatchBranchTicketID
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-GitHooks-Plugin-NotifyReleasesToSlack
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-GitHooks-Plugin-PerlCompile
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-GitHooks-Plugin-PerlCritic
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-GitHooks-Plugin-PerlInterpreter
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-GitHooks-Plugin-PgBouncerAuthSyntax
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-GitHooks-Plugin-PrependTicketID
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-GitHooks-Plugin-PreventTrailingWhitespace
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-GitHooks-Plugin-RequireCommitMessage
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-GitHooks-Plugin-RequireTicketID
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-GitHooks-Plugin-RubyCompile
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-GitHooks-Plugin-ValidateChangelogFormat
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-GitHooks-Plugin-ValidatePODFormat
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-GitHooks-Plugin-VersionTagsRequireChangelog
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-GitWorkspaceScanner
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-Glacier
view release on metacpan or search on metacpan
lib/App/Glacier.pm view on Meta::CPAN
}
sub new {
my ($class, $argref) = shift;
my $self = $class->SUPER::new(
$argref,
optmap => {
'config-file|f=s' => 'config',
'account=s' => 'account',
'region=s' => 'region'
App-Greple-subst
view release on metacpan or search on metacpan
lib/App/Greple/subst/Dict.pm view on Meta::CPAN
my $class = shift;
if (@_ < 2) {
return bless {}, $class;
}
my($pattern, $correct) = splice @_, 0, 2;
my $obj = $class->SUPER::new($pattern, @_);
$obj->correct($correct);
$obj;
}
sub correct {
lib/App/Greple/subst/Dict.pm view on Meta::CPAN
}
sub new_comment {
my $class = shift;
my $comment = shift;
my $obj = $class->SUPER::new();
$obj->comment($comment);
$obj;
}
sub comment {
App-Guiio
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
App-HTTP_Proxy_IMP
view release on metacpan or search on metacpan
examples/DelayRequest.pm view on Meta::CPAN
sub RTYPES { ( IMP_PASS ) }
sub new_analyzer {
my ($class,%args) = @_;
my $self = $class->SUPER::new_analyzer(%args);
$self->run_callback(
# we don't need to look at response
[ IMP_PASS,1,IMP_MAXOFFSET ],
);
return $self;
}
sub validate_cfg {
my ($class,%cfg) = @_;
delete $cfg{delay};
return $class->SUPER::validate_cfg(%cfg);
}
sub data {
my ($self,$dir,$data,$offset,$type) = @_;
if ( $dir == 0 # request
App-HistHub
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
App-Ikachan
view release on metacpan or search on metacpan
inc/Pod/Markdown.pm view on Meta::CPAN
use parent qw(Pod::Parser);
use Pod::ParseLink (); # core
sub initialize {
my $self = shift;
$self->SUPER::initialize(@_);
$self->_private;
$self;
}
sub _private {
App-Ikaros
view release on metacpan or search on metacpan
lib/App/Ikaros.pm view on Meta::CPAN
config => $options->{config},
config_type => $options->{config_type},
config_options => $options->{config_options}
})->load;
my $ikaros = $class->SUPER::new({
config => $loaded_conf,
hosts => [],
verbose => $options->{verbose},
enable_profile => $options->{enable_profile},
output_filename => $options->{output_filename}
App-Info
view release on metacpan or search on metacpan
lib/App/Info.pm view on Meta::CPAN
Most often, such major data points will be sought in the object constructor.
Here's an example:
sub new {
# Construct the object so that handlers will work properly.
my $self = shift->SUPER::new(@_);
# Try to find the executable.
$self->info("Searching for executable");
if (my $exe = $util->first_exe('/bin/myapp', '/usr/bin/myapp')) {
# Confirm it.
lib/App/Info.pm view on Meta::CPAN
Thus the C<confirm()> event gives the user the chance to change the value if
the confirm event is handled.
The final thing to note about this constructor is the first line:
my $self = shift->SUPER::new(@_);
The first thing an App::Info subclass should do is execute this line to allow
the super class to construct the object first. Doing so allows any event
handling arguments to set up the event handlers, so that when we call
C<confirm()> or C<unknown()> the event will be handled as the client expects.
lib/App/Info.pm view on Meta::CPAN
alt_paths => \@paths );
Then, to retrieve these paths inside our C<new()> constructor, all we need do
is access them directly from the object:
my $self = shift->SUPER::new(@_);
my $alt_paths = $self->{alt_paths};
=head2 Subclassing Guidelines
To summarize, here are some guidelines for subclassing App::Info.
lib/App/Info.pm view on Meta::CPAN
Always subclass an App::Info category subclass. This will help to keep the
App::Info name space well-organized. New categories can be added as needed.
=item *
When you create the C<new()> constructor, always call C<SUPER::new(@_)>. This
ensures that the event handling methods methods defined by the App::Info base
classes (e.g., C<error()>) will work properly.
=item *
App-JESP
view release on metacpan or search on metacpan
lib/App/JESP/Cmd.pm view on Meta::CPAN
return (
[ "verbose|v", "log additional output" ],
[ "lib-inc|I=s@", "additional \@INC dirs", {
callbacks => { 'always fine' => sub { unshift @INC, @{$_[0]}; } }
} ],
$self->SUPER::global_opt_spec,
);
}
=head2 execute_command
lib/App/JESP/Cmd.pm view on Meta::CPAN
Log::Any::Adapter->set( 'Stdout' , log_level => 'debug' );
}else{
Log::Any::Adapter->set( 'Stdout' , log_level => 'info' );
}
return $self->SUPER::execute_command( $cmd , $opts , @args );
}
1;
App-JobLog
view release on metacpan or search on metacpan
lib/App/JobLog/Log/Event.pm view on Meta::CPAN
}
sub cmp {
my ( $self, $other ) = @_;
my $comparison = $self->SUPER::cmp($other);
unless ($comparison) {
if ( $other->isa(__PACKAGE__) ) {
if ( $self->is_closed ) {
if ( $other->is_closed ) {
return DateTime->compare( $self->end, $other->end );
( run in 1.335 second using v1.01-cache-2.11-cpan-99c4e6809bf )