lib/Catalyst/IOC.pm

   1 package Catalyst::IOC;
   2 use strict;
   3 use warnings;
   4 use Bread::Board;
   5
   6 # FIXME - neither of these work:
   7 #use Sub::Exporter -setup => [
   8 #    qw(
   9 #        as
  10 #        container
  11 #        depends_on
  12 #        service
  13 #        alias
  14 #        wire_names
  15 #        include
  16 #        typemap
  17 #        infer
  18 #    )
  19 #];
  20 #use Sub::Exporter -setup => [
  21 #    qw(
  22 #        Bread::Board::as
  23 #        Bread::Board::container
  24 #        Bread::Board::depends_on
  25 #        Bread::Board::service
  26 #        Bread::Board::alias
  27 #        Bread::Board::wire_names
  28 #        Bread::Board::include
  29 #        Bread::Board::typemap
  30 #        Bread::Board::infer
  31 #    )
  32 #];
  33 # I'm probably doing it wrong.
  34 # Anyway, I'll just use Moose::Exporter. Do I really have to use Sub::Exporter?
  35 use Moose::Exporter;
  36 Moose::Exporter->setup_import_methods(
  37     also => ['Bread::Board'],
  38 );
  39
  40 1;
  41
  42 __END__
  43
  44 =pod
  45
  46 =head1 NAME
  47
  48 Catalyst::IOC - IOC for Catalyst, based on Bread::Board
  49
  50 =head1 SYNOPSIS
  51
  52 =head1 DESCRIPTION
  53
  54 =head1 METHODS
  55
  56 =head1 AUTHORS
  57
  58 Catalyst Contributors, see Catalyst.pm
  59
  60 =head1 COPYRIGHT
  61
  62 This library is free software. You can redistribute it and/or modify it under
  63 the same terms as Perl itself.
  64
  65 =cut