view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
sub clean {
my $self = shift;
return $self->Apache::TestMM::clean(@_) if $HAS_APACHE_TEST;
return $self->SUPER::clean(@_);
}
1;
view release on metacpan or search on metacpan
lib/Apache2/Controller.pm view on Meta::CPAN
via the module chosen by your L<Apache2::Controller::Dispatch> subclass.
We use C<< a2c_new >> instead of the conventional C<< new >>
because, in case you want to suck in the L<Apache2::Request>
methods with that module's automagic, then you don't get
confused about how C<<SUPER::>> behaves. Otherwise you
get into a mess of keeping track of the order of bases
so you don't call C<< Apache2::Request->new() >> by accident,
which breaks everything.
=head3 subclassing C<a2c_new()>
lib/Apache2/Controller.pm view on Meta::CPAN
package MyApp::ControllerBase;
use base qw( Apache2::Controller Apache2::Request );
sub a2c_new {
my ($class, $r) = @_;
return SUPER::new(
$class, $r,
POST_MAX => 65_535,
TEMP_DIR => '/dev/shm',
);
# $self is already blessed in the class hierarchy
lib/Apache2/Controller.pm view on Meta::CPAN
package MyApp::ControllerBase;
use base qw( Apache2::Controller Apache2::Request );
sub new {
my ($class, $r, @apr_override_args) = @_;
my $self = SUPER::new(
$class, $r,
POST_MAX => 65_535,
TEMP_DIR => '/dev/shm',
@apr_override_args,
);
lib/Apache2/Controller.pm view on Meta::CPAN
use base qw( MyApp::ControllerBase );
sub allowed_methods qw( uri_one uri_two );
sub new {
my ($class, $r) = @_;
my $self = SUPER::a2c_new(
$class, $r,
);
# no need to bless, A2C blesses into the child class
view release on metacpan or search on metacpan
lib/Apache2/DirBasedHandler/TT.pm view on Meta::CPAN
our $tt;
our $VERSION = 0.03;
sub init {
my ($self,$r) = @_;
my $hash = $self->SUPER::init($r);
my ($tt,$vars) = $self->get_tt($r);
$hash->{'tt'} = $tt;
$hash->{'vars'} = $vars;
return $hash;
}
view release on metacpan or search on metacpan
t/My/Thingy.pm view on Meta::CPAN
use Apache2::Const -compile => qw(:common);
sub init {
my $self = shift;
Apache2::DirBasedHandler::set_debug(1);
return $self->SUPER::init(@_);
}
sub root_index {
my $self = shift;
my ($r,$uri_args,$args) = @_;
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
package MY;
sub postamble {
my $self = shift;
my $string = $self->SUPER::postamble;
$string .= <<'EOF';
tag :
svn copy https://apache-dispatch.svn.sourceforge.net/svnroot/apache-dispatch/trunk https://apache-dispatch.svn.sourceforge.net/svnroot/apache-dispatch/tags/$(VERSION_SYM)
@echo update lib/Apache/Dispatch.pm VERSION now
Makefile.PL view on Meta::CPAN
sub clean {
my $self = shift;
return $self->Apache::TestMM::clean(@_) if $HAS_APACHE_TEST;
return $self->SUPER::clean(@_);
}
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use 5.008008;
use ExtUtils::MakeMaker;
package MY;
sub test_via_harness {
my($self, $perl, $tests) = @_;
local $_ = $self->SUPER::test_via_harness($perl, $tests);
s/PERL_DL_NONLAZY=1//g;
return $_;
}
sub test_via_script {
my($self, $perl, $tests) = @_;
local $_ = $self->SUPER::test_via_script($perl, $tests);
s/PERL_DL_NONLAZY=1//g;
return $_;
}
package main;
view release on metacpan or search on metacpan
lib/Apache2/Filter/TagAware.pm view on Meta::CPAN
my $r = $self->r;
my $log = $r->log;
#
# $context is used to store state
#
my $context = $self->SUPER::ctx();
#
# if there is no context yet, set up
# our default context
#
if (!$context) {
lib/Apache2/Filter/TagAware.pm view on Meta::CPAN
#
# originally, i was trying to not return more than $bytes, but if there
# is a tag larger than the buffer, that won't work, so now we just read
# $bytes no matter what.
#
my $ret_val = $self->SUPER::read($buffer, $bytes);
$buffer ||= '';
$log->info('read buffer: '. $buffer ? $buffer : '');
#
# if there is something extra in our context, prepend
# it to what we just read
lib/Apache2/Filter/TagAware.pm view on Meta::CPAN
}
else {
# there's more data to come
# store the filter context, including any leftover data
# in the 'extra' key
$self->SUPER::ctx($context);
}
#
# in order to pass the buffer back out to the caller we have
# to do this assignment, then we return the length of the data
# that we are passing back in the buffer
lib/Apache2/Filter/TagAware.pm view on Meta::CPAN
sub ctx {
my ($self, $args) = @_;
#
# grab the real context
#
my $real_ctx = $self->SUPER::ctx() || {};
#
# if they are setting the context then we set their context as
# a key within our context hash, then set that and return whatever our
# parent returns
#
if ($args) {
$real_ctx->{theirs} = $args;
return $self->SUPER::ctx($real_ctx);
}
#
# if they are getting, we just return to them their portion
# of the actual context, if it doesn't have a value, explicitly return
# undef
view release on metacpan or search on metacpan
use base qw(Apache::TestConfig);
sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
# explicit call to apxs...
$self->configure_apxs;
# ... so this works.
$self->{vars}{src_dir} ||= $self->apxs('LIBEXECDIR');
view release on metacpan or search on metacpan
use base qw(Apache::TestConfig);
sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
# explicit call to apxs...
$self->configure_apxs;
# ... so this works.
$self->{vars}{src_dir} ||= $self->apxs('LIBEXECDIR');
view release on metacpan or search on metacpan
# replaced in generated httpd.conf
sub new_test_config {
my $self=shift;
$self->{conf_opts}->{maxclients}=2;
$self=$self->SUPER::new_test_config;
my $serverroot=Apache::Test::vars->{serverroot};
my $confdir=Apache::Test::vars->{t_conf};
unless( defined $db and length $db ) {
($db,$user,$pw)=("dbi:SQLite:dbname=$serverroot/test.sqlite", '', '');
view release on metacpan or search on metacpan
lib/Apache2/PageKit/View.pm view on Meta::CPAN
sub new {
require Template;
require Template::Parser;
require Template::Context;
return shift->SUPER::new(@_);
}
sub fill_in_view {
my ($view) = @_;
view release on metacpan or search on metacpan
lib/Apache2/PodBrowser.pm view on Meta::CPAN
sub new {
local $Pod::Simple::HTML::Doctype_decl=
(qq{<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"}.
qq{ "http://www.w3.org/TR/html4/loose.dtd">\n});
return shift->SUPER::new(@_);
}
sub resolve_pod_page_link {
my ($I, $to, $sec)=@_;
lib/Apache2/PodBrowser.pm view on Meta::CPAN
} elsif( -f $base.'/'.$to.'.pm' ) {
return '/'.$to.'.pm';
} elsif( -f $base.'/'.$to.'.pl' ) {
return '/'.$to.'.pl';
} else {
return $I->SUPER::resolve_pod_page_link(@_[1,$#_]);
}
}
}
1;
view release on metacpan or search on metacpan
lib/Apache2/Protocol/ESMTP.pm view on Meta::CPAN
}
sub new {
my $proto = shift;
my $class = ref $proto || $proto;
my $self = bless($class->SUPER::new(@_), $class);
$self->{_bodystate} = '';
$self->{_headername} = '';
$self->{_headervalue} = '';
$self->{_seenDATA} = 0;
view release on metacpan or search on metacpan
lib/Apache2/REST/Handler.pm view on Meta::CPAN
return 0 ;
}
=head2 new
You can override this in subclasses. Do not forget to call $class->SUPER::new() ;
=cut
sub new{
my ( $class , $parent ) = @_ ;
view release on metacpan or search on metacpan
lib/Apache2/SOAP.pm view on Meta::CPAN
my $server = __PACKAGE__->new;
sub handler {
$server->configure(@_);
$server->SUPER::handler(@_);
}
# ======================================================================
1;
view release on metacpan or search on metacpan
t/response/TestApache/call.pm view on Meta::CPAN
use base qw(Apache2::SQLRequest);
use Apache2::RequestIO ();
use Apache2::Const -compile => qw(OK);
sub handler : method {
my $r = shift->SUPER::new(shift);
my $rc = $r->execute_query('response') or die "$!";
my $out = join (' ', map { "$_\n" } $rc,
$r->sth('response')->fetchrow_array);
$r->print($out);
Apache2::Const::OK;
view release on metacpan or search on metacpan
lib/Apache2/Expression.pm view on Meta::CPAN
sub init
{
my $self = shift( @_ );
$self->{legacy} = 0;
$self->{trunk} = 0;
$self->SUPER::init( @_ );
return( $self );
}
sub legacy { return( shift->_set_get_boolean( 'legacy', @_ ) ); }
view release on metacpan or search on metacpan
lib/Apache2/TaintRequest.pm view on Meta::CPAN
# Escape any HTML content if the data is tainted.
$value = escape_html($value) if tainted($value);
}
$self->{request}->SUPER::print(@data);
}
1;
__END__
view release on metacpan or search on metacpan
# subclass new_test_config to add some config vars which will be
# replaced in generated httpd.conf
sub new_test_config {
my $self=shift;
$self->{conf_opts}->{maxclients}=2;
$self=$self->SUPER::new_test_config;
my $serverroot=Apache::Test::vars->{serverroot};
my $confdir=Apache::Test::vars->{t_conf};
unless( defined $db and length $db ) {
view release on metacpan or search on metacpan
use base qw(Apache::TestConfig);
sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
# explicit call to apxs...
$self->configure_apxs;
# ... so this works.
$self->{vars}{src_dir} ||= $self->apxs('LIBEXECDIR');
# XXX dodgy, not through the interface
# my $tc = $self->{test_config} or die $!;
# map { $tc->find_and_load_module($_) } qw(proxy proxy_http proxy_connect);
# $self->SUPER::pre_configure;
#}
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
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