Changeset 8744

Timestamp:

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

Author:

jhoblitt

Message:

add ->_parse_braindead() method
use ->_parse_braindead() instead of ->_parse_megacam()
VERSION to 0.02

File:

• trunk/PS-IPP-Config/lib/PS/IPP/Metadata/Stats.pm (modified) (4 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.8 2006-09-06 02:45:46 jhoblitt Exp $
+# $Id: Stats.pm,v 1.9 2006-09-06 03:24:49 jhoblitt Exp $
 
 package PS::IPP::Metadata::Stats;
@@ -8 +8 @@
 use warnings FATAL => qw( all );
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 use Carp qw( carp croak );
@@ -62 +62 @@
     my $errors = 0;
 
-    $self->_parse_megacam($md);
+#    $self->_parse_megacam($md);
+    $self->_parse_braindead($md);
 
     # Check that we found everything for the constants
@@ -172 +173 @@
 }
 
+sub _parse_braindead
+{
+    my ($self, $md) = @_;
+
+    # descend through the fpa        
+    foreach my $entry (@$md) {
+        # recurse on nested metadata
+        if ($entry->{class} eq 'metadata') {
+            $self->_parse_braindead($entry->{value});
+        }
+
+        if ($entry->{name} =~ /^(SAMPLE|ROBUST|FITTED|CLIPPED)_/) {
+            # It's a statistic of some sort
+            if ($entry->{name} =~ /_STDEV$/) {
+                push @{$self->{bg_stdev_data}}, $entry->{value};
+            } else {
+                push @{$self->{bg_data}}, $entry->{value};
+            }
+        } else {
+            $self->_check_values($entry);
+        }
+    }
+
+    return $self;
+}
 
 # Private function to check a metadata item for things we're interested in