Bread::Board::BlockInjection - Bread::Board::BlockInjection documentation

Bread-Board documentation

Contained in the Bread-Board distribution.

Index

NAME
DESCRIPTION
METHODS
BUGS
AUTHOR
COPYRIGHT AND LICENSE

Code Index:

package Bread::Board::BlockInjection
- get
__END__
EOF

NAME

Bread::Board::BlockInjection

DESCRIPTION

METHODS

block
class
has_class
get
meta

BUGS

All complex software has bugs lurking in it, and this module is no exception. If you find a bug please either email me, or add the bug to cpan-RT.

AUTHOR

Stevan Little <stevan@iinteractive.com>

COPYRIGHT AND LICENSE

Copyright 2007-2011 by Infinity Interactive, Inc.

http://www.iinteractive.com

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

Bread-Board documentation

Contained in the Bread-Board distribution.

package Bread::Board::BlockInjection;
use Moose;

our $VERSION   = '0.20';
our $AUTHORITY = 'cpan:STEVAN';

with 'Bread::Board::Service::WithDependencies',
     'Bread::Board::Service::WithParameters';

has 'block' => (
    is       => 'rw',
    isa      => 'CodeRef',
    required => 1,
);

has 'class' => (
    is        => 'rw',
    isa       => 'Str',
    predicate => 'has_class'
);


sub get {
    my $self = shift;
    Class::MOP::load_class($self->class) if $self->has_class;
    $self->block->($self)
}

__PACKAGE__->meta->make_immutable;

no Moose; 1;

__END__