# NAME WWW::Jugem::API - It's jugem uranai API # SYNOPSIS use WWW::Jugem::API; my $jugem = WWW::Jugem::API->new(date => '2014/09/09'); my $response = $jugem->fetch('åŒå座'); print $response->{content} #=> 'ä¸åˆ©ãªçŠ¶æ³ã§ã‚‚ã€å¼·æ°—ãªå§¿å‹¢ã‚’å´©ã•ãªã„ã“ã¨ãŒãƒã‚¤ãƒ³ãƒˆã€‚今日ã®ä»•äº‹ã§ã¯ã€ã‚ãªãŸã‚‰ã—ãç´ æ™´ã‚‰ã—ã„çµæžœãŒå‡ºã›ãã†ã§ã™ã€‚' print $response->{color} #=> 'ホワイト' print $response->{sign} #=> 'åŒå座' pritn $response->{jog} # 3 <1~5> #ä»•äº‹é‹ # DESCRIPTION WWW::Jugem::API is API by given URL <http://jugemkey.jp/api/waf/api.ph> # LICENSE Copyright (C) sue7ga. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. # AUTHOR sue7ga <sue77ga@gmail.com>