Audio::Beep::Win32::API - Audio::Beep player using Win32 API call

Audio-Beep documentation Contained in the Audio-Beep distribution.

Index

Code Index:

NAME

Top

Audio::Beep::Win32::API - Audio::Beep player using Win32 API call

SYNOPSIS

Top

    my $player = Audio::Beep::Win32::API->new();

NOTES

Top

This player makes a call to the Windows API. It works only on NT, 2000 or XP. Windows 95/98/ME have this API call but does another thing (plays a standard beep).

Requires Win32::API module. You can find sources on CPAN. Some PPM precompiled packages can be found at http://dada.perl.it/PPM/

BUGS

Top

This module is not thoroughly tested. Please report any bug you may find.

COPYRIGHT

Top

Copyright 2003-2004 Giulio Motta giulienk@cpan.org.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Audio-Beep documentation Contained in the Audio-Beep distribution. 
package Audio::Beep::Win32::API;

$Audio::Beep::Win32::API::VERSION = 0.11;

use strict;
use Carp;
use Win32::API;

sub new {
    my $class = shift;
    my $player = Win32::API->new('kernel32', 'Beep', 'NN', 'N') 
        or croak "Cannot initialize " . __PACKAGE__ . " object";
    return bless {
        player  => $player
    }, $class;
}

sub play {
    my $self = shift;
    my ($freq, $duration) = @_;
    return $self->{player}->Call(sprintf("%.0f", $freq), $duration);
}

sub rest {
    my $self = shift;
    my ($duration) = @_;
    Win32::Sleep( $duration );
    return 1;
}



1;