File Coverage

blib/lib/Music/KNRadio/NowPlaying.pm

Criterion	Covered	Total	%
statement	21	37	56.7
branch	0	6	0.0
condition			n/a
subroutine	7	8	87.5
pod	1	1	100.0
total	29	52	55.7

package Music::KNRadio::NowPlaying;
use strict;
use warnings;
use open qw(:utf8 :std);

BEGIN {
  use Exporter;
  use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
  @ISA = qw(Exporter);

  $VERSION = '0.010';
  @EXPORT_OK = qw(knnp);
}



use LWP::Simple;

my $url = 'http://www.knradio.se/latlist/exfile.php';

sub knnp {
  my @content = split(/\n/, get($url));
  my %now_playing = (
    artist => 'undef',
    title  => 'undef',
    state  => 'undef',
  );

  for my $line(reverse(@content)) {
    if($line =~ m/Spelas just nu:(.+)/) {
      unless($1) {
        $now_playing{state} = 'paused';
        last;
      }
      ($now_playing{artist}, $now_playing{title}) = $1 =~ m/(.+) - (.+)/;

      last unless defined $now_playing{artist};
      $now_playing{artist} =~ s/[^[:ascii:]]//g;
      $now_playing{title}  =~ s/[^[:ascii:]]//g;
      $now_playing{title}  =~ s/\r//g;

      $now_playing{state} = 'playing';
      last;
    }
    else {
      $now_playing{state} = 'paused';
    }
  }
  return \%now_playing;
}



1;

__END__