読者です 読者をやめる 読者になる 読者になる

bonar note

京都のエンジニア bonar の技術的なことや技術的でない日常のブログです。

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 以外にも日本独自の音楽系コード体系を簡単に扱えるようなものがやりたいですね。