sub new {
  my ($class, %args) = @_;
  my $self = $class->SUPER::new(launch => 'firefox', activate => 1, %args);
  $self->{_window_id} = FindWindowLike('Mozilla Firefox);
  ClickWindow($self->{_window_id});
  if ($self->title =~ /Restore Session/i) {
    $self->click( { selector => '#errorCancel' } );
  }
  return $self;
}

##</code><code>##

sub get {
  my $self = shift;
  $self->{_mech}->get(@_);
}

##</code><code>##

for my $func (qw(get click ...)) {
  no strict 'refs';
  *$func = sub {
    my $self = shift;
    $self->{_mech}->$func(@_);
  };
}

##</code><code>##

use Moose;

has _mech => ( is => 'rw', handles => [ qw(get click ...) ] );