Browse Source

* Subtitle::SRT : use BASE

master
Alex 'AdUser' Z 10 years ago
parent
commit
8c61671e53
  1. 24
      lib/Subtitle/SRT.pm

24
lib/Subtitle/SRT.pm

@ -5,6 +5,8 @@ use warnings;
use feature qw(switch);
use utf8;
use base 'Subtitle::BASE';
sub new {
my ($class, %args) = @_;
my $self = {
@ -18,26 +20,6 @@ sub new {
return bless($self, $class);
}
sub trim {
my ($self, $line) = @_;
return unless defined $line;
return $line =~ s/(^\s+|\s+$)//or;
}
sub log {
my ($self, $level, $msg) = @_;
given ($level) {
when ("error") { push @{ $self->{log} }, "E: $msg"; }
when ("warn") { push @{ $self->{log} }, "W: $msg"; }
when ("info") { push @{ $self->{log} }, "I: $msg"; }
when ("debug") { push @{ $self->{log} }, "D: $msg" if $self->{debug}; }
default { warn "Unknown loglevel $level of $msg\n"; }
}
return 1;
}
sub parse_timing {
my ($self, $str) = @_;
my $time = 0.0;
@ -81,7 +63,7 @@ sub parse {
foreach my $line (@$lines) {
$linenum++;
$line =~ s/[\r\n]+$//o; # chomp
$line = $self->chomp($line);
# expected: event id
if ($line and not $event) {
$event = $self->new_event;

Loading…
Cancel
Save