/[papo]/papo/neb/neb/Tree/Container.pm
ViewVC logotype

Diff of /papo/neb/neb/Tree/Container.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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  }  }

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26