root/trunk/plagger/lib/Plagger/Plugin/Notify/Audio/MSWin32.pm

Revision 1395 (checked in by miyagawa, 14 years ago)

Notify::Audio rough cut. Untested

Line 
1 package Plagger::Plugin::Notify::Audio::MSWin32;
2 use strict;
3 use Win32::Sound;
4
5 sub play {
6     my($self, $context, $filename) = @_;
7     $filename ||= "SystemExclamation";
8
9     Win32::Sound::Play($filename, SND_ASYNC);
10 }
11
12 1;
Note: See TracBrowser for help on using the browser.