NAME

Net::Radio::Modem::Adapter::Static - static modem information adapter

DESCRIPTION

Allows mocking by defining static information for radio modems.

SYNOPSIS

  use Net::Radio::Modem;
  my $modem = Net::Radio::Modem->new('Static',
      '/test_0' => {
	  MNC => '262', MCC => '02', IMSI => '262020555017753',
	  LAC => ...},
      '/test_1' => { ... } ... );
  my @modems = $modem->get_modems(); # returns ('/test_0', 'test_1', ...)
  my $local_modem = grep {
         $modem->get_modem_property($_, 'MobileCountryCode') == 364
     } @modems; # find the one for Bahamas

To fill in reasonable value, see

METHODS

new

Instantiates new static modem adapter.

TODO: clone (depending on refcount?) provided information to allow further modification in caller.

get_modems

Returns the keys of given initialisation hash as list of known modems.

get_modem_property

Return the specified modem property, when known. Empty value otherwise.

BUGS

Please report any bugs or feature requests to bug-net-radio-modem at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Net-Radio-Modem. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

If you think you've found a bug then please read "How to Report Bugs Effectively" by Simon Tatham: http://www.chiark.greenend.org.uk/~sgtatham/bugs.html.

SUPPORT

You can find documentation for this module with the perldoc command.

perldoc Net::Radio::Modem

You can also look for information at:

Where can I go for help with a concrete version?

Bugs and feature requests are accepted against the latest version only. To get patches for earlier versions, you need to get an agreement with a developer of your choice - who may or not report the issue and a suggested fix upstream (depends on the license you have chosen).

Business support and maintenance

For business support you can contact Jens via his CPAN email address rehsackATcpan.org. Please keep in mind that business support is neither available for free nor are you eligible to receive any support based on the license distributed with this package.

ACKNOWLEDGEMENTS

AUTHOR

Jens Rehsack, <rehsack at cpan.org>

LICENSE AND COPYRIGHT

Copyright 2012 Jens Rehsack.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.