File Coverage

blib/lib/CGI/Lazy/Plugin.pm

Criterion	Covered	Total	%
statement	22	23	95.6
branch	2	4	50.0
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	33	36	91.6

package CGI::Lazy::Plugin;

use strict;

use CGI::Lazy::Globals;

#-------------------------------------------------------------------------------
sub AUTOLOAD {
	my $self = shift;

	my $name = our $AUTOLOAD;
	return if $name =~ /::DESTROY$/;
	my @list = split "::", $name;
	my $value = pop @list;

	if (@_) {
		return $self->{_plugins}->{$value} = shift;
	} else {
		return $self->{_plugins}->{$value};
	}
}
#------------------------------------------------------------
sub config {
	my $self = shift;

	return $self->q->config;
}

#------------------------------------------------------------
sub q {
	my $self = shift;

	return $self->{_q};
}

#------------------------------------------------------------
sub new {
	my $class = shift;
	my $q = shift;

	my $self = bless {_q => $q}, $class;

	$self->{_plugins} = $self->config->plugins;

	return $self;
}

1

__END__