view release on metacpan or  search on metacpan

t/400_create.t  view on Meta::CPAN

  sub find {

  }

  sub update {

  }
}

package Test1 {

 view release on metacpan or  search on metacpan

examples/helloworld/app/lib/Dwarf/Session/Store/DBI.pm  view on Meta::CPAN

    my $sql =qq~INSERT INTO $sid_table ($sid_col, $data_col, $expires_col) VALUES (?, ?, ?)~;
    my $sth = $dbh->prepare($sql);
    $sth->execute( $session_id, $data, time() + $self->expires );
}

sub update {
    my ($self, $session_id, $data) = @_;
    
    $data = encode_base64( nfreeze($data) );
    
    my $dbh = $self->dbh;

 view release on metacpan or  search on metacpan

lib/Code/TidyAll/CacheModel.pm  view on Meta::CPAN

    return unless $self->_has_cache_engine;
    my $cached_value = $self->cache_engine->get( $self->cache_key );
    return defined $cached_value && $cached_value eq $self->cache_value;
}

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

    return unless $self->_has_cache_engine;
    $self->cache_engine->set( $self->cache_key, $self->cache_value );
    $self->is_cached(1);

 view release on metacpan or  search on metacpan

t/lib/Test/CodeGen/Helpers.pm  view on Meta::CPAN

    my @text     = split /\n/ => $text;
    my @expected = split /\n/ => $expected;
    eq_or_diff \@text, \@expected, $message;
}

sub update_version ($) {
    my $text = shift;
    if ( $text =~ /\b(CodeGen::Protection::Format::\w+).*Checksum:/ ) {
        my $module     = $1;
        my $version_re = $module->_version_re;
        my $version    = $module->VERSION;

 view release on metacpan or  search on metacpan

lib/Prima/CodeManager/Edit.pm  view on Meta::CPAN

	$self-> selection(0,0,0,0);
	$self-> blockType( $blockType);
	$self-> {anchor} = [ $self-> {cursorX}, $self-> {cursorY}];
}

sub update_block
{
	my $self = $_[0];
	return unless exists $self-> {anchor};
	$self-> selection( @{$self-> {anchor}}, $self-> {cursorX}, $self-> {cursorY});
}

 view release on metacpan or  search on metacpan

lib/Cogit.pm  view on Meta::CPAN

      $ref = 'master' unless $ref;
      $self->update_ref($ref, $object->sha1);
   }
}

sub update_ref {
   my ($self, $refname, $sha1) = @_;
   my $ref = file($self->gitdir, 'refs', 'heads', $refname);
   $ref->parent->mkpath;
   my $ref_fh = $ref->openw;
   $ref_fh->print($sha1) || die "Error writing to $ref";

 view release on metacpan or  search on metacpan

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

	$$ref = $obj->error;
    }
    return $obj->result;
}

sub update {
    use Time::localtime;
    my $obj = shift;
    my @command = $obj->command;
    if (@command) {
	$obj->{RESULT} = $obj->execute(\@command, @_);

 view release on metacpan or  search on metacpan

lib/CommitBit/Record.pm  view on Meta::CPAN

    return @ret;
}


sub update_all_repositories {
    my $self = shift;

    my $repositories = CommitBit::Model::RepositoryCollection->new;
    $repositories->unlimit;

 view release on metacpan or  search on metacpan

lib/Conan/Promote/Xen.pm  view on Meta::CPAN

	};

	return bless $args => $class;
}

sub update_image {
	my $self = shift;
	my ($node, $target) = @_;

	print "D: Upgrading $node to $target\n";
}

 view release on metacpan or  search on metacpan

lib/Concierge/Sessions/Base.pm  view on Meta::CPAN

}

# Define interface methods that must be implemented by subclasses
sub create_session { die "Subclass must implement create_session" }
sub get_session_info { die "Subclass must implement get_session_info" }
sub update_session { die "Subclass must implement update_session" }
sub delete_session { die "Subclass must implement delete_session" }
sub cleanup_sessions { die "Subclass must implement cleanup_sessions" }
sub delete_user_session { die "Subclass must implement delete_user_session" }

# Utilities

 view release on metacpan or  search on metacpan

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

        user => $user_data
    };
}

# Update user
sub update_user {
    my ($self, $user_id, $updates) = @_;

    return { success => 0, message => "user_id is required" }
        unless $user_id && $user_id =~ /\S/;

 view release on metacpan or  search on metacpan

lib/Concierge.pm  view on Meta::CPAN

    return $response;
}

