Changeset 6538

Timestamp:

Mar 7, 2006, 2:02:43 PM (20 years ago)

Author:

jhoblitt

Message:

add DataStore::Product (partial)

Location:

trunk/DataStore

Files:

• MANIFEST (modified) (1 diff)
• lib/DataStore/Product.pm (modified) (4 diffs)
• t/05_product.t (added)

trunk/DataStore/MANIFEST

@@ -18 +18 @@
 t/03_file_parse.t
 t/04_record.t
+t/05_product.t

trunk/DataStore/lib/DataStore/Product.pm

@@ -1 +1 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: Product.pm,v 1.1 2006-02-28 03:03:34 jhoblitt Exp $
+# $Id: Product.pm,v 1.2 2006-03-08 00:02:43 jhoblitt Exp $
 
 package DataStore::Product;
@@ -77 +77 @@
                 type        => SCALAR,
                 callbacks   => {
-                    'uri ends with /'   => sub { $_[0] =~ m|/$| },
+                    'is valid uri dirname'   => sub { $_[0] =~ m|/$| },
 
                 }
@@ -86 +86 @@
                     'is valid fileset ID' => sub { $_[0] =~ $std_field },
                 },
+                optional    => 1,
             },
         },
@@ -101 +102 @@
 =over 4
 
-=item * C<foo()>
+=item * C<request()>
 
 =cut
+
+sub request 
+{
+
+}
+
 
 1;