package M42C::Web;

use 5.008009;
use strict;
use warnings;

use M42C::Web::Session;

our @EXPORT = qw();

our $VERSION = '2.0.01';


sub new {
        my $this = shift;
        my $class = ref $this || $this;
        my $self = {};
        my $r = shift;

        bless($self, $class);
        $self->{_r} = $r;

        return $self;
};

sub session {
        my $self = shift;
        return M42C::Web::Session->new( ${$self->{_r}} )->session();
};



1;
__END__