Yet Another CPAN Grep

Sub-Exporter ( R/RJ/RJBS/Sub-Exporter-0.991.tar.gz, RJBS, 2023; MetaCPAN )

Sub-Exporter/t/util-mixin.t ( view source; MetaCPAN )

{$super[$x]}, 1, "one parent for $pkg[$x]: @{$super[$x]}");
  for my $y (($x + 1) .. $#pkg) {
    isnt("@{$super[$x]}", "@{$super[$y]}", "parent($x) ne parent($y)")
  }
}

{
  package Test::SubExporte

is(
  eval { $obj_1->bar },
  1,
  "now that object has a bar method"
);

isa_ok($obj_1, "Test::SubExporter::OBJECT");
isnt(ref $obj_1, "Test::SubExporter::OBJECT", "but its actual class isnt TSEO");