package Selenium::Remote::Mock::Commands; use Moo; extends 'Selenium::Remote::Commands'; # override get_params so we do not rewrite the parameters sub get_params { my $self = shift; my $args = shift; my $data = {}; my $command = delete $args->{command}; $data->{'url'} = $self->get_url($command); $data->{'method'} = $self->get_method($command); $data->{'no_content_success'} = $self->get_no_content_success($command); $data->{'url_params'} = $args; return $data; } sub get_method_name_from_parameters { my $self = shift; my $params = shift; my $method_name = ''; my $cmds = $self->get_cmds(); foreach my $cmd (keys %{$cmds}) { if (($cmds->{$cmd}->{method} eq $params->{method}) && ($cmds->{$cmd}->{url} eq $params->{url})) { $method_name = $cmd; last; } } return $method_name; } 1;