+ initial

lib/Subtitle/ASS.pm

@@ -0,0 +1,9 @@
+package Subtitle::ASS;
+
+use strict;
+use warnings;
+use utf8;
+
+use Carp;
+
+1;

lib/Subtitle/SRT.pm

@@ -0,0 +1,21 @@
+package Subtitle::SRT;
+
+use strict;
+use warnings;
+use utf8;
+
+sub new {
+  my ($class) = @_;
+  my $self = { events => [] };
+
+  return bless($self, $class);
+}
+
+sub load {
+  my ($self, $file) = @_;
+  my $cnt = 0;
+
+  return $cnt;
+}
+
+1;