in reply to Re^3: Perl OO Help: Urgent :)
in thread Perl OO Help: Urgent :)
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; }
|
|---|