The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::More;
use WWW::Mechanize ();
use WWW::Spotify   ();

my $ua = WWW::Mechanize->new( autocheck => 0 );
$ua->agent('foo');
my $spotify = WWW::Spotify->new( ua => $ua );

is( $spotify->ua->agent, 'foo', 'uses custom ua' );

done_testing();