Alex 'AdUser' Z
8 years ago
1 changed files with 28 additions and 0 deletions
@ -0,0 +1,28 @@
|
||||
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; |
Loading…
Reference in new issue