lib/Catalyst/Plugin/Authentication/Realm/Compatibility.pm

   1 package Catalyst::Plugin::Authentication::Realm::Compatibility;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base qw/Catalyst::Plugin::Authentication::Realm/;
   7
   8 ## very funky - the problem here is that we can't do real realm initialization
   9 ## but we need a real realm object to function.  So - we kinda fake it - we
  10 ## create an empty object -
  11 sub new {
  12     my ($class, $realmname, $config, $app) = @_;
  13
  14     my $self = { config => $config };
  15     bless $self, $class;
  16
  17     $self->name($realmname);
  18
  19     return $self;
  20 }
  21
  22 __PACKAGE__;
  23
  24 __END__
  25
  26 =pod
  27
  28 =head1 NAME
  29
  30 Catalyst::Plugin::Authentication::Realm::Compatibility - Compatibility realm object
  31
  32 =head1 DESCRIPTION
  33
  34 An empty realm object for compatibility reasons.
  35
  36 =head1 METHODS
  37
  38 =head2 new( )
  39
  40 Returns a, basically empty, realm object.
  41
  42 =cut