r10518@t0mlaptop (orig r10517): t0m | 2009-06-12 11:27:58 +0100

[catagits/Catalyst-Plugin-Authentication.git] / lib / Catalyst / Authentication / Realm / Progressive.pm

diff --git a/lib/Catalyst/Authentication/Realm/Progressive.pm b/lib/Catalyst/Authentication/Realm/Progressive.pm
index 63d00a8..bc6f362 100644 (file)
--- a/lib/Catalyst/Authentication/Realm/Progressive.pm
+++ b/lib/Catalyst/Authentication/Realm/Progressive.pm
@@ -1,10 +1,9 @@
 package Catalyst::Authentication::Realm::Progressive;
-
+use Moose;
 use Carp;
-use warnings;
-use strict;
+use namespace::autoclean;
 
-use base 'Catalyst::Authentication::Realm';
+extends 'Catalyst::Authentication::Realm';
 
 =head1 NAME
 
@@ -148,15 +147,7 @@ sub authenticate {
 ## standard realm.  So we have to create our realm object, set our name
 ## and return $self in order to avoid nasty warnings.
 
-sub new {
-    my ($class, $realmname, $config, $app) = @_;
-
-    my $self = { config => $config };
-    bless $self, $class;
-
-    $self->name($realmname);
-    return $self;
-}
+sub BUILD { }
 
 =head1 AUTHORS