view release on metacpan or  search on metacpan

lib/App/Rakubrew/Update.pm  view on Meta::CPAN

    win       => "$download_url_prefix/win/rakubrew.exe",
    macos     => "$download_url_prefix/macos/rakubrew",
    macos_arm => "$download_url_prefix/macos_arm/rakubrew",
);

sub update {
    my $quiet = shift;

    # For par packaged executables the following returns the path and name of
    # the par packaged file.
    my $current_rakubrew_file = catfile($RealBin, $RealScript);

 view release on metacpan or  search on metacpan

lib/App/RecordStream/Operation.pm  view on Meta::CPAN

  Getopt::Long::Configure($starting_config);

  @$args = @ARGV;
}

sub update_current_filename {
  my ($this, $filename) = @_;
  set_current_filename($filename);
}

sub _set_wants_help {

 view release on metacpan or  search on metacpan

lib/App/Repository.pm  view on Meta::CPAN

    }
    &App::sub_exit($retval) if ($App::trace);
    return($retval);
}

sub update {
    &App::sub_entry if ($App::trace);
    my ($self, $table, $params, $cols, $row, $options) = @_;
    die "update(): params undefined" if (!defined $params);
    my $repname = $self->{table}{$table}{repository};
    my $realtable = $self->{table}{$table}{table} || $table;

 view release on metacpan or  search on metacpan

lib/App/RoboBot/Message.pm  view on Meta::CPAN

    # Deliver the response
    $self->log->debug('Issuing response send.');
    $self->response->send;
}

sub update_response_channel {
    my ($self, $new_channel, $old_channel) = @_;

    if ($self->has_response && $self->has_channel) {
        $self->response->channel($new_channel);
    }

 view release on metacpan or  search on metacpan

lib/App/SCM/Digest.pm  view on Meta::CPAN

            }
        }
    }
}

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

    $self->_repository_map(\&_init_repository);
    $self->_repository_map(\&_update_repository);

 view release on metacpan or  search on metacpan

lib/App/SD/Test.pm  view on Meta::CPAN

Returns nothing interesting.

=cut

sub update_ticket_ok {
    my ($id, @args) = (@_);
    local $Test::Builder::Level = $Test::Builder::Level + 1;
    run_output_matches( 'sd', [ 'ticket', 'update', $id, '--', @args ],
        [qr/ticket \d+\s+\([^)]*\)\s+updated\./i]
    );

 view release on metacpan or  search on metacpan

lib/App/SVN/Bisect.pm  view on Meta::CPAN

Calls 'svn update' to move to the specified revision.

=cut

sub update_to {
    my ($self, $rev) = @_;
    my $cmd = "svn update -r$rev";
    $self->cmd($cmd);
}

 view release on metacpan or  search on metacpan

bin/sassp  view on Meta::CPAN

            }
        });
    }
}

sub update {
    my ($in, $out) = @_;
    ($in, $out) = _split_dir( $in ) unless $out;
    for( glob "$in*.scss" ) {
        single( $_, ($out . file( $_ )->basename) =~ s/\.scss$/\.css/r );
    }

 view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/configs/big_streams/Project_config.pm  view on Meta::CPAN

	my $max_index = 14;

	return ($max_index);
}

=head2 sub update_configuration_files

	saves the configuration file to:
		./L_SU/configuration/active/Project.config
	saves the configuration file to:
		 ./L_SU/configuration/Project_name/Project.config

=cut

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

	my $home_directory;

	use Shell qw(echo);

 view release on metacpan or  search on metacpan

lib/App/SimulateReads/Read.pm  view on Meta::CPAN

		my $b = substr($$seq_ref, $pos, 1);
		substr($$seq_ref, $pos, 1) = $self->_randb($b);
	}
}

sub update_count_base {
	my ($self, $val) = @_;
	$self->_count_base($self->_count_base + $val);
}

sub reverse_complement {

 view release on metacpan or  search on metacpan

lib/App/SlideServer.pm  view on Meta::CPAN

	}
	return $page;
}


