Changeset 26333 for trunk/Nebulous/lib

Timestamp:

Dec 3, 2009, 3:31:01 PM (17 years ago)

Author:

watersc1

Message:

Changes to implement delete-invalid. Probably not 100% production ready.

File:

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

trunk/Nebulous/lib/Nebulous/Client.pm

@@ -755 +755 @@
             optional    => 1,
         },
+        {
+            #find_invalid
+            type        => SCALAR|UNDEF,
+            optional    => 1,
+        },
     );
 
@@ -951 +956 @@
     my $self = shift;
 
-    my ($key, $force) = validate_pos( @_,
+    my ($key, $force, $invalid) = validate_pos( @_,
         {
             type        => SCALAR,
@@ -965 +970 @@
             },
         },
-    );
-
-    $log->debug( "entered - @_" );
-
-    my $locations = $self->find_instances( $key, 'any' );
+        {
+            type        => BOOLEAN,
+            optional    => 1,
+            default     => undef,
+            callbacks   => {
+                'is boolean' => sub {
+                    $_[0] == 0 or $_[0] == 1 or $_[0] == undef;
+                },
+            },
+        },
+    );
+
+    $log->debug( "entered - @_" );
+
+
+    my $locations;
+    if ($invalid) {
+        $locations = $self->find_instances( $key, 'any', 'find them all');
+    }
+    else {
+        $locations = $self->find_instances( $key, 'any' );
+    }
 
     return undef unless $locations;