#!perl -w use strict; use Test::More; use WWW::Mechanize::Firefox; my $mech = eval { WWW::Mechanize::Firefox->new( autodie => 0, #log => [qw[debug]], )}; if (! $mech) { my $err = $@; plan skip_all => "Couldn't connect to MozRepl: $@"; exit } else { plan tests => 1; }; isa_ok $mech, 'WWW::Mechanize::Firefox';