* Subtitle::SSA::Record->new : fix parse()

lib/Subtitle/SSA/Record.pm

@@ -27,6 +27,7 @@ sub new {
   }
 
   my @fields = $self->fields();
+  $self->{_fieldcnt} = scalar @fields;
   foreach my $field (@fields) {
     $self->{$field} = ($opts{defaults})
       ? $FIELDS{$field}->{value}