view release on metacpan or  search on metacpan

lib/CGI/Kwiki/Database.pm  view on Meta::CPAN

        ) {
        unlink "$_/$page_id";
    }
}

sub update_time {
    my ($self) = @_;
    my @stat = stat $self->file_path($self->cgi->path_id);
    $stat[9];
}

 view release on metacpan or  search on metacpan

lib/CGI/Lazy/DB/RecordSet.pm  view on Meta::CPAN

		return $self->{_table};
	}
}

#-------------------------------------------------------------------------------
sub update {
	my $self = shift;
	my $data = shift;
	my $vars = shift;

	my $table = $self->table;

 view release on metacpan or  search on metacpan

MxScreen/Form/Button.pm  view on Meta::CPAN

}

#
# ->update
#
sub update {
    DFEATURE my $f;
    my $self = shift;
 
    ($self->[NAME], 
     $self->[ACTION],

 view release on metacpan or  search on metacpan

lib/DemoUsage.pm  view on Meta::CPAN

	}
}

######################################################################

sub update_env_counts {
	my $self = shift( @_ );
	my $globals = $self->{$KEY_SITE_GLOBALS};
	my $rh_prefs = $globals->get_prefs_ref();
	
	my $rh_log_prefs = $rh_prefs->{$PKEY_LOG_ENV};

 view release on metacpan or  search on metacpan

lib/CGI/ProgressBar.pm  view on Meta::CPAN

Updates the progress bar.

=cut

sub update_progress_bar {
# 	my ($self, @crud) = CGI::self_or_default;
	return "<script type='text/javascript'>//<!--
	pblib_progress_update()\n//-->\n</script>\n";
}

 view release on metacpan or  search on metacpan

eg/example4  view on Meta::CPAN

    &execute_sql( $stmt,  
                  p( colour( "BLUE", "Record $KEYFIELDVAL added successfully" ) ) ) ;
}


sub update_record {

    my $stmt = "UPDATE $TABLE SET" ;
    foreach my $fieldref ( @FIELD ) {
        next if $fieldref->{-TYPE} and 
                ( $fieldref->{-TYPE} eq 'hidden' or 

 view release on metacpan or  search on metacpan

lib/CGI/WebToolkit.pm  view on Meta::CPAN

	$self->query($sql);
	return $self->{'dbh'}->last_insert_id(undef, undef, $opts->{'table'}, 'id');
}

sub update
{
	my ($self, %options) = __parse_args(@_);
	my $opts = __parse_params( \%options,
		{
			table => '',

 view release on metacpan or  search on metacpan

bin/cipp-l10n  view on Meta::CPAN

    }
    
    1;
}

sub update_po_for_all_domains {
    my ($conf, $ns_root_dir) = @_;
    
    my $ns_prod_dir = "$ns_root_dir/prod";
    my $ns_tmp_dir  = "$ns_root_dir/tmp";

 view release on metacpan or  search on metacpan

IsamObjects.pm  view on Meta::CPAN

	}
	#$this->{ISAM_OBJ}->isstart($this->INDEXMAP->{$path}, 0, $this->{BUFFER}, $mode);
}

#this function updates the record that already exists
sub update
{
	my $this = shift;
	$this->_stuff_buffer();
	$this->{ISAM_OBJ}->isrewrite($this->{BUFFER});
}

 view release on metacpan or  search on metacpan

tictactoe  view on Meta::CPAN

	    last;
	}
    }
}

sub update {
    my ($self, $i, $j, $val) = @_;

    $self->{board}->[$i][$j] = $val;
    $self->{squares}->[$i][$j]->set ($self->{pixmaps}->[$val], undef);

 view release on metacpan or  search on metacpan

tictactoe  view on Meta::CPAN

	    last;
	}
    }
}

sub update {
    my ($self, $i, $j, $val) = @_;

    $self->{board}->[$i][$j] = $val;
    $self->{squares}->[$i][$j]->set ($self->{pixmaps}->[$val], undef);

 view release on metacpan or  search on metacpan

lib/CPAN/Checksums.pm  view on Meta::CPAN

    close $fh;
  }
  return($old_ddump,$is_signed);
}

