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 |
- |
|
|