use MooseX::Declare;
role t::lib::Util::ResponseFixtures {
use URI::file ();
use WWW::Mechanize ();
method uri_for(Str $basename) {
$basename .= '.html' if $basename !~ /\./;
return URI::file->new_abs("t/fixtures/$basename")->as_string;
}
method response_for(Str $basename) {
return WWW::Mechanize->new->get($self->uri_for($basename));
}
}