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);

 view release on metacpan or  search on metacpan

Viewport/Viewport.pm  view on Meta::CPAN

sub setXC   { my $obj = shift; my $v = shift; $obj->{_XC}   = $v; }
sub setYC   { my $obj = shift; my $v = shift; $obj->{_YC}   = $v; }
sub setf    { my $obj = shift; my $v = shift; $obj->{_f}    = $v; }
sub setwindowset    { my $obj = shift; my $v = shift; $obj->{_windowset}    = $v; }

sub updatewindowboundaries {
	my $obj = shift;
	my $x	= shift;
	my $y	= shift;
	my $xmin = $obj->getxmin();
	my $xmax = $obj->getxmax();

 view release on metacpan or  search on metacpan

lib/CGI/AppToolkit/Data/Object.pm  view on Meta::CPAN

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

# update an object
sub update {
	my $self = shift;

}

 view release on metacpan or  search on metacpan

lib/CGI/Application/Demo/Basic.pm  view on Meta::CPAN

}	# End of start.

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

sub update_options
{
	my($self) = @_;
	my(@key)  = keys %{${$self -> param('key')}{'option'} };

	$self -> log -> info('Called update_options');

 view release on metacpan or  search on metacpan

lib/CGI/Application/NetNewsIface.pm  view on Meta::CPAN

Updates the cache records for the NNTP group C<$group>. This method is used
for maintenance, to make sure a script loads promptly.

=cut

sub update_group
{
    my $self = shift;
    my $group = shift;

    my $cache = CGI::Application::NetNewsIface::Cache::DBI->new(

 view release on metacpan or  search on metacpan

lib/CGI/Application/Plugin/Authentication.pm  view on Meta::CPAN

  POST_LOGIN_CALLBACK => \&update_login_date

and later in your code:

  sub update_login_date {
    my $self = shift;

    return unless($self->authen->is_authenticated);

    ...

 view release on metacpan or  search on metacpan

lib/CGI/Application/Plugin/Authorization.pm  view on Meta::CPAN

    # rest of the runmode
    ...
 }

 sub update_widget {
    my $self = shift;
    my $widget = $self->query->param('widget_id');

    # Can this user edit this widget in the widgets table?
    return $self->authz->forbidden unless $self->authz('dbaccess')->authorize(widgets => $widget);

 view release on metacpan or  search on metacpan

lib/CGI/Builder/Auth/UserAdmin.pm  view on Meta::CPAN

	delete $attr{$_}; #just incase, everything else should be OK
    }
    return new CGI::Builder::Auth::GroupAdmin (%attr, @_);
}

sub update {
    my($self, $username, $passwd, @fields) = @_;
    return (0, "User '$username' does not exist") unless $self->exists($username);
    my ($old_encr, $bool);
    if (!defined $passwd) {
	$bool = 1;

 view release on metacpan or  search on metacpan

lib/CGI/CRUD/TableIO.pm  view on Meta::CPAN

# convenient because values of length < 4 (e.g. YORN and date elements) will have to be expanded to 4
# losing some ability to constrain the values
# THIS MEANS IT IS UP TO YOU TO REPRESENT ALL VALUES IN AN UPDATE, OTHERWISE THEY **WILL BE SET TO NULL**
# e.g. submit a full record to form->add_record and make sure field_template has *all* fields, either by
# completely relying on the data dictionary or inserting a record for all fields in UI_TABLE_COLUMN
sub update_data
{
    my ($self,$r) = @_;
    my $form = $self->update_form($r) || return undef;
    my $q = $r->query();
    my %vq = %$q;

lib/CGI/CRUD/TableIO.pm  view on Meta::CPAN

    $msg .= $self->return_results($q);
    $r->output($msg);
}

# Build update form
sub update_form
{
    my ($self,$r) = @_;
    my $form = $r->form($r->dbh());
    my $table_name = $r->param('__SDAT_TAB_ACTION.TABLE_NAME');
    $form->heading("Update $table_name");

lib/CGI/CRUD/TableIO.pm  view on Meta::CPAN

    $r->graceful_add_form_group($form,'DISPLAY EDIT',$table_name,'Edit fields and submit when done') || return undef;
    return $form;
}

# Build/present update form
sub update_req
{
    my ($self,$r) = @_;
    my $form = $self->update_form($r) || return undef;
    my $q = $r->query();
    $q->{'__SDAT_TAB_ACTION.ACTION'} = 'UD';