+ Subtitle::SSA::Event

lib/Subtitle/SSA/Event.pm

@@ -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;