view release on metacpan or search on metacpan
lib/App/ClusterSSH.pm view on Meta::CPAN
# optionally open console if required
sub new {
my ( $class, %args ) = @_;
my $self = $class->SUPER::new(%args);
$self->{cluster} = App::ClusterSSH::Cluster->new( parent => $self, );
$self->{options} = App::ClusterSSH::Getopt->new( parent => $self, );
$self->{config} = App::ClusterSSH::Config->new( parent => $self, );
$self->{helper} = App::ClusterSSH::Helper->new( parent => $self, );
view release on metacpan or search on metacpan
lib/Module/Starter/Plugin/App/Cmd.pm view on Meta::CPAN
}
when (/($main_module\b::Command)::(\w+)/) {
$self->command_module_guts($module, $1, lc $2);
}
default {
$self->SUPER::module_guts($module, $rtname);
}
}
}
lib/Module/Starter/Plugin/App/Cmd.pm view on Meta::CPAN
my ( \$class, \$app ) = \@_;
# Example options
#
# return (
# [ 'name=s' => "Name", {default => \$SUPER::config->{name} || undef} ],
# );
return ();
}
sub validate_args {
lib/Module/Starter/Plugin/App/Cmd.pm view on Meta::CPAN
my (\$class, \$app) = \@_;
return (
# Example options
#
# [ "familiar" => "Use an informal greeting", {default => \$SUPER::config->{familiar} || undef} ],
\$class->SUPER::opt_spec, # Include global options
);
}
# The command itself
view release on metacpan or search on metacpan
lib/App/Cmd/Command/help.pm view on Meta::CPAN
#pod package YourApp::Command::initialize;
#pod
#pod # This is the default from App::Cmd::Command
#pod sub usage_desc {
#pod my ($self) = @_;
#pod my $desc = $self->SUPER::usage_desc; # "%c COMMAND %o"
#pod return "$desc [DIRECTORY]";
#pod }
#pod
#pod sub description {
#pod return "The initialize command prepares the application...";
lib/App/Cmd/Command/help.pm view on Meta::CPAN
package YourApp::Command::initialize;
# This is the default from App::Cmd::Command
sub usage_desc {
my ($self) = @_;
my $desc = $self->SUPER::usage_desc; # "%c COMMAND %o"
return "$desc [DIRECTORY]";
}
sub description {
return "The initialize command prepares the application...";
view release on metacpan or search on metacpan
lib/App/Cmdline.pm view on Meta::CPAN
of all short options is not shown. Often, you want to use whatever
C<App::Cmdline> returns plus what you wish to add on the first line of
the usage. For example:
sub usage_desc {
return shift->SUPER::usage_desc() . ' ...and anything else';
}
=head2 B<validate_args>
Originally, this method was meant to check (validate) the command-line
lib/App/Cmdline.pm view on Meta::CPAN
the C<App::Cmdline>'s validate_args method. Therefore, it is strongly
recommended that if you overwrite this method, you also call the SUPER:
sub validate_args {
my ($self, $opt, $args) = @_;
$self->SUPER::validate_args ($opt, $args);
if ($opt->number and scalar @$args != $opt->number) {
$self->usage_error ("Option --number does not correspond with the number of arguments");
}
}
view release on metacpan or search on metacpan
lib/App/Cme/Command/check.pm view on Meta::CPAN
);
}
sub usage_desc {
my ($self) = @_;
my $desc = $self->SUPER::usage_desc; # "%c COMMAND %o"
return "$desc [application] [ config_file ]";
}
sub description {
my ($self) = @_;
view release on metacpan or search on metacpan
lib/App/Codit.pm view on Meta::CPAN
);
for (keys %opts) {
$args->{$_} = $opts{$_}
}
$self->SUPER::Populate($args);
$self->geometry('800x600+150+150');
$self->{UNIQUE} = 0;
lib/App/Codit.pm view on Meta::CPAN
sub CanQuit {
my $self = shift;
my $file = $self->lockfile;
unlink $file if defined $file;
return $self->SUPER::CanQuit
}
sub DoPostConfig {
my $self = shift;
$self->SetThemeFile;
lib/App/Codit.pm view on Meta::CPAN
return $_[0]->extGet('CoditMDI');
}
sub MenuItems {
my $self = shift;
return ($self->SUPER::MenuItems,
[ 'menu_normal', 'appname::h1', '~Report a problem', 'report_issue' ],
)
}
=item B<panels>
view release on metacpan or search on metacpan
lib/App/Context/ClusterController.pm view on Meta::CPAN
elsif ($response =~ /ERROR/) {
$self->set_node_down("$node_host:$node_port");
}
}
else {
$self->SUPER::send_async_event_now($event, $callback_event);
}
&App::sub_exit() if ($App::trace);
}
# $runtime_event_tokens take the following forms:
lib/App/Context/ClusterController.pm view on Meta::CPAN
$self->{node}{$node}{swaptotal} ? 100*($self->{node}{$node}{swaptotal} - $self->{node}{$node}{swapfree})/$self->{node}{$node}{swaptotal} : 0,
$self->{node}{$node}{swaptotal} || 0,
$self->{node}{$node}{datetime});
}
$state .= $self->SUPER::_state();
&App::sub_exit($state) if ($App::trace);
return($state);
}
lib/App/Context/ClusterController.pm view on Meta::CPAN
sub shutdown {
&App::sub_entry if ($App::trace);
my $self = shift;
$self->shutdown_nodes();
$self->write_node_file();
$self->SUPER::shutdown();
&App::sub_exit() if ($App::trace);
}
sub shutdown_nodes {
&App::sub_entry if ($App::trace);
view release on metacpan or search on metacpan
lib/App/Critique/Command/clean.pm view on Meta::CPAN
sub opt_spec {
my ($class) = @_;
return (
[ 'dry-run', 'display the pruned list of files, but do not overwrite' ],
[],
$class->SUPER::opt_spec,
);
}
sub execute {
my ($self, $opt, $args) = @_;
view release on metacpan or search on metacpan
lib/App/Device/Chip/sensor.pm view on Meta::CPAN
field $_title;
field $_bgcol = "#cccccc";
method OPTSPEC :override
{
return ( $self->SUPER::OPTSPEC,
'title=s' => \$_title,
'background-color=s' => \$_bgcol,
);
}
view release on metacpan or search on metacpan
scripts/dex view on Meta::CPAN
use YAML::PP::Schema::Perl;
sub new {
my ($class, %args) = @_;
$args{schema} ||= [qw/ Core Perl /];
$class->SUPER::new(%args);
}
sub Load {
my ($yaml) = @_;
__PACKAGE__->new->load_string($yaml);
view release on metacpan or search on metacpan
inc/MyBuild.pm view on Meta::CPAN
}
else {
die "No C compiler found.\n";
}
return $self->SUPER::ACTION_code;
}
1;
view release on metacpan or search on metacpan
lib/App/Donburi/Web/Request.pm view on Meta::CPAN
sub http_host { $_[0]->env->{HTTP_HOST} }
# from Amon2::Request
sub body_parameters {
my ($self) = @_;
$self->{'donburi.body_parameters'} ||= $self->_decode_parameters($self->SUPER::body_parameters());
}
sub query_parameters {
my ($self) = @_;
$self->{'donburi.query_parameters'} ||= $self->_decode_parameters($self->SUPER::query_parameters());
}
sub _decode_parameters {
my ($self, $stuff) = @_;
view release on metacpan or search on metacpan
t/unit/Test/DrivePlayer/DB.pm view on Meta::CPAN
use parent 'Test::DrivePlayer::TestBase';
# Each test gets a fresh in-memory-like DB via a temp file.
sub setup : Tests(setup) {
my ($self) = @_;
$self->SUPER::setup();
$self->{db} = fake_db($self->_temp_db_path);
return;
}
sub db { $_[0]->{db} }
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/Command.pm view on Meta::CPAN
if ( $options->{logger} ) {
$options->{_logger} = delete $options->{logger};
}
return $class->SUPER::new($options);
}
########################################################################
sub execute {
########################################################################
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
use Prima::Label;
use Prima::Sliders;
sub profile_default
{
my $def = $_[ 0]-> SUPER::profile_default;
my %prf = (
designScale => [ 9, 18],
name => 'New Board',
origin => [ 776, 197],
originDontCare => 0,
sub init
{
my $self = shift;
my %instances = map {$_ => {}} qw();
my %profile = $self-> SUPER::init(@_);
my %names = ( q(NewBoard) => $self);
$self-> lock;
# Board size box
$names{GroupBox2} = $names{NewBoard}->insert( qq(Prima::GroupBox) =>
use Prima::Buttons;
use Prima::Label;
sub profile_default
{
my $def = $_[0]-> SUPER::profile_default;
my %prf = (
name => 'Custom Rules',
origin => [766, 356],
originDontCare => 0,
size => [253, 396],
sub init
{
my $self = shift;
my %instances = map {$_ => {}} qw();
my %profile = $self->SUPER::init(@_);
my %names = (q(Form1) => $self);
$self->lock;
# title row
$names{Title_Label_1} = $names{Form1}->insert( qq(Prima::Label) =>
use Prima::Label;
use Prima::Sliders;
sub profile_default
{
my $def = $_[0]->SUPER::profile_default;
my %prf = (
name => 'Zoom',
origin => [778, 651],
originDontCare => 0,
size => [232, 129],
}
sub init
{
my $self = shift;
my %profile = $self->SUPER::init(@_);
my %names = ( q(Form1) => $self);
$self->lock;
$names{Button1} = $names{Form1}->insert( qq(Prima::Button) =>
name => 'Button1',
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 @label_property = ( [-1,-1], [-1,-1], &Wx::wxALIGN_CENTRE_HORIZONTAL );
my $version = Wx::StaticText->new( $self, -1, $App::GUI::Harmonograph::NAME . ' version '.$App::GUI::Harmonograph::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/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
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
);
}