Audio::Beep::BSD::beep - Audio::Beep player module using the B<beep> program

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

Index

Code Index:

NAME

Top

Audio::Beep::BSD::beep - Audio::Beep player module using the beep program

IMPORTANT!

Top

This player module IS NOT TESTED! I found docs about the BSD beep program but I never had a chance to use it or test it. So use it AT YOUR OWN RISK and report me bugs if possible.

SYNOPIS

Top

    my $player = Audio::Beep::BSD::beep->new([%options]);

USAGE

Top

The new class method can receive as option in hash fashion the following directives

path => '/full/path/to/beep'

With the path option you can set the full path to the beep program in the object. If you don't use this option the new method will look anyway in some likely places where beep should be before returning undef.

device => '/dev/myspeaker'

Use the device option if your speaker device is different from "/dev/speaker". AFAIK this device exists only on i386 architecture. That also means that this module won't probably work for different architectures.

NOTES

Top

The beep program is a BSD program wrote by Andrew Stevenson. I found it at http://www.freshports.org/audio/beep/ , but you can find it also here http://www.freebsd.org/ports/audio.html

BUGS

Top

None known, but all possible, cause this IS NOT TESTED.

COPYRIGHT

Top

Copyright 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::BSD::beep;

$Audio::Beep::BSD::beep::VERSION = 0.11;

use strict;

sub new {
    my $class = shift;
    my %hash = @_;
    $hash{path} ||= _search_path();
    $hash{device} ||= '/dev/speaker';
    return unless $hash{path} and $hash{device};
    return bless \%hash, $class;
}

sub play {
    my $self = shift;
    my ($pitch, $duration) = @_;
    $duration = sprintf('%.0f', $duration / 10);
    return `\Q$self->{path}\E -d \Q$self->{device}\E -p $pitch $duration`;
}

sub rest {
    my $self = shift;
    my ($duration) = @_;
    select undef, undef, undef, $duration/1000;
    return 1;
}

sub _search_path {
    my @prob_paths = qw(
        /usr/bin/beep
        /usr/local/bin/beep
        /bin/beep
    );
    do { return $_ if -e and -x _ } for @prob_paths;
    return;
}


1;