# Update user data: modify user record in Users component
sub update_user_data ($self, $user_id, $update_data) {
    return { success => 0, message => 'user_id is required' }
        unless defined $user_id && length($user_id);

    return { success => 0, message => 'update_data must be a hash reference' }
        unless ref $update_data eq 'HASH';

 view release on metacpan or  search on metacpan

lib/Conclave/OTK/Backend/4store.pm  view on Meta::CPAN

  unless ($response->is_success) {
    print STDERR "PUT failed: ", $response->status_line, "\n";
  }
}

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

  my $params = { 'update' => $sparql };
  my $ua = new LWP::UserAgent(timeout => 300);
  $ua->agent('perlproc/1.0');

 view release on metacpan or  search on metacpan

lib/Config/FileManager.pm  view on Meta::CPAN

  $cfg->update();

=cut

sub update($) {
  my $self = shift;

  # Check if config file is up-to-date
  open (CFG_FILE, "<".$self->getPath) or croak "Unable to open config file [".$self->getPath."]: $!";
  my @versions = $self->versions;

 view release on metacpan or  search on metacpan

lib/Config/Hosts.pm  view on Meta::CPAN

New hosts' argument may be a single scalar instead of arrayref.

=cut

sub update_host ($$%) {

	my $self   = shift;
	my $host   = shift;
	my %params = @_;

 view release on metacpan or  search on metacpan

lib/Config/Model/CursesUI.pm  view on Meta::CPAN

    push @{$self->{stack}} , sub{$self->scan($scan_type,$node,$element,$idx)};

    $self->{cui}->getobj('center')->focus ;
}

sub update_location {
    my ($self,$node,$element,$idx) = @_ ;

    my $loc = $node->location ;
    $loc   .= ' '        if $loc ;
    $loc   .= $element   if defined $element ;

 view release on metacpan or  search on metacpan

lib/Config/Model/Tk/AnyViewer.pm  view on Meta::CPAN

    }

    return wantarray ? ( $help_frame, $widget ) : $help_frame;
}

sub update_help {
    my ( $cw, $w, $help ) = @_;

    # work around RT https://rt.cpan.org/Ticket/Display.html?id=67306
    my $t = $cw->toplevel->cget('-title');
    $w->text("\n\n=pod\n\n\n=encoding utf8\n\n$help\n\n=cut\n\n");

lib/Config/Model/Tk/AnyViewer.pm  view on Meta::CPAN

    $cw->update_warning($elt_obj);

    return $frame;
}

sub update_warning {
    my ( $cw, $elt_obj ) = @_;

    my $wf = $cw->Subwidget('warn_frame');
    my $ww = $cw->Subwidget('warn_widget');
    my $fw = $cw->Subwidget('fix_widget');

 view release on metacpan or  search on metacpan

lib/Config/Model/Instance.pm  view on Meta::CPAN

sub save {
    goto &write_back;
}

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

    my $hook = sub {
        my ($scanner, $data_ref,$node,@element_list) = @_;
        if ($node->can('update')) {

 view release on metacpan or  search on metacpan

lib/Config/Std.pm  view on Meta::CPAN

package Config::Std::Gap;
use Class::Std;
{
    sub serialize { return "\n" }
    sub update  {}
    sub extend  {}
    sub copy_to {}
}

package Config::Std::Comment;

lib/Config/Std.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 Config::Std::Keyval;

lib/Config/Std.pm  view on Meta::CPAN

        }

        return $serialization;
    }

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

        my $key = $key_of{$ident};

lib/Config/Std.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/Confluence/Client/XMLRPC.pm  view on Meta::CPAN

			return '';
		}
	}
}

sub updatePage {
	my Confluence::Client::XMLRPC $self = shift;
	my $page                            = shift;
	my $pageUpdateOptions               = ( shift || {} );

	if ( $self->{'_cflVersion'} ge "002010000" ) {

lib/Confluence/Client/XMLRPC.pm  view on Meta::CPAN

		}
	}
	return '';
}

sub updateOrStorePage {
	my Confluence::Client::XMLRPC $self = shift;
	my $newPage                         = shift;

	my $couldUpdate = 1;
	foreach my $field ( qw( id space title content version ) ) {

 view release on metacpan or  search on metacpan

lib/Confman/API.pm  view on Meta::CPAN

  }

  $self;
}

