And in Perl ... 

• DDJ article by Stevan Little

$c->register(IOC::Service->new(
  'db_conn' => sub { DBI->connect('dbi:mysql:test', '', '') }
));

$c->get('db_conn')

• Returns singletons by default
• See also: Bread::Board