File Coverage

blib/lib/Appium/Ios/CanPage.pm

Criterion	Covered	Total	%
statement	6	37	16.2
branch	0	8	0.0
condition	0	7	0.0
subroutine	2	5	40.0
pod	1	1	100.0
total	9	58	15.5

package Appium::Ios::CanPage;
$Appium::Ios::CanPage::VERSION = '0.0804';
# ABSTRACT: Display all interesting elements for iOS, useful during test authoring
use Moo::Role;
use feature qw/state/;


sub page {
    my ($self) = @_;

    return $self->_get_page;
}

sub _get_page {
    my ($self, $element, $level) = @_;

    $element //= $self->_source_window_with_children;
    $level //= 0;
    my $indent = '  ' x $level;

    # App strings are found in an actual file in the app package
    # somewhere, so I'm assuming we don't have to worry about them
    # changing in the middle of our app execution. This may very well
    # turn out to be a false assumption.
    state $strings = $self->app_strings;

    my @details = qw/name label value hint/;
    if ($element->{visible}) {
        print $indent .  $element->{type} . "\n";
        foreach (@details) {
            my $detail = $element->{$_};
            if ($detail) {
                print $indent .  '  ' . $_ . "\t: " . $detail  . "\n" ;

                foreach my $key (keys %{ $strings }) {
                    my $val = $strings->{$key};
                    if ($val =~ /$detail/) {
                        print $indent .  '  id  ' . "\t: " . $key . ' => ' . $val . "\n";
                    }
                }
            }
        }
    }

    $level++;
    my @children = @{ $element->{children} };
    foreach (@children) {
        $self->_get_page($_, $level);
    }
}

sub _source_window_with_children {
    my ($self, $index) = @_;
    $index //= 0;

    my $window = $self->execute_script('UIATarget.localTarget().frontMostApp().windows()[' . $index . '].getTree()');
    if (scalar @{ $window->{children} }) {
        return $window;
    }
    else {
        return $self->_source_window_with_children(++$index);
    }
}


1;

__END__