view release on metacpan or  search on metacpan

lib/BlankOnDev/Repo.pm  view on Meta::CPAN

    # Read Sources list :

}
# Subroutine for update database repository on local system :
# ------------------------------------------------------------------------
sub update {
    # repo update :
    system('sudo apt-get update');
}
# Subroutine for install packages before build :
# ------------------------------------------------------------------------

 view release on metacpan or  search on metacpan

lib/BmltClient/ApiClient.pm  view on Meta::CPAN

# update header and query param based on authentication setting
#
# @param array $headerParams header parameters (by ref)
# @param array $queryParams query parameters (by ref)
# @param array $authSettings array of authentication scheme (e.g ['api_key'])
sub update_params_for_auth {
    my ($self, $header_params, $query_params, $auth_settings) = @_;

    return $self->_global_auth_setup($header_params, $query_params)
        unless $auth_settings && @$auth_settings;

 view release on metacpan or  search on metacpan

lib/Bootylicious/Document.pm  view on Meta::CPAN

    print $file $self->content || '';

    return $self;
}

sub update {
    my $self = shift;
    my $hash = shift;

    $hash ||= {};
    foreach my $key (keys %$hash) {

 view release on metacpan or  search on metacpan

lib/Bot/Backbone/Service/OFun/Karma.pm  view on Meta::CPAN

    # OK!
    return 1;
}


sub update_scores {
    my ($self, $message) = @_;

    my @args = $message->all_args;
    THING: for my $i (0 .. $#args) {
        my $arg  = $args[$i];

 view release on metacpan or  search on metacpan

lib/Bot/BasicBot/Pluggable/Module/Seen.pm  view on Meta::CPAN

    my $what = 'joining the channel';
    $self->update_seen( $mess->{who}, $mess->{channel}, $what );
    return;
}

sub update_seen {
    my ( $self, $who, $channel, $what ) = @_;
    my $nick = lc $who;
    $channel = lc $channel;
    my $ignore_channels = $self->get('user_ignore_channels') || {};
    return if exists $ignore_channels->{$channel};

 view release on metacpan or  search on metacpan

JabberBot.pm  view on Meta::CPAN

	}
	$self->roster(\@roster);
    }
} 

