File Coverage

lib/Context/Singleton/Frame/Builder/Hash.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	20	21	95.2

use strict;
use warnings;

package Context::Singleton::Frame::Builder::Hash;

our $VERSION = v1.0.4;

use parent qw[ Context::Singleton::Frame::Builder::Base ];

sub _build_required {
	my ($self) = @_;

	return (
		$self->SUPER::_build_required,
		grep defined, values %{ $self->dep },
	);
}

sub build_callback_args {
	my ($self, $resolved) = @_;

	my $dep = $self->{dep};
	return (
		$self->SUPER::build_callback_args ($resolved),
		map +( $_ => $resolved->{$dep->{$_}} ), keys %$dep,
	);
}

1;