Applied Magnet's Patch

[sdlgit/SDL_perl.git] / lib / SDL / Music.pm

diff --git a/lib/SDL/Music.pm b/lib/SDL/Music.pm
index 3184d42..e12e0b2 100644 (file)
--- a/lib/SDL/Music.pm
+++ b/lib/SDL/Music.pm
@@ -31,6 +31,8 @@
 package SDL::Music;
 
 use strict;
+use warnings;
+use Carp;
 use SDL;
 
 sub new {
@@ -38,7 +40,7 @@ sub new {
        my $class = ref($proto) || $proto;
        my $filename = shift;
        my $self = \SDL::MixLoadMusic($filename);
-       die SDL::GetError() unless $$self;
+       croak SDL::GetError() unless $$self;
        bless $self,$class;
        return $self;
 }
@@ -50,29 +52,3 @@ sub DESTROY {
 
 1;
 
-__END__;
-
-=pod
-
-=head1 NAME
-
-SDL::Music - a perl extension
-
-=head1 DESCRIPTION
-
-L<SDL::Music> is used to load music files for use with L<SDL::Mixer>.
-To load a music file one simply creates a new object passing the filename 
-to the constructor:
-
-       my $music = new SDL::Music 'my_song.ogg';
-
-
-=head1 AUTHOR
-
-David J. Goehrig
-
-=head1 SEE ALSO
-
-L<perl> L<SDL::Mixer>
-
-=cut