From 35d21bd86ea5973d4fd2818cf6f2efb41eedbcfb Mon Sep 17 00:00:00 2001 From: Alex 'AdUser' Z Date: Sat, 14 Mar 2015 21:50:32 +1000 Subject: [PATCH] + Subtitle::BASE->events : accessor --- lib/Subtitle/BASE.pm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lib/Subtitle/BASE.pm b/lib/Subtitle/BASE.pm index abb9b7e..fc93852 100644 --- a/lib/Subtitle/BASE.pm +++ b/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;