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.

28 lines
1.1 KiB

package Subtitle::SSA::Event;
use strict;
use warnings;
use utf8;
use base 'Subtitle::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 => 's', value => '0000', name => 'MarginL' },
marginr => { type => 's', value => '0000', name => 'MarginR' },
marginv => { type => 's', value => '0000', name => 'MarginV' },
effect => { type => 's', value => '', name => 'Effect' },
text => { type => 's', value => '', name => 'Text' },
);
my $PREFIX = 'Dialogue';
1;