my $request_token = $self->_consumer->get_request_token( callback_url => "$callback_uri", ) or die $self->_consumer->errstr;
$callback_uri が $VAR1 = bless( do{\(my $o = 'http://localhost/auth/zaim/callback')}, 'URI::http' ); とかだったりするとおかしいことになるので、""で囲んであげる必要がある。もしくは$callback_uri->as_string