* Subtitle::SSA::Style : update new()

lib/Subtitle/SSA/Style.pm

@@ -45,15 +45,17 @@ my %FIELDS = (
   encoding          => { type => 'd', value => 204, name => 'Encoding' },
 );
 
+# options:
+#  * version - 'ssa' for v4 or 'ass' for v4+
 sub new {
   my ($class, %opts) = @_;
-  my $self = {};
+  my $self = {
+    _vers => 'ass',
+  };
   bless($self, $class);
 
   if ($opts{version} and $opts{version} =~ m{^(ass|ssa)$}oi) {
     $self->{_vers} = lc($opts{version});
-  } else {
-    $self->{_vers} = 'ass';
   }
 
   my @fields = $self->fields();