renaming application_name -> catalyst_application

[catagits/Catalyst-Runtime.git] / lib / Catalyst / IOC.pm

diff --git a/lib/Catalyst/IOC.pm b/lib/Catalyst/IOC.pm
index a71bddb..19e2c47 100644 (file)
--- a/lib/Catalyst/IOC.pm
+++ b/lib/Catalyst/IOC.pm
@@ -3,19 +3,22 @@ use strict;
 use warnings;
 use Bread::Board qw/depends_on/;
 use Catalyst::IOC::ConstructorInjection;
-no strict 'refs';
 
 use Sub::Exporter -setup => {
     exports => [qw/
         depends_on
         component
         model
+        view
+        controller
         container
     /],
     groups  => { default => [qw/
         depends_on
         component
         model
+        view
+        controller
         container
     /]},
 };
@@ -23,46 +26,64 @@ use Sub::Exporter -setup => {
 sub container (&) {
     my $code = shift;
     my $caller = caller;
+
+    no strict 'refs';
     ${"${caller}::customise_container"} = sub {
         local ${"${caller}::current_container"} = shift;
         $code->();
     };
 }
 
-sub model (&) {
+sub model (&)      { &_subcontainer }
+sub view (&)       { &_subcontainer }
+sub controller (&) { &_subcontainer }
+
+sub _subcontainer {
     my $code = shift;
-    my $caller = caller;
-    local ${"${caller}::current_container"} = ${"${caller}::current_container"}->get_sub_container('model');
+
+    my ( $caller, $f, $l, $subcontainer ) = caller(1);
+    $subcontainer =~ s/^Catalyst::IOC:://;
+
+    no strict 'refs';
+    local ${"${caller}::current_container"} =
+        ${"${caller}::current_container"}->get_sub_container($subcontainer);
     $code->();
 }
 
-sub component {
+sub component ($;%) {
     my ($name, %args) = @_;
-    my $caller = caller;
+    my $current_container;
+
+    {
+        no strict 'refs';
+        my $caller = caller;
+        $current_container = ${"${caller}::current_container"};
+    }
+
     $args{dependencies} ||= {};
-    $args{dependencies}{application_name} = depends_on( '/application_name' );
+    $args{dependencies}{catalyst_application} = depends_on( '/catalyst_application' );
 
-    my $lifecycle = $args{lifecycle};
-    my %catalyst_lifecycles = map { $_ => 1 } qw/ COMPONENTSingleton Request /;
-    $args{lifecycle} = $lifecycle
-                     ? $catalyst_lifecycles{$lifecycle} ? "+Catalyst::IOC::LifeCycle::$lifecycle" : $lifecycle
-                     : 'Singleton'
+    my $lifecycle    = $args{lifecycle} || 'Singleton';
+    $args{lifecycle} = grep( m/^$lifecycle$/, qw/COMPONENTSingleton Request/ )
+                     ? "+Catalyst::IOC::LifeCycle::$lifecycle"
+                     : $lifecycle
                      ;
 
     # FIXME - check $args{type} here!
 
     my $component_name = join '::', (
-        ${"${caller}::current_container"}->resolve(service => '/application_name'),
-        ucfirst(${"${caller}::current_container"}->name),
+        $current_container->resolve(service => '/catalyst_application'),
+        ucfirst($current_container->name),
         $name
     );
 
-    my $service = Catalyst::IOC::ConstructorInjection->new(
-        %args,
-        name => $name,
-        catalyst_component_name => $component_name,
+    $current_container->add_service(
+        Catalyst::IOC::ConstructorInjection->new(
+            %args,
+            name => $name,
+            catalyst_component_name => $component_name,
+        )
     );
-    ${"${caller}::current_container"}->add_service($service);
 }
 
 1;
@@ -78,43 +99,69 @@ Catalyst::IOC - IOC for Catalyst, based on Bread::Board
 =head1 SYNOPSIS
 
     package MyApp::Container;
+    use Moose;
     use Catalyst::IOC;
+    extends 'Catalyst::IOC::Container';
+
+    container {
+        model {
+            # default component
+            component Foo => ();
+
+            # model Bar needs model Foo to be built before
+            # and Bar's constructor gets Foo as a parameter
+            component Bar => ( dependencies => [
+                depends_on('/model/Foo'),
+            ]);
+
+            # Baz is rebuilt once per HTTP request
+            component Baz => ( lifecycle => 'Request' );
+
+            # built only once per application life time
+            component Quux => ( lifecycle => 'Singleton' );
+
+            # built once per app life time and uses an external model,
+            # outside the default directory
+            # no need for wrappers or Catalyst::Model::Adaptor
+            component Fnar => (
+                lifecycle => 'Singleton',
+                class => 'My::External::Class',
+            );
+        };
+        view {
+            component HTML => ();
+        };
+        controller {
+            component Root => ();
+        };
+    }
 
-    sub BUILD {
-        my $self = shift;
+=head1 DESCRIPTION
 
-        container $self => as {
-            container model => as {
+Catalyst::IOC provides "sugar" methods to extend the behavior of the default
+Catalyst container.
 
-                # default component
-                component Foo => ();
+=head1 METHODS
 
-                # model Bar needs model Foo to be built before
-                # and Bar's constructor gets Foo as a parameter
-                component Bar => ( dependencies => [
-                    depends_on('/model/Foo'),
-                ]);
+=head2 container
 
-                # Baz is rebuilt once per HTTP request
-                component Baz => ( lifecycle => 'Request' );
+Sets up the root container to be customised.
 
-                # built only once per application life time
-                component Quux => ( lifecycle => 'Singleton' );
+=head2 model
 
-                # built once per app life time and uses an external model,
-                # outside the default directory
-                # no need for wrappers or Catalyst::Model::Adaptor
-                component Fnar => (
-                    lifecycle => 'Singleton',
-                    class => 'My::External::Class',
-                );
-            };
-        }
-    }
+Sets up the model container to be customised.
 
-=head1 DESCRIPTION
+=head2 view
 
-=head1 METHODS
+Sets up the view container to be customised.
+
+=head2 controller
+
+Sets up the controller container to be customised.
+
+=head2 component
+
+Adds a component to the sub-container. Works like L<Bread::Board::service>.
 
 =head1 AUTHORS