You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
56 lines
1.7 KiB
56 lines
1.7 KiB
package Subtitle::Format::SSA::Event; |
|
|
|
use strict; |
|
use warnings; |
|
use utf8; |
|
|
|
use base 'Subtitle::Format::SSA::Record'; |
|
|
|
my @FIELDS_SSA = qw(marked start end style name marginl marginr marginv effect text); |
|
my @FIELDS_ASS = qw(layer start end style name marginl marginr marginv effect text); |
|
|
|
# see parse() description for available type's |
|
my %FIELDS = ( |
|
marked => { type => 's', value => 'Marked=0', name => 'Marked' }, |
|
layer => { type => 'd', value => 0, name => 'Layer' }, |
|
start => { type => 't', value => 0, name => 'Start' }, |
|
end => { type => 't', value => 0, name => 'End' }, |
|
style => { type => 's', value => 'Default', name => 'Style' }, |
|
name => { type => 's', value => '', name => 'Name' }, |
|
marginl => { type => 'z', value => 0, name => 'MarginL' }, |
|
marginr => { type => 'z', value => 0, name => 'MarginR' }, |
|
marginv => { type => 'z', value => 0, name => 'MarginV' }, |
|
effect => { type => 's', value => '', name => 'Effect' }, |
|
text => { type => 's', value => '', name => 'Text' }, |
|
); |
|
|
|
# options: |
|
# * type - 'ssa' for v4 or 'ass' for v4+ |
|
sub new { |
|
my ($class, %opts) = @_; |
|
my $self = { |
|
_type => 'ass', |
|
_fields => \%FIELDS, |
|
_format => \@FIELDS_ASS, |
|
_prefix => qr/(Dialogue|Comment|Picture|Sound|Movie|Command)/, |
|
}; |
|
|
|
if (my $t = $opts{type}) { |
|
if ($t =~ m{^(ass|ssa)$}oi) { |
|
$self->{_type} = lc($t); |
|
} else { |
|
die("unsupported event type $t"); |
|
} |
|
} |
|
|
|
$self->{_format} = \@FIELDS_SSA |
|
if $self->{_type} eq 'ssa'; |
|
|
|
my @fields = @{ $self->{_format} }; |
|
$self->{$_} = $FIELDS{$_}->{value} |
|
foreach @fields; |
|
|
|
return bless($self, $class); |
|
} |
|
|
|
1;
|
|
|