Permalink
Fetching contributors…
Cannot retrieve contributors at this time
15 lines (11 sloc) 243 Bytes
#!/usr/bin/env perl
use strict; use warnings;
use Test::More tests => 1;
{
package Foo;
use MooseX::POE;
package Bar;
use Moose;
has a => ( is => 'ro' );
}
ok(!exists Bar->new( a => 1 )->{session_id}, 'no session_id');