Browse Source

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

master
Alex 'AdUser' Z 8 years ago
parent
commit
70a66e9b16
  1. 8
      lib/Subtitle/SSA/Style.pm

8
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();

Loading…
Cancel
Save