Disambiguation Costs Nothing

Disambiguation_Costs_Nothing.t

=pod

=head1 Disambiguation Costs Nothing

	Reading http://blogs.perl.org/users/toby_inkster/2012/10/in-a-simple-mojoliciousdbi-example.html#comment-221718/
	motivated me to extend the comments into this test.
	

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2012 by Robert Blackwell

This writing is free; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

use strict;
use Test::More;

use LWP::UserAgent;
use JSON;

sub JSON { return 'LWP::UserAgent' };
  
{
	my $obj = JSON()->new; 
	isa_ok($obj, 'LWP::UserAgent');
}

{
	my $obj = JSON::->new; 
	isa_ok($obj, 'JSON');
}

{
	my $obj = 'JSON'->new; 
	isa_ok($obj, 'JSON');
}

{
	my $obj = JSON->new; 
	isa_ok($obj, 'LWP::UserAgent');
}

done_testing;