セッションのNLSパラメータを取得したい。[Catalyst][Oracle]

DBD::Oracleでは、$dbh->ora_nls_parameters->{...}でNLSパラメータを取得できます。
MyApp::Model::DBIC内で、connectした後に一度だけ取得したかったのでCOMPONENTメソッドを使ってみました。（勘違ってたら教えてください）

package MyApp::Model::DBIC;

use Class::C3;

sub COMPONENT {
    my $class = shift;
    my $self  = $class->next::method(@_);

    my $dbh = $self->schema->storage->dbh;
    print $dbh->ora_nls_parameters->{NLS_DATE_FORMAT};
    print $dbh->ora_nls_parameters->{NLS_TIMESTAMP_FORMAT};

    return $self;
}

sub COMPONENTに関してはperldoc Catalyst::Manual::ExtendingCatalystを見てください。（このドキュメント、Catalyst::Manualには載ってなくてどのpodからもリンクが張られていないので見落とし易いです）