You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
22 lines
231 B
22 lines
231 B
10 years ago
|
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;
|