view release on metacpan or  search on metacpan

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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

180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
    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;