From cf9570669b3e036064d9dec9b23f37763170f024 Mon Sep 17 00:00:00 2001
From: Alex 'AdUser' Z <ad_user@runbox.com>
Date: Thu, 30 Jun 2016 16:27:25 +1000
Subject: [PATCH] + Subtitle::SSA::Event

---
 lib/Subtitle/SSA/Event.pm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/lib/Subtitle/SSA/Event.pm b/lib/Subtitle/SSA/Event.pm
index e69de29..ec23e31 100644
--- a/lib/Subtitle/SSA/Event.pm
+++ b/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;