view release on metacpan or  search on metacpan

lib/Audio/Metadata/TextProcessor.pm  view on Meta::CPAN

    return \%new_args;
}


sub update_from_cue {
    ## Reads track info from a cue file and saves to tracks, based on track numbers.
    my $self = shift;

    my @metadatas = $self->_input_cue;
    my @file_names = grep /^\d+[_ ]?-[_ ]?.+\.(flac|ogg|mp3)$/i, glob('*.*');

 view release on metacpan or  search on metacpan

lib/Audio/Nama/Bus.pm  view on Meta::CPAN

   } $bn{Main}->tracks;
		
}

	
sub update_submix {
	my $name = shift;
		add_submix( $name, 
						 $bn{$name}->send_id),
						 "dummy",
}

 view release on metacpan or  search on metacpan

lib/Authen/Htpasswd.pm  view on Meta::CPAN

Modifies the entry for a user saves it to the file. If the user entry does not
exist, it is created. The options in the second form are passed to L<Authen::Htpasswd::User>.

=cut

sub update_user {
    my $self = shift;
    my $user = $self->_get_user(@_);
    my $username = $user->username;

    my ($old,$new) = $self->_start_rewrite;

 view release on metacpan or  search on metacpan

lib/Authen/Users.pm  view on Meta::CPAN

    return;
}

sub user_add { shift->add_user(@_) }

