view release on metacpan or search on metacpan
lib/App/ElasticSearch/Utilities/HTTPRequest.pm view on Meta::CPAN
use parent 'HTTP::Request';
sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
$self->header('Accept' => 'application/json');
return $self;
}
view release on metacpan or search on metacpan
lib/App/EvalServerAdvanced/ConstantCalc.pm view on Meta::CPAN
use Function::Parameters;
method new($class: %args) {
my $consts = delete $args{consts};
my $self = $class->SUPER::new(%args);
$self->{_private}{consts} = $consts;
return $self;
}
view release on metacpan or search on metacpan
lib/App/Foca/Server/HTTP.pm view on Meta::CPAN
server is 'Foca'.
=cut
sub product_tokens {
my ($self) = @_;
my $parent_token = $self->SUPER::product_tokens();
return "Foca_Server-$parent_token";
}
=head1 COPYRIGHT
view release on metacpan or search on metacpan
lib/App/Followme/JpegData.pm view on Meta::CPAN
sub fetch_from_file {
my ($self, $filename) = @_;
return () unless -e $filename;
return $self->SUPER::fetch_from_file($filename) if -T $filename;
my %dimensions;
($dimensions{width}, $dimensions{height}) = imgsize($filename);
return %dimensions;
view release on metacpan or search on metacpan
lib/App/ForKids/LogicalPuzzleGenerator/Fact/NotTrue.pm view on Meta::CPAN
sub new
{
my $class = shift;
my $this = $class->SUPER::new(@_);
$$this{value} = 0;
return $this;
}
view release on metacpan or search on metacpan
t/embed/lib/MyObj.pm view on Meta::CPAN
my ($obj, %args) = @_ ;
my $class = ref($obj) || $obj ;
# Create object
my $this = $class->SUPER::new(%args) ;
return($this) ;
}
t/embed/lib/MyObj.pm view on Meta::CPAN
# Add extra fields
foreach (keys %FIELDS)
{
$args{'fields'}{$_} = $FIELDS{$_} ;
}
$class->SUPER::init_class(%args) ;
# Create a class instance object - allows these methods to be called via class
$class->class_instance(%args) ;
}
view release on metacpan or search on metacpan
examples/app_doxy.pl view on Meta::CPAN
$info{'fn_details'}{$fn}{'args'} = \@args ;
}
# method call
# $this->access($options_aref) ;
# $this->SUPER::access($options_aref) ;
# App::Framework->access($options_aref) ;
if ($line =~ /^[^#]*(?:\$\w+|[\w_:]+)\->(SUPER::){0,1}([^\s\(]+)\(([^\)]*)/)
{
($super, $call, $args) = ($1, $2, $3) ;
print " + fn call <$super>: $call($args)\n" if $opts{debug} ;
# see if call complete
examples/app_doxy.pl view on Meta::CPAN
}
print " + + args (@args)\n" if $opts{debug} ;
$info{'fn_details'}{$fn}{'args'} = \@args ;
}
'fn:/^[^#]*(?:\$\w+|[\w_:]+)\->(SUPER::){0,1}([^\s\(]+)\(([^\)]*)/', 'super=$1;call=$2;args=$3;', FILTER_START_IF, CALL
'/\)\s*;/', 'args=args(args);' FILTER_IF, CALL
'super:/\)\s*;/', '$call = "$isa".":$call" ;' FILTER_IF, CALL
'/\)\s*;/', '$call = "$isa".":$call" ;' FILTER_IF, CALL
# method call
# $this->access($options_aref) ;
# $this->SUPER::access($options_aref) ;
# App::Framework->access($options_aref) ;
if ($line =~ /^[^#]*(?:\$\w+|[\w_:]+)\->(SUPER::){0,1}([^\s\(]+)\(([^\)]*)/)
{
($super, $call, $args) = ($1, $2, $3) ;
print " + fn call <$super>: $call($args)\n" if $opts{debug} ;
# see if call complete
view release on metacpan or search on metacpan
lib/App/GUI/Cellgraph/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::Cellgraph' );
my @label_property = ( [-1,-1], [-1,-1], &Wx::wxALIGN_CENTRE_HORIZONTAL );
my $version = Wx::StaticText->new( $self, -1, $App::GUI::Cellgraph::NAME . ' version '.$App::GUI::Cellgraph::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);
view release on metacpan or search on metacpan
lib/App/GUI/Harmonograph/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::Harmonograph' );
my @center = ( [-1,-1], [-1,-1], &Wx::wxALIGN_CENTRE_HORIZONTAL );
my $version = Wx::StaticText->new( $self, -1, $App::GUI::Harmonograph::NAME . ' version '.$App::GUI::Harmonograph::VERSION , @center);
my $author = Wx::StaticText->new( $self, -1, ' by Herbert Breunung ', @center);
my $license = Wx::StaticText->new( $self, -1, ' licensed under the GPL 3 ', @center);
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);
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() );
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__
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__
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);
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(
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(
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(
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(
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(
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(
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(
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(
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(
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(
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(
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(
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(
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(
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(
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
);
}