Browse Source

+ Subtitle::BASE->events : accessor

master
Alex 'AdUser' Z 10 years ago
parent
commit
35d21bd86e
  1. 6
      lib/Subtitle/BASE.pm

6
lib/Subtitle/BASE.pm

@ -67,4 +67,10 @@ sub trim {
return $line =~ s/(^\s+|\s+$)//or; return $line =~ s/(^\s+|\s+$)//or;
} }
sub events {
my ($self) = @_;
return wantarray ? @{ $self->{events} } : $self->{events};
}
1; 1;

Loading…
Cancel
Save