17 |
|
|
18 |
push @{$self->{CONTENT}}, $content; |
push @{$self->{CONTENT}}, $content; |
19 |
$content->parent($self); |
$content->parent($self); |
|
$content->index($#{$self->{CONTENT}}); |
|
20 |
|
|
21 |
return @{$self->{CONTENT}}; |
return @{$self->{CONTENT}}; |
22 |
} |
} |
26 |
my $self = shift; |
my $self = shift; |
27 |
my $kid = shift; |
my $kid = shift; |
28 |
|
|
29 |
splice @{$self->{CONTENT}}, $kid->index, 1; |
my $content = $self->content; |
30 |
|
|
31 |
|
foreach (0..$#{$content}) |
32 |
|
{ |
33 |
|
if ($content->[$_] eq $kid) |
34 |
|
{ |
35 |
|
splice (@$content, $_, 1); |
36 |
|
last; |
37 |
|
} |
38 |
|
} |
39 |
|
|
40 |
} |
} |
41 |
|
|
42 |
sub content |
sub content |