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;
view release on metacpan or search on metacpan
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);
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 . ";";
}
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";
}
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;