diff options
author | Tom Ryder <tom@sanctum.geek.nz> | 2017-11-01 22:50:40 +1300 |
---|---|---|
committer | Tom Ryder <tom@sanctum.geek.nz> | 2017-11-01 22:50:40 +1300 |
commit | 1a13a54fe70734d74ea86a9ab0b219dc12c5fdc3 (patch) | |
tree | 93fb595491b4c3bcf7d68f1ff1e4cbe8f245d665 /lib/Music/Lyrics/LRC.pm | |
parent | Move time translation into method, s/hsec/csec/ (diff) | |
download | Music-Lyrics-LRC-1a13a54fe70734d74ea86a9ab0b219dc12c5fdc3.tar.gz Music-Lyrics-LRC-1a13a54fe70734d74ea86a9ab0b219dc12c5fdc3.zip |
Rename parser, pattern keys to "lyric" not "line"
Diffstat (limited to 'lib/Music/Lyrics/LRC.pm')
-rw-r--r-- | lib/Music/Lyrics/LRC.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Music/Lyrics/LRC.pm b/lib/Music/Lyrics/LRC.pm index 13c3d4d..36ad5df 100644 --- a/lib/Music/Lyrics/LRC.pm +++ b/lib/Music/Lyrics/LRC.pm @@ -39,7 +39,7 @@ our %RE = ( }msx, # A lyric line - line => qr { + lyric => qr{ \A # Start of string \s* # Any whitespace \[ # Opening left bracket @@ -66,7 +66,7 @@ my %parsers = ( }, # A lyric line - line => sub { + lyric => sub { my ( $self, %ts, $text ); ( $self, @ts{qw(min sec csec)}, $text ) = @_; |