sub update_published_state($self, @new_attrs) {
	$self->published_state->%* = ( $self->published_state->%*, @new_attrs );
	$_->send({ json => { state => $self->published_state } })
		for values $self->viewers->%*;
}

 view release on metacpan or  search on metacpan

lib/App/SourcePlot.pm  view on Meta::CPAN

Invokes the update method of the main window.

=cut

sub update_status {
    $MW->update;
}

=item B<changeDate>

 view release on metacpan or  search on metacpan

t/lib/TestConfig.pm  view on Meta::CPAN

#      'core.engine'      => 'sqlite',
#      'add.all'          => 1,
#      'deploy.variables' => { _prefix => 'test_', user => 'bob' }
#      'foo.bar'          => [qw(one two three)],
#  );
sub update {
    my $self = shift;
    my %p = @_ or return;
    $self->data({}) unless $self->is_loaded;
    # Set a unique origin to be sure to override any previous values for each key.
    my @args = (origin => ('update_' . ++$self->{__update}));

 view release on metacpan or  search on metacpan

examples/complex/complex_endpoint.pl  view on Meta::CPAN

} else {
    print $q->header('text/plain');
    print "ERROR";
}

sub update {
    my $q = shift;
    my $group_id = $q->param('group_id');
    my $queue = $q->param('queue');

    return unless $queue && $group_id;

 view release on metacpan or  search on metacpan

lib/App/TimelogTxt/Day.pm  view on Meta::CPAN

sub is_empty    { return !$_[0]->{dur}; }
sub is_complete { return !$_[0]->{last_start}; }
sub date_stamp  { return $_[0]->{stamp}; }
sub has_tasks   { return !!keys %{$_[0]->{tasks}}; }

sub update_dur
{
    my ($self, $last, $epoch) = @_;
    my $curr_dur = $last ? $epoch - $last->epoch : 0;

    $self->{tasks}->{$last->task}->{dur} += $curr_dur if $last && $last->task;

 view release on metacpan or  search on metacpan

lib/App/USBKeyCopyCon.pm  view on Meta::CPAN

    $self->key_rack->remove($key_info->{widget});
    return;
}


sub update_key_progress {
    my($self, $udi, $status) = @_;

    $status = -1 if !defined $status or $status < -1 or $status > 10;

    my $key_info = $self->current_keys->{$udi} or return;

 view release on metacpan or  search on metacpan

lib/App/UpdateCPANfile.pm  view on Meta::CPAN

    my $changeset = $self->create_pin_dependencies_changeset;
    $self->_save_changes_to_file($changeset);
    return $changeset;
}

sub update_dependencies {
    my ($self) = @_;
    my $changeset = $self->create_update_dependencies_changeset;
    my $writer = $self->writer;
    $self->_save_changes_to_file($changeset);
    return $changeset;

 view release on metacpan or  search on metacpan

lib/App/WIoZ.pm  view on Meta::CPAN

   $wioz->update_colors("file.sl.txt");

=cut

sub update_colors{
    my ($self, $filename) = @_;

    open my $fh, '<:utf8', $filename or die $filename . ' : ' .$!;
    my @L = <$fh>;
    close $fh;

 view release on metacpan or  search on metacpan

lib/App/XUL/Object.pm  view on Meta::CPAN

	my ($self, $xml, $pos) = @_;
	$pos = 'end' unless defined $pos; # pos: end|start|...
	return main::push({'action' => 'insert', 'id' => $self->{'id'}, 'position' => $pos, 'content' => $xml});
}

sub update
{
	my ($self, @xml) = @_;
	my $xml = join '', @xml;
	return main::push({'action' => 'update', 'id' => $self->{'id'}, 'content' => $xml});
}

 view release on metacpan or  search on metacpan

t/App/cdif/Command.pm  view on Meta::CPAN

    } else {
	@{$obj->{COMMAND}};
    }
}

sub update {
    use Time::localtime;
    my $obj = shift;
    $obj->data(join "\n", map { $obj->execute($_) } $obj->command);
    $obj->date(ctime());
    $obj;

 view release on metacpan or  search on metacpan

lib/App/financeta/editor.pm  view on Meta::CPAN

    my $hlres = $ed->hiliteREs;
    $ed->hiliteREs([@arr, @$hlres]);
    return $mw;
}

