use Carp::Always;
use WebService::Solr::Query;
my $q = WebService::Solr::Query->new( { title => [ -and => { -prohibit => 'star' }, { -prohibit => 'wars' } ] } );
my $scalar = $q->stringify;
print "Scalar: $scalar\n";
my @array = $q->stringify;
print "Array: $array[0]\n";
my $stringy = "$q";
print "String: $stringy\n";
Scalar: (((-title:"star") AND (-title:"wars")))
Not a SCALAR reference at /usr/local/lib/perl5/site_perl/5.10.1/WebService/Solr/Query.pm line 148.
WebService::Solr::Query::_value_SCALAR('WebService::Solr::Query=HASH(0x7af9de8)', 'title', 'HASH(0x6f94238)') called at /usr/local/lib/perl5/site_perl/5.10.1/WebService/Solr/Query.pm line 187
WebService::Solr::Query::_value_ARRAY('WebService::Solr::Query=HASH(0x7af9de8)', 'title', 'ARRAY(0x702efb8)') called at /usr/local/lib/perl5/site_perl/5.10.1/WebService/Solr/Query.pm line 137
WebService::Solr::Query::_dispatch_value('WebService::Solr::Query=HASH(0x7af9de8)', 'title', 'ARRAY(0x702efb8)') called at /usr/local/lib/perl5/site_perl/5.10.1/WebService/Solr/Query.pm line 64
WebService::Solr::Query::_struct_HASH('WebService::Solr::Query=HASH(0x7af9de8)', 'HASH(0x7af9fe0)') called at /usr/local/lib/perl5/site_perl/5.10.1/WebService/Solr/Query.pm line 37
WebService::Solr::Query::_dispatch_struct('WebService::Solr::Query=HASH(0x7af9de8)', 'HASH(0x7af9fe0)') called at /usr/local/lib/perl5/site_perl/5.10.1/WebService/Solr/Query.pm line 78
WebService::Solr::Query::_struct_ARRAY('WebService::Solr::Query=HASH(0x7af9de8)', 'ARRAY(0x7ac5728)') called at /usr/local/lib/perl5/site_perl/5.10.1/WebService/Solr/Query.pm line 37
WebService::Solr::Query::_dispatch_struct('WebService::Solr::Query=HASH(0x7af9de8)', 'ARRAY(0x7ac5728)') called at /usr/local/lib/perl5/site_perl/5.10.1/WebService/Solr/Query.pm line 27
WebService::Solr::Query::stringify('WebService::Solr::Query=HASH(0x7af9de8)') called at foo.pl line 9
Scalar: (((-title:"star") AND (-title:"wars")))
Not a SCALAR reference at /usr/local/lib/perl5/site_perl/5.10.1/WebService/Solr/Query.pm line 148.
WebService::Solr::Query::_value_SCALAR('WebService::Solr::Query=HASH(0x11f43f70)', 'title', 'HASH(0x11ea9238)') called at /usr/local/lib/perl5/site_perl/5.10.1/WebService/Solr/Query.pm line 187
WebService::Solr::Query::_value_ARRAY('WebService::Solr::Query=HASH(0x11f43f70)', 'title', 'ARRAY(0x1298b818)') called at /usr/local/lib/perl5/site_perl/5.10.1/WebService/Solr/Query.pm line 137
WebService::Solr::Query::_dispatch_value('WebService::Solr::Query=HASH(0x11f43f70)', 'title', 'ARRAY(0x1298b818)') called at /usr/local/lib/perl5/site_perl/5.10.1/WebService/Solr/Query.pm line 64
WebService::Solr::Query::_struct_HASH('WebService::Solr::Query=HASH(0x11f43f70)', 'HASH(0x11f43dc0)') called at /usr/local/lib/perl5/site_perl/5.10.1/WebService/Solr/Query.pm line 37
WebService::Solr::Query::_dispatch_struct('WebService::Solr::Query=HASH(0x11f43f70)', 'HASH(0x11f43dc0)') called at /usr/local/lib/perl5/site_perl/5.10.1/WebService/Solr/Query.pm line 78
WebService::Solr::Query::_struct_ARRAY('WebService::Solr::Query=HASH(0x11f43f70)', 'ARRAY(0x129da708)') called at /usr/local/lib/perl5/site_perl/5.10.1/WebService/Solr/Query.pm line 37
WebService::Solr::Query::_dispatch_struct('WebService::Solr::Query=HASH(0x11f43f70)', 'ARRAY(0x129da708)') called at /usr/local/lib/perl5/site_perl/5.10.1/WebService/Solr/Query.pm line 27
WebService::Solr::Query::stringify('WebService::Solr::Query=HASH(0x11f43f70)', undef, '') called at foo.pl line 12
Note that these are running against installed WebService::Solr, but they fail the same way with -Mblib
against the version in Git.