/usr/local/CPAN/WebService-LastFM/WebService/LastFM/NowPlaying.pm

• package WebService::LastFM::NowPlaying
  • new
• EOF

package WebService::LastFM::NowPlaying;

use strict;
use warnings;

use base qw(Class::Accessor);

our $VERSION = '0.07';

__PACKAGE__->mk_accessors(
    qw(
        price
        shopname
        clickthrulink
        streaming
        discovery
        station
        artist
        artist_url
        track
        track_url
        album
        album_url
        albumcover_small
        albumcover_medium
        albumcover_large
        trackduration
        radiomode
        recordtoprofile
        )
);

sub new {
    my ( $class, $args ) = @_;
    bless $args, $class;
}

1;