The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Audio::Radio::V4L

SYNOPSIS

  use Audio::Radio::V4L;
  my $radio = Audio::Radio::V4L->new;
  $radio->open("/dev/radio");
  $radio->set_frequency( 88800 ); # frequency in khz
  
  sleep( 10 );
  
  $radio->close();

DESCRIPTION

Audio::Radio::V4L uses the Video4Linux interface to control radio receivers (eg. internal radio cards or USB receivers).

USAGE

Open the device via open(). Get the highest and lowest supported frequency of the radio: get_freq_min() and get_freq_max(). Set the frequency with set_frequency(). Listen or record. Close with close().

PUBLIC METHODS

Each public function/method is described here. These are how you should interact with this module.

new()

 Usage     : new Audio::Radio::V4L
 Purpose   : creates a new radio object
 Returns   : the new object
 Argument  : none

open()

 Usage     : $radio->open("/dev/radio")
 Purpose   : opens the radio-device, initializes values (max-freq, min-freq)
 Returns   : self
 Argument  : the device
 Throws    : croaks on problems

get_devicename()

 Usage     : $radio->get_devicename()
 Returns   : returns the devicename of the opened radio
 Argument  : none

get_freq_min()

 Usage     : $radio->get_freq_min()
 Returns   : the minimal supported frequency of the radio
 Argument  : none

get_freq_max()

 Usage     : $radio->get_freq_max()
 Returns   : the maximal supported frequency of the radio
 Argument  : none

close()

 Usage     : $radio->close()
 Purpose   : closes the device
 Returns   : self
 Argument  : none
 Throws    : croaks on problems

set_frequency()

 Usage     : $radio->set_frequency( 106500 );
 Purpose   : sets the frequency of the device
 Returns   : self
 Argument  : the frequency in khz

BUGS Many, but none known :)

SUPPORT

AUTHOR

        Nathanael Obermayer
        natom-cpan@smi2le.net
        http://neuronenstern.de 

COPYRIGHT

Copyright (c) 2003 Nathanael Obermayer. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the LICENSE file included with this module.

SEE ALSO

Video::Capture::V4l