view release on metacpan or search on metacpan
lib/Atompub/Client.pm view on Meta::CPAN
return $client->error('Response is not Media Resource')
if UNIVERSAL::isa($client->rc, 'XML::Atom::Entry');
wantarray ? ($client->rc, $client->res->content_type) : $client->rc;
}
sub updateEntry {
my($client, $uri, $entry) = @_;
return $client->error('No URI') unless $uri;
return $client->error('No Entry') unless $entry;
unless (UNIVERSAL::isa( $entry, 'XML::Atom::Entry')) {
$entry = XML::Atom::Entry->new($entry)
lib/Atompub/Client.pm view on Meta::CPAN
rc => $entry,
headers => $headers,
});
}
sub updateMedia {
my($client, $uri, $stream, $content_type) = @_;
return $client->error('No URI') unless $uri;
return $client->error('No stream') unless $stream;
return $client->error('No Content-Type') unless $content_type;
my $media = ref $stream ? $$stream : read_file($stream, binmode => ':raw')
view release on metacpan or search on metacpan
lib/Test/Attean/W3CManifestTestSuite.pm view on Meta::CPAN
fail("syntax $namevalue; $filename (unexpected successful parse)");
}
}
}
sub update_eval_test {
my $self = shift;
my $model = shift;
my $test = shift;
my $count = shift // 1;
view release on metacpan or search on metacpan
lib/Audio/Audiere.pm view on Meta::CPAN
$self->{_streams3d}->{ $stream->{_id} } = $stream;
}
$stream;
}
sub update3D
{
my $self = shift;
foreach my $id (keys %{$self->{_streams3d}})
{
view release on metacpan or search on metacpan
DB/Build.pm view on Meta::CPAN
# UPDATE DATABASE IS NOT COMPLETELY WORKING YET!!
# Wrapper method for quickly adding new songs to a database.
# This needs to check within the DB itself for artists
# and albums, as well as within the current set.
sub update_database {
my ($self,@p) = @_;
my ($dirs,$files,$columns,$tmp,$shout,@others) =
rearrange([
[qw(DIR DIRS TOP_DIRS)],
FILES,
view release on metacpan or search on metacpan
examples/mpc.pl view on Meta::CPAN
$x->set_fade($ARGV[1]);
} else {
help;
}
}
sub update { $x->updatedb(); }
sub version { print "mpd version: ".$x->{version}."\n"; }
# main() - Main sub
sub main
{
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('*.*');
lib/Audio/Metadata/TextProcessor.pm view on Meta::CPAN
$metadata_writer->save;
}
}
sub update {
## Reads metadata from specified file handle and saves to media files.
my $self = shift;
my $fh = $self->input_fh;
my %curr_item;
view release on metacpan or search on metacpan
demo/player-gtk-fork view on Meta::CPAN
$fw->cancel_button->signal_connect('clicked', sub { $fw->destroy });
$fw->show;
}
sub update_info ($$) {
my ($fname,$mfile) = @_;
if ($song_loaded) {
$fname =~ s#^\S+/##;
$filelabel->set($fname);
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
Makefile.PL view on Meta::CPAN
$examples =~ s/\r\n/\n/g;
update_file( $example_file, $examples );
};
};
sub update_file {
my( $filename, $new_content ) = @_;
my $content;
if( -f $filename ) {
open my $fh, '<:raw:encoding(UTF-8)', $filename
or die "Couldn't read '$filename': $!";
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}) {
lib/Authen/Users.pm view on Meta::CPAN
);
}
return;
}
sub update_user_password {
my ( $self, $group, $user, $password ) = @_;
$self->validate( $group, $user, $password ) or return;
my $salt = 0;
if($self->{make_salt}) {
$salt = $self->{sha}->( time + rand(10000) );
lib/Authen/Users.pm view on Meta::CPAN
$t, $t, $group, $user );
}
return;
}
sub update_user_fullname {
my ( $self, $group, $user, $fullname ) = @_;
my $update_fullname_sth = $self->{dbh}->prepare(<<ST_H);
UPDATE $self->{authentication} SET fullname = ?, modified = ?,
WHERE groop = ? AND user = ?
ST_H
my $t = time;
return 1 if $update_fullname_sth->execute( $fullname, $t, $group, $user );
return;
}
sub update_user_email {
my ( $self, $group, $user, $email ) = @_;
my $update_email_sth = $self->{dbh}->prepare(<<ST_H);
UPDATE $self->{authentication} SET email = ? , modified = ?,
WHERE groop = ? AND user = ?
ST_H
my $t = time;
return 1 if $update_email_sth->execute( $email, $t, $group, $user );
return;
}
sub update_user_question_answer {
my ( $self, $group, $user, $question, $answer ) = @_;
my $update_additional_sth = $self->{dbh}->prepare(<<ST_H);
UPDATE $self->{authentication} SET question = ?, answer = ? ,
modified = ? WHERE groop = ? AND user = ?
ST_H
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;
lib/Basset/DB/Table.pm view on Meta::CPAN
=end btest
=cut
sub update_query {
my $self = shift;
my @cols = @_;
if (@cols){
view release on metacpan or search on metacpan
lib/Bb/Collaborate/V3.pm view on Meta::CPAN
startTime => '1448922188000',
... });
=cut
sub update {
my ($class, $data, %opt) = @_;
$opt{command} ||= 'Set'.$class->entity_name;
return $class->SUPER::update($data, %opt);
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;
lib/Benchmark/Perl/Formance/Plugin/Shootout/knucleotide.pm view on Meta::CPAN
my $count = $thread->join;
$h{$_} += $count->{$_} for keys %$count;
}
}
sub update_hash_slice {
my ($frame, $begin, $end) = @_;
my %local;
$local{substr($sequence,$_,$frame)}++ for $begin .. $end;
return \%local;
}
view release on metacpan or search on metacpan
lib/BenchmarkAnything/Storage/Backend/SQL/Query/common.pm view on Meta::CPAN
bench_value_id = ?
", @{$hr_vals}{qw/ new_bench_value_id old_bench_value_id /} );
}
sub update_benchmark_backup_value {
my ( $or_self, $hr_vals ) = @_;
return $or_self->execute_query( "
UPDATE $or_self->{config}{tables}{benchmark_backup_value_table}
lib/BenchmarkAnything/Storage/Backend/SQL/Query/common.pm view on Meta::CPAN
WHERE raw_bench_bundle_id IN (".join(',', ('?') x @a_vals).")
", @a_vals );
}
sub update_raw_bench_bundle_set_processed {
my ( $or_self, @a_vals ) = @_;
return $or_self->execute_query( "
UPDATE raw_bench_bundles
lib/BenchmarkAnything/Storage/Backend/SQL/Query/common.pm view on Meta::CPAN
raw_bench_bundle_id = ?
", @a_vals );
}
sub update_raw_bench_bundle_set_processed2 {
my ( $or_self, @a_vals ) = @_;
return $or_self->execute_query( "
UPDATE raw_bench_bundles
lib/BenchmarkAnything/Storage/Backend/SQL/Query/common.pm view on Meta::CPAN
raw_bench_bundle_id IN (".join(',', ('?') x @a_vals).")
", @a_vals );
}
sub update_raw_bench_bundle_set_processed3 {
my ( $or_self, @a_vals ) = @_;
return $or_self->execute_query( "
UPDATE raw_bench_bundles
view release on metacpan or search on metacpan
lib/Biblio/SIF/Patron.pm view on Meta::CPAN
sub country { shift()->_string( 299, 20, @_ ) }
sub phone { shift()->_string( 319, 25, @_ ) }
sub cell_phone { shift()->_string( 344, 25, @_ ) }
sub fax { shift()->_string( 369, 25, @_ ) }
sub other_phone { shift()->_string( 394, 25, @_ ) }
sub update_date { shift()->_date( 419, @_ ) }
sub postal_code { shift()->_string( 289, 10, @_ ) } # Alias
sub state_province { shift()->_string( 282, 7, @_ ) } # Alias
sub zip_postal { shift()->_string( 289, 10, @_ ) } # Alias
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';
lib/Bigtop/Parser.pm view on Meta::CPAN
return [ $self->{ __DEF__ }{ __ARGS__ } ];
}
# If the old label was the default, the label will be changed to default
# for new name.
sub update_label {
my $self = shift;
my $child_output = shift;
my $data = shift;
return unless $self->{ __KEYWORD__ } eq 'label';
lib/Bigtop/Parser.pm view on Meta::CPAN
};
return bless $self, $class;
}
sub update_label {
my $self = shift;
return [ $self->{ __ARGS__ }->get_first_arg ];
}
lib/Bigtop/Parser.pm view on Meta::CPAN
$ident . '::form_name' => $table,
$ident . '::extra_keys' => $extra_keys,
];
}
sub update_field_name {
my $self = shift;
my $child_output = shift;
my $data = shift;
my $count = 0;
lib/Bigtop/Parser.pm view on Meta::CPAN
keyword => $self->{__KEYWORD__},
values => $self->{__ARGS__},
} ];
}
sub update_field_name {
my $self = shift;
shift;
my $data = shift;
unless ( $self->{ __KEYWORD__ } eq 'cols'
lib/Bigtop/Parser.pm view on Meta::CPAN
my $self = shift;
return [ $self->{__KEYWORD__} => $self->{__ARGS__} ];
}
sub update_config_statement {
my $self = shift;
shift;
my $data = shift;
return unless ( $data->{ ident } eq $self->{__PARENT__}->get_ident );
lib/Bigtop/Parser.pm view on Meta::CPAN
keyword => $self->{__KEYWORD__},
value => $self->{__ARGS__}[0],
} ];
}
sub update_config_statement {
my $self = shift;
shift;
my $data = shift;
return unless ( $data->{ ident } eq $self->{__PARENT__}->{__IDENT__} );
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 => {
lib/Bintray/API/Package.pm view on Meta::CPAN
'packages', $self->repo()->subject()->name(),
$self->repo()->name(), $self->name(),
),
content => $json,
);
} ## end sub update
## Create Version
sub create_version {
my ( $self, @args ) = @_;
lib/Bintray/API/Package.pm view on Meta::CPAN
content => $json,
);
} ## end sub set_attributes
## Update Attributes
sub update_attributes { return shift->set_attributes( @_, update => 1, ); }
## Add WebHook
sub set_webhook {
my ( $self, @args ) = @_;
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");