Now I should say good-bye to regexp + Text::Balanced parser...
NAME Device::KeyStroke::Mobile - Calculate key stroke times with mobile phone keypads SYNOPSIS use Device::KeyStroke::Mobile; my $typing_times = calc_keystroke('example.com'); DESCRIPTION Device::KeyStroke::Mobile is a module to calculate how many times you need to type keypads in mobile phone to build a word. For example, when you type "example.com" with a mobile keypad, e: 3 3 x: 9 9 a: 2 m: 6 p: 7 l: 5 5 5 e: 3 3 .: * c: 2 2 2 o: 6 6 6 > m: 6 you need to type keys 21 times. This module would be useful when you conider taking a new domain name which is easy to type with mobile phones.
But its implementation sucks. any feedbacks welcome to cdbi-talk mailing list.
This module glues SQL::Abstract into Class::DBI, which allows you to do:
package CD::Music;use Class::DBI::AbstractSearch; package main;my @music = CD::Music->search_where(artists => ['Ozzy', 'Kelly']);
SELECT * FROM music WHERE artist = 'Ozzy' OR artist = 'Kelly'