#!/usr/bin/env perl

use strict;
use warnings;
use Benchmark qw(cmpthese);
use Dancer::Session::Abstract;
use Apache::Session::Generate::MD5;
use Catalyst::Plugin::Session;
use MVC::Neaf::X::Session;

$SIG{__DIE__} = \&Carp::confess;

my $cat = Catalyst::Plugin::Session->new;

cmpthese( -1, {
    dancer => \&Dancer::Session::Abstract::build_id,
    apache => \&Apache::Session::Generate::MD5::generate,
    catalyst => sub { $cat->generate_session_id },
    neaf => \&MVC::Neaf::X::Session::get_session_id,
});