view release on metacpan or  search on metacpan

lib/Forward/Routes.pm  view on Meta::CPAN

package Forward::Routes;
use strict;
use warnings;

use 5.010001;

use Forward::Routes::Match;
use Forward::Routes::Pattern;
use Forward::Routes::Resources;
use Scalar::Util qw/weaken/;
use Carp 'croak';

our $VERSION = '0.56';


## ---------------------------------------------------------------------------
##  Constructor
## ---------------------------------------------------------------------------

sub new {

lib/Forward/Routes.pm  view on Meta::CPAN

    return $self->{children} ||= [];
}


sub parent {
    my $self = shift;
    my ($value) = @_;
    return $self->{parent} unless $value;
    
    $self->{parent} = $value;
    weaken $self->{parent};
    return $self;
}


sub add_child {
    my $self = shift;
    my ($child) = @_;

    # child
    push @{$self->children}, $child;