The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Moose;

use Bread::Board::ConstructorInjection;

{
    package MyLifeCycle;
    use Moose::Role;

    with 'Bread::Board::LifeCycle::Singleton';
}

{
    package MyClass;
    use Moose;
}

my $s = Bread::Board::ConstructorInjection->new(
    lifecycle => '+MyLifeCycle',
    name      => 'foo',
    class     => 'MyClass',
);

does_ok($s, 'MyLifeCycle');

done_testing;