in reply to Re^3: Perl OO Help: Urgent :)
in thread Perl OO Help: Urgent :)

Hi Chromatic and other Monks :)

Here is the code for the class and the class method that $lib->get_list("library") will be calling:

package Kprocess::Container; sub new { my $class = shift; my $self = { line => shift, items => undef, close => undef, }; $self->{line} = "" unless $self->{line}; bless $self, $class; } sub get_list { my ($self, @keywords) = @_; my $items = $self->{items}; my @list = (); return @list unless $items; foreach my $item (@{$items}) { push @list, $item if ($item->is(@keywords)); } return @list; }


Combined with this above piece of code and the code in the original question I asked, can you please let me know what  ($self->{lib}) will contain from the line  ($self->{lib}) = ($lib->get_list("library")); in the question asked?

Appreciate all the help.

--Mala