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