cvs commit: p5ee/App-Repository/lib/App RepositoryObject.pm

cvsuser     05/08/09 11:54:33

  Modified:    App-Repository/lib/App RepositoryObject.pm
  Log:
  delete()
  
  Revision  Changes    Path
  1.4       +29 -1     p5ee/App-Repository/lib/App/RepositoryObject.pm
  
  Index: RepositoryObject.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/App-Repository/lib/App/RepositoryObject.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- RepositoryObject.pm	12 Oct 2004 14:09:09 -0000	1.3
  +++ RepositoryObject.pm	9 Aug 2005 18:54:33 -0000	1.4
  @@ -147,6 +147,34 @@
       return($nrows);
   }
   
  +#############################################################################
  +# delete()
  +#############################################################################
  +
  +=head2 delete()
  +
  +    * Signature: $obj->delete();
  +    * Signature: $obj->delete($options);
  +    * Param:     $options        ARRAY
  +    * Throws:    App::Exception
  +    * Since:     0.01
  +
  +    Sample Usage: 
  +
  +    $obj->delete();
  +
  +Deletes the object out of the repository.
  +
  +=cut
  +
  +sub delete {
  +    my ($self, $options) = @_;
  +    die "Can't delete values: _key not defined on object[$self->{_table}]" if (! defined $self->{_key});
  +    my $nrows = $self->{_repository}->delete($self->{_table}, $self->{_key}, undef, undef, $options);
  +    die "Can't delete() on object[$self->{_table}.$self->{_key}]" if (!$nrows);
  +    return($nrows);
  +}
  +
   =head1 ACKNOWLEDGEMENTS
   
    * Author:  Stephen Adkins <[email protected]>