Made parse_headers() return number of them

lib/SugarTrail/STM.pm

@@ -32,7 +32,7 @@ sub parse_headers {
         $self->{meta}->{$n} = $v;
     }
 
-    return 1;
+    return scalar keys %{ $self->{meta} };
 }
 
 

t/Repo.t

@@ -13,7 +13,8 @@ ok($repo,           "repo is true");
 my $stm = $repo->load_stm(stm=>'/release/rc.stm');
 ok($stm,            "stm is true");
 
-ok($stm->parse_headers(), "parse_headers() returns true");
+ok($stm->parse_headers(), "parse_headers() returns 6");
+ok($stm->parse_headers(), "parse_headers() still returns 6");
 &helper::dmupp(stm=>$stm);
 
 done_testing();