view release on metacpan or search on metacpan
lib/App/Build.pm view on Meta::CPAN
=cut
sub new {
my ($class, %args) = @_;
my $obj = $class->SUPER::new(%args);
$obj->_enhance_install_paths() if $obj->_prefix;
$obj->_get_supporting_software();
return($obj);
lib/App/Build.pm view on Meta::CPAN
=cut
sub read_config {
my ($self) = @_;
$self->SUPER::read_config();
$self->_enhance_install_paths() if $self->_prefix;
}
=head2 install_base()
lib/App/Build.pm view on Meta::CPAN
=cut
sub install_base {
my ($self, @args) = @_;
my $ret = $self->SUPER::install_base(@args);
$self->_enhance_install_paths() if $self->_prefix;
return $ret;
}
lib/App/Build.pm view on Meta::CPAN
=cut
sub ACTION_code {
my ($self) = @_;
$self->SUPER::ACTION_code(); # call this first (creates "blib" dir if necessary)
$self->process_app_files(); # NEW. call this to copy "extra_dirs" to "blib"
}
=head2 _added_to_INC()
lib/App/Build.pm view on Meta::CPAN
=cut
sub rscan_dir {
my ($self, $dir, $pattern) = @_;
my $files = $self->SUPER::rscan_dir($dir, $pattern);
my @files = grep(!/[\/\\](CVS|RCS|\.svn)[\/\\]/, @$files);
return \@files;
}
######################################################################
view release on metacpan or search on metacpan
lib/App/BundleDeps/Platypus.pm view on Meta::CPAN
}
sub new {
my ($class, @args) = @_;
my $self = $class->SUPER::new(
author => $ENV{USER},
icon => 'appIcon.icns',
resources => [],
background => 0,
@args,
lib/App/BundleDeps/Platypus.pm view on Meta::CPAN
return $self;
}
sub bundle {
my $self = shift;
$self->SUPER::bundle();
$self->build_platypus_app();
}
sub build_platypus_app {
my $self = shift;
view release on metacpan or search on metacpan
lib/App/CELL/Config.pm view on Meta::CPAN
=cut
sub DESTROY {
my $self = shift;
$self->SUPER::DESTROY if $self->can("SUPER::DESTROY");
}
=head2 exists
view release on metacpan or search on metacpan
lib/App/CLI/Extension/Exception.pm view on Meta::CPAN
chomp $message;
#local $Error::Depth = $Error::Depth + 1;
local $Error::Depth = $Error::Depth + 2;
local $Error::Debug = 1;
my $self = $class->SUPER::new($message);
return $self;
}
1;
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
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
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
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
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
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
view release on metacpan or search on metacpan
lib/App/CSE/Lucy/Highlight/Highlighter.pm view on Meta::CPAN
=cut
sub new{
my ($class, %options) = @_;
my $cse_command = delete $options{'cse_command'} || confess("Missing cse_command");
my $self = $class->SUPER::new(%options);
# register($self);
$cse_command{ $self } = $cse_command;
$cse{ $self } = $cse_command->cse();
return $self;
}
lib/App/CSE/Lucy/Highlight/Highlighter.pm view on Meta::CPAN
sub DESTROY{
my ($self) = @_;
delete $cse_command{ $self };
delete $cse{ $self };
$self->SUPER::DESTROY();
}
1;
view release on metacpan or search on metacpan
lib/App/Cache.pm view on Meta::CPAN
__PACKAGE__->mk_accessors(qw( application directory ttl enabled ));
our $VERSION = '0.37';
sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
unless ( $self->application ) {
my $caller = (caller)[0];
$self->application($caller);
}
view release on metacpan or search on metacpan
inc/My/Module/Build.pm view on Meta::CPAN
sub new {
my ($class, %opts) = @_;
$opts{recursive_test_files} = 1 if
(! defined $opts{recursive_test_files});
my $self = $class->SUPER::new(%opts);
if ($self->maintainer_mode_enabled()) {
print "Running specific maintainer checks...\n";
$self->check_maintainer_dependencies();
}
$self->_process_options;
inc/My/Module/Build.pm view on Meta::CPAN
sub ACTION_build {
my $self = shift;
$self->depends_on("buildXS");
$self->SUPER::ACTION_build(@_);
}
=item I<ACTION_dist>
Overloaded so that typing C<./Build dist> does The Right Thing and
inc/My/Module/Build.pm view on Meta::CPAN
$self->do_create_makefile_pl if $self->create_makefile_pl;
$self->do_create_readme if $self->create_readme;
$self->depends_on("manifest");
$self->SUPER::ACTION_dist(@_);
}
=item I<ACTION_buildXS>
Does nothing. Intended for overloading by packages that have XS code,
inc/My/Module/Build.pm view on Meta::CPAN
no warnings "once";
local *blib = sub {
my $self = shift;
return File::Spec->curdir if ! $self->use_blib;
return $self->SUPER::blib(@_);
};
$self->SUPER::ACTION_test(@_);
}
=item I<ACTION_distmeta>
Overloaded to ensure that .pm modules in inc/ don't get indexed and
inc/My/Module/Build.pm view on Meta::CPAN
no warnings "redefine";
local *YAML::Node::new = sub {
$node = $orig_yaml_node_new->(@_);
};
my $retval = $self->SUPER::ACTION_distmeta;
die "Failed to steal the YAML node" unless defined $node;
$node->{no_index} = $self->{properties}->{add_to_no_index} || {};
$node->{no_index}->{directory} ||= [];
unshift(@{$node->{no_index}->{directory}}, qw(examples inc t),
inc/My/Module/Build.pm view on Meta::CPAN
sub process_pm_files {
no warnings "once";
local *copy_if_modified = \*process_pm_file_if_modified;
my $self = shift;
return $self->SUPER::process_pm_files(@_);
}
=item I<process_pm_file_if_modified(%args)>
Does the same as L<copy_file_if_modified> (which it actually replaces
inc/My/Module/Build.pm view on Meta::CPAN
# Short-cut activated by L</ACTION_test>:
return $self->{FORCE_find_test_files_result} if
(defined $self->{FORCE_find_test_files_result});
my @tests = @{$self->SUPER::find_test_files(@_)};
# Short-cut activated by putting a 'test_files' key in the constructor
# arguments:
return @tests if $self->{test_files};
@tests = grep { ! m/^t.maintainer/ } @tests unless
inc/My/Module/Build.pm view on Meta::CPAN
=cut
sub do_create_makefile_pl {
my ($self, %args) = @_;
warn("Cannot take off any Zig, sorry"),
return $self->SUPER::do_create_makefile_pl(%args) if ($args{fh});
$args{file} ||= 'Makefile.PL';
my $retval = $self->SUPER::do_create_makefile_pl(%args);
my $MakefilePL = read_file($args{file});
$MakefilePL = <<'PREAMBLE' . $MakefilePL;
use FindBin qw($Bin);
use lib "$Bin/inc";
PREAMBLE
inc/My/Module/Build.pm view on Meta::CPAN
# My::Module::Build is loaded from elsewhere). Moreover, "use
# base" is not yet belong to us at this time.
sub fake_makefile {
my $self = shift;
return $self->SUPER::fake_makefile(@_). <<'MAIN_SCREEN_TURN_ON';
# In 2101 AD war was beginning...
your:
@echo
@echo -n " All your codebase"
inc/My/Module/Build.pm view on Meta::CPAN
\@ISA = our \@ISAorig;
$opts{code}
KLUDGE_ME_UP
return $pack->SUPER::subclass(%opts);
}
=item I<_startperl>
Overloaded from parent to attempt a chdir() into the right place in
inc/My/Module/Build.pm view on Meta::CPAN
sub _startperl {
my $self = shift;
my $basedir = $self->base_dir;
$basedir = Win32::GetShortPathName($basedir) if is_win32;
return $self->SUPER::_startperl(@_) . <<"MORE";
# Hack by My::Module::Build to give the Emacs debugger one
# more chance to work:
use Cwd;
BEGIN {
view release on metacpan or search on metacpan
lib/App/Caoliu.pm view on Meta::CPAN
has parallel_num => 20;
my @downloaded_files;
sub new {
my $self = shift->SUPER::new(@_);
Carp::croak("category args must be arrayref")
if ref $self->category ne ref [];
$self->downloader->ua->http_proxy(
join( '', 'http://sri:secret@', $self->proxy ) )
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/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) = @_;