view release on metacpan or  search on metacpan

lib/Anansi/Database/MySQL.pm  view on Meta::CPAN

=cut


sub connect {
    my ($self, $channel, %parameters) = @_;
    return $self->SUPER::connect(
        undef,
        INPUT => [
            {
                INPUT => [
                    'dbi:mysql:database=', {

lib/Anansi/Database/MySQL.pm  view on Meta::CPAN

sub validate {
    my ($self, $channel, %parameters) = @_;
    $parameters{DRIVERS} = 'MySQL';
    return $self->SUPER::validate(undef, (%parameters));
}


Anansi::Component::addChannel('Anansi::Database::MySQL', 'VALIDATE_AS_APPROPRIATE' => 'validate');

 view release on metacpan or  search on metacpan

lib/Anansi/Database/Oracle.pm  view on Meta::CPAN

=cut


sub connect {
    my ($self, $channel, %parameters) = @_;
    return $self->SUPER::connect(
        undef,
        INPUT => [
            {
                INPUT => [
                    'dbi:Oracle:host=', {

lib/Anansi/Database/Oracle.pm  view on Meta::CPAN

sub validate {
    my ($self, $channel, %parameters) = @_;
    $parameters{DRIVERS} = 'Oracle';
    return $self->SUPER::validate(undef, (%parameters));
}


Anansi::Component::addChannel('Anansi::Database::Oracle', 'VALIDATE_AS_APPROPRIATE' => 'validate');

 view release on metacpan or  search on metacpan

lib/Anansi/Database/PostgreSQL.pm  view on Meta::CPAN

=cut


sub connect {
    my ($self, $channel, %parameters) = @_;
    return $self->SUPER::connect(
        undef,
        INPUT => [
            {
                INPUT => [
                    'dbi:Pg:dbname=', {

lib/Anansi/Database/PostgreSQL.pm  view on Meta::CPAN

    $parameters{DRIVERS} = [
        'Pg',
        'Postgres',
        'PostgreSQL'
    ];
    return $self->SUPER::validate(undef, (%parameters));
}


Anansi::Component::addChannel('Anansi::Database::PostgreSQL', 'VALIDATE_AS_APPROPRIATE' => 'validate');

 view release on metacpan or  search on metacpan

lib/Anansi/DatabaseComponent.pm  view on Meta::CPAN

    use base qw(Anansi::DatabaseComponent);

    sub connect {
        my ($self, $channel, %parameters) = @_;
        return $self->SUPER::connect(
            undef,
            INPUT => [
                'some text',
                {
                    NAME => 'someParameter',

lib/Anansi/DatabaseComponent.pm  view on Meta::CPAN

=cut


sub addChannel {
    my ($self, %parameters) = @_;
    return $self->SUPER::addChannel((%parameters));
}


=head2 autoCommit

lib/Anansi/DatabaseComponent.pm  view on Meta::CPAN

=cut


sub removeChannel {
    my ($self, %parameters) = @_;
    return $self->SUPER::removeChannel((%parameters));
}


=head2 rollback

 view release on metacpan or  search on metacpan

lib/Anansi/ObjectManager.pm  view on Meta::CPAN

    use base qw(Anansi::ObjectManager);

    sub initialise {
        my ($self, %parameters) = @_;
        $self->SUPER::initialise(%parameters);
    }

    1;

=over 4

lib/Anansi/ObjectManager.pm  view on Meta::CPAN

    use base qw(Anansi::ObjectManager);

    sub old {
        my ($self, %parameters) = @_;
        $self->SUPER::old(%parameters);
    }

    1;

=over 4

lib/Anansi/ObjectManager.pm  view on Meta::CPAN

    use base qw(Anansi::ObjectManager);

    sub reinitialise {
        my ($self, %parameters) = @_;
        $self->SUPER::reinitialise(%parameters);
    }

    1;

=over 4

 view release on metacpan or  search on metacpan

lib/Anansi/Script/CGI.pm  view on Meta::CPAN

=cut


=head2 finalise

    $OBJECT->SUPER::finalise();

Declared in L<Anansi::Class>.  Overridden by this module.

=cut

lib/Anansi/Script/CGI.pm  view on Meta::CPAN

=cut


=head2 initialise

    $OBJECT->SUPER::initialise();

Declared in L<Anansi::initialise>.  Overridden by this module.

=cut

 view release on metacpan or  search on metacpan

lib/Anansi/Script/JSON.pm  view on Meta::CPAN

=cut


=head2 finalise

    $OBJECT->SUPER::finalise();

Declared in L<Anansi::Class>.  Overridden by this module.

=cut

lib/Anansi/Script/JSON.pm  view on Meta::CPAN

=cut


=head2 initialise

    $OBJECT->SUPER::initialise();

Declared in L<Anansi::Class>.  Overridden by this module.

=cut

 view release on metacpan or  search on metacpan

lib/Anansi/Script/SOAP.pm  view on Meta::CPAN

=cut


=head2 finalise

    $OBJECT->SUPER::finalise();

Declared in L<Anansi::Class>.  Overridden by this module.

=cut

lib/Anansi/Script/SOAP.pm  view on Meta::CPAN

=cut


=head2 initialise

    $OBJECT->SUPER::initialise();

Declared in L<Anansi::Class>.  Overridden by this module.

=cut

 view release on metacpan or  search on metacpan

lib/Anansi/Script/Shell.pm  view on Meta::CPAN

=cut


=head2 finalise

    $OBJECT->SUPER::finalise();

    $OBJECT->Anansi::Script::Shell::finalise();

Declared in L<Anansi::Class>.  Overridden by this module.

lib/Anansi/Script/Shell.pm  view on Meta::CPAN

=cut


=head2 initialise

    $OBJECT->SUPER::initialise();

    $OBJECT->Anansi::Script::Shell::initialise();

Declared in L<Anansi::Class>.  Overridden by this module.

 view release on metacpan or  search on metacpan

lib/Anansi/Script/XML.pm  view on Meta::CPAN

=cut


=head2 finalise

    $OBJECT->SUPER::finalise();

Declared in L<Anansi::Class>.  Overridden by this module.

=cut

lib/Anansi/Script/XML.pm  view on Meta::CPAN

=cut


=head2 initialise

    $OBJECT->SUPER::initialise();

Declared in L<Anansi::Class>.  Overridden by this module.

=cut

 view release on metacpan or  search on metacpan

lib/Anansi/Script.pm  view on Meta::CPAN

=cut


=head2 addComponent

    $OBJECT->SUPER::addComponent(undef);

    $OBJECT->Anansi::ComponentManager::addComponent(undef);

Declared in L<Anansi::ComponentManager>.  Overridden by this module.  Redeclared
in order to preclude inheritance.

lib/Anansi/Script.pm  view on Meta::CPAN

=cut


=head2 finalise

    $OBJECT->SUPER::finalise(undef);

    $OBJECT->Anansi::Script::finalise(undef);

Declared as a virtual method in L<Anansi::Class>.  Overridden by this module.
Indirectly called during object destruction.

lib/Anansi/Script.pm  view on Meta::CPAN

sub finalise {
    my ($self, %parameters) = @_;
    my $components = $self->components();
    if(defined($components)) {
        foreach my $component (@{$components}) {
            my $result = $self->SUPER::removeComponent($component);
        }
    }
}

lib/Anansi/Script.pm  view on Meta::CPAN

=cut


sub initialise {
    my ($self, %parameters) = @_;
    my $component = $self->SUPER::addComponent(undef, %parameters);
    $self->channelComponent($component);
}


=head2 new

lib/Anansi/Script.pm  view on Meta::CPAN

=cut


=head2 removeComponent

    $OBJECT->SUPER::removeComponent(undef);

    $OBJECT->Anansi::ComponentManager::removeComponent(undef);

Declared in L<Anansi::ComponentManager>.  Overridden by this module.  Redeclared
in order to preclude inheritance.

 view release on metacpan or  search on metacpan

lib/Anansi/ScriptComponent.pm  view on Meta::CPAN

    use base qw(Anansi::ScriptComponent);

    sub validate {
        my ($self, $channel, %parameters) = @_;
        return $self->SUPER::validate(undef);
    }

    Anansi::ScriptComponent::addChannel('Anansi::Script::Example', 'VALIDATE_AS_APPROPRIATE' => 'validate');

    1;

lib/Anansi/ScriptComponent.pm  view on Meta::CPAN

=cut


sub addChannel {
    my ($self, %parameters) = @_;
    return $self->SUPER::addChannel((%parameters));
}


=head2 channel

lib/Anansi/ScriptComponent.pm  view on Meta::CPAN

=cut


=head2 finalise

    $OBJECT->SUPER::finalise();

    $OBJECT->Anansi::Class::finalise();

Declared as a virtual method in L<Anansi::Class>.  Overridden by this module.

lib/Anansi/ScriptComponent.pm  view on Meta::CPAN

=cut


=head2 initialise

    $OBJECT->SUPER::initialise();

Declared as a virtual method in L<Anansi::Class>.  Overridden by this module.

=cut

lib/Anansi/ScriptComponent.pm  view on Meta::CPAN

=cut


sub removeChannel {
    my ($self, %parameters) = @_;
    return $self->SUPER::removeChannel((%parameters));
}


=head2 used

 view release on metacpan or  search on metacpan

lib/Anansi/Singleton.pm  view on Meta::CPAN

=head2 fixate

    $OBJECT->fixate();

    $OBJECT->SUPER::fixate();

=over 4

=item self I<(Blessed Hash, Required)>

lib/Anansi/Singleton.pm  view on Meta::CPAN

=head2 reinitialise

    $OBJECT->reinitialise();

    $OBJECT->SUPER::reinitialise();

=over 4

=item self I<(Blessed Hash, Required)>

 view release on metacpan or  search on metacpan

lib/Driver/Compiler/Check.pm  view on Meta::CPAN

				$nil->check;
				return $nil;
			}
		}

		return $self->SUPER::promote($newtype, @rest);
	}
}

{
	package Anarres::Mud::Driver::Compiler::Node::Array;

 view release on metacpan or  search on metacpan

t/lib/Cat.pm  view on Meta::CPAN

use parent 'Animal';
use slot qw(indoor lives_remaining);

sub new {
    my ($class, %args) = @_;
    my $self = $class->SUPER::new(%args, species => 'cat');
    indoor($args{indoor} // 1);
    lives_remaining($args{lives_remaining} // 9);
    return $self;
}

 view release on metacpan or  search on metacpan

lib/Android/ElectricSheep/Automator/Plugins/Apps/Base.pm  view on Meta::CPAN

    use parent 'Android::ElectricSheep::Automator::Plugins::Apps::Base';

    sub new {
            my ($class, $params) = @_;  
            my $self = $class->SUPER::new({
                    %$params,
                    'child-class' => $class,
            });
            # add some extra internal fields, e.g. the name of the app
            # we are dealing with

 view release on metacpan or  search on metacpan

lib/Aniki/Handler/WeightedRoundRobin.pm  view on Meta::CPAN

}

sub disconnect {
    my $self = shift;
    $self->_reset_connect_info();
    $self->SUPER::disconnect();
}

my %NO_OVERRIDE_PROXY_METHODS = (
    trace_query_set_comment => 1,
    in_txn                  => 1,

 view release on metacpan or  search on metacpan

lib/AnnoCPAN/Perldoc.pm  view on Meta::CPAN

sub maybe_generate_dynamic_pod {
    my($self, $found_things) = @_;

    if ($self->opt_f or $self->opt_q) {
        warn "Warning: -f and -q do not support annotations yet\n";
        return shift->SUPER::maybe_generate_dynamic_pod(@_);
    }

    my @dynamic_pod;
    
    $self->filter_pod($found_things, \@dynamic_pod);

 view release on metacpan or  search on metacpan

lib/AnnoCPAN/DBI.pm  view on Meta::CPAN

        section => $data->{section},
    );
    return if @notes;

    # create the note
    my $note    = $self->SUPER::create($data);
    AnnoCPAN::DBI::NotePos->create({ 
        note => $note, section => $section, 
        score => SCALE, status => ORIGINAL });

    $self->reset_dbh;

lib/AnnoCPAN/DBI.pm  view on Meta::CPAN

        exit;
    }
    return $note; # only parent returns
}

sub simple_create { shift->SUPER::create(@_) }
sub simple_update { shift->SUPER::update(@_) }

sub guess_section {
    my ($self, $podver) = @_;

    # delete cached html

lib/AnnoCPAN/DBI.pm  view on Meta::CPAN

sub update {
    my $self = shift;
    for my $pv ($self->pod->podvers) {
        $pv->flush_cache;
    }
    $self->SUPER::update(@_);
}

sub delete {
    my $self = shift;
    for my $pv ($self->pod->podvers) {
        $pv->flush_cache;
    }
    $self->SUPER::delete(@_);
}

sub ref_notepos {
    my ($self) = @_;
    AnnoCPAN::DBI::NotePos->retrieve(note => $self, section => $self->section);

 view release on metacpan or  search on metacpan

lib/AnsibleModule.pm  view on Meta::CPAN

};

has check_mode => sub {0};

sub new {
  my $self = shift->SUPER::new(@_);
  setlocale(LC_ALL, "");
  $self->_check_argument_spec();
  $self->_check_params();
  unless ($self->bypass_checks) {
    $self->_check_arguments();

 view release on metacpan or  search on metacpan

lib/Any/Daemon/FCGI.pm  view on Meta::CPAN

sub new(%)
{   my ($class, %args) = @_;
    $args{Listen} ||= 5;
    $args{Proto}  ||= 'tcp';
    $class->SUPER::new(%args);
}

#----------------

#----------------

sub accept(;$)
{   my $self = shift;
    my $pkg  = shift // 'Any::Daemon::FCGI::ClientConn';
    $self->SUPER::accept($pkg);
}

1;

 view release on metacpan or  search on metacpan

lib/AnyData2/Format/CSV.pm  view on Meta::CPAN

=cut

sub new
{
    my ( $class, $storage, %options ) = @_;
    my $self = $class->SUPER::new($storage);

    my $csv_class          = delete $options{csv_class};
    my $csv_skip_first_row = delete $options{csv_skip_first_row};

    defined $csv_class or $csv_class = $class->_guess_suitable_class(qw(Text::CSV_XS Text::CSV));

 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/AnyEvent/Blackboard.pm  view on Meta::CPAN

        croak "AnyEvent::Blackboard->new() requires a balanced list";
    }

    my %options = @arguments;

    my $self = $class->SUPER::new();

    @$self{qw( -default_timeout -condvar )} =
        @options{qw( default_timeout condvar )};

    $self->{-condvar} //= AnyEvent->condvar;

lib/AnyEvent/Blackboard.pm  view on Meta::CPAN

        for my $key (grep $i++ % 2 == 0, @args) {
            $self->timeout($timeout, $key);
        }
    }

    $self->SUPER::watch(@args);
}

=item found KEY

Wrap calls to ``found'' in condvar transaction counting, if a condvar is

lib/AnyEvent/Blackboard.pm  view on Meta::CPAN

    if ($self->has_condvar) {
        my $condvar = $self->condvar;

        $condvar->begin;

        $self->SUPER::found(@args);

        $condvar->end;
    }
    else {
        $self->SUPER::found(@args);
    }
}

=item clone

lib/AnyEvent/Blackboard.pm  view on Meta::CPAN

    my $class = ref $self || __PACKAGE__;

    my $default_timeout = $self->{-default_timeout};

    my $clone = $self->SUPER::clone;

    # This is a little on the side of evil...we're not supposed to know where
    # this value is stored.
    $clone->{-default_timeout} = $default_timeout;

 view release on metacpan or  search on metacpan

lib/AnyEvent/CacheDNS.pm  view on Meta::CPAN

		$cb->($response ? ($response) : ());
		return;
	}

	# Perform a request and cache the value
	$self->SUPER::resolve(
		$qname,
		$qtype,
		%opt,
		sub{
			# Note that it could be possible that multiple DNS request are done

 view release on metacpan or  search on metacpan

lib/AnyEvent/Connection.pm  view on Meta::CPAN

=back

=cut

sub new {
	my $self = shift->SUPER::new(@_);
	$self->init(@_);
	return $self;
}

sub init {

 view release on metacpan or  search on metacpan

lib/AnyEvent/Curl/Multi.pm  view on Meta::CPAN

=cut

sub new { 
    my $class = shift;

    my $self = $class->SUPER::new(
        multi_h => WWW::Curl::Multi->new,
        state => {},
        timer_w => undef,
        io_w => {},
        queue => [],

 view release on metacpan or  search on metacpan

lib/AnyEvent/CurrentCost.pm  view on Meta::CPAN

sub new {
  my ($pkg, %p) = @_;
  croak $pkg.q{->new: 'callback' parameter is required} unless ($p{callback});
  my $self = $pkg->SUPER::new(%p);
  $self;
}

sub DESTROY { shift->cleanup }

 view release on metacpan or  search on metacpan

lib/AnyEvent.pm  view on Meta::CPAN

   *$name = sub {
      detect;
      # we use goto because
      # a) it makes the thunk more transparent
      # b) it allows us to delete the thunk later
      goto &{ UNIVERSAL::can AnyEvent => "SUPER::$name" }
   };
}

# utility function to dup a filehandle. this is used by many backends
# to support binding more than one watcher per filehandle (they usually