|
Lines 17-22
package t::lib::Selenium;
Link Here
|
| 17 |
|
17 |
|
| 18 |
|
18 |
|
| 19 |
use Modern::Perl; |
19 |
use Modern::Perl; |
|
|
20 |
use Carp qw( croak ); |
| 21 |
|
| 20 |
use C4::Context; |
22 |
use C4::Context; |
| 21 |
|
23 |
|
| 22 |
use base qw(Class::Accessor); |
24 |
use base qw(Class::Accessor); |
|
Lines 34-39
sub new {
Link Here
|
| 34 |
$self->{driver} = Selenium::Remote::Driver->new( |
36 |
$self->{driver} = Selenium::Remote::Driver->new( |
| 35 |
port => $self->{selenium_port}, |
37 |
port => $self->{selenium_port}, |
| 36 |
remote_server_addr => $self->{selenium_addr}, |
38 |
remote_server_addr => $self->{selenium_addr}, |
|
|
39 |
error_handler => sub { |
| 40 |
my $selenium_error = $_[1]; |
| 41 |
print STDERR "\nSTRACE:"; |
| 42 |
my $i = 1; |
| 43 |
while ( (my @call_details = (caller($i++))) ){ |
| 44 |
print STDERR "\t" . $call_details[1]. ":" . $call_details[2] . " in " . $call_details[3]."\n"; |
| 45 |
} |
| 46 |
print STDERR "\n"; |
| 47 |
croak $selenium_error; } |
| 37 |
); |
48 |
); |
| 38 |
return bless $self, $class; |
49 |
return bless $self, $class; |
| 39 |
} |
50 |
} |
| 40 |
- |
|
|