diff --git a/lib/Weasel/Driver/Selenium2.pm b/lib/Weasel/Driver/Selenium2.pm index 1777ca7..a3cb691 100644 --- a/lib/Weasel/Driver/Selenium2.pm +++ b/lib/Weasel/Driver/Selenium2.pm @@ -164,6 +164,17 @@ sub stop { $self->started(0); } +=item find_all_displayed + +=cut + +sub find_all_displayed { + my $self = shift @_; + my @rv = $self->find_all(@_); + @rv = grep { $_->is_displayed } @rv; + return wantarray ? @rv : \@rv; +} + =item find_all =cut @@ -467,4 +478,3 @@ Licensed under the same terms as Perl. =cut 1; -