Changeset 9758 for trunk/PS-IPP-Metadata-Config/lib/PS/IPP/Metadata/Config.pm

Timestamp:

Oct 26, 2006, 4:15:45 PM (20 years ago)

Author:

jhoblitt

Message:

fix time tests that were dependent on MULTI times being broken
fix MULTI time
no longer require the 'Z' and the end of ISO8601 times
implement NULL time support

File:

• trunk/PS-IPP-Metadata-Config/lib/PS/IPP/Metadata/Config.pm (modified) (3 diffs)

trunk/PS-IPP-Metadata-Config/lib/PS/IPP/Metadata/Config.pm

@@ -1 +1 @@
 # Copyright (c) 2005  Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.26 2006-10-12 02:09:10 jhoblitt Exp $
+# $Id: Config.pm,v 1.27 2006-10-27 02:15:45 jhoblitt Exp $
 
 package PS::IPP::Metadata::Config;
@@ -49 +49 @@
     # multi-symbols
     $self->_merge_duplicates( $tree ) or return undef;
+
+    # translate NULL values into perl undefs (Parse::RecDescent can't return
+    # undefs, args)
+    $self->_fix_nulls( $tree ) or return undef;
 
     #print Dumper($tree);
@@ -106 +110 @@
 }
 
+sub _fix_nulls {
+    my ( $self, $tree ) = @_;
+
+    # Iteratate through the parse tree looking for values of NULL and
+    # translating them into Perl undefs
+    for (my $i = 0; $i < @{$tree}; $i++) {
+        my $elem = $tree->[$i];
+
+        # recurse through nested metadata
+        if ( $elem->{class} eq "metadata" ) {
+            $self->_fix_nulls( $elem->{value} );
+        }
+
+        # force stringification of $elem->{value} -- specifically because you
+        # can't compare a DateTime object to a string value
+        if ("$elem->{value}" eq "NULL") {
+            $elem->{value} = undef;
+        }
+    }
+
+    return 1;
+}
+
 1;