sub update_editor {
    my ($self, $rules, $tabname, $vars, $hidden) = @_;
    $self->tab_name($tabname) if defined $tabname;
    $self->compiler->preset_vars($vars) if defined $vars;
    $self->main->editor_edit->text($rules);
    unless ($hidden) {

 view release on metacpan or  search on metacpan

lib/FlashVideo/Mechanize.pm  view on Meta::CPAN

  }

  return $r;
}

sub update_html {
  my($self, $html) = @_;

  my $charset = _parse_charset($self->response->header("Content-type"));

  # If we have no character set in the header (therefore it is worth looking

 view release on metacpan or  search on metacpan

lib/App/ggdrv/update.pm  view on Meta::CPAN

use URI ;

my ($GOOGLE_DRIVE_UPLOAD_API , $gfile , $atoken ) ; 
return 1 ; 

sub update {
  $GOOGLE_DRIVE_UPLOAD_API = "https://www.googleapis.com/upload/drive/v3/files/";
  $gfile = $ENV{ GGDRV_API } // "~/.ggdrv2303v1" ;
  $atoken = qx [ sed -ne's/^ACCESS_TOKEN[ =:\t]*//p' $gfile ] =~ s/\n$//r ;
  while ( my ($file,$id) = splice @ARGV , 0 , 2 ) { f_each ($file,$id) }
  # & f_each ( split /:/, $_ , 2 ) for @ARGV ; 

 view release on metacpan or  search on metacpan

lib/App/git/ship/perl.pm  view on Meta::CPAN

  $self->system(qw(cover -delete));
  $self->system(qw(prove -l));
  $self->system(qw(cover));
}

sub update {
  my $self = shift;

  $self->_render_makefile_pl if -e 'cpanfile';
  $self->_update_changes if $self->config('changelog_filename') eq 'Changes';
  $self->_render_readme;

 view release on metacpan or  search on metacpan

lib/App/idxdb.pm  view on Meta::CPAN

            schema => 'dirname*',
            req => 1,
        },
    },
};
sub update {
    require DateTime;
    require DBIx::Util::Schema;
    require JSON::MaybeXS;

    my %args = @_;

 view release on metacpan or  search on metacpan

lib/App/instopt.pm  view on Meta::CPAN

        %args_common,
        %App::swcat::arg0_softwares_or_patterns,
        %argopt_download,
    },
};
sub update {
    require Archive::Any;
    require File::Util::Test;
    require File::Path;
    require Filename::Archive;
    require Filename::Executable;

 view release on metacpan or  search on metacpan

mimi.fatpack  view on Meta::CPAN

$fatpacked{"Class/Accessor/Lite.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'CLASS_ACCESSOR_LITE';
  package Class::Accessor::Lite;use strict;our$VERSION='0.03';sub croak {require Carp;Carp::croak(@_)}sub import {shift;my%args=@_;my$pkg=caller(0);my%key_ctor=(rw=>\&_mk_accessors,ro=>\&_mk_ro_accessors,wo=>\&_mk_wo_accessors,);for my$key (sort keys...
CLASS_ACCESSOR_LITE

$fatpacked{"DBD/DBM.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_DBM';
  require 5.008;use strict;package DBD::DBM;use base qw(DBD::File);use vars qw($VERSION $ATTRIBUTION $drh $methods_already_installed);$VERSION='0.03';$ATTRIBUTION='DBD::DBM by Jens Rehsack';sub driver ($;$) {my ($class,$attr)=@_;return$drh if ($drh);...
DBD_DBM

$fatpacked{"DBD/ExampleP.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_EXAMPLEP';
  {package DBD::ExampleP;use strict;use Symbol;use DBI qw(:sql_types);require File::Spec;our (@EXPORT,$VERSION,@statnames,%statnames,@stattypes,%stattypes,@statprec,%statprec,$drh,);@EXPORT=qw();$VERSION="0.03";@statnames=qw(dev ino mode nlink uid gi...
DBD_EXAMPLEP