モジュール分割

以前からＮｉｃｏｎｉｃｏ（ニコニコ動画）を操作するパッケージモジュールＮｉｃｏｎｉｃｏ．ｐｍを作っていました（ＣＰＡＮと無関係、非公開）。 このパッケージにはログインが必要な機能と不要な機能が同居しています。 ログイン不要な機能だけを使うプログラムでもパッケージの使い方として、わざわざログインして使っています。 プログラムによるログインが行われると、先にログインしていた自分がはじき出されてログアウトされてしまう。 そこでログイン不要な機能を別モジュールにして使うようにすれば自分がログアウトされないことに気付きました（正直に言うと以前から気付いてたが面倒で後回しにしてた）。
【重要】ログインが必要な機能を使う既存のプログラムに対しては互換（ソース変更なし）で継続使用したい。

変更前

• Ｎｉｃｏｎｉｃｏ．ｐｍ　同居版ニコニコ動画モジュール

変更後

• Ｎｉｃｏｎｉｃｏ．ｐｍ　互換用ラッパー
• Ｎｉｃｏｎｉｃｏ：：Ｕｓｅｒ．ｐｍ　要ログインの機能
• Ｎｉｃｏｎｉｃｏ：：Ｏｕｔｓｉｄｅ．ｐｍ　ログイン不要の機能

ラッパーが両者のオブジェクトを作成します。 同一ＬＷＰオブジェクトを使用する都合があるのでＵｓｅｒ→Ｏｕｔｓｉｄｅへリファレンスをコピーして共用させます。 ラッパーのオブジェクトが呼ばれた際にメソッド名を取得してＵｓｅｒにあればＵｓｅｒのメソッドを呼びます。 なければＯｕｔｓｉｄｅのメソッドを呼びます。 これで既存プログラムの互換を確保できます。 メソッドが両者になければ、ない場合の診断メッセージをｄｉｅして終了します。 今後、ログイン不要な機能だけを使うプログラムは「ｕｓｅ　Ｎｉｃｏｎｉｃｏ；」を「ｕｓｅ　Ｎｉｃｏｎｉｃｏ：：Ｏｕｔｓｉｄｅ；」に修正、ログイン／ログアウト処理も削除していきます。

と言ってもラッパーだけ。

package Niconico;

use utf8;
use strict;
use warnings;

use Niconico::User;
use Niconico::Outside;

our $AUTOLOAD;

sub new {
	my $class = shift;
	my $self = {};

	my %spec = @_;
	$self->{user} = Niconico::User->new(@_);
	$self->{outside} = Niconico::Outside->new(ua => $self->{user}->ua());

	bless($self, $class);

	return $self;
}

sub AUTOLOAD {
	my $self = shift;

	my ($class_name, $func_name) = $AUTOLOAD =~ /^(.+)::(.+)$/;
	my $user_ref = $self->{user}->can($func_name);
	my $outside_ref = $self->{outside}->can($func_name);
	if (defined $user_ref) {
		return &$user_ref($self->{user}, @_);
	} elsif (defined $outside_ref) {
		return &$outside_ref($self->{outside}, @_);
	}

	die "Can't call method $func_name in empty package $class_name";
}

1;