File Coverage

blib/lib/Router/Simple/SubMapper.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	1	2	50.0
condition	3	4	75.0
subroutine	7	7	100.0
pod	2	3	66.6
total	39	42	92.8

package Router::Simple::SubMapper;
use strict;
use warnings;
use Scalar::Util qw/weaken/;
use Router::Simple ();

sub new {
    my ($class, %args) = @_;
    my $self = bless { %args }, $class;
    weaken($self->{parent});
    $self;
}

sub connect {
    my ($self, $pattern, $dest, $opt) = @_;
    $pattern = $self->{pattern}.$pattern if $self->{pattern};
    $dest ||= +{};
    $opt ||= +{};

    $self->{parent}->connect(
        $pattern,
        { %{ $self->{dest} }, %$dest },
        { %{ $self->{opt} },  %$opt }
    );

    $self; # chained method
}

# Allow nested submapper calls
sub submapper {
    my $self = shift;

    Router::Simple::submapper($self, @_);
}


1;
__END__