view release on metacpan or search on metacpan
example/test_wrapper.pl view on Meta::CPAN
#~ use Data::TreeDumper ;
#~ print DumpTree $chained_app->{command_options}, 'options' ;
# run the command if we so want
$chained_app->SUPER::run() ;
}
#---------------------------------------------------------------------------------
package main ;
view release on metacpan or search on metacpan
devel/closed-form.pl view on Meta::CPAN
$option{'name'} //= 'Const';
$option{'timebase'} ||= do {
require App::Chart::Timebase::Days;
App::Chart::Timebase::Days->new_from_iso ('2008-07-23')
};
return $class->SUPER::new (arrays => { values => $array },
%option);
}
sub fill_part {}
view release on metacpan or search on metacpan
#---------------------------------
sub ACTION_build {
my ($s) = @_;
$s->_readme();
$s->SUPER::ACTION_build;
}
# Only for the maintainer on "Build build".
sub _readme {
my ($s) = @_;
view release on metacpan or search on metacpan
lib/App/Chit.pm view on Meta::CPAN
}
sub run ( $self, @args ) {
$self->usage_error( "Set the @{[ App::Chit::Util::CHIT_KEY_VAR() ]} environment variable" )
unless $ENV{App::Chit::Util::CHIT_KEY_VAR()};
$self->SUPER::run( @args );
}
sub _prepare_command ( $self, $command, $opt, @args ) {
if ( my $plugin = $self->plugin_for( $command ) ) {
return $plugin->prepare( $self, @args );
view release on metacpan or search on metacpan
lib/Chronicle/Template/GenericXslate.pm view on Meta::CPAN
{
die "Failed to load Text::Xslate module - $!";
}
my %options = @_;
my $self = $class->SUPER::new(@_);
bless $self, $class;
if ( $options{ tmpl_string } )
{
$self->{ render } = sub {
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/FuguVM/Proxy.pm view on Meta::CPAN
# $class->new($cache_dir, $limit):
# Build the cache. The optional limit is the distfile cap in
# bytes, and 0 turns the distfile cache off.
sub new ( $class, $cache_dir, $limit = 0 )
{
my $self = $class->SUPER::new(
dir => $cache_dir,
cacheable => sub ($url) { _is_openbsd_content( $url, $limit ) },
types => {
# A kernel has no extension, so the generic
lib/App/FuguVM/Proxy.pm view on Meta::CPAN
# Store one response body, and hold the distfile tree under the
# cap after a distfile store. A set store must not walk the
# distfile tree.
sub store ( $self, $url, $content )
{
my $path = $self->SUPER::store( $url, $content );
return if !defined $path;
$self->trim_distfiles if $url =~ $DISTFILE;
return $path;
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);