sub update_pairs {
  my $self = shift;
  my %pairs = @_;
  my ($results, $response) = $self->api->request('PUT', "confman/sets/$self->{id}/update_pairs", {
      conf_pairs => \%pairs
  });

 view release on metacpan or  search on metacpan

lib/Consul/API/ACL.pm  view on Meta::CPAN

    $$self->_api_exec($$self->_acl_endpoint."/create", 'PUT', %args, _content => $acl->to_json(), sub{
        Consul::API::ACL::Success->new($_[0])
    });
}

sub update {
    my ($self, $acl, %args) = @_;
    croak 'usage: $acl->update($acl, [%args])' if grep { !defined } ($acl);
    $acl = Consul::ACL->new($acl) if !blessed $acl;
    $$self->_api_exec($$self->_acl_endpoint."/update", 'PUT', %args, _content => $acl->to_json());
}

 view release on metacpan or  search on metacpan

lib/Convert/yEnc/RC.pm  view on Meta::CPAN

    close(RC);

    1
}

sub update
{
    my($rc, $line) = @_;

    my($tag, @fields) = split ' ', $line;

 view release on metacpan or  search on metacpan

lib/Convos/Core.pm  view on Meta::CPAN

Update a connection's settings. This might issue a reconnect or issue
IRC commands to reflect the changes.

=cut

sub update_connection {
  my ($self, $input, $cb) = @_;
  my $validation = $self->_validation($input, qw( login name nick password server username ));

  if ($validation->has_error) {
    $self->$cb($validation, undef);

 view release on metacpan or  search on metacpan

lib/Coteng.pm  view on Meta::CPAN

        }
        $txn->commit;
    }
}

sub update {
    my ($self, $table, $args, $where) = @_;

    my ($sql, @binds) = $self->sql_builder->update($table, $args, $where);
    $self->execute($sql, @binds);
}

 view release on metacpan or  search on metacpan

lib/Couch/DB/Design.pm  view on Meta::CPAN

{	my $self = shift;
	$self->update(@_);
}


sub update($%)
{	my ($self, $data, %args) = @_;
	$data->{_id} = $self->id;

	$self->couch
		->toJSON($data, bool => qw/autoupdate/)

 view release on metacpan or  search on metacpan

lib/CouchDB/Client/Doc.pm  view on Meta::CPAN

	confess("Object not found: $res->{msg}") if $res->{status} == 404;
	confess("Connection error: $res->{msg}") unless $res->{success};
	return $res->{json}->{_revs_info};
}

sub update {
	my $self = shift;

	confess("Object hasn't been retrieved") unless $self->{id} and $self->{rev};
	my $content = $self->contentForSubmit;
	my $res = $self->{db}->{client}->req('PUT', $self->uriName, $content);

 view release on metacpan or  search on metacpan

lib/Couchbase/Test/Async/Loop.pm  view on Meta::CPAN

        }
    }
}


sub update_event :Event {
    my ($evdata,$action,$flags) = @_[ARG0..ARG2];
    my $dupfh = $evdata->[EVIDX_DUPFH];
    
    if($action == EVACTION_WATCH) {
        if(!$dupfh) {

lib/Couchbase/Test/Async/Loop.pm  view on Meta::CPAN

    } else {
        die("Unhandled action $action");
    }
}

sub update_timer :Event {
    my ($evdata,$action,$usecs) = @_[ARG0..ARG2];
    my $timer_id = $evdata->[EVIDX_PLDATA];
    my $seconds;
    
    if($usecs) {

 view release on metacpan or  search on metacpan

lib/CracTools/SAMReader/SAMline.pm  view on Meta::CPAN

  my $self = shift;
  return $self->{line};
}


sub updatedLine {
  my $self = shift;
  my $updated_line = shift;
  if(defined $updated_line) {
    $self->{updated_line} = $updated_line;
    return 1;

lib/CracTools/SAMReader/SAMline.pm  view on Meta::CPAN

  }
  return 0;
}


sub updateEvent {
  my $self = shift;
  my $event = shift;
  my $new_event_type = shift;
  my %new_event = @_;

 view release on metacpan or  search on metacpan

lib/Crypt/HSXKPasswd.pm  view on Meta::CPAN

# Arguments  : 1. a hashref containing config keys and values.
# Throws     : Croaks on invalid invocaiton, invalid args, and, if the resulting
#              new config is in some way invalid.
# Notes      : Invalid keys in the new keys hashref will be silently ignored.
# See Also   :
sub update_config{
    my @args = @_;
    my $self = shift @args;
    _force_instance($self);
    
    # validate args