Changeset 2914

Timestamp:

Jan 5, 2005, 12:31:45 PM (22 years ago)

Author:

jhoblitt

Message:

add err & set_err methods
change delete to return undef on error

File:

• trunk/Nebulous/lib/Nebulous/Client.pm (modified) (4 diffs)

trunk/Nebulous/lib/Nebulous/Client.pm

@@ -1 +1 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Client.pm,v 1.11 2005-01-05 20:25:44 jhoblitt Exp $
+# $Id: Client.pm,v 1.12 2005-01-05 22:31:45 jhoblitt Exp $
 
 package PS::IPP::IData::Client;
@@ -515 +515 @@
 
     my $locations = $self->find_instances( $key );
+
+    return undef unless $locations;
         
     foreach my $uri ( @$locations ) {
-        $self->delete_instance( $uri );
+        $self->delete_instance( $uri ) or return undef;
     }
 
@@ -667 +669 @@
     my $response = $self->{ 'server' }->stat_object( $key );
     if ( $response->fault ) {
-        $log->error( $response->faultcode, " - ", $response->faultstring );
+        $self->set_err( $response->faultcode, " - ", $response->faultstring );
+        $log->error( $self->err );
         $log->debug( "leaving" );
 
@@ -682 +685 @@
 }
 
+sub err {
+    my $self = shift;
+
+    die "accepts no params" if @_;
+
+    return $self->{ 'err' };
+}
+
+sub set_err {
+    my $self = shift;
+
+    $self->{ 'err' } = shift;
+
+    return $self;
+}
+
 1;