X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAuthentication%2FCredential%2FOpenID.pm;h=82678d8a8f8c795eb6e0b013ac95860540e990c5;hb=ab944aad7e42f6a33f1338b8c648cc14df6e53de;hp=477b9e75c71047788bc4747458af034530b822dd;hpb=f29585f9540eae594f78959a0fec474ef9b18cd6;p=catagits%2FCatalyst-Authentication-Credential-OpenID.git diff --git a/lib/Catalyst/Authentication/Credential/OpenID.pm b/lib/Catalyst/Authentication/Credential/OpenID.pm index 477b9e7..82678d8 100644 --- a/lib/Catalyst/Authentication/Credential/OpenID.pm +++ b/lib/Catalyst/Authentication/Credential/OpenID.pm @@ -8,10 +8,9 @@ BEGIN { __PACKAGE__->mk_accessors(qw/ _config realm debug secret /); } -our $VERSION = "0.04"; +our $VERSION = "0.05"; use Net::OpenID::Consumer; -use UNIVERSAL::require; use Catalyst::Exception (); sub new : method { @@ -37,11 +36,10 @@ sub new : method { $self->secret( $secret ); $self->_config->{ua_class} ||= "LWPx::ParanoidAgent"; - eval { - $self->_config->{ua_class}->require; - } - or Catalyst::Exception->throw("Could not 'require' user agent class " . - $self->_config->{ua_class}); + my $agent_class = $self->_config->{ua_class}; + eval "require $agent_class" + or Catalyst::Exception->throw("Could not 'require' user agent class " . + $self->_config->{ua_class}); $c->log->debug("Setting consumer secret: " . $secret) if $self->debug; @@ -126,15 +124,15 @@ __END__ =head1 NAME -Catalyst::Authentication::Credential::OpenID - OpenID credential for L framework. +Catalyst::Authentication::Credential::OpenID - OpenID credential for Catalyst::Plugin::Authentication framework. =head1 VERSION -0.04 +0.05 =head1 SYNOPSIS -In MyApp.pm. +In MyApp.pm- use Catalyst qw/ Authentication @@ -143,7 +141,7 @@ In MyApp.pm. Session::State::Cookie /; -Somewhere in myapp.conf. +Somewhere in myapp.conf- default_realm openid @@ -157,7 +155,7 @@ Somewhere in myapp.conf. -Or in your myapp.yml if you're using L instead. +Or in your myapp.yml if you're using L instead- Plugin::Authentication: default_realm: openid @@ -167,7 +165,7 @@ Or in your myapp.yml if you're using L instead. class: OpenID ua_class: LWPx::ParanoidAgent -In a controller, perhaps C. +In a controller, perhaps C- sub openid : Local { my($self, $c) = @_; @@ -183,7 +181,7 @@ In a controller, perhaps C. } } -And a L