Merge pull request appium#2663 from gempesaw/perl-examples

Interested in adding perl code samples ?

sample-code/examples/perl/ios_simple.pl

@@ -0,0 +1,42 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+use Test::More;
+use Cwd qw/getcwd abs_path/;
+use Selenium::Remote::Driver 0.20;
+
+my $app = getcwd() . '/../../apps/TestApp/build/Release-iphonesimulator/TestApp.app';
+my $caps = {
+    app               => abs_path($app),
+    browserName       => "",
+    deviceName        => "iPhone Simulator",
+    platformName      => "iOS",
+    platformVersion   => "7.1"
+};
+
+my $driver = Selenium::Remote::Driver->new_from_caps(
+    remote_server_addr   => "127.0.0.1",
+    port                 => 4723,
+    desired_capabilities => $caps
+);
+
+ok(defined $driver, 'Instantiated an iOS driver!');
+
+my $expected_sum;
+foreach (qw/1 2/) {
+    my $text_field = $driver->find_element('TextField' . $_, 'name');
+    my $rand = int(rand(20));
+    $expected_sum += $rand;
+    $text_field->send_keys($rand);
+}
+
+my $compute_button = $driver->find_element('ComputeSumButton', 'name');
+$compute_button->click;
+
+my $sum_element = $driver->find_element($expected_sum, 'name');
+ok($sum_element->get_text eq $expected_sum, 'We can do addition!');
+
+$driver->quit;
+
+done_testing;