Yet Another CPAN Grep

Micro-Container ( X/XA/XAICRON/Micro-Container-0.03.tar.gz, XAICRON, 2013; MetaCPAN )

Micro-Container/lib/Micro/Container.pm ( view source; MetaCPAN )

SYNOPSIS

  package MyContainer;
  use parent 'Micro::Container';

  __PACKAGE__->register(
      JSON => [],
  );

  package MyContainer::Child;
  use parent 'MyContainer';

  __PACKAGE__->register(

yContainer::Child;

  my $container = MyContainer::Child->instance;
  say $container->get('JSON')->encode_json({ foo => 'bar' });
  my $data = $container->get('MessagePack')->decode($message_pack_stri

ter(
      'LWP::UserAgent' => [ agent => 'FooBar' ],
      JSON             => sub {
          my $c = shift;
          $c->load_class('JSON')->new->utf8;
      },
  );

=head2 unregister(@names)

=h