Changeset 15024

Timestamp:

Sep 25, 2007, 2:09:52 PM (19 years ago)

Author:

jhoblitt

Message:

doc fix
minor code cleanups

File:

• trunk/DataStore/lib/DataStore/FileSet/Parser.pm (modified) (5 diffs)

trunk/DataStore/lib/DataStore/FileSet/Parser.pm

@@ -1 +1 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: Parser.pm,v 1.16 2007-09-25 23:52:46 jhoblitt Exp $
+# $Id: Parser.pm,v 1.17 2007-09-26 00:09:52 jhoblitt Exp $
 
 package DataStore::FileSet::Parser;
@@ -32 +32 @@
 
     my $parser = DataStore::FileSet::Parser->new(
-        base_uri => 'http://example.org/',
+        base_uri => 'http://example.org/index.txt',
     );
 
@@ -61 +61 @@
 
     my $parser = DataStore::FileSet::Parser->new(
-        base_uri => 'http://example.org/',
+        base_uri => 'http://example.org/index.txt',
     );
 
@@ -89 +89 @@
                     'is valid http uri' =>
                         sub { is_uri($_[0]) and $_[0] =~ /^http:/ },
-                    'uri ends with /index.txt' => sub { $_[0] =~ m|/index.txt$| },
+                    'uri ends with /index.txt' =>
+                        sub { $_[0] =~ m|/index.txt$| },
                 },
                 default =>  'http://example.org/index.txt',
@@ -99 +100 @@
 
     $p{base_uri} =~ qr|(.*?/)index.txt|;
-
     $self->{base_uri} = $1;