+ Subtitle::BASE->events : accessor

lib/Subtitle/BASE.pm

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