Changeset 24920

Timestamp:

Jul 24, 2009, 11:55:48 AM (17 years ago)

Author:

jhoblitt

Message:

add Nebulous::Client->prune() method

Location:

trunk/Nebulous

Files:

• Changes (modified) (1 diff)
• MANIFEST (modified) (1 diff)
• lib/Nebulous/Client.pm (modified) (1 diff)
• t/69_client_prune.t (added)

trunk/Nebulous/Changes

@@ -6 +6 @@
     - add neb-rm --force flag
     - change neb-locate's output seperator to \n
+    - add Nebulous::Client->prune() method
 
 0.10

trunk/Nebulous/MANIFEST

@@ -99 +99 @@
 t/67_client_swap.t
 t/68_client_chmod.t
+t/69_client_prune.t
 t/70_neb-ls.t
 t/90_nebclient.t

trunk/Nebulous/lib/Nebulous/Client.pm

@@ -1117 +1117 @@
 
 
+sub prune
+{
+    my $self = shift;
+
+    my ( $key ) = validate_pos( @_,
+        {
+            type => SCALAR,
+        },
+    );
+
+    $log->debug( "entered - @_" );
+
+    my $response = $self->{ 'server' }->prune_object( $key );
+    if ( $response->fault ) {
+        $self->set_err($response->faultstring);
+        if ($response->faultstring =~ /is valid object key/) {
+            $log->debug( "leaving" );
+            return;
+        }
+
+        $log->logdie("unhandled fault - ", $self->err);
+    }
+
+    $log->debug( "server returned a stat" );
+
+    my $n_removed = $response->result;
+
+    $log->debug( "leaving" );
+
+    return $n_removed;
+}
+
+
 sub err
 {