Changeset 2894

Timestamp:

Jan 4, 2005, 12:08:20 PM (22 years ago)

Author:

jhoblitt

Message:

add stat method

File:

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

trunk/Nebulous/lib/Nebulous/Client.pm

@@ -1 +1 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Client.pm,v 1.7 2005-01-04 02:46:26 jhoblitt Exp $
+# $Id: Client.pm,v 1.8 2005-01-04 22:08:20 jhoblitt Exp $
 
 package PS::IPP::IData::Client;
@@ -654 +654 @@
 }
 
+sub stat {
+    my $self = shift;
+
+    my ( $key ) = validate_pos( @_,
+        {
+            type => SCALAR,
+        },
+    );
+
+    $log->debug( "entered - key: $key" );
+
+    my $response = $self->{ 'server' }->stat_object( $key );
+    if ( $response->fault ) {
+        $log->error( $response->faultcode, " - ", $response->faultstring );
+        $log->debug( "leaving" );
+
+        return undef;
+    }
+
+    $log->debug( "server returned a stat" );
+
+    my $stats = $response->result;
+
+    $log->debug( "leaving" );
+
+    return $stats;
+}
+
 1;