%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /home/opti/optisoftcom/.cpanm/work/1544535406.20768/Moo-2.003004/xt/
Upload File :
Create Path :
Current File : /home/opti/optisoftcom/.cpanm/work/1544535406.20768/Moo-2.003004/xt/bless-override.t

use Moo::_strictures;
BEGIN {
  *CORE::GLOBAL::bless = sub {
    my $obj = CORE::bless( $_[0], (@_ > 1) ? $_[1] : CORE::caller() );

    $obj->isa("Foo");

    $obj;
  };
}
use Test::More;
use Test::Fatal;

use Moose ();

is exception {
  package SomeClass;
  use Moo;
}, undef, "isa call in bless override doesn't break Moo+Moose";

done_testing;

Zerion Mini Shell 1.0