view release on metacpan or  search on metacpan

lib/Lithium/WebDriver.pm  view on Meta::CPAN

}

################################################################################

sub _capabilities
{
	my ($self) = @_;
	if ($self->{browser} =~ m/phantomjs/i) {
		if($self->{ua}) {
			debug "setting capabilities in Phantom Driver";
			my ($ua_platform, $ua_browser) = split m/\s*[-_ ]\s*/, $self->{ua};
			$ua_platform = lc $ua_platform if $ua_platform;
			$ua_browser  = lc $ua_browser if $ua_browser;
			if ($ua_platform && $ua_browser && $user_agents->{$ua_platform}{$ua_browser}) {
				$self->{ua} = $user_agents->{$ua_platform}{$ua_browser};
				debug "Setting user-agent to: $self->{ua}";
				return {
					browserName => $self->{browser},
					"phantomjs.page.settings.userAgent" => $self->{ua},
					"phantomjs.page.settings.resourceTimeout" => 10,
				};