1#!/usr/bin/env perl
2use strict;
3use warnings;
4use Test::More;
5use Test::Moose;
6
7use Bread::Board::ConstructorInjection;
8
9{
10    package MyLifeCycle;
11    use Moose::Role;
12
13    with 'Bread::Board::LifeCycle::Singleton';
14}
15
16{
17    package MyClass;
18    use Moose;
19}
20
21my $s = Bread::Board::ConstructorInjection->new(
22    lifecycle => '+MyLifeCycle',
23    name      => 'foo',
24    class     => 'MyClass',
25);
26
27does_ok($s, 'MyLifeCycle');
28
29done_testing;
30