fixed GLOB loading

Changes

@@ -7,6 +7,8 @@ Revision history for the CPAN-Testers-WWW-Reports-Parser distribution
         - added LICENSE file.
         - added META.json.
         - reworked test suite.
+        - added reload method.
+        - fixed repeated GLOB loading.
 
 0.03    2010-04-12
         - added support for guid field.

lib/CPAN/Testers/WWW/Reports/Parser/JSON.pm

@@ -11,9 +11,6 @@ $VERSION = '0.03';
 
 use JSON::XS;
 
-#----------------------------------------------------------------------------
-# Variables
-
 #----------------------------------------------------------------------------
 # The Application Programming Interface
 
@@ -49,6 +46,7 @@ sub _load_file {
 
     if (ref $file eq 'GLOB') {
         $fh = $file;
+        seek($fh,0,0);
     } else {
         open $fh, '<', $file     or die "Cannot open file [$file]: $!\n";
     }

lib/CPAN/Testers/WWW/Reports/Parser/YAML.pm

@@ -39,8 +39,11 @@ sub register {
 
 sub raw_data {
     my $self = shift;
-    return Load($self->{data})  if($self->{data});
-    return LoadFile($self->{file});
+    if($self->{file}) {
+        seek($self->{file},0,0) if(ref $self->{file} eq 'GLOB');
+        return LoadFile($self->{file});
+    }
+    return Load($self->{data});
 }
 
 q{ Kein Zurück für dich };