ACME::QuoteDB 0.1.2

Easy, quick auto-CRUD access to a collection of quotes. (which you provide)<br /><br />Some ideal uses for this module could be:<br /><br /> 1. Quotes Website (quotes/movie/lyrics/limerick/proverbs/jokes/etc)<br /> 2. perl replacement for 'fortune'<br /> 3. Dynamic signature generation<br /> 4. international languages (has utf8 support)<br /> 5. convenient storing/sharing collections of quotes<br /> 6. for me to finally have a place to store (and manage) quotes (that can be easily backed up or even to a remote db if desired)<br /> 7. anywhere perl is supported and 'quotes' are desired.<br /> 8. others? (let me know what you do, if you want, if you do)<br /><br />See "DESCRIPTION" above<br /><br />Also see ACME::QuoteDB::LoadDB<br />USAGE ^<br /><br /> use ACME::QuoteDB;<br /><br /> my $sq = ACME::QuoteDB->new;<br /><br /> print $sq->get_quote;<br /><br /> # examples are based on quotes data in the test database. <br /> # (see tests t/data/)<br /><br /> # get specific quote based on basic text search.<br /> # search all 'ralph' quotes for string 'wookie'<br /> print $sq->get_quotes_contain({<br /> Contain => 'wookie', <br /> AttrName => 'ralph',<br /> Limit => 1 # only return 1 quote (if any)<br /> });<br /> # output:<br /> I bent my wookie.<br /> -- Ralph Wiggums<br /><br /> # returns all quotes attributed to 'ralph', with a rating between <br /> # (and including) 7 to 9<br /> print join "n", @{$sq->get_quotes({<br /> AttrName => 'ralph', <br /> Rating => '7-9'<br /> })<br /> };<br /> <br /> # same thing but limit to 2 results returned<br /> # (and including) 7 to 9<br /> print join "n", @{$sq->get_quotes({<br /> AttrName => 'ralph', <br /> Rating => '7-9',<br /> Limit => 2<br /> })<br /> };<br /><br /> # get 6 random quotes (any attribution)<br /> foreach my $q ( @{$sq->get_quotes({Limit => 6})} ) {<br /> print "$qn";<br /> }<br /><br /><br /> # get list of available attributions (that have quotes provided by this module)<br /> print $sq->list_attr_names;<br /><br /> # any unique part of name will work<br /> # i.e these will all return the same results (because of our limited<br /> # quotes db data set)<br /> print $sq->get_quotes({AttrName => 'comic book guy'});<br /> print $sq->get_quotes({AttrName => 'comic book'});<br /> print $sq->get_quotes({AttrName => 'comic'});<br /> print $sq->get_quotes({AttrName => 'book'});<br /> print $sq->get_quotes({AttrName => 'book guy'});<br /> print $sq->get_quotes({AttrName => 'guy'});<br /><br /> # get all quotes, only using these categories (you have defined)<br /> print @{$sq->get_quotes({ Category => [qw(Humor ROTFLMAO)] })};<br /><br /> # get all quotes from Futurama<br /> print @{$sq->get_quotes({Source => Futurama})};<br /><br />Also see t/02* included with this distribution. (available from the CPAN if not included on your system)

Requirements:	No special requirements
Platforms:	*nix, Linux
Keyword:	Attrname,  Based,  Comic,  Desired,  Guy,  Included,  Including,  Limit,  Print,  Quotes,  Ralph,  Rating,  Return,  Search,  Sqgtget Quotes,  Sqgtget Quotesattrname
Users rating:	0/10