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 = $device->capabilities;
	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