view release on metacpan or  search on metacpan

RaveMP.pm  view on Meta::CPAN

package Audio::RaveMP;

use DynaLoader ();

$VERSION = "0.04";

@ISA = qw(DynaLoader);

__PACKAGE__->bootstrap($VERSION);

if ((caller)[0] eq 'Xmms') {
    eval join '', <DATA>;
    print $@ if $@;
    unless (defined &Xmms::is_cpl) {
	*Xmms::is_cpl = sub {0};
    }
}

my %FileDesc = (
    'D' => "Start of Document file",
    'd' => "Additional Document file block",