sub updatedir ($;$) {
  my($dirname, $root) = @_;
  my $ckfn = File::Spec->catfile($dirname, "CHECKSUMS"); # checksum-file-name
  my($old_ddump,$is_signed) = _read_old_ddump($ckfn);
  my($old_dref) = makehashref($old_ddump);
  my $dref = _dir_to_dref($dirname,$old_dref,$root);

 view release on metacpan or  search on metacpan

lib/CPAN/Mini/FromList.pm  view on Meta::CPAN

our %dists = ();

sub update_mirror {
    my $self = shift;
    my @args = @_;
    my %args=@args;
    
    foreach my $d (@{$args{list}}) {

 view release on metacpan or  search on metacpan

lib/CPAN/Mini/Growl.pm  view on Meta::CPAN

use Parse::CPAN::Authors;

my $AppName   = "CPAN::Mini::Growl";
my $EventType = "New Distribution";

sub update_mirror {
    my $class = shift;
    my $self  = $class->SUPER::new(@_);
    $self->SUPER::update_mirror;

    Mac::Growl::RegisterNotifications($AppName, [ $EventType ], [ $EventType ]);

 view release on metacpan or  search on metacpan

lib/CPAN/Mini/Inject/Remote.pm  view on Meta::CPAN

Calls the update function on the remote server

=cut

sub update {
    my $self = shift;    
    my %args = validate(@_,
        {

        }

 view release on metacpan or  search on metacpan

lib/CPAN/Mini/Inject/Server.pm  view on Meta::CPAN

Updates the cpan mirror

=cut

sub update :Runmode {
    my $self = shift;

    my $mcpi = $self->_mcpi();

    $mcpi->update_mirror();

 view release on metacpan or  search on metacpan

lib/CPAN/Mini/Inject.pm  view on Meta::CPAN

This is a subclass of CPAN::Mini.

=cut

sub update_mirror {
  my $self    = shift;
  my %options = @_;

  croak sprintf "$0: local directory <%s> is not writable. Cannot update mirror.", $self->config->get( 'local' )
    unless -w $self->config->get('local');

 view release on metacpan or  search on metacpan

lib/CPAN/Mini/Live.pm  view on Meta::CPAN

use warnings;
use AnyEvent::FriendFeed::Realtime;
use base qw( CPAN::Mini );
our $VERSION = '0.33';

sub update_mirror {
    my $self = shift;
    $self = $self->new(@_) unless ref $self;

    # first we have to catch up if we've missed anything
    $self->trace("updating mirror...\n");

 view release on metacpan or  search on metacpan

lib/CPAN/Mini.pm  view on Meta::CPAN

#pod
#pod =end :list
#pod
#pod =cut

sub update_mirror {
  my $self = shift;
  $self = $self->new(@_) unless ref $self;

  unless ($self->{offline}) {
    my $local = $self->{local};

 view release on metacpan or  search on metacpan

lib/CPAN/Patches/Plugin/Debian.pm  view on Meta::CPAN

use File::chdir;
use Debian::Dpkg::Version 'version_compare';
use CPAN::Patches 0.04;
use File::Basename 'basename';

sub update_debian {
    my $self = shift;
    my $path = shift || '.';
    
    $self = $self->new()
        if not blessed $self;

 view release on metacpan or  search on metacpan

t/dblock.t  view on Meta::CPAN

    note('Testing with CPAN::Reporter::Smoker::OpenBSD::PerlConfig');
    is_deeply( $data_ref, $expected, 'block_distro works as expected' )
        or diag( explain($data_ref) );
}

sub update_per_env {
    my $expected = shift;
    my $shortcut = $expected->{match}->{perlconfig};
    $shortcut->{osname}   = $Config{osname};
    $shortcut->{archname} = $Config{archname};
    my $attrib_name = 'useithreads';

 view release on metacpan or  search on metacpan

lib/CPAN/SQLite/META.pm  view on Meta::CPAN

  my $obj = CPAN::SQLite->new(setup => 1);
  $obj->index() or die qq{CPAN::SQLite setup failed};
  return;
}

sub update {
  my $obj = CPAN::SQLite->new();
  $obj->index() or die qq{CPAN::SQLite update failed};
  return;
}

 view release on metacpan or  search on metacpan

lib/CPAN/Search/Lite/PPM.pm  view on Meta::CPAN

  $sth->finish;
  $self->{curr_mtimes} = $mtimes;
  return 1;
}

sub update_mtime {
  my $self = shift;
  my $mtimes = $self->{update_mtimes};
  unless ($dbh) {
    $self->{error_msg} = q{No db handle available};
    return;

 view release on metacpan or  search on metacpan

lib/CPAN/Site/Index.pm  view on Meta::CPAN

sub package_on_usual_location($);
sub inspect_archive;
sub inspect_tar_archive($$);
sub inspect_zip_archive($$);
sub collect_package_details($$$);
sub update_global_cpan($$);
sub load_file($$);
sub merge_global_cpan($$$);
sub create_details($$$$$);
sub calculate_checksums($$);
sub read_details($);

 view release on metacpan or  search on metacpan

lib/CPAN/Testers/Data/Addresses.pm  view on Meta::CPAN

    $self->print_addresses();

    $self->_log("stopping search");
}

sub update {
    my $self = shift;
    my ($new,$all,$add,$err) = (0,0,0,0);
    $self->_log("starting update");

    my $fh = IO::File->new($self->{options}{update})    or die "Cannot open mailrc file [$self->{options}{update}]: $!";

 view release on metacpan or  search on metacpan

lib/CPAN/Testers/Data/Uploads.pm  view on Meta::CPAN

    }

    $self->_log("Reindexing authors done");
}

sub update {
    my $self = shift;
    my $db = $self->uploads;

    $self->_open_journal();

 view release on metacpan or  search on metacpan

example/monitor.pl  view on Meta::CPAN

    printf "%s: %s ( %s on \e[35m%-40s\e[0m => \e[34m%s\e[0m )\n",
      $grade, $filename, $perl, $item->platform, $item->uuid;
}

sub update {
    my $did_match = 0;
    my $new_items = 0;
    my $iter      = $fetcher->get_iter;
    my $first_uuid;
    while ( my $item = $iter->() ) {

 view release on metacpan or  search on metacpan

lib/CPAN/Testers/WWW/Statistics.pm  view on Meta::CPAN

    my $stats = CPAN::Testers::WWW::Statistics::Pages->new(parent => $self);
    $stats->update_full();
}

sub update {
    my $self = shift;
    $self->_check_files();

    my $stats = CPAN::Testers::WWW::Statistics::Pages->new(parent => $self);
    $stats->update_data();