sub update_user_all {
    my ( $self, $group, $user, $password, $fullname, $email, $question,
        $answer ) = @_;
    $self->validate( $group, $user, $password ) or return;
    my $salt = 0;
    if($self->{make_salt}) {

 view release on metacpan or  search on metacpan

lib/Autodia/Diagram/Class.pm  view on Meta::CPAN

sub get_operation {
    my ($self, $name) = @_;
    return $self->{operation_index}{$name};
}

sub update_operation {
    my $self = shift;
    my $operation = shift;
    
    $self->{"operations"}[$operation->{_id}] = $operation;
    $self->{operation_index}{$operation->{name}} = $operation;

 view release on metacpan or  search on metacpan

bin/apache/site_perl/Apache/Toe.pm  view on Meta::CPAN

}



sub updateBoard
{

	if ( ref($_[0]) eq "Aw::Event" ) {
	#
	#  Remote Move

 view release on metacpan or  search on metacpan

lib/B/DeparseTree/TreeMain.pm  view on Meta::CPAN

    $info->{other_ops} = \@skipped_ops;
    return $info;

}

sub update_node($$$$)
{
    my ($self, $node, $prev_expr, $op) = @_;
    $node->{prev_expr} = $prev_expr;
    my $addr = $prev_expr->{addr};
    if ($addr && ! exists $self->{optree}{$addr}) {

 view release on metacpan or  search on metacpan

eg/nagios2bugzilla/talktobugzilla.pl  view on Meta::CPAN

    return 1

}

sub update_bug {

    my $f = shift;
    my $bug = shift;
    my $params = shift;

 view release on metacpan or  search on metacpan

lib/Backed_Objects.pm  view on Meta::CPAN

  $self->on_update($obj);
  $self->on_order_change;
  $self->on_any_change;
}

sub update {
  my ($self, $obj) = @_;
  die "Updating an object not in DB!" unless $self->id($obj);
  $self->before_update($obj);
  $self->do_update($obj);
  $self->post_process($obj);

 view release on metacpan or  search on metacpan

lib/BalanceOfPower/Relations/RelPack.pm  view on Meta::CPAN

    else
    {
        return 0;
    }
}
sub update_link
{
    my $self = shift;
    my $link = shift;
    $self->delete_link($link->node1, $link->node2);
    $self->add_link($link);

 view release on metacpan or  search on metacpan

lib/Basset/DB/Table.pm  view on Meta::CPAN

=cut

__PACKAGE__->add_attr('_cached_bindables');

sub update_bindables {
	my $self = shift;
	if (my $bindables = $self->_cached_bindables->{'update'}) {
		return @$bindables;
	} else {
        my @excess = $self->primary_cols;

 view release on metacpan or  search on metacpan

lib/Beagle/Backend/base.pm  view on Meta::CPAN

        }
    }
    return %file;
}

sub update {
    my $self   = shift;
    my $object = shift;
}

sub delete {
    my $self   = shift;
    my $object = shift;
}

sub updated {
    my $self = shift;
}

no Any::Moose;
__PACKAGE__->meta->make_immutable;

 view release on metacpan or  search on metacpan

lib/Benchmark/Perl/Formance/Plugin/Shootout/knucleotide.pm  view on Meta::CPAN

        }

        print $output if $PRINT;
}

sub update_hash_for_frame {
  my $frame = $_[0];
  my @threads;
  for my $i (0 .. $threads - 1) {
    use integer;
    my $begin = $l * $i / $threads;

 view release on metacpan or  search on metacpan

lib/Bigtop/Parser.pm  view on Meta::CPAN

    return [ $self->{__IDENT__} => $self->{__NAME__} ];
}

# if a renamed field is in foreign_display, update it
sub update_foreign_display {
    my $self = shift;
    shift;
    my $data = shift;

    return unless $self->{ __TYPE__ } eq 'foreign_display';

 view release on metacpan or  search on metacpan

lib/Bintray/API/Package.pm  view on Meta::CPAN

        anon => 1,
    );
} ## end sub info

## Update Package
sub update {
    my ( $self, @args ) = @_;

    my %opts = validate_with(
        params => [@args],
        spec   => {

 view release on metacpan or  search on metacpan

lib/Bio/BPWrapper/SeqManipulations.pm  view on Meta::CPAN

	$out->write_seq($seqobj);
    }
}


sub update_longest_orf {
    while( my $seqobj  = $in->next_seq() ) {
	my $pep_string = $seqobj->translate( undef, undef, 0 )->seq();
	unless ($pep_string =~ /\*[A-Z]/) { # no internal stop; don't proceed
	    my $id = $seqobj->id();
	    $seqobj->id($id . "|+1");

 view release on metacpan or  search on metacpan

lib/Bio/BioStudio/Foswiki.pm  view on Meta::CPAN

=head2 update_wiki

=cut

sub update_wiki
{
  my ($BS, $pa, $commentarr) = @_;
  my $VERPATH = $pa->{CHRPATH} . "/$pa->{NEWCHROMOSOME}.txt";
  my @arr = @{$commentarr};
  if ($BS->{enable_gbrowse})

 view release on metacpan or  search on metacpan

lib/Bio/BioVeL/AsynchronousService.pm  view on Meta::CPAN

the process that was launched by launch(), and will update the status, e.g. from RUNNING
to DONE or ERROR.

=cut

sub update { 
	my $self   = shift;
	my $log    = $self->logger;
	my $status = DONE;
	if ( my $pid = $self->pid ) {
		my $timestamp = $self->timestamp;

 view release on metacpan or  search on metacpan

lib/Bio/Cellucidate/Base.pm  view on Meta::CPAN

    my $id = shift;
    my $format = shift;
    $self->rest('GET', $self->route . "/" . $id, $format)->processResponse;
}

sub update {
    my $self = shift;
    my $id = shift;
    my $data = $self->args(shift);
    my $format = shift;

 view release on metacpan or  search on metacpan

lib/Bio/DB/GFF/Adaptor/dbi/pg.pm  view on Meta::CPAN

  }
  $sth->finish;
  return $count;
}

sub update_sequences {
  my $self = shift;
  my $dbh  = $self->features_db;
 
  $dbh->do("SELECT setval('public.fdata_fid_seq', max(fid)+1) FROM fdata");
  $dbh->do("SELECT setval('public.fattribute_fattribute_id_seq', max(fattribute_id)+1) FROM fattribute");

 view release on metacpan or  search on metacpan

lib/Bio/DB/SeqFeature/NormalizedFeature.pm  view on Meta::CPAN

the database. This is not needed for add_SeqFeature() as update() is
invoked automatically.

=cut

sub update {
  my $self = shift;
  my $store = $self->object_store or return;
  $store->store($self);
}

 view release on metacpan or  search on metacpan

lib/Bio/GMOD/Blast/Graph/MapSpace.pm  view on Meta::CPAN

    return( $fitsP );
}

#######################################################################
sub updateFromWrapper {
#######################################################################
    my( $self, $wrap ) = @_;
    my( $space );
    my( $count );
    my( $wheight );

 view release on metacpan or  search on metacpan

GMOD/Admin/Update.pm  view on Meta::CPAN

@ISA = qw/Bio::GMOD Bio::GMOD::Util::CheckVersions/;

# Currently, there is no generic update method.  Bio::GMOD::Admin::Update
# must be subclassed for your particular MOD
sub update {
  my $self = shift;
  my $adaptor = $self->adaptor;
  my $name = $adaptor->name;
  $self->logit("$name does not currently support automated updates at this time. Please ask the administrators of $name to add this functionality.",
	       -die => 1);

 view release on metacpan or  search on metacpan

AL_Spots/AL_Spots.pm  view on Meta::CPAN

  $self->id($pkey);
  $self->als_pk($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::AL_Spots::update_db: object not in DB"
    unless defined $self->id() && defined $self->als_pk();

 view release on metacpan or  search on metacpan

lib/Bio/Gonzales/Domain/Identification/HMMER/SeqMarks.pm  view on Meta::CPAN

    } else {
        return $self->$orig;
    }
};

sub update_mark {
    my ( $self, $mark, $from, $to ) = @_;

    $mark = $self->mark_from_name($mark)
        unless ( $mark =~ /^\d+$/ );

 view release on metacpan or  search on metacpan

MAGE/XML/Handler/ObjectHandler/SQL.pm  view on Meta::CPAN

  my $indent = ' ' x $self->indent_level();
  my $fh = $self->fh();
  print $fh "$indent</$tag>\n";
}     

sub update_or_insert_row {
  my $self = shift || croak("parameter self not passed");
  my %args = @_;

  #### Decode the argument list
  my $table_name         = $args{'table_name'}         || die "ERROR: table_name not passed";