File Coverage

blib/lib/Catalyst/Component/WithDelayedSetup.pm

Criterion	Covered	Total	%
statement	4	4	100.0
branch			n/a
condition	2	3	66.6
subroutine	2	2	100.0
pod	0	1	0.0
total	8	10	80.0

package Catalyst::Component::WithDelayedSetup;

use Moose::Role;
our $VERSION = '0.001';

around 'COMPONENT', sub {
  my ($orig, $class, @args) = @_;
  return bless sub { $class->$orig(@args) }, $class;
};

my $ONCE;

sub ACCEPT_CONTEXT { $ONCE ||= shift->() }

1;

=head1 NAME

Catalyst::Component::WithDelayedSetup - Moose Role for components which setup late

=head1 SYNOPSIS

    package MyApp::Model::Foo;

    use Moose;
    extends 'Catalyst::Model';
    with 'Catalyst::Component::DelayedSetup';

    # Proceed as normal

=head1 DESCRIPTION

Sometimes you want an application scoped component that nevertheless needs other
application components as part of its setup.  In the past this was not reliable
since Application scoped components are setup in linear order.  You could not
call $app->model('A') in a COMPONENT method and expect $app->model('B') to be there
This role defers creating the application scoped instance until after your application is
fully setup.  This means you can now assume your other application scoped components
(components that do COMPONENT but not ACCEPT_CONTEXT) are available as dependencies.

Please note this means that your instance is not created until the first time its
called in a request.  As a result any errors with configuration will not show up
until later in runtime.  So there is a larger burden on your testing to make sure
your application startup and runtime is accurate.  Also note that even though your
instance creation is deferred to request time, the request context is NOT given,
but the application is (this means that you cannot depend on components that do
ACCEPT_CONTEXT, since you don't have one...).

Please note it makes no sense to use this component role and then do the ACCEPT_CONTEXT
method...

=head1 SEE ALSO

L<Catalyst::Component>, L<Catalyst>.

=head1 AUTHOR

John Napiorkowski L<email:[e-mail]>

=head1 COPYRIGHT & LICENSE

Copyright 2015, John Napiorkowski L<email:[e-mail]>

This library is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.

=cut