view release on metacpan or  search on metacpan

lib/Finance/Currency/Convert/Custom.pm  view on Meta::CPAN

use base qw(Finance::Currency::Convert);
use LWP::UserAgent;
our $VERSION = '1.00';


sub updateRates() {
	my $self = shift;
	my $sub_ref = shift;
	
	my @CurrencyList = @_;
	

lib/Finance/Currency/Convert/Custom.pm  view on Meta::CPAN

			$self->setRate($source, $target, &{$sub_ref}($source, $target));
		}
	}
}

sub updateRate() {
	my $self = shift;
	my $sub_ref = shift;
	my $source = shift;
	my $target = shift;
	unless(ref $sub_ref eq 'CODE'){

 view release on metacpan or  search on metacpan

lib/Finance/Currency/Convert/DnB.pm  view on Meta::CPAN

use File::Spec;
use XML::Simple;
use LWP::Simple;
use Slurp;

sub update_currency {
    my $filename = File::Spec->tmpdir() . "/currency_list_" . ((defined $>) ? $> : "") . ".xml";
    #only download XML twice a day
    if (!-e $filename || time()-43200 < -M $filename || $_[0]) {
        is_success ($_=getstore('http://www.dnbnor.no/portalfront/datafiles/miscellaneous/csv/kursliste_ws.xml', $filename))
	    or die 'Failed to get list of currencies; http error code: ' . $_;

 view release on metacpan or  search on metacpan

inc/Class/MOP/Class.pm  view on Meta::CPAN

        return $method if defined $method;
    }
    return;
}

sub update_meta_instance_dependencies {
    my $self = shift;

    if ( $self->{meta_instance_dependencies} ) {
        return $self->add_meta_instance_dependencies;
    }

 view release on metacpan or  search on metacpan

examples/MyEventHandler.pm  view on Meta::CPAN

{}

#
# Account and Portfolio
#
sub updateAccountValue
{}
sub updatePortfolio
{}
sub updateAccountTime
{}

#
# News Bulletins
#
sub updateNewsBulletin
{}

#
# Contract Details
#

examples/MyEventHandler.pm  view on Meta::CPAN

{}

#
# Market Depth
#
sub updateMktDepth
{}
sub updateMktDepthL2
{}

#
# Financial Advisors
#

 view release on metacpan or  search on metacpan

script/privateloan.pl  view on Meta::CPAN

    $totalInterest	=0;
    $YearEnd	+= $Year;
    print "Date\t\tPrincipal\tGross interest due\tTax due\tAmount paid\tPrincipal repaid\n";
}

sub updateLoan {
    $InterestRate	= $Advances[0]->{rate} if exists($Advances[0]->{rate});
    $Principal	+= $Advances[0]->{amount} if exists($Advances[0]->{amount});
    $Premium	= $Advances[0]->{premium} if exists($Advances[0]->{premium});
    shift @Advances;
}

sub updateTax {
    $TaxRate	= $TaxRates[0]->{rate} if exists($TaxRates[0]->{rate});
    shift @TaxRates;
}

=head1 AUTHOR

 view release on metacpan or  search on metacpan

lib/Finance/Quant.pm  view on Meta::CPAN

       $self->{config}->{'sources'}  = $sources;
    $self->createDataDir();
    $self->_init();
    return $self;
}
sub updateSymbols {
    my $self = shift;
    $self->getNasdaqSymbols(File::Spec->tmpdir(),$self->{config}->{sources}->{NASDAQ_SYMBOLS});
}
sub _init{
    my $self = shift;

 view release on metacpan or  search on metacpan

lib/Finance/QuoteDB.pm  view on Meta::CPAN

updatedb()

=cut

sub updatedb {
  my $self = shift ;

  my $dsn = $self->{dsn};
  INFO ("COMMAND: Update database $dsn\n");

lib/Finance/QuoteDB.pm  view on Meta::CPAN

updatedbMarketStock($market,\%symbolIDs)

=cut

sub updatedbMarketStock {
  my ($self,$market,$stockHash) = @_ ;
  my $schema = $self->schema();
  my @fqsymbols = keys(%{$stockHash}) ;
  DEBUG "UPDATEDBMARKETSTOCK: $market -->" .join(",",@fqsymbols)."\n" ;
  my $q = Finance::Quote->new();

 view release on metacpan or  search on metacpan

lib/Firefox/Marionette.pm  view on Meta::CPAN

        $profile->save( $self->{profile_path} );
    }
    return;
}

sub update {
    my ( $self, $update_timeout ) = @_;
    my $timeouts        = $self->timeouts();
    my $script_timeout  = $timeouts->script();
    my $update_timeouts = Firefox::Marionette::Timeouts->new(
        script => ( $update_timeout || _DEFAULT_UPDATE_TIMEOUT() ) *

 view release on metacpan or  search on metacpan

lib/Firewall/Config/Connector.pm  view on Meta::CPAN

$Data::dumper::Sortkeys = 1;

has dbi => ( is => 'ro', does => 'Firewall::DBI::Role', );

sub update {
  my ( $self, %param ) = @_;
  my ( $fwType, @process, $conf, %processForFw, $numOfProcesses, $fwIds );
  my $fwInfo = $self->getFwInfo;
  if ( @{$param{fwIds}} ) {
    $fwIds = $param{fwIds};

lib/Firewall/Config/Connector.pm  view on Meta::CPAN

    while ( ( $exitPid = waitpid( -1, WNOHANG ) ) > 0 ) {
      delete( $childPids{$exitPid} );
      sleep(0.25);
    }
  }
} ## end sub update

sub saveconfig {
  my ( $self, $param ) = @_;
  my ( $fwId, $type, $conf ) = @{$param}{qw/fwId type conf/};
  my $sonDbi = $self->dbi->clone;

 view release on metacpan or  search on metacpan

lib/Firewall/Config/Dao/Parser/Role.pm  view on Meta::CPAN

}

#------------------------------------------------------------------------------
# updateNetwork 抽象批量更新大网、私网接口
#------------------------------------------------------------------------------
sub updateNetwork {
  my ( $self, $zones, @tables ) = @_;

  # 如果传入的非哈希引用则自动修正
  confess "网络区域必须是哈希引用"  if not ref $zones eq 'HASH' || not defined $zones;
  confess "必须提供至少一个表单数据" if scalar @tables == 0;

lib/Firewall/Config/Dao/Parser/Role.pm  view on Meta::CPAN

}

#------------------------------------------------------------------------------
# updateStaticNatToNetwork 抽象自动绑定 NAT 网段到大网数据表单
#------------------------------------------------------------------------------
sub updateStaticNatToNetwork {
  my $self = shift;

  # 初始化变量
  my $params;
  my $table = 'fw_network_main';

 view release on metacpan or  search on metacpan

lib/Firewall/Config/Initialize.pm  view on Meta::CPAN

}

#------------------------------------------------------------------------------
# 更新防火墙网段信息
#------------------------------------------------------------------------------
sub updateNetwork {
  my ( $self, $fwId ) = @_;

  my @tables = ( 'fw_network_main', 'fw_network_private' );
  for my $table (@tables) {
    my $sql      = "select fw_id,zone,addr_range from $table where fw_id=$fwId";

 view release on metacpan or  search on metacpan

lib/Firewall/Controller/Ff.pm  view on Meta::CPAN

}

#------------------------------------------------------------------------------
# updateNetwork 更新网络信息，必须携带 fwId
#------------------------------------------------------------------------------
sub updateNetwork {
  my $self = shift;

  # 初始化变量
  my $result;

 view release on metacpan or  search on metacpan

lib/Ff.pm  view on Meta::CPAN

} ## end sub initFirewall

#------------------------------------------------------------------------------
# updateNetwork 更新网络信息
#------------------------------------------------------------------------------
sub updateNetwork {
  my $self = shift;

  # 构造 result 数据结构
  my $result = {
    status  => 'ok',

lib/Ff.pm  view on Meta::CPAN

    };
  };

  # 返回计算结果
  $self->render( json => $result );
} ## end sub updateNetwork

1;

 view release on metacpan or  search on metacpan

doc/examples/petmarket/petmarket/api/cartservice.pm  view on Meta::CPAN

    my $result = $self->getCartTotal($cartid);
    $result->{"itemoid"} = $itemid;
    return $result;
}

sub updateCartItem
{
    my ($self, $cartid, $itemid, $quantity) = @_;
    $self->deleteCartItem($cartid, $itemid);
    return $self->addCartItem($cartid, $itemid, $quantity);
}

 view release on metacpan or  search on metacpan

lib/FlatFile/DataStore.pm  view on Meta::CPAN

Returns a Flatfile::DataStore::Record object.

=cut

sub update {
    my $self = shift;
    my( $data_ref, $user_data, $pr_obj ) = $self->normalize_parms( @_ );

    croak qq/Must have at least a previous preamble for update/
        unless $pr_obj;

lib/FlatFile/DataStore.pm  view on Meta::CPAN

# Private method.
# 
# =cut
# 

sub update_preamble {
    my( $self, $preamble, $parms ) = @_;

    my $omap = $self->specs;

    for( keys %$parms ) {

 view release on metacpan or  search on metacpan

lib/Flower/Files.pm  view on Meta::CPAN

    return $_ if ( $_->filename eq $filename );
  }
  return;
}

sub update_all_in_path {
  my $self = shift;
  my $path = shift;

  # first nuke any files that have disappeared or can no
  # longer be read

lib/Flower/Files.pm  view on Meta::CPAN

    $path
  );
  return;
}

sub update_files_from_arrayref {
  my $self = shift;
  my $ref  = shift;

  my @new_files;
  foreach (@$ref) {

 view release on metacpan or  search on metacpan

lib/Font/TTF/Cmap.pm  view on Meta::CPAN

Removes from all cmaps any codepoint that map to GID=0. Note that such entries will
be re-introduced as necessary depending on the cmap format.

=cut

sub update
{
    my ($self) = @_;
    my ($max, $code, $gid, @keep);
    
    return undef unless ($self->SUPER::update);

 view release on metacpan or  search on metacpan

lib/Foorum/ResultSet/Forum.pm  view on Meta::CPAN

    my $forum_url = '/forum/' . $forum->{forum_code};

    return $forum_url;
}

sub update_forum {
    my ( $self, $forum_id, $update ) = @_;

    my $schema = $self->result_source->schema;
    my $cache  = $schema->cache();

 view release on metacpan or  search on metacpan

lib/Footprintless/Plugin/Atlassian/Confluence/RequestBuilder.pm  view on Meta::CPAN

    $self->{base_url} = $base_url;

    return $self;
}

sub update_content {
    my ( $self, $id, $content, %options ) = @_;

    return HTTP::Request->new(
        'PUT',
        $self->_url( "/rest/api/content/$id", %options ),

 view release on metacpan or  search on metacpan

lib/Footprintless/Plugin/Ldap/Ldap.pm  view on Meta::CPAN

    $message->code() && croak( $message->error() );

    return $self;
}

sub update {
    my ( $self, $entry ) = @_;
    croak('not connected') unless ( $self->{connection} );

    $logger->tracef( 'updating %s', $entry->dn() );
    my $message = $entry->update( $self->{connection} );

 view release on metacpan or  search on metacpan

lib/Footprintless/Overlay.pm  view on Meta::CPAN

            $resource_manager->download( $spec->{resources}{$resource}, to => $destination );
        }
    }
}

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

    if ( $options{to_dir} ) {
        $self->_dirs_template(
            $options{to_dir},

 view release on metacpan or  search on metacpan

lib/Form/Processor/Model/CDBI.pm  view on Meta::CPAN

}




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


    # Grab either the item or the object class.
    my $item = $self->item;

 view release on metacpan or  search on metacpan

lib/Form/Processor/Model/DBIC.pm  view on Meta::CPAN

Returns false if form does not validate, otherwise returns 1.  Very likely dies on database errors.

=cut

sub update_from_form {
    my ( $self, $params ) = @_;
    return unless $self->validate($params);
    $self->schema->txn_do( sub { $self->update_model } );
    return 1;
}

lib/Form/Processor/Model/DBIC.pm  view on Meta::CPAN

a row is created using "create" and the fields identified as columns passed
in a hashref, followed by "other" fields and relationships.

=cut

sub update_model {
    my ($self) = @_;
    my $item   = $self->item;
    my $source = $self->source;

    # get a hash of all fields, skipping fields marked 'noupdate'

 view release on metacpan or  search on metacpan

lib/Form/Processor/Model/DOD.pm  view on Meta::CPAN

Returns false if form does not validate.  Very likely dies on database errors.

=cut

sub update_from_form {
   my($model, $params) = @_;

    return unless $model->validate($params);

    # Grab either the item or the object class.

 view release on metacpan or  search on metacpan

lib/Form/Processor/Model/RDBO.pm  view on Meta::CPAN

It does not save the current item automatically. You should do this in your
code, after the call update_from_form.

=cut

sub update_from_form {
    my ( $self, $params ) = @_;
    return unless $self->validate( $params );
    return $self->update_model( $params );
}

lib/Form/Processor/Model/RDBO.pm  view on Meta::CPAN

Returns the new RDBO item, filled with passed form params. It does not save any
data to the database, just creates and fills new RDBO object.

=cut

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

    my $item = $self->item;
    my $class = ref( $item ) || $self->object_class;

 view release on metacpan or  search on metacpan

lib/Form/Processor/Model.pm  view on Meta::CPAN

    return $item->{$name};

}


sub update_from_form {
    die "must define 'update_from_form' in Form::Processor::Model subclass";
}

 view release on metacpan or  search on metacpan

AI/FreeHAL/Config.pm  view on Meta::CPAN

package AI::FreeHAL::Config::Gap;
use AI::FreeHAL::Class;
### [caller 0]
{
    sub serialize { return "\n" }
    sub update  {}
    sub extend  {}
    sub copy_to {}
}

package AI::FreeHAL::Config::Comment;

AI/FreeHAL/Config.pm  view on Meta::CPAN

    sub append_comment {
        my ($self, $new_text) = @_;
        $text_of{ident $self} .= $new_text;
    }

    sub update  {}
    sub extend  {}
    sub copy_to {}
}

package AI::FreeHAL::Config::Keyval;

AI/FreeHAL/Config.pm  view on Meta::CPAN

        }

        return $serialization;
    }

    sub update { 
        my ($self, $hash_ref, $updated_ref) = @_;
        my $ident = ident $self;

        my $key = $key_of{$ident};

AI/FreeHAL/Config.pm  view on Meta::CPAN

        }

        return $serialization;
    }

    sub update {
        my ($self, $hash_ref, $updated_ref) = @_;
        my $ident = ident $self;

        if (!defined $hash_ref) {
            $deleted_of{$ident} = 1;

 view release on metacpan or  search on metacpan

lib/FreePAN/Command.pm  view on Meta::CPAN

sub registry_outdated {
    my $base = io($self->hub->config->base)->chdir;
    -M 'plugins' < -M 'registry.dd';
}

sub update_registry {
    $self->create_registry(@_);
}

sub handle_all {
    warn "-all not yet implemented\n";

 view release on metacpan or  search on metacpan

lib/FreeRADIUS/Database.pm  view on Meta::CPAN

    return $self->password({ username => $username });
}

# NAS 

sub update_ras_name {

    my $self    = shift;
    my $params  = shift;

    my $day     = $params->{ day };

 view release on metacpan or  search on metacpan

GLBackEnd.pm  view on Meta::CPAN

sub quitpressed {
	return delete $_[0]{QuitPressed};
}

sub update_scene {
	my($this,$time) = @_;

	while(XPending()) {
		# print "UPDS: Xpend:",XPending(),"\n";
		my @e = &glpXNextEvent();