Net::Twitterでtwitter認証をスマートに行う

CPANのNet::Twitterを用いると簡単にtwitterの認証周りを実装することができますが、
いろいろなブログを見ると認証のurl取得には

my $callback_url = 'http://foo.bar.com/twtr_callback';
my $auth_url = $nt->get_authorization_url(callback => $callback_url);

として認証用のURLを取得すると書いてあります。
ただ、この get_authorization_url メソッドで返ってきたURLにユーザを
リダイレクトさせると毎回twitterの認証画面が表示されてしまいます。

すでにユーザによって認証されているときは必要な情報だけを取得して $callback_url に
リダイレクト、認証されていないときは認証画面を出して $callback_url にリダイレクトさせたい
ときは get_authentication_url メソッドを用いると、その処理を行なってくれて
スマートなtwitter認証をユーザに提供できます。

my $callback_url = 'http://foo.bar.com/twtr_callback';
my $auth_url = $nt->get_authentication_url(callback => $callback_url);

これ以外の、詳しい実装方法はNet::Twitter::Role::OAuth - Net::Twitter role that provides OAuth instead of Basic Authentication - metacpan.orgのEXAMPLESに書かれていますので、
そちらを参考にして下さい。