package playlist;
use strict;
use Globals;

return 1;

sub new { 
    my ($proto, $playlist) = @_;
    my $playlister = eval("use playlists::".$playlist."; ".$playlist."->new();");
    if (!defined $playlister) {
        $playlister = {
            mime => "text/html",
            playlist => openTemplate("error"),
            };
        $playlister->{playlist} =~ s/%NAME%/$playlist/g;
        bless ($playlister);
    }

    return $playlister;
}

sub desc { return "Not Currently Working"; }

sub header {    
    }

sub track {
    }

sub dump {
    my $self = shift;
    return $self->{playlist};
    }