NAME

Mobile::Devices::Loop - loop through WURFL mobile devices

SYNOPSIS

my $device_loop = Mobile::Devices::Loop->new(
	wurfl_xml_filename => 'tmp/wurfl.xml',
);

while (my $device = $device_loop->next_device()) {
	print '----------------', "\n";
	print 'id:', $device->{'id'}, "\n";
	print 'fall_back:', $device->{'fall_back'}, "\n";
	
	print 'user_agent: ', $device->{'user_agent'}, "\n"
		if $device->{'user_agent'};
	
	my %capabilities = map {
			map {
				$_->{'name'} => $_->{'value'}
			} @{$_->{'capability'}}
		} @{$device->{'group'}}
	;
	print 'model_name: ', $capabilities{'model_name'}, "\n"
		if $capabilities{'model_name'};
	
}

DESCRIPTION

Allows to loop through mobile devices stored in WURFL and get their properties and capabilities.

PROPERTIES

wurfl_xml_filename
wurfl_schema_filename

METHODS

new()

Object constructor.

next_device

Return hash of next device.

version

Return hash of WURFL version.

version_date

Returns WURFL version date, like '2009-02-09'.

SEE ALSO

Mobile::Devices, http://wurfl.sf.net/, Mobile::Wurfl, Mobile::WURFL

AUTHOR

Jozef Kutej