File Coverage

blib/lib/PHP/MySource/Session.pm

Criterion	Covered	Total	%
statement	30	71	42.2
branch	0	8	0.0
condition	0	24	0.0
subroutine	10	21	47.6
pod	0	3	0.0
total	40	127	31.5

package PHP::MySource::Session;
$VERSION = 0.03;

use strict;
use vars qw( $AUTOLOAD );

use Carp;
use Data::Dumper;
use PHP::Session;

sub new
{
	my ($class, %args) = @_;

	bless
		{	_mysource_root	=> $args{'mysource_root'}	|| croak('You must supply your MySource installation directory.'),
			_mysource_cache	=> $args{'mysource_cache'}	|| $args{'mysource_root'} . '/cache',
			_session_id		=> $args{'session_id'}		|| croak('You must supply a MySource session id.'),
			_session_obj	=> new PHP::Session($args{'session_id'}, {save_path=>$args{'mysource_cache'}	|| $args{'mysource_root'} . '/cache'})
		}, $class;
}

{

	my %_attrs =
		(	_mysource_root	=> 'read',
			_mysource_cache	=> 'read',
			_session_id		=> 'read'
		);

	sub _accessible
	{
		my ($self, $attr, $mode) = @_;
		no warnings;
		$_attrs{$attr} =~ /$mode/;
		use warnings;
	}
}

{
	my %_parent_attrs =
		(
			registered_name	=> 'read',
			editor_pages	=> 'read',
			print_errors	=> 'read',
			result_message	=> 'read',
			user			=> 'read',
			external_vars	=> 'read',
			error_call		=> 'read',
			login_attempts	=> 'read',
			access_groups	=> 'read',
			error_msg		=> 'read',
			login_key		=> 'read',
			last_access		=> 'read'
		);

	sub _parent_accessible
	{
		my ($self, $attr, $mode) = @_;
		no warnings;
		$_parent_attrs{$attr} =~ /$mode/;
		use warnings;
	}
}

sub is_logged_in
{
	my $self = shift;

	$self->{'_session_obj'}->{'_data'}->{'SESSION'}->{'user'};
}

# Just dump out all of the Session variables
sub dump
{
	my $self = shift;

	Dumper($self->{'_session_obj'}->{'_data'}->{'SESSION'});
}

sub AUTOLOAD
{
	no strict "refs";
	my ($self, $newval) = @_;

	# was a get method called?
	if ($AUTOLOAD =~ /.*::get(_\w+)/ && $self->_accessible($1, 'read'))
	{
		my $attr_name = $1;
		*{$AUTOLOAD} = sub { return $_[0]->{$attr_name} };
		return $self->{$attr_name};
	}

	# was a set method called?
	if ($AUTOLOAD =~ /.*::set(_\w+)/ && $self->_accessible($1, 'write'))
	{
		my $attr_name = $1;
		*{$AUTOLOAD} = sub { $_[0]->{$attr_name} = $_[1]; return };
		$self->{$1} = $newval;
		return
	}

	# was a get method called on the parent obj?
	if ($AUTOLOAD =~ /.*::get_(\w+)/ && $self->_parent_accessible($1, 'read'))
	{
		my $attr_name = $1;
		#print $self->{'_session_obj'}->{"_data"}->{'SESSION'}->{$attr_name};
		*{$AUTOLOAD} = sub { return $_[0]->{'_session_obj'}->{'_data'}->{'SESSION'}->{$attr_name} };
		return $self->{'_session_obj'}->{'_data'}->{'SESSION'}->{$attr_name};
	}

	# was a set method called on the parent obj?
	if ($AUTOLOAD =~ /.*::set_(\w+)/ && $self->_parent_accessible($1, 'write'))
	{
		my $attr_name = $1;
		*{$AUTOLOAD} = sub { $_[0]->{'_session_obj'}->{'_data'}->{'SESSION'}->{$attr_name} = $_[1]; return };
		$self->{'_session_obj'}->{'_data'}->{'SESSION'}->{$1} = $newval;
		return
	}

	croak ("No such method: $AUTOLOAD");

}

sub DESTROY
{
	# nothing to do but make AUTOLOAD happy
}

1;
__END__