File Coverage

blib/lib/Beam/Service.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package Beam::Service;
our $VERSION = '0.001';
# ABSTRACT: Role for services to access Beam::Wire features

#pod =head1 SYNOPSIS
#pod
#pod     package My::Object;
#pod     use Role::Tiny::With; # or Moo, or Moose
#pod     with 'Beam::Service';
#pod
#pod     package main;
#pod     use Beam::Wire;
#pod     my $wire = Beam::Wire->new(
#pod         config => {
#pod             my_object => {
#pod                 '$class' => 'My::Object',
#pod             },
#pod         },
#pod     );
#pod
#pod     print $wire->get( 'my_object' )->name; # my_object
#pod
#pod =head1 DESCRIPTION
#pod
#pod This role adds extra functionality to an object that is going to be used
#pod as a service in a L container. While any object can be
#pod configured with Beam::Wire, consuming the Beam::Service role allows an
#pod object to know its own name and to access the container it was
#pod configured in to fetch other objects that it needs.
#pod
#pod =head1 SEE ALSO
#pod
#pod L
#pod
#pod =cut

use strict;
use warnings;
use Moo::Role;
use Types::Standard qw( Str InstanceOf );

#pod =attr name
#pod
#pod The name of the service. This is the name used in the L
#pod configuration file for this service.
#pod
#pod =cut

has name => (
    is => 'ro',
    isa => Str,
);

#pod =attr container
#pod
#pod The L container object that contained this service. Using
#pod this container we can get other services as-needed.
#pod
#pod =cut

has container => (
    is => 'ro',
    isa => InstanceOf['Beam::Wire'],
);

1;

__END__