view release on metacpan or  search on metacpan

t/03-integration.t  view on Meta::CPAN

        backend_class => 'Concierge::Sessions::SQLite',
        storage_dir => $temp_dir,
    );

    my $user_id = 'single_session_user';

    # Create first session
    my $session1 = $manager->new_session(
        user_id         => $user_id,
        session_timeout => 3600,
        data            => { device => 'desktop', ip => '192.168.1.100' },
    );

    ok($session1->{success}, 'First session created');
    my $session1_id = $session1->{session}->session_id();

    # Create second session for same user
    my $session2 = $manager->new_session(
        user_id         => $user_id,
        session_timeout => 3600,
        data            => { device => 'mobile', ip => '192.168.1.200' },