Parent Directory | Revision Log | Patch
revision 1.4 by jlenton, Wed Apr 9 23:52:49 2003 UTC | revision 1.5 by jlenton, Thu Apr 10 23:01:39 2003 UTC | |
---|---|---|
# | Line 55 sub content | Line 55 sub content |
55 | { | { |
56 | my $self = shift; | my $self = shift; |
57 | ||
58 | if (@_) | $self->{CONTENT} = [] |
59 | { | unless exists $self->{CONTENT}; |
60 | $self->{CONTENT} = [ @_ ]; | |
61 | warn 'Agregando contenido en bloque'; | $self->{CONTENT} = [ @_ ] |
62 | } | if (@_); |
63 | ||
64 | return wantarray ? @{$self->{CONTENT}} : $self->{CONTENT}; | return wantarray ? @{$self->{CONTENT}} : $self->{CONTENT}; |
65 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |