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;