Changeset 8740

Timestamp:

Sep 5, 2006, 3:53:49 PM (20 years ago)

Author:

jhoblitt

Message:

change ::Stats->parse() to return undef when parse errors are encountered

File:

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

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

@@ -1 +1 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Stats.pm,v 1.6 2006-09-06 01:47:38 jhoblitt Exp $
+# $Id: Stats.pm,v 1.7 2006-09-06 01:53:49 jhoblitt Exp $
 
 package PS::IPP::Metadata::Stats;
@@ -58 +58 @@
     my $self = shift;                # Where we'll put the information
     my $md = shift;                # Parsed metadata, from PS::IPP::Metadata::Config
+
+    # count of parse errors
+    my $errors = 0;
 
     # Descend the FPA hierarchy
@@ -109 +112 @@
             if (not defined $self->{data}->{$constant}->{value}) {
                 carp "Unable to find value for ", $constant, "\n";
+                $errors++;
             }
         }
@@ -121 +125 @@
             if (scalar @$array == 0) {
                 carp "Unable to find any values for ", $variable, "\n";
+                $errors++;
                 next;
             }
@@ -150 +155 @@
     }
 
+    if ($errors) {
+        carp "a total of $errors parse errors occured";
+        return;
+    }
+
     return $self;
 }