Result:
found more than 769 distributions - search limited to the first 2001 files matching your query
( run in 2.499 )
App-GUI-Juliagraph
view release on metacpan or search on metacpan
lib/App/GUI/Juliagraph/Dialog/About.pm view on Meta::CPAN
use base qw/Wx::Dialog/;
use Graphics::Toolkit::Color;
sub new {
my ( $class, $parent) = @_;
my $self = $class->SUPER::new( $parent, -1, 'About Wx::GUI::Juliagraph' );
my @label_property = ( [-1,-1], [-1,-1], &Wx::wxALIGN_CENTRE_HORIZONTAL );
my $version = Wx::StaticText->new( $self, -1, $App::GUI::Juliagraph::NAME . ' version '.$App::GUI::Juliagraph::VERSION , @label_property);
my $author = Wx::StaticText->new( $self, -1, ' by Herbert Breunung ', @label_property);
my $license = Wx::StaticText->new( $self, -1, ' licensed under the GPL 3 ', @label_property);
App-GUI-Notepad
view release on metacpan or search on metacpan
lib/App/GUI/Notepad/Frame.pm view on Meta::CPAN
# icon and sets the font for displaying the file to a fixed width font.
sub new {
my ($class) = shift;
my ($title, $position, $size) = @_;
my ($this) = $class->SUPER::new( undef, -1, $title, $position, $size );
$this->SetIcon( Wx::GetWxPerlIcon() );
$this->{menubar} = App::GUI::Notepad::MenuBar->new();
$this->SetMenuBar( $this->{menubar}->menubar() );
App-Genpass-ID
view release on metacpan or search on metacpan
script/_genpass-id 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/_genpass-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;
# state $singleton = $class->new;
script/_genpass-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/_genpass-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;
#
#__END__
App-Genpass-WordList
view release on metacpan or search on metacpan
script/_genpass-wordlist 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/_genpass-wordlist 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/_genpass-wordlist 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/_genpass-wordlist 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__
App-GitFind
view release on metacpan or search on metacpan
lib/App/GitFind/PathClassMicro.pm view on Meta::CPAN
sub croak { require Carp; goto &Carp::croak; }
use IO::File ();
sub new {
my $self = shift->SUPER::new;
my $file = pop();
my @dirs = @_;
my ($volume, $dirs, $base) = $self->_spec->splitpath($file);
lib/App/GitFind/PathClassMicro.pm view on Meta::CPAN
sub dir_class { "App::GitFind::PathClassMicro::Dir" }
sub as_foreign {
my ($self, $type) = @_;
local $App::GitFind::PathClassMicro::Foreign = $self->_spec_class($type);
my $foreign = ref($self)->SUPER::new;
$foreign->{dir} = $self->{dir}->as_foreign($type) if defined $self->{dir};
$foreign->{file} = $self->{file};
return $foreign;
}
lib/App/GitFind/PathClassMicro.pm view on Meta::CPAN
# children(). Note that they don't respect 'foreign' semantics.
my $Updir = __PACKAGE__->_spec->updir;
my $Curdir = __PACKAGE__->_spec->curdir;
sub new {
my $self = shift->SUPER::new();
# If the only arg is undef, it's probably a mistake. Without this
# special case here, we'd return the root directory, which is a
# lousy thing to do to someone when they made a mistake. Return
# undef instead.
lib/App/GitFind/PathClassMicro.pm view on Meta::CPAN
sub as_foreign {
my ($self, $type) = @_;
my $foreign = do {
local $self->{file_spec_class} = $self->_spec_class($type);
$self->SUPER::new;
};
# Clone internal structure
$foreign->{volume} = $self->{volume};
my ($u, $fu) = ($self->_spec->updir, $foreign->_spec->updir);
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-GitHooks
view release on metacpan or search on metacpan
lib/App/GitHooks/Hook/PrePush.pm view on Meta::CPAN
# It is important to do it once for the whole hook, and then pass it to the
# plugins - otherwise the first plugin that reads stdin will leave it empty
# for the others and they won't see any changes.
$args{'stdin'} = [ <STDIN> ]; ## no critic (InputOutput::ProhibitExplicitStdin)
return $class->SUPER::run(
%args
);
}
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
( run in 2.499 seconds using v1.01-cache-2.11-cpan-54e63673c56 )