Yet Another CPAN Grep

Apache-Singleton ( M/MS/MSCHOUT/Apache-Singleton-0.17.tar.gz, MIYAGAWA, 2017; MetaCPAN )

Apache-Singleton/t/02_multiclass.t ( view source; MetaCPAN )

ance;
my $printer_d2 = Printer::Device->instance;

is "$printer_a", "$printer_b", 'same printer';
isnt "$printer_a", "$printer_d1", 'not same printer';
is "$printer_d1", "$printer_d2", 'same printer';

Apache-Singleton ( M/MS/MSCHOUT/Apache-Singleton-0.17.tar.gz, MSCHOUT, 2017; MetaCPAN )

Apache-Singleton/t/apache/singleton/request/printer_instance.t ( view source; MetaCPAN )

nter_a = GET_BODY "/TestApache__Singleton__Request__printer_instance";
my $printer_b = GET_BODY "/TestApache__Singleton__Request__printer_instance";

isnt $printer_a, $printer_b, 'not same instance';

Apache-Singleton ( M/MS/MSCHOUT/Apache-Singleton-0.17.tar.gz, MSCHOUT, 2017; MetaCPAN )

Apache-Singleton/t/request_mp2.t ( view source; MetaCPAN )

inter_d2 = Printer::Device::PerRequest->instance;

is "$printer_a", "$printer_b", 'same printer';
isnt "$printer_a", "$printer_d1", 'not same printer';
is "$printer_d1", "$printer_d2", 'same printer';

Apache-Singleton ( M/MS/MSCHOUT/Apache-Singleton-0.17.tar.gz, MIYAGAWA, 2017; MetaCPAN )

Apache-Singleton/t/03_request.t ( view source; MetaCPAN )

ance;
my $printer_d2 = Printer::Device->instance;

is "$printer_a", "$printer_b", 'same printer';
isnt "$printer_a", "$printer_d1", 'not same printer';
is "$printer_d1", "$printer_d2", 'same printer';

Apache-Singleton ( M/MS/MSCHOUT/Apache-Singleton-0.17.tar.gz, MSCHOUT, 2017; MetaCPAN )

Apache-Singleton/t/multiclass.t ( view source; MetaCPAN )

ance;
my $printer_d2 = Printer::Device->instance;

is "$printer_a", "$printer_b", 'same printer';
isnt "$printer_a", "$printer_d1", 'not same printer';
is "$printer_d1", "$printer_d2", 'same printer';

Apache-Singleton ( M/MS/MSCHOUT/Apache-Singleton-0.17.tar.gz, MSCHOUT, 2017; MetaCPAN )

Apache-Singleton/t/request.t ( view source; MetaCPAN )

inter_d2 = Printer::Device::PerRequest->instance;

is "$printer_a", "$printer_b", 'same printer';
isnt "$printer_a", "$printer_d1", 'not same printer';
is "$printer_d1", "$printer_d2", 'same printer';

Apache-Singleton ( M/MS/MSCHOUT/Apache-Singleton-0.17.tar.gz, MSCHOUT, 2017; MetaCPAN )

Apache-Singleton/t/process.t ( view source; MetaCPAN )

inter_d2 = Printer::Device::PerProcess->instance;

is "$printer_a", "$printer_b", 'same printer';
isnt "$printer_a", "$printer_d1", 'not same printer';
is "$printer_d1", "$printer_d2", 'same printer';

Apache-Singleton ( M/MS/MSCHOUT/Apache-Singleton-0.17.tar.gz, MIYAGAWA, 2017; MetaCPAN )

Apache-Singleton/t/04_process.t ( view source; MetaCPAN )

ance;
my $printer_d2 = Printer::Device->instance;

is "$printer_a", "$printer_b", 'same printer';
isnt "$printer_a", "$printer_d1", 'not same printer';
is "$printer_d1", "$printer_d2", 'same printer';