The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package HTTP::Session::State::Base;
use strict;
use warnings;
use Class::Accessor::Fast;

sub import {
    my $pkg = caller(0);
    strict->import;
    warnings->import;
    no strict 'refs';
    unshift @{"${pkg}::ISA"}, "Class::Accessor::Fast";
    $pkg->mk_ro_accessors(qw/permissive/);
}

1;