sub update_session {
    my ($self,$said) = @_;
    my $session = $self->session;
    my $dialogue = $session->{$said->{who}} || [ ];
    my $session_length = $self->session_length || '8';
    if (scalar(@{$dialogue}) > 8) {

 view release on metacpan or  search on metacpan

examples/UberBot/Seen.pm  view on Meta::CPAN

    else {
        return "I haven't seen $user, $nick";
    }
}

sub update_seen {
    my ($self, $nick, $channel, $msg) = @_;
    $self->{seen}{$nick} = {
        'time' => time(),
        'msg' => $msg,
        'channel' => $channel,

 view release on metacpan or  search on metacpan

t/lib/Bot/Telegram/Test.pm  view on Meta::CPAN

sub loop_for_a_second {
  timer { Mojo::IOLoop -> stop } 1;
  Mojo::IOLoop -> start;
}

sub update {
  my ($type, $id) = @_;

  return {
    $type => {
      foo => 'bar',

 view release on metacpan or  search on metacpan

lib/Bracket/Controller/Admin.pm  view on Meta::CPAN

        return 0;
    }
    else { return 1; }
}

sub update_player_points : Global {
    my ($self, $c) = @_;

    $c->stash->{template} = 'player/all_home.tt';
    my @players = $c->model('DBIC::Player')->all;

lib/Bracket/Controller/Admin.pm  view on Meta::CPAN

    my @played_games = $c->model('DBIC::Pick')->search({ player => 1 }, { order_by => 'game' });
    $c->stash->{played_games} = \@played_games;
    $c->stash->{template}     = 'admin/lower_seeds.tt';
}

sub update_points : Global {
    my ($self, $c) = @_;
    my @points = $c->model('DBIC')->update_points;
    $c->flash->{status_msg} = 'Scores Updated';
    $c->response->redirect($c->uri_for($c->controller('Player')->action_for('all')));
    return;

 view release on metacpan or  search on metacpan

lib/Brocade/BSC/Node/NC/Vrouter/VR5600.pm  view on Meta::CPAN

# Method ===============================================================
# 
# Parameters: 
# Returns   : 
#
sub update_firewall_instance_rule {
    die "XXX";
}

# Method ===============================================================
#

 view release on metacpan or  search on metacpan

BugCli.pm  view on Meta::CPAN

    my ($bugid) = $dbh->fetch_one_value( sql => $Query{AutoIncrement} );
    update_bug( $dbh, $bugid, undef, undef, $text );
    return $bugid;
}

sub update_bug {
    my ( $dbh, $bug_id, $bug_resolution, $bug_status, $text ) = @_;
    if ( defined $bug_resolution ) {
        $dbh->do_update(
            'table'    => 'bugs',
            'values'   => { resolution => "'$bug_resolution'" },

 view release on metacpan or  search on metacpan

lib/Biblio/Bibtex.pm  view on Meta::CPAN

  $v =~ s/%(\d)/ @pars[$1-1] /ge;
  return $v;
#  return $shortcuts->{$text};
}

#sub updateShortcuts {
#  my ($self) = @_;
#  delete $self->{'shortcuts'};
#}

 view release on metacpan or  search on metacpan

lib/Business/AU/Ledger.pm  view on Meta::CPAN

} # End of tab_set.

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

sub update_context
{
	my($self) = @_;

	$self -> log(__PACKAGE__ . '. Leaving update_context');

 view release on metacpan or  search on metacpan

lib/Business/Address/POBox.pm  view on Meta::CPAN

sub init {
    my $self = shift;
    $self->update;
}

sub update {
    my $self = shift;
    for ($self->matcher) {
        $_->blacklist($self->blacklist);
        $_->whitelist($self->whitelist);
        $_->update;

 view release on metacpan or  search on metacpan

lib/Business/AuthorizeNet/CIM.pm  view on Meta::CPAN

    $writer->end;

    return $self->_send($xml);
}

sub updateCustomerProfile {
    my $self = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);

lib/Business/AuthorizeNet/CIM.pm  view on Meta::CPAN

    $writer->end;

    return $self->_send($xml);
}

sub updateCustomerPaymentProfile {
    my $self = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);

lib/Business/AuthorizeNet/CIM.pm  view on Meta::CPAN

    $writer->end;

    return $self->_send($xml);
}

sub updateCustomerShippingAddress {
    my $self = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);

lib/Business/AuthorizeNet/CIM.pm  view on Meta::CPAN

    $writer->end;

    return $self->_send($xml);
}

sub updateSplitTenderGroupRequest {
    my ($self, $splitTenderId, $splitTenderStatus) = @_;

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('updateSplitTenderGroupRequest', 'xmlns' => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');

 view release on metacpan or  search on metacpan

lib/Business/BalancedPayments/V10.pm  view on Meta::CPAN

        $account->{card_uri} = $card->{uri};
    }
    return $self->post($self->_uri('accounts'), $account);
}

sub update_account {
    my ($self, $account) = @_;
    croak 'The account param must be a hashref' unless ref $account eq 'HASH';
    croak 'The account must have an id or uri field'
        unless $account->{uri} || $account->{id};
    my $acc_uri = $account->{uri} || $self->_uri('accounts', $account->{id});

lib/Business/BalancedPayments/V10.pm  view on Meta::CPAN

    croak 'The id param is missing' unless defined $id;
    my $uri = $self->_uri('bank_accounts', $id) . '/verifications';
    return $self->post($uri => {});
}

sub update_bank_account {
    my ($self, $bank) = @_;
    croak 'The bank account must be a hashref' unless ref $bank eq 'HASH';
    croak 'The bank account must have an id or uri field'
        unless $bank->{uri} || $bank->{id};
    my $bank_uri = $bank->{uri} || $self->_uri('bank_accounts', $bank->{id});

 view release on metacpan or  search on metacpan

t/MyMech.pm  view on Meta::CPAN

  my $self = {};
  bless $self, $class;
  return $self;
}

sub update_html {
  my ($self, $html) = @_;
  $self->WWW::Mechanize::update_html( $html );
}

 view release on metacpan or  search on metacpan

lib/Business/Fixflo/Resource.pm  view on Meta::CPAN

    );

    return $Paginator;
}

sub update {
    my ( $self ) = @_;
    return $self->create( 'update' );
}

=head1 AUTHOR

 view release on metacpan or  search on metacpan

lib/Business/GoCardless/Mandate.pm  view on Meta::CPAN

=cut

sub cancel { shift->_operation( undef,'api_post',undef,'actions/cancel' ); }

sub update {
    my ( $self,%params ) = @_;

    return $self->client->api_put(
        sprintf( $self->endpoint,$self->id ),
        { mandates => { %params } },

 view release on metacpan or  search on metacpan

lib/Business/Intelligence/MicroStrategy/CommandManager.pm  view on Meta::CPAN

UPDATE PROJECT "<project_name>";


=cut

sub update_project {
	my $self = shift;
	$self->{PROJECT} = shift;
	if(!defined($self->{PROJECT})) { croak("\nRequired parameter not defined: PROJECT\n"); }
	return "UPDATE PROJECT " . $q . $self->{PROJECT} . $q . ";";
}

lib/Business/Intelligence/MicroStrategy/CommandManager.pm  view on Meta::CPAN

UPDATE SCHEMA FOR PROJECT "MicroStrategy Tutorial";
UPDATE SCHEMA REFRESHSCHEMA RECALTABLEKEYS RECALTABLELOGICAL RECALOBJECTCACHE FOR PROJECT "MicroStrategy Tutorial";

=cut

sub update_schema {
my $self = shift;
my %parms = @_;
@$self{keys %parms} = values %parms;
my $result;
my @order = qw(REFRESHSCHEMA RECALTABLEKEYS RECALTABLELOGICAL RECALOBJECTCACHE PROJECT);

lib/Business/Intelligence/MicroStrategy/CommandManager.pm  view on Meta::CPAN

UPDATE STRUCTURE COLMERGEOPTION RECENT FOR PROJECT "MicroStrategy Tutorial";

=cut

sub update_structure {
my $self = shift;
my %parms = @_;
@$self{keys %parms} = values %parms;
my $result;
my @order = qw(COLMERGEOPTION WHTABLE PROJECT);

 view release on metacpan or  search on metacpan

lib/Business/LiveDrive.pm  view on Meta::CPAN

Updates user details.

=cut

sub updateuser {
    my ($self, %args) = @_;
    my @params = ();
    foreach (qw/userID firstName lastName email password confirmPassword
        subDomain isSharing hasWebApps/) {
        croak("You must pass the $_ parameter") unless $args{$_} ||

 view release on metacpan or  search on metacpan

lib/Business/RealEx.pm  view on Meta::CPAN

XML

    return $self->__request($xml);
}

sub update_card {
    my $self = shift;
    my %args = @_ % 2 ? %{$_[0]} : (@_);

    $args{update_card} = 1;
    $self->new_card(%args);

 view release on metacpan or  search on metacpan

lib/Business/Stripe/Subscription.pm  view on Meta::CPAN

    $self->{'error'} = 'Cancellation failed';
    return undef;
}

# Change subscripotion to a different price plan
sub update {
    my ($self, $subscription, $plan) = @_;
    
    $self->{'error'} = '';
    $self->{'error'} = 'Subscription missing'      unless $subscription;
    $self->{'error'} = 'Subscription plan missing' unless $plan;

 view release on metacpan or  search on metacpan

lib/Business/Stripe/Webhook.pm  view on Meta::CPAN

      $webhook->reply(status => 'OK');
  } else {
      $webhook->reply(error => $webhook->error());
  }
  
  sub update_invoice {
      # Process paid invoice
      ...
  }
  
  sub update_session {
      # Process checkout
      ...
  }
  
=head1 DESCRIPTION

 view release on metacpan or  search on metacpan

bin/utv_usage_applet.pl  view on Meta::CPAN

{
	print "Login failed :(\n";
	exit(1);
}

sub update_text
{
	my $usage = $utv->usage();
	my $up = $usage->{"upload"};
	my $down = $usage->{"download"};

 view release on metacpan or  search on metacpan

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

  }

  return @buzzwords;
}

sub updateProfile
{
  my $self = shift;
  my $profile = shift;

  return $self->sendRequest(UPDATEPROFILE,

 view release on metacpan or  search on metacpan

lib/C/Analyzer.pm  view on Meta::CPAN

=cut

#################### subroutine header end ####################

sub updateHashTable() {
	my $fun_calls  = shift;
	my $OpenCount  = 0;
	my $CloseCount = 0;
	my $function;
	my $FUNCTIONFOUND = 0;

 view release on metacpan or  search on metacpan

lib/CAM/SQLObject.pm  view on Meta::CPAN

Returns the name of the default query to do record updates in SQL XML
file (needed for save()).  This default method returns "update".

=cut

sub updateQueryName
{
   my $pkg_or_self = shift;

   return "update";
}

lib/CAM/SQLObject.pm  view on Meta::CPAN

Run the default update SQL template.  This function is usually just
called from the save() function.

=cut

sub update
{
   my $self = shift;
   my $query = shift || $self->{update_name};

   return $self->_runSQL($query);

 view release on metacpan or  search on metacpan

lib/CASCM/Wrapper.pm  view on Meta::CPAN

  return $self->set_context($context);
} ## end sub load_context

# Update Context
sub update_context {
    my $self = shift;
    my $new = shift || {};

    if ( ref $new ne 'HASH' ) {
        $self->_err("Context must be a hash reference");

lib/CASCM/Wrapper.pm  view on Meta::CPAN

            $context->{$type}->{$key} = $new->{$type}->{$key};
        }
    } ## end foreach my $type ( keys %{$new...})

  return $self->set_context($context);
} ## end sub update_context

# Parse logs
sub parse_logs {
    my $self = shift;
    if (@_) {

 view release on metacpan or  search on metacpan

lib/CDS.pm  view on Meta::CPAN

	my $o = shift;

	return $o->{actorSelector}->child('name')->textValue;
}

sub updateMyRegistration {
	my $o = shift;

	$o->{actorSelector}->addObject($o->{keyPair}->publicKey->hash, $o->{keyPair}->publicKey->object);
	my $record = CDS::Record->new;
	$record->add('hash')->addHash($o->{keyPair}->publicKey->hash);