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;