File Coverage

blib/lib/Router/Boom/Node.pm

Criterion	Covered	Total	%
statement	28	29	96.5
branch	3	4	75.0
condition			n/a
subroutine	8	8	100.0
pod	0	2	0.0
total	39	43	90.7

package Router::Boom::Node;
use strict;
use warnings;
use utf8;
use 5.008_001;

use Class::Accessor::Lite 0.05 (
    rw => [qw(leaf)],
    ro => [qw(key children)],
);

sub new {
    my $class = shift;
    my %args = @_==1 ? %{$_[0]} : @_;
    bless {
        children => +[],
        %args,
    }, $class;
}

use re 'eval';

sub add_node {
    my ($self, $child) = @_;
    for (my $i=0; $i<@{$self->{children}}; $i++) {
        if ($self->{children}->[$i]->{key} eq $child) {
            return $self->{children}->[$i];
        }
    }
    push @{$self->{children}}, Router::Boom::Node->new(key => $child);
    return $self->{children}->[-1];
}

=pod

sub as_arrayref {
    my ($self) = @_;
    [$self->key, [map { $_->as_arrayref } @{$self->children}], $self->leaf];
}

=cut

1;