view release on metacpan or search on metacpan
usr/share/webapp-toolkit/extra/class/admin_about.tt view on Meta::CPAN
{
%{ $c->config },
data => \%ENV,
}
)
or $self->SUPER::_error($c, 'Template process failed', $c->template->error() );
exit;
}
1;
view release on metacpan or search on metacpan
Encrypted.pm view on Meta::CPAN
} else {
croak "No key defined - key must be defined for Apache::Cookie::Encrypted to work\n";
}
}
my $self = $class->SUPER::new($r);
if (exists($params->{-name})) {
$self->name($params->{-name});
}
Encrypted.pm view on Meta::CPAN
my $data = shift || undef;
if ($data) {
$data = &_encrypt_data($data) if $data ne '';
$self->SUPER::value($data);
} else {
my @cookie_data = $self->SUPER::value();
my $data_in;
if (scalar(@cookie_data) > 1) {
$data_in = \@cookie_data;
} else {
$data_in = $cookie_data[0];
Encrypted.pm view on Meta::CPAN
my $data = shift || undef;
my %parsed;
if ($data) {
%parsed = SUPER::parse($data);
} else {
%parsed = SUPER::parse();
}
my %new_parsed;
foreach (keys %parsed) {
Encrypted.pm view on Meta::CPAN
}
sub Apache::Cookie::Encrypted::fetch {
my $self = shift;
my %fetched = $self->SUPER::fetch();
my %enc_fetch_translated;
foreach (keys %fetched) {
$enc_fetch_translated{$_} = bless $fetched{$_}, $self;
view release on metacpan or search on metacpan
lib/Apertur/SDK/Error/Authentication.pm view on Meta::CPAN
use warnings;
use parent 'Apertur::SDK::Error';
sub new {
my ($class, %args) = @_;
return $class->SUPER::new(
status_code => 401,
code => 'AUTHENTICATION_FAILED',
message => $args{message} // 'Authentication failed',
);
}
view release on metacpan or search on metacpan
script/acme-cpanauthors view on Meta::CPAN
#}
#
#sub _init_read {
# my $self = shift;
#
# $self->SUPER::_init_read;
# $self->{_res} = {};
# $self->{_merge} = undef;
# $self->{_num_seen_section_lines} = 0;
# $self->{_cur_section} = $self->{default_section};
# $self->{_arrayified} = {};
view release on metacpan or search on metacpan
lib/App/Acmeman/Apache/Layout/debian.pm view on Meta::CPAN
sub new {
my $class = shift;
my $ap = shift;
if ($ap->server_config eq '/etc/apache2/apache2.conf') {
return $class->SUPER::new($ap,
restart_command => '/usr/sbin/service apache2 restart'
);
}
}
view release on metacpan or search on metacpan
lib/App/Addex/Output/Mutt.pm view on Meta::CPAN
sub new {
my ($class, $arg) = @_;
$arg ||= {};
my $self = $class->SUPER::new($arg);
$self->{unidecode} = $arg->{unidecode};
return $self;
}
view release on metacpan or search on metacpan
lib/App/Asciio/GTK/Asciio.pm view on Meta::CPAN
sub set_title
{
my ($self, $title) = @_;
$self->SUPER::set_title($title) ;
if(defined $title)
{
$self->{widget}->get_toplevel()->set_title($title . ' - asciio') ;
}
lib/App/Asciio/GTK/Asciio.pm view on Meta::CPAN
sub set_font
{
my ($self, $font_family, $font_size) = @_;
$self->SUPER::set_font($font_family, $font_size) ;
$self->{widget}->modify_font
(
Gtk2::Pango::FontDescription->from_string
(
lib/App/Asciio/GTK/Asciio.pm view on Meta::CPAN
sub update_display
{
my ($self) = @_;
$self->SUPER::update_display() ;
my $widget = $self->{widget} ;
$widget->queue_draw_area(0, 0, $widget->allocation->width,$widget->allocation->height);
}
lib/App/Asciio/GTK/Asciio.pm view on Meta::CPAN
sub button_release_event
{
my ($widget, $event, $self) = @_ ;
$self->SUPER::button_release_event($self->create_asciio_event($event)) ;
}
#-----------------------------------------------------------------------------
sub create_asciio_event
lib/App/Asciio/GTK/Asciio.pm view on Meta::CPAN
#~ print "button_press_event\n" ;
my ($widget, $event, $self) = @_ ;
my $asciio_event = $self->create_asciio_event($event) ;
$self->SUPER::button_press_event($asciio_event, $event) ;
}
#-----------------------------------------------------------------------------
sub motion_notify_event
{
my ($widget, $event, $self) = @_ ;
my $asciio_event = $self->create_asciio_event($event) ;
$self->SUPER::motion_notify_event($asciio_event) ;
}
#-----------------------------------------------------------------------------
sub key_press_event
{
my ($widget, $event, $self)= @_;
my $asciio_event = $self->create_asciio_event($event) ;
$self->SUPER::key_press_event($asciio_event) ;
}
#-----------------------------------------------------------------------------
sub get_character_size
view release on metacpan or search on metacpan
lib/App/BCVI/AutoInstall.pm view on Meta::CPAN
$self->install_to_host($target);
}
} else {
warn "App::BCVI::AutoInstall can only function if App::BCVI::InstallManager is installed.\n";
}
$self->SUPER::execute_wrapped_ssh($target, @args);
}
App::BCVI->hook_client_class();
1;
view release on metacpan or search on metacpan
lib/App/BCVI/InstallManager.pm view on Meta::CPAN
sub install_to_host {
my($self, $host) = @_;
my $sig = $self->install_source_signature();
if( $self->SUPER::install_to_host($host) ) {
$self->set_install_signature($host=> $sig);
return 1;
}
return;
}
view release on metacpan or search on metacpan
lib/App/BCVI/NotifyClient.pm view on Meta::CPAN
# Check for TTY monitoring options; handle them and exit
$self->_notify_handle_tty_monitoring(@args);
# Otherwise drop through for default handling
}
return $self->SUPER::send_command(@args);
}
sub _notify_handle_tty_monitoring {
my($self, @args) = @_;
lib/App/BCVI/NotifyClient.pm view on Meta::CPAN
print "Kill monitor with: bnotify --kill\n";
$opt{output} = $default_poll_interval;
$self->_notify_fork_bg_tty_monitor(sub {
while(1) {
$self->_notify_wait_for_idle(\%opt);
$self->SUPER::send_command("terminal is idle");
$self->_notify_exit if $opt{once};
$self->_notify_wait_for_output(\%opt);
}
});
}
lib/App/BCVI/NotifyClient.pm view on Meta::CPAN
$opt{idle} = $default_idle_time;
$self->_notify_fork_bg_tty_monitor(sub {
$self->_notify_wait_for_idle(\%opt);
while(1) {
$self->_notify_wait_for_output(\%opt);
$self->SUPER::send_command("output received");
$self->_notify_exit if $opt{once};
$self->_notify_wait_for_idle(\%opt);
}
});
}
view release on metacpan or search on metacpan
lib/App/BCVI/Plugins.pod view on Meta::CPAN
The C<hook_server_class> line is a method call that pushes this class onto the
inheritance chain for the object class that implements the listener process.
When the listener process calls C<execute_vi> in response to a request from a
client, our method is called instead of the standard method. In some plugins,
it might make sense to delegate to the standard method using the syntax
C<< $self->SUPER::execute_vi(@args) >>, but in our case we're replacing the
standard method rather than augmenting it.
=head1 PLUGIN LOADING
Plugin files are never loaded from anywhere except the user's BCVI config
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/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 {