ヤミRoot VoidGate

Viewing: withautoclean.t

use Moo::_strictures;
use lib "t/lib";
use Test::More;
use InlineModule (
  'withautoclean::Class' => q{
    package withautoclean::Class;
    use Moo;

    with 'withautoclean::Role';

    before _clear_ctx => sub {};

    1;
  },
  'withautoclean::Role' => q{
    package withautoclean::Role;
    use Moo::Role;

    # Doing this (or loading a class which is built with Moose)
    # and then loading autoclean - everything breaks...
    use Moose ();
    use namespace::autoclean;
    # Wouldn't happen normally, but is likely to as you part-port something.

    has _ctx => (
        is => 'ro',
        default => sub {
        },
        clearer => '_clear_ctx',
    );

    1;
  },
);

use_ok 'withautoclean::Class';

my $o = withautoclean::Class->new(_ctx => 1);
$o->_clear_ctx;
is $o->_ctx, undef, 'modified method works';

done_testing;

User / IP	: 216.73.216.2
Host / Server	: 146.88.233.70 / dev.loger.cm
System	: Linux hybrid1120.fr.ns.planethoster.net 3.10.0-957.21.2.el7.x86_64 #1 SMP Wed Jun 5 14:26:44 UTC 2019 x86_64