Business::ISRCをCPANにあげました
なにげに初めてのuploadなのですが、意外とすんなりですね。
Business-ISRC-0.01
http://search.cpan.org/~bonar/Business-ISRC-0.01/lib/Business/ISRC.pm
CPANモジュール経由でもinstallできるようになってて感動。
bash-3.2$ sudo perl -MCPAN -e shell Password: CPAN: File::HomeDir loaded ok (v0.80) cpan shell -- CPAN exploration and modules installation (v1.9205) ReadLine support enabled cpan[1]> install Business::ISRC .... .... Business-ISRC-0.01/ Business-ISRC-0.01/Changes Business-ISRC-0.01/lib/ Business-ISRC-0.01/lib/Business/ Business-ISRC-0.01/lib/Business/ISRC.pm Business-ISRC-0.01/Makefile.PL Business-ISRC-0.01/MANIFEST Business-ISRC-0.01/META.yml Business-ISRC-0.01/README Business-ISRC-0.01/t/ Business-ISRC-0.01/t/00_load.t Business-ISRC-0.01/t/10_basic.t Business-ISRC-0.01/t/11_overload.t Business-ISRC-0.01/t/12_invalid.t Business-ISRC-0.01/t/20_normalize.t Business-ISRC-0.01/t/50_random.t Business-ISRC-0.01/t/98_critic.t CPAN: File::Temp loaded ok (v0.20) CPAN.pm: Going to build B/BO/BONAR/Business-ISRC-0.01.tar.gz Checking if your kit is complete... Looks good Writing Makefile for Business::ISRC cp lib/Business/ISRC.pm blib/lib/Business/ISRC.pm Manifying blib/man3/Business::ISRC.3pm BONAR/Business-ISRC-0.01.tar.gz /usr/bin/make -- OK Running make test PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t t/00_load.........ok t/10_basic........ok t/11_overload.....ok t/12_invalid......ok t/20_normalize....ok t/50_random.......ok t/98_critic.......ok All tests successful. Files=7, Tests=2043, 4 wallclock secs ( 0.30 usr 0.05 sys + 1.73 cusr 0.22 csys = 2.30 CPU) Result: PASS BONAR/Business-ISRC-0.01.tar.gz /usr/bin/make test -- OK Running make install Prepending /Users/bonar/.cpan/build/Business-ISRC-0.01-l99Q8u/blib/arch /Users/bonar/.cpan/build/Business-ISRC-0.01-l99Q8u/blib/lib to PERL5LIB for 'install' Installing /Library/Perl/5.8.8/Business/ISRC.pm Installing /usr/local/share/man/man3/Business::ISRC.3pm Writing /Library/Perl/5.8.8/darwin-thread-multi-2level/auto/Business/ISRC/.packlist Appending installation info to /System/Library/Perl/5.8.8/darwin-thread-multi-2level/perllocal.pod BONAR/Business-ISRC-0.01.tar.gz /usr/bin/make install -- OK
Business::ISRC::FetchRegistrant とかを作ってregistrant_nameとかを取れたらいいかもですが、各国のレコード協会のページをscrapingするのはかなりハードですね。。どこかの国が取りまとめて公開していると楽なのに!
今後個人的には Business::UPC とJANとの相互変換周りの処理が欲しいなと思っています(JANはUPCのスーパーセット)。JAN 以外にも日本独自の音楽系コード体系を簡単に扱えるようなものがやりたいですね。