File Coverage

blib/lib/CGI/Session/Driver/aggregator/Drivers.pm

Criterion	Covered	Total	%
statement	12	20	60.0
branch	0	4	0.0
condition	0	3	0.0
subroutine	4	5	80.0
pod	1	3	33.3
total	17	35	48.5

package CGI::Session::Driver::aggregator::Drivers;

# $Id$

=head1 NAME

 CGI::Session::Driver::aggregator::Drivers - Drivers container for CGI::Session::Driver::aggregator

=cut

use strict;
use Carp qw(croak);

sub new { bless { drivers => [] }, shift }

=head1 METHODS

=cut

=head2 add($driver_name, $driver_arguments)

Adding a driver with extra arguments. driver_arguments will be used to instanctiate the driver. The driver must be an instance of CGI::Session::Driver.

 $drivers = CGI::Session::Driver::aggregator::Drivers->new;
 $drivers->add('file', { Directory => '/tmp' });
 $drivers->add('mysql', { Handle => $dbh });

NOTE: session data is read from drivers in the added order. In above example, reading from 'file' first, and then from 'mysql' (only when cannot read from 'file'). On the other hand, When writing session data, the order is 'mysql' -> 'file'.

=cut
sub add {
    my ($self, $name, $args) = @_;
    $name = lc $name;

    my $package = "CGI::Session::Driver::$name";
    if (!defined defined ${"${name}::VERSION"} || !defined @{"${name}::ISA"}) {
        eval "require $package";
        if ($@) {
            croak "Failed to load a driver: $@";
        }
    }

    push @{ $self->{drivers} }, { package => $package, args => $args };
}

sub drivers { @{ shift->{drivers} } }

1;