Changeset 6593

Timestamp:

Mar 15, 2006, 12:02:54 PM (20 years ago)

Author:

jhoblitt

Message:

updated so tests pass

File:

• trunk/DataStore/lib/DataStore/File.pm (modified) (3 diffs)

trunk/DataStore/lib/DataStore/File.pm

@@ -1 +1 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: File.pm,v 1.3 2006-03-15 03:30:51 jhoblitt Exp $
+# $Id: File.pm,v 1.4 2006-03-15 22:02:53 jhoblitt Exp $
 
 package DataStore::File;
@@ -14 +14 @@
 
 use Carp qw( carp );
+use DataStore::Response;
 use Digest::MD5::File qw( file_md5_hex );
+use File::stat;
 use POSIX;
 use Params::Validate qw( validate SCALAR );
@@ -146 +148 @@
     }
 
-    return 1;
+    # return DS::Response object
+    my $dsr = DataStore::Response->new(
+        is_success  => 1,
+        code        => $response->code,
+        status_line => $response->status_line,
+        data        => $p{filename},
+        request     => $self,
+    );
 }