NAME
    Mobile::Devices - search for and get mobile device information

SYNOPSIS
        use Mobile::Devices;
        
    my $devices = Mobile::Devices->new('search_base' => File::Spec->catfile($Bin, 'wurfl-data'));
        my $device  = $devices->search( 'id' => 'nokia_6131nfc_ver1' );
        my $device2 = $devices->search( 'user_agent' => 'Nokia6131NFC' );

DESCRIPTION
    Search for and get mobile device information. Data are from WURFL.

PROPERTIES
  search_base
    Sets the folder where generated files ( Mobile/Device/IDs.pm,
    Mobile/Device/IDs/*, Mobile/Device/UAs.pm, Mobile/Device/UAs/*,
    Mobile/Device/wurfl.xml, Mobile/Device/wurfl.zip, ) will be looked for.

    By default its "dirname($INC{'Mobile/Devices.pm'})" - location of this
    module.

METHODS
  new()
    Object constructor.

  search($by => $ident)
    Lookup the module device. Either by c<ua> or by "id".

  search_by_id($id)
    Lookup device by it's WURFL id string $id.

  search_by_ua($ua)
    Lookup device by it's user-agent string $ua.

  id_by_ua($ua)
    Returns WURFL id associated with $ua.

  ua_to_filename($ua)
    Returns filename where the $ua to id mapping should be stored.

  id_to_filename($id)
    Returns filename where the WURFL information for device with $id is
    stored.

  id_to_modulename($id)
    Returns Perl module name where the wurfl information for device with $id
    is stored.

SEE ALSO
    Mobile::Devices::Loop, <http://wurfl.sf.net/>, Mobile::Wurfl,
    Mobile::WURFL

AUTHOR
    Jozef Kutej

COPYRIGHT AND LICENSE
    Copyright (C) 2009 by Jozef Kutej

    This library is free software; you can redistribute it and/or modify it
    under the same terms as Perl itself, either Perl version 5.8.8 or, at
    your option, any later version of Perl 5 you may have available.

