view release on metacpan or  search on metacpan

lib/Amazon/API.pm  view on Meta::CPAN

 sub new {
   my $class = shift;
   my $options = shift || {};
 
   $class->SUPER::new({
 		      %$options,
 		      service_url_base => 'events',
 		      version          => undef,
 		      api              => 'AWSEvents',
 		      api_methods      => \@API_METHODS,

lib/Amazon/API.pm  view on Meta::CPAN

=cut

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

  unless ($self->get_user_agent) {
    $self->set_user_agent(new LWP::UserAgent);
  }

lib/Amazon/API.pm  view on Meta::CPAN

   $options->{api} 'AWSEvents';
   $options->{url} 'https://events.us-east-1.amazonaws.com';
   $options->{api_methods} => [ 'ListRules' ];

   return $class->SUPER::new($options);
 }

 1;

Then...

lib/Amazon/API.pm  view on Meta::CPAN

You can set the default Content-Type used for the calling service when
a reference is passed to the C<invoke_api()> method by passing the
C<content_type> option to the constructor.

 $class->SUPER::new({%@_, content_type => 'application/x-amz-json-1.1', api => 'AWSEvents', 
                     url => 'https://events.us-east-1.amazonaws.com'});

=head1 SEE OTHER

C<Amazon::Credentials>, C<Amazon::API::Error>

 view release on metacpan or  search on metacpan

lib/Amazon/Credentials.pm  view on Meta::CPAN

=cut

sub new {
  my $class = shift;
  my $self = $class->SUPER::new(ref($_[0]) ? $_[0] : { @_ });
  
  unless ( $self->get_logger ) {
    $self->set_logger(bless {}, 'Amazon::Credentials::Logger');
  }

 view release on metacpan or  search on metacpan

lib/Amazon/EC2.pm  view on Meta::CPAN

sub new {
  my $class = shift;
  my $options = shift || {};

  $class->SUPER::new({
		      %$options,
		      service_url_base => 'ec2',
		      version          => '2016-11-15',
		      api_methods      => \@API_METHODS
		     });

 view release on metacpan or  search on metacpan

lib/Amazon/S3.pm  view on Meta::CPAN

    $options{logger}
      = Amazon::S3::Logger->new( log_level => $options{log_level} );
  }

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

  # setup logger internal logging

  $self->get_logger->debug(
    sub {

 view release on metacpan or  search on metacpan

lib/Amazon/SQS/Client.pm  view on Meta::CPAN

      $client_options = $args[3] // {};
      $client_options->{SecurityToken} = $args[2];
    }
  }

  return $class->SUPER::new(
    { aws_access_key_id     => $args[0],
      aws_secret_access_key => $args[1],
      $client_options->{SecurityToken} ? ( token    => $client_options->{SecurityToken} ) : (),
      $client_options->{loglevel}      ? ( loglevel => $client_options->{loglevel} )      : (),
    }

lib/Amazon/SQS/Client.pm  view on Meta::CPAN

    $options->{credentials} //= Amazon::Credentials->new();
  }

  set_defaults($options);

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

  $self->init_v4_signer;

  return $self;
}

 view release on metacpan or  search on metacpan

lib/Amazon/SQS/Consumer.pm  view on Meta::CPAN

sub initialize {
	my $me = shift;

	$me->{n_messages} ||= DEFAULT_N_MESSAGES;
	$me->{wait_seconds} ||= DEFAULT_WAIT_SECONDS;
	$me->SUPER::initialize;
}

=head2 next()

This will receive a message from this Publisher's queue. When the queue is empty it will wait a new message for wait_seconds seconds.

 view release on metacpan or  search on metacpan

lib/Amazon/SecretsManager.pm  view on Meta::CPAN

  }
  elsif ( @_ ) {
    %options = %{$_[0]};
  }

  $class->SUPER::new(
    { decode_always    => TRUE,
      service_url_base => AWS_SERVICE_URL_BASE,
      version          => AWS_API_VERSION,
      api              => AWS_API,
      api_methods      => \@API_METHODS,

 view release on metacpan or  search on metacpan

lib/Amazon/SimpleDB/ErrorResponse.pm  view on Meta::CPAN

# can multiple errors happen in one response?

sub new {
    my $self = shift;
    $self->SUPER::new(@_);
    $self->{'request_id'} = $self->{content}->{Response}{RequestID};
    $self->{'box_usage'}  =
      $self->{content}->{Response}{Errors}{Error}{BoxUsage};
    return $self;
}

 view release on metacpan or  search on metacpan

lib/Ambrosia/Addons/Session.pm  view on Meta::CPAN

{
    our $__SESSION__;

    sub new : Private
    {
        return shift->SUPER::new(@_);
    }

    sub instance
    {
        return $__SESSION__ ||= @_ ? shift()->new(@_) : new Ambrosia::core::Nil;

 view release on metacpan or  search on metacpan

Amethyst/Brain/BarWench.pm  view on Meta::CPAN

@ISA = qw(Amethyst::Brain);

sub reply_to {
	my $self = shift;
	my $message = $self->SUPER::reply_to(@_);
	# $message->channel('spam');
	return $message;
}

sub init {

 view release on metacpan or  search on metacpan

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

        my $dbd_pg_version = eval { require DBD::Pg; (DBD::Pg->VERSION =~ /^([.0-9]+)\./)[0] };
        if ( !$@ and $dbd_pg_version < 2.99 ) { # less than DBD::Pg 2.99, pg_enable_utf8 must be set for utf8.
            $attr->{pg_enable_utf8} = 1 unless exists $attr->{pg_enable_utf8};
        }
    }
    my $self = $class->SUPER::connect($dsn, $user, $pass, $attr) or die "Cannot connect to server: $DBI::errstr";
    return $self;
}

package Amon2::DBI::dr;
our @ISA = qw(DBI::dr);

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

use Scalar::Util ();

sub connected {
    my $dbh = shift;
    $dbh->{private_connect_info} = [@_];
    $dbh->SUPER::connected(@_);
}

sub connect_info { $_[0]->{private_connect_info} }

sub _txn_manager {

 view release on metacpan or  search on metacpan

inc/Pod/Markdown.pm  view on Meta::CPAN

use parent qw(Pod::Parser);
use Pod::ParseLink (); # core

sub initialize {
    my $self = shift;
    $self->SUPER::initialize(@_);
    $self->_private;
    $self;
}

sub _private {

 view release on metacpan or  search on metacpan

lib/Amon2/Web/Request.pm  view on Meta::CPAN

use URI::QueryParam;
use Hash::MultiValue;

sub new {
    my ($class, $env, $context_class) = @_;
    my $self = $class->SUPER::new($env);
    if (@_==3) {
        $self->{_web_pkg} = $context_class;
    }
    return $self;
}

lib/Amon2/Web/Request.pm  view on Meta::CPAN

# ------------------------------------------------------------------------- 
# This object returns decoded parameter values by default

sub body_parameters {
    my ($self) = @_;
    $self->{'amon2.body_parameters'} ||= $self->_decode_parameters($self->SUPER::body_parameters());
}

sub query_parameters {
    my ($self) = @_;
    $self->{'amon2.query_parameters'} ||= $self->_decode_parameters($self->SUPER::query_parameters());
}

sub _decode_parameters {
    my ($self, $stuff) = @_;

lib/Amon2/Web/Request.pm  view on Meta::CPAN

# ------------------------------------------------------------------------- 
# raw parameter values are also available.

sub body_parameters_raw {
    shift->SUPER::body_parameters();
}
sub query_parameters_raw {
    shift->SUPER::query_parameters();
}
sub parameters_raw {
    my $self = shift;

    $self->env->{'plack.request.merged'} ||= do {
        my $query = $self->SUPER::query_parameters();
        my $body  = $self->SUPER::body_parameters();
        Hash::MultiValue->new( $query->flatten, $body->flatten );
    };
}
sub param_raw {
    my $self = shift;

 view release on metacpan or  search on metacpan

lib/Analizo/Batch/Directories.pm  view on Meta::CPAN

__PACKAGE__->mk_accessors(qw(directories));

sub new {
  my ($class, @directories) = @_;
  my $self = $class->SUPER::new;
  if (@directories < 1) {
    @directories = glob('*');
  }
  @directories = grep { -d $_ } @directories;
  $self->directories(\@directories);

 view release on metacpan or  search on metacpan

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

use File::Find;
use File::Spec::Functions;
use FileHandle;


my $ACTOR = Anansi::Actor->SUPER::new();


=head1 METHODS

=cut

 view release on metacpan or  search on metacpan

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

=head2 finalise

    $OBJECT->finalise();

    $OBJECT->SUPER::finalise();

=over 4

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

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

        my ($self, $caller, $parameter) = @_;
        if('EXAMPLE_VARIABLE' eq $parameter) {
            return \EXAMPLE_VARIABLE;
        }
        try {
            return $self->SUPER::implicate($caller, $parameter);
        }
        return if($@);
    }

=over 4

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

sub implicate {
    my ($self, $caller, $parameter) = @_;
    try {
        return $self->SUPER::implicate($caller, $parameter);
    }
    return if($@);
}

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

=head2 initialise

    $OBJECT->initialise();

    $OBJECT->SUPER::initialise();

=over 4

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

 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;