DBIx-DBObj

 view release on metacpan or  search on metacpan

lib/DBIx/DBObj.pm  view on Meta::CPAN

  foreach my $pkey (@{ref($this) . "::DBObjPKeys"}) {
    my $pkeyValue = $this->{"_Fields"}{"_$pkey"}{'_Value'}; 
    $queryStr .= " $pkey='$pkeyValue' AND"; 
  }
  $queryStr =~ s/AND$//; 
  return(query($queryStr));
}



sub update { 
  my ($this)   = @_; 
  my $queryStr = ""; 
  my $fieldStr = ""; 
  my $whereStr = ""; 

  my @updated_fields = (); 
  my $changed_ctr    = 0; 
  ## Setup the fieldStr
  foreach my $field (keys %{$this->{"_Fields"}}) {
    $field =~ s/\_//; 

lib/DBIx/~  view on Meta::CPAN

  foreach my $pkey (@{ref($this) . "::DBObjPKeys"}) {
    my $pkeyValue = $this->{"_Fields"}{"_$pkey"}{'_Value'}; 
    $queryStr .= " $pkey='$pkeyValue' AND"; 
  }
  $queryStr =~ s/AND$//; 
  return(query($queryStr));
}



sub update { 
  my ($this)   = @_; 
  my $queryStr = ""; 
  my $fieldStr = ""; 
  my $whereStr = ""; 

  my @updated_fields = (); 
  my $changed_ctr    = 0; 
  ## Setup the fieldStr
  foreach my $field (keys %{$this->{"_Fields"}}) {
    $field =~ s/\_//; 

lib/PNDI.pm  view on Meta::CPAN

  if (exists($pndi_object->{$pndi_name})) { 
    throw PNDI::NameCollisionException("PNDI: $pndi_name already in use."); 
  } 
  else {
    $pndi_object->{$pndi_name}{scope} = $pndi_scope;
    $pndi_object->{$pndi_name}{value} = $pndi_value; 
  }
  return(1); 
}

sub update { 
  my ($class, %args) = @_; 
  my $pndi_object    = new PNDI();  
  my $pndi_name      = $args{name}; 
  my $pndi_value     = $args{value}; 

  $pndi_object->lookup(name => $pndi_name); 
  $pndi_object->{$pndi_name}{value} = $pndi_value;
}

sub release { 

 view all matches for this distribution
 view release on metacpan -